Merge pull request #2416 from abcbarryn/modules/legacy

Added local copy of perl ini module

.gitattributes

@@ -1,9 +0,0 @@
-
-# webmin .gitattribues file
-# help git / github to know the encoding of webmin (lang) files
-
-# force module.info to iso-8859-1 even it contains other encodings
-*/module.info        working-tree-encoding=iso8859-1 git-encoding=iso8859-1
-
-# set all .UTF-8 to UTF-8
-*.UTF-8      working-tree-encoding=UTF-8 git-encoding=UTF-8

.gitignore

@@ -1,23 +0,0 @@
-# thumbnails
-Thumbs.db
-.xvpics
-
-# python byte-compiled
-*.py[cod]
-
-# temp files
-*~
-*.bak
-test
-*.tmp
-*.site
-core
-
-# build files
-.builds
-.build
-
-# makedist.pl
-tarballs/
-minimal/
-.DS_Store

CHANGELOG.md

@@ -1,444 +0,0 @@
-## Changelog
-
-#### 2.001 (September, 2022)
-* Fix missing origins and action for direct rules in FirewallD module
-* Removed the need for a full restart when updating SSH keys
-* Improved the Javascript for redirects to HTTPS
-
-#### 2.000 (August 21, 2022)
-* Add to enforce HTTP Strict Transport Security (HSTS) policy in SSL enabled mode
-* Add better `http` to `https` redirects when SSL is enabled
-* Add support for installing multiple versions of Webmin on `systemd` systems
-* Add support for AMD CPU thermisters #1714
-* Add better support for Webmin minor (release) versions upgrades
-* Add Webmin and Usermin configuration modules display minor (release) version
-* Add Mint Linux support
-* Add latest Authentic 20.00 [theme update](https://github.com/webmin/authentic-theme/releases/tag/20.00) with number of bug fixes
-* Fix to also restart dependent services (i.e. `fail2ban`) upon `firewalld` restart
-* Fix to preserve service state for Webmin and Usermin upon package upgrades (i.e. don't start stopped)
-* Fix Bind module config incorrectly updated upon Webmin upgrades on CentOS 7
-
-#### 1.999 (August 4, 2022)
-* Fix to allow IPv6 addresses for slaves in BIND module
-* Fix to send `HUP` signal on reload with `systemd`
-* Fix icons in Servers Index module for newer distros (Alma and Rocky)
-* Fix to remove depricated option `UsePrivilegeSeparation` with OpenSSH 7.5+
-* Fix Oracle Linux support
-* Fix Ubuntu release notes links
-* Add Webmin release note message
-* Add latest Authentic [theme update](https://github.com/webmin/authentic-theme/releases/tag/19.99) with number of bug fixes
-
-#### 1.998 (July 25, 2022)
-* Fix Apache, BIND, MySQL, ProFTPd and other modules configs on newest distros for new installs
-* Fix to use Cron default path when run from UI
-* Fix post uninstall cleanups
-* Fix version detection bug for Log File Rotation module
-* Add improvements to Partitions on Local Disks module
-* Add better support for CentOS Stream Linux for new installs
-* Add improvements for searching and naming global PHP configs files
-* Add support for unix extensions option for Samba module https://github.com/webmin/webmin/issues/1695
-* Add latest Authentic [theme update](https://github.com/webmin/authentic-theme/releases/tag/19.98) with various bug fixes and small improvements
-
-#### 1.997 (July 12, 2022)
-* Add support for mirror and RAID volumes in LVM module
-* Add latest Authentic [theme update](https://github.com/webmin/authentic-theme/releases/tag/19.97) with nice new features in File Manager and other fixes
-* Fix more issues with restart when Webmin is upgraded from UI
-
-#### 1.996 (July 4, 2022)
-* Fix issues with `systemd` restarting Webmin on upgrade found in 1.995
-
-#### 1.995 (June 23, 2022)
-  * Add improvements to stability for `systemd` systems
-  * Add native support to default to system default hashing format
-  * Add support to `yescrypt` password hashing scheme
-  * Add new _System Logs Viewer_ (logviewer) module
-  * Add new `webmin server` sub-command
-  * Add to set environmental variables in Filesystem Backup module
-  * Fix upload tracker issues with large uploads
-  * Fix NVMe drives status support
-  * Fix AlmaLinux support
-  * Fix BIND config for FreeBSD 12 on initial setup
-
-#### Version 1.994 (May 22, 2022)
-This release fixes a security issue in versions 1.991 and below. All systems with less-privileged Webmin users are recommended to upgrade as soon as possible.
-
-#### Version 1.991 (April 18, 2022)
-This is mainly a bugfix release for issues found since 1.990.
-
-#### Version 1.990 (March 3, 2022)
-This release contains a critical security fix, an updated theme, and a bunch of other small features and improvements. We recommend that all systems with untrusted Webmin users upgrade immediately!
-
-#### Version 1.983 (December 26, 2021)
-This release is mostly bugfixes for issues found in 1.983.
-
-#### Version 1.983 (December 4, 2021)
-These releases are mostly bugfixes for issues found in 1.982.
-
-#### Version 1.982 (November 26, 2021)
-This release includes the latest Authentic theme, support for archive extraction and folder uploads in the File Manager module, automatic formatting of the Apache config, translation updates, and many more small features and bugfixes.
-
-#### Version 1.981 (August 28, 2021)
-This is just a bugfix for issues found in version 1.980.
-
-#### Version 1.980 (August 22, 2021)
-This release includes numerous small bugfixes, a theme update, translation fixes, support for Rocky and Alma Linuxes, and a new API for changing password.
-
-#### Version 1.979 (June 15, 2021)
-This release fixes several bugs found in 1.974, updates the Authentic theme, adds 2FA support in Usermin, and fixes a security bug in the Network Configuration module.
-
-#### Version 1.974 (May 1, 2021)
-Mostly a bugfix release, but it also contains a security for users who installed using the `setup.pl` script (which is not common).
-
-#### Version 1.972 (March 1, 2021)
-This is mainly a bugfix release for issues with Let's Encrypt and a few other modules.
-
-#### Version 1.970 (January 6, 2021)
-This release updates the theme, fixes a Windows security issue, updates the CA cert for Let's Encrypt, and improves translations.
-
-#### Version 1.962 (November 11, 2020)
-These are bugfix releases for 2-factor signin and other small issues.
-
-#### Version 1.960 (October 19, 2020)
-This release improves MySQL user management, updates the theme UI, fixes parsing of complex Netplan configs, removes the dependency on apt-show-versions and much much more.
-
-#### Version 1.953 (July 5, 2020)
-This release adds automatic translations for all languages in UTF-8, updates the Authentic theme, adds support for Postfix SNI certs and Chrony, caching for LDAP lookups, and a huge number of bugfixes and minor features.
-
-#### Version 1.941 (January 16, 2020)
-This release updates the built-in Let's Encrypt client, adds support for creating "safe-mode" Webmin users, support for CAA records in the BIND module, and the ability to search Postfix maps. It also updates the Authentic theme to the latest version, which includes numerous improvements to the File Manager and overall UI.
-
-#### Version 1.930 (August 18, 2019)
-These updates fix a [security vulnerability](http://webmin.com/security.html) and should be installed IMMEDIATELY by all users. Although it is not exploitable in a Webmin install with the default configuration, upgrading is strongly recommended.
-
-#### Version 1.920 (July 04, 2019)
-This update includes the latest theme version, translation updates, the ability to disable hosts file entries, easier monitoring of bootup actions, and a bunch of bugfixes.
-
-#### Version 1.910 (May 09, 2019)
-This release includes theme and translation updates, a page for editing package repositories, cron and status module improvements, and a bunch of other bugfixes and small improvements.
-
-#### Version 1.900 (November 19, 2018)
-This version includes wildcard Let's Encrypt SSL cert support, theme and translation updates, support for announcements to Webmin users, and a bunch of other bugfixes and small improvements.
-
-#### Version 1.890 (July 19, 2018)
-This version includes Ubuntu 18 network config support, translation updates, multiple theme and file manager updates, BIND freeze/thaw support, support for more Linux distributuions, and a bunch of other bugfixes and small improvements.
-
-#### Version 1.880 (March 16, 2018)
-This version includes German, Catalan and Bulgarian translation updates, a new version of the Authentic theme, support for directly editing the MySQL and PostgreSQL config files, Let's Encrypt bugfixes, more control over system status email notifications, and more.
-
-#### Version 1.870 (December 08, 2018)
-This release includes many translation updates, fixes for Let's Encrypt support, UI cleanups, and most importantly a new major version of the Authentic theme.
-
-#### Version 1.860 (October 10, 2017)
-This release includes Let's Encrypt DNS fixes, Majordomo module improvements, XSS security bugfixes, translation updates, a new version of the theme, and more.
-
-#### Version 1.850 (June 28, 2017)
-This release includes Let's Encrypt fixes, Majordomo module improvements, FirewallD forwarding support, translation updates, an update to the Authentic theme, and a bunch of other bugfixes.
-
-#### Version 1.840 (May 08, 2017)
-This major release includes a large theme update, XSS security fixes, per-domain SSL cert support, thin-provisioned LVM support, Let's Encrypt improvements, translation updates, and the usual gang of bugfixes. Also available is Usermin 1.710, which contains many of the same updates.
-
-#### Version 1.830 (December 29, 2016)
-This is mainly a bugfix release, but also contains some translation updates, the latest version of the Authentic theme, fixes related to Let's Encrypt and LDAP client support, and SElinux and file attribute support in the file manager.
-
-#### Version 1.820 (October 3, 2016)
-This updated includes a bunch of bugfixes (particularly in the BIND module), translation updates, the ability to download a MySQL backup, Let's Encrypt improvements, and more.
-
-#### Version 1.810 (August 8, 2016)
-This updated includes the latest Authentic theme, a new IPv6 Firewall module for Linux, Webmin actions logging improvements, Let's Encrypt API fixes and a bunch of other small updates and bugfixes.
-
-#### Version 1.800
-* German translation updates, thanks to Raymond Vetter.
-* Catalan translation updates from Jaume Badiella.
-* Bulgarian translations from Grigor Gatchev.
-* Added Support for Synology NAS and opkg/ipkg Community Package Manager, Kay Marquardt
-* Added Support for configuring spam filtering when amvisd is used, Kay Marquardt
-
-
-#### Version 1.790
-* Added a recent logins section to the System Information page.
-* Major rework of majordomo module, Kay Marquardt
-
-
-#### Version 1.760
-* For new installs, switched the location of data files in many modules to /var/webmin instead of /etc/webmin.
-
-#### Version 1.750
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Catalan translation updates from Jaume Badiella.
-* More German translation updates, thanks to Raymond Vetter.
-* Fixed an XSS bug that allowed xmlrpc.cgi to be abused by a malicious link.
-
-#### Version 1.740
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Catalan translation updates from Jaume Badiella.
-* More German translation updates, thanks to Raymond Vetter.
-
-#### Version 1.730
-* More German translation updates, thanks to Raymond Vetter.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* The awesome new Authentic Theme by @iliajie is now included in the Webmin package.
-* Catalan translation updates from Jaume Badiella.
-
-#### Version 1.720
-* Deprecated the old blue-theme in favor of the new gray-theme.
-* Catalan translation updates from Jaume Badiella.
-* More German translation updates, thanks to Raymond Vetter.
-
-#### Version 1.710
-* SSL v2 and v3 are now disabled by default at Webmin install time, to block the POODLE attack. They can be re-enabled on the SSL Encryption page of the Webmin Configuration module.
-
-#### Version 1.700
-* More German translation updates, thanks to Raymond Vetter.
-* Catalan updates, thanks to Jaume Badiella.
-* Added additional protected against Shellshock exploits made via the Webmin webserver.
-
-#### Version 1.690
-* More German translation updates, thanks to Raymond Vetter.
-* Support for RHEL 7, CentOS 7 and other derivatives in multiple modules.
-
-#### Version 1.670
-* More German translation updates, thanks to Raymond Vetter.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Catalan updates, thanks to Jaume Badiella.
-* Security fixes for XSS attacks in `user_chooser.cgi` and other scripts.
-
-#### Version 1.660
-* More German translation updates, thanks to Raymond Vetter.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Catalan updates, thanks to Jaume Badiella.
-* IPv6 access control now match an address exactly, unless a network size is entered.
-* FTP uploads and downloads to IPv6-only servers now work properly, thanks to support for the EPSV protocol command.
-* Added a Bahasa Malaysia translation, thanks to Nawawi Jamili, Nizam Adnan and Weldan Jamili.
-* Added filtering for lists in the user, group and file chooser popups, thanks to a patch from Nawawi Jamili.
-
-#### Version 1.650
-* More German translation updates, thanks to Raymond Vetter.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-
-#### Version 1.620
-* More German translation updates, thanks to Raymond Vetter.
-* Polish translation updates from Piotr Kozica.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Improved FreeBSD 8 and 9 support across multiple modules.
-* Hungarian translation updates from Balázs Zoltán.
-
-#### Version 1.610
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Catalan updates, thanks to Jaume Badiella.
-* Yet more German translation updates, thanks to Raymond Vetter.
-* Polish translation updates from Piotr Kozica.
-
-#### Version 1.600
-* Even more German translation updates, thanks to Raymond Vetter.
-* Catalan updates, thanks to Jaume Badiella.
-
-#### Version 1.590
-* Even more German translation updates, thanks to Raymond Vetter.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* Dutch translation updates, thanks to Gandyman.
-* Switch order of command and mode in debug logs to make it clear that "mode=X" is part of the log, not part of the command.
-* Added the new Gray Framed Theme, and made it the default for new installs.
-
-#### Version 1.580
-* Even more German translation updates, thanks to Raymond Vetter.
-* More Dutch updates, thanks to Gandyman.
-* Catalan updates, thanks to Jaume Badiella.
-* Norwegian updates, thanks to Stein-Aksel Basma.
-* All languages now have UTF-8 encoded variants, as well as their native character sets.
-* Added support for Ubuntu 12.04.
-
-#### Version 1.570
-* Even more German translation updates, thanks to Raymond Vetter.
-* Added UTF-8 encodings for languages using the iso-8859-2, like Czech and Polish.
-* Catalan updates, thanks to Jaume Badiella.
-* Norwegian translation updates, thanks to Stein-Aksel Basma.
-* The MySQL, PostgreSQL, Filesystem Backup and Backup Configuration Files modules now all support the use of Webmin variable substitutions in backup paths (like $HOSTNAME) via a new Module Config option.
-
-#### Version 1.560
-* More German translation updates, thanks to Raymond Vetter.
-* More French translation updates, thanks to ButterflyOfFire.
-
-#### Version 1.550
-* Catalan updates, thanks to Jaume Badiella.
-* Italian translation updates, thanks to Andrea Oliveri.
-* Major German translation updates, thanks to Raymond Vetter.
-
-#### Version 1.530
-* Speed up the loading of language files by pre-caching them in memory when Webmin is started, and not performing sub-string substitutions in most modules.
-* Added support for Pardus Linux, thanks to Kaan Ozdincer.
-* Major Dutch updates, thanks to Gandyman.
-* Majoe French translation update, thanks to ButterflyOfFire.
-* Allow per-language language overrides to be defined, in custom-lang.$code files.
-* Updated numerous modules to improve support for Debian 6 and Ubuntu 10.10.
-* If a browser asks for gzip compression, Webmin can now return compressed content either generated dynamically or from a pre-compressed .gz file in the same directory. Dynamic compression depends on the Compress::Zlib perl module.
-* Added support for Amazon Linux.
-
-#### Version 1.520
-* Catalan translation updates by Jaume Badiella.
-
-#### Version 1.510
-* Dutch translation updates, thanks to Gandyman.
-* Polish translation updates, thanks to Dariusz Dêbowski.
-
-#### Version 1.500
-* Czech translation updates, thanks to Karel Hudan.
-* The Webmin RPM now preserves the /etc/webmin directory when un-installed and then re-installed.
-* Added a robots.txt file to block indexing of Webmin by search engines.
-* The Webmin search box can now be disabled in the Webmin Users module, under "Permissions for all modules".
-* Brazillian Portuguese translation updates for several modules, thanks to Djavan Fagundes.
-
-#### Version 1.480
-* Catalan translation updates by Jaume Badiella.
-* Dutch translation updates, thanks to Gandyman.
-* Beginnings of a Basque translation, thanks to Mireia Lezea.
-
-#### Version 1.470
-* Catalan translation updates by Jaume Badiella.
-* Added an UTF-8 encoding of the Russian translation, thanks to shavlukov@gmail.com.
-* French translation updates by ButterflyOfFire.
-* Dutch translation updates by Gandyman.
-* Dramatically improved Webmin's search function, to include links to pages that help or UI text comes from. Also changed the layout of results to a more Webmin-ish style.
-
-#### Version 1.450
-* Added a language option for UK english, and converted words in the default Webmin language to US english.
-* Major Dutch translation updates, thanks to Gandyman.
-* Catalan translation updates by Jaume Badiella.
-* Converted all core modules to use the new WebminCore perl module instead of `web-lib.pl`. This significantly improves memory use and load time in code that uses functions from multiple modules, asssuming they have all been converted.
-
-#### Version 1.440
-* Russian translation updates, thanks to Anton Statutov.
-* Webmin's serialization functions can now handle objects, which allows them to be passed as parameters to remote function calls. Both caller and recipient must have the object's class installed though.
-* Converted commands in the core `web-lib-funcs.pl` API file to POD format, and added more details about each function.
-
-#### Version 1.430
-* A large Croatian translation update, thanks to Domagoj Bikic.
-* When a user whose password is close to expiry or has already expired logs in, a warning will be displayed on Webmin's first page.
-* Many Japanese translation updates, thanks to Kazuya Masuda.
-
-#### Version 1.420
-* Many Greek translation updates, thanks to Vagelis Koutsomitros.
-* Catalan translation updates by Jaume Badiella.
-* Many Dutch translation contributions by Gandyman.
-
-#### Version 1.410
-* Many Korean updates, thanks to JoungKyun Kim.
-* More Dutch updates, thanks to Gandyman.
-* Added a debugging log file, which records all files read and written, commands run and more. This can be enabled in the Webmin Configuration module.
-
-#### Version 1.400
-* Big Czech translation updates, thanks to Petr Vanek and the Czech translation team.
-* All popups in Webmin are now XSS-safe, and thus do not need protection from unknown referers which prevented them from working in some browsers.
-* All Webmin session IDs are now stored MD5 hashed, to prevent sessions from being captured if the sessiondb DBM is somehow read by an attacker.
-* Many Dutch updates, thanks to Gandyman.
-* MD5 encryption for Webmin and Unix passwords can be used on systems that have either the MD5 or Digest::MD5 perl module, or support it in the crypt() function.
-
-#### Version 1.390
-* Links from unknown referers are now blocked by default, to prevent XSS attacks. This may break browsers that don't supply a Referer: HTTP header.
-
-#### Version 1.380
-* Added a search box to the left frame of the blue theme, for finding modules, config options, help pages and text.
-* All images, CSS and other static content served by Webmin has an HTTP Expires for 1 week in the future, to improve cachability.
-* Lock files are automatically removed when the process creating them exits.
-* NetBSD 4.0 support.
-* Italian and Catalan translations contributed for many modules, thanks to Giovanni and Jaume Badiella.
-* Changed the error message that appears when Webmin detects a link from another web page, and removed the button to allow the link (which was unreliable anyway).
-
-#### Version 1.370
-* Hid the Jabber and Security Sentries modules by default, as the underlying software is no longer supported.
-* On Linux systems, sped up the function for finding processes so that it no longer has to launch 'ps' - instead, it reads /proc directly.
-* When `read_file_lines` is used to read a file, the Unix or Windows newlines will be preserved when it is written out.
-
-#### Version 1.340
-* Added Redhat Enterprise release 5 support.
-* Requests to the /unauthenticated URL can never execute CGI programs, to provide an extra layer of security against URL escaping attacks.
-* Fixed XSS bugs in `pam_login.cgi`.
-
-#### Version 1.330
-* Added more `ui-lib.pl` functions for hidden page sections.
-* Fixed another XSS bug in chooser.cgi.
-* The Webmin function to get the system's hostname now reads a file instead of calling the hostname comment, which is faster.
-* Added an ACL option to the file chooser for additional directories to allow access to.
-* Changed the way sizes are displayed, to use a format like 1.32 GB or 8 kB.
-* Removed letter images (used by the old theme), and forced the standard header function to always use text titles.
-* Added support for Slam64 Linux.
-
-#### Version 1.320
-* Fixed XSS bugs in chooser.cgi.
-* If the operating system is upgraded after Webmin is installed, a button is displayed on the main page to update Webmin's view of the current OS.
-* Improved the tabs API to add an option to put a box around the visible tab, and whitespace around tabs.
-* If listening on all specified IP addresses fails, Webmin will fall back to accepting connections on any address.
-* All Module Config pages are now generating using new `ui-lib.pl` code, for easier theming.
-* Added a global access control option to set the Unix user the file browser lists directories as.
-
-#### Version 1.310
-* Module configuration files can now be named based on the real operating system types, such as config-Ubuntu-Linux, which would be used in preference to config-debian-linux.
-* When a large file is uploaded, it is no longer read into memory by `miniserv.pl`.
-* Update the code that fetches mirror sites from Sourceforge, to handle their new website design.
-* Changed the default theme for all installs to the new framed blue theme.
-* Updated all rows of links (like select all, invert selection, add something) above tables to use a separator between links.
-* Added caching for sudo capable user checks, to avoid excessive slow calls to sudo.
-* Fixed a memory leak when running under ActiveState Perl on Windows.
-
-#### Version 1.300
-* Fixed the rare bug about renaming the .webmintmp file.
-
-#### Version 1.290
-* SELinux security contexts are preserved on files safely modified by Webmin's write-and-rename code.
-* Added xmlrpc.cgi program, which provides an XML-RPC interface to all Webmin module functions.
-* Tested and improved support for Fedora 5.
-
-#### Version 1.280
-* Fixed security holes that allow remote read access to any file on the server for which the path is known.
-
-#### Version 1.270
-* Updated almost all modules that use tables to use the new `ui_columns` functions. This allows themes to do highlighting when a row is moved over or selected.
-* Added a new 'Simple Blue' theme, which uses fewer images and does table row highlighting.
-* Changed the way that Webmin log diff files are stored, so that they are categorized by action and not all in one huge directory.
-
-#### Version 1.260
-* Proxy settings made in the Webmin Configuration module are passed on to programs Webmin calls via the `http_proxy` and `ftp_proxy` environment variables.
-* Added automatically created UTF-8 translations for simplified and traditional Chinese.
-
-#### Version 1.240
-* Fixed a possible security hole caused by a bug in Perl.
-
-#### Version 1.230
-* Replaced all calls to the crypt() function with new code that will use the Crypt::UnixCrypt Perl modules on systems for with crypt() is broken.
-
-#### Version 1.220
-* Added basic support for running Webmin on Windows system with ActiveState Perl installed. The new `setup.pl` install script must be used, as the setup.sh shell script cannot run on Windows.
-* Fixed a bug that could allow a remote attack if the option to use full PAM conversations is enabled.
-* Improved the Webmin RPM to not lose the /etc/webmin directory when upgrading from an RPM by another vendor (like Mandrake or DAG).
-
-#### Version 1.210
-* Added a new Global ACL control option to limit a user to read-only mode. This does not yet support all modules, but in those that are supported any changes the user makes will simply not take effect.
-* Restarting of Webmin is now much faster in some modules that do not need a full configuration reload, due to the addition of a function that justs tells `miniserv.pl` to re-read its config file.
-
-#### Version 1.200
-* On Solaris systems that support RBAC, available modules and access rights can now be derived from RBAC for selected users. This can be enabled on a per-user or per-module basic in the Webmin Users module.
-
-#### Version 1.180
-* All subheadings have been reduced in size when using the default MSC theme.
-* All modules now use a new API for writing to configuration files, which ensures that the file does not get written to or truncated if the system is out of disk space.
-
-#### Version 1.170
-* When installing a module from the command line, by it will be granted to the same users who receive new modules when Webmin is upgraded. By default, this is root and admin.
-* Added basic support for multiple root directories, so that Webmin modules can be separated into core and third-party on the filesystem.
-* When installing or upgrading Webmin, password timeouts are now enabled by default. This protects against brute-force password guessing attacks.
-
-#### Version 1.160
-* Added support for Solaris 10.
-* Included several additional translations for various languages and modules.
-* Added support for config- files that allow a range of OS version numbers, and used this to reduce the number of standard config files.
-
-#### Version 1.150
-* Updated the setup.sh script to use MD5 password encryption by default, on systems where Perl supports it.
-* Fixed a security hole in the `maketemp.pl` script, used to create the /tmp/.webmin directory at install time. If an un-trusted user creates this directory before Webmin is installed, he could create in it a symbolic link pointing to a critical file on the system, which would be overwritten when Webmin writes to the link filename (CVE bug CAN-2004-0559).
-* When PAM is used for Unix authentication, expired passwords are now detected and the user is prompted to select a new password (if this feature is enabled on the Webmin Configuration module).
-* Make all functions in `ui-lib.pl` themable, allowing themes to have more detailed control over modules that make use of this library.
-* Updated all modules to call `ui_print_header` instead of calling header and printing `<hr>`, so that themes can avoid the `<hr>`. Also updated the MSC theme to do this.
-
-#### Version 1.140
-* Fixed a security hole that allowed any user to view the configuration of any module, even those that they should not have access to.
-* Fixed a security hole that could allow an attacker to lock valid users by sending a bogus username or password.
-

JSON/PP/Boolean.pm

@@ -1,42 +0,0 @@
-package JSON::PP::Boolean;
-
-use strict;
-require overload;
-local $^W;
-overload::import('overload',
-    "0+"     => sub { ${$_[0]} },
-    "++"     => sub { $_[0] = ${$_[0]} + 1 },
-    "--"     => sub { $_[0] = ${$_[0]} - 1 },
-    fallback => 1,
-);
-
-$JSON::PP::Boolean::VERSION = '4.04';
-
-1;
-
-__END__
-
-=head1 NAME
-
-JSON::PP::Boolean - dummy module providing JSON::PP::Boolean
-
-=head1 SYNOPSIS
-
- # do not "use" yourself
-
-=head1 DESCRIPTION
-
-This module exists only to provide overload resolution for Storable and similar modules. See
-L<JSON::PP> for more info about this class.
-
-=head1 AUTHOR
-
-This idea is from L<JSON::XS::Boolean> written by Marc Lehmann <schmorp[at]schmorp.de>
-
-=head1 LICENSE
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-

LICENCE

@@ -1,30 +0,0 @@
-BSD 3-Clause License
-
-Copyright (c) Jamie Cameron
-
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
-1. Redistributions of source code must retain the above copyright notice, this
-   list of conditions and the following disclaimer.
-
-2. Redistributions in binary form must reproduce the above copyright notice,
-   this list of conditions and the following disclaimer in the documentation
-   and/or other materials provided with the distribution.
-
-3. Neither the name of the copyright holder nor the names of its
-   contributors may be used to endorse or promote products derived from
-   this software without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

LICENCE.ja

@@ -1,30 +0,0 @@
-Japanese translation is released under following license.
----------------------------------------------------------
- Copyright (c) Kazuya Sakakihara
- All rights reserved.
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions
- are met:
- 1. Redistributions of source code must retain the above copyright
-    notice, this list of conditions and the following disclaimer.
- 2. Redistributions in binary form must reproduce the above copyright
-    notice, this list of conditions and the following disclaimer in the
-    documentation and/or other materials provided with the distribution.
- 3. Neither the name of the developer nor the names of contributors
-    may be used to endorse or promote products derived from this software
-    without specific prior written permission.
-
- THIS SOFTWARE IS PROVIDED BY THE DEVELOPER ``AS IS'' AND
- ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- ARE DISCLAIMED.  IN NO EVENT SHALL THE DEVELOPER OR CONTRIBUTORS BE LIABLE
- FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- SUCH DAMAGE.
- ---------------------------------------------------------
-

OsChooser.pm

@@ -1,225 +0,0 @@
-#!/usr/local/bin/perl -w
-use strict;
-# Detect the operating system and version.
-
-package OsChooser;
-
-# Package scoped for mapping short names to long "proper" names
-my %NAMES_TO_REAL;
-
-# main
-sub main {
-	if ($#ARGV < 1) { die "Usage: $0 os_list.txt outfile [0|1|2|3] [issue]\n"; }
-	my ($oslist, $out, $auto, $issue) = @ARGV;
-	return write_file($out, oschooser($oslist, $auto, $issue));
-	}
-main() unless caller(); # make it testable and usable as a library
-
-$| = 1;
-
-sub oschooser {
-my ($oslist, $auto, $issue) = @_;
-my $ver_ref;
-
-my ($list_ref, $names_ref) = parse_patterns($oslist);
-
-if ($auto && ($ver_ref = auto_detect($oslist, $issue, $list_ref, $names_ref))) {
-	return ($ver_ref->[2], $ver_ref->[3], $ver_ref->[0], $ver_ref->[1]);
-	}
-elsif (!$auto || ($auto == 3 && have_tty()) || $auto == 2) {
-	$ver_ref = ask_user($names_ref, $list_ref);
-	return ($ver_ref->[2], $ver_ref->[3], $ver_ref->[0], $ver_ref->[1]);
-	}
-else {
-	print "Failed to detect operating system\n";
-	exit 1;
-	}
-}
-
-# Return a reference to a pre-parsed list array, and a ref to a names array
-sub parse_patterns {
-my ($oslist) = @_;
-my @list;
-my @names;
-my %donename;
-# Parse the patterns file
-open(OS, "<$oslist") || die "failed to open $oslist : $!";
-while(<OS>) {
-	chop;
-	if (/^([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t*(.*)$/) {
-		push(@list, [ $1, $2, $3, $4, $5 ]);
-		push(@names, $1) if (!$donename{$1}++);
-		$NAMES_TO_REAL{$1} ||= $3;
-		}
-	}
-close(OS);
-return (\@list, \@names);
-}
-
-# auto_detect($oslist, $issue)
-# Returns detected OS details in a hash ref
-sub auto_detect {
-my ($oslist, $issue, $list_ref) = @_;
-my $ver_ref;
-my @list = @$list_ref;
-
-# Try to guess the OS name and version
-my $etc_issue;
-my $uname = `uname -a`;
-
-if ($issue) {
-	$etc_issue = `cat $issue`;
-	$uname = $etc_issue; # Strangely, I think this will work fine.
-	}
-elsif (-r "/etc/.issue") {
-	$etc_issue = `cat /etc/.issue`;
-	}
-elsif (-r "/etc/issue") {
-	$etc_issue = `cat /etc/issue`;
-	}
-
-foreach my $o_ref (@list) {
-	if ($issue && $o_ref->[4]) {
-		$o_ref->[4] =~ s#cat [/a-zA-Z\-\s]*\s2#cat $issue 2#g;
-		} # Testable, but this regex substitution is dumb.XXX
-	local $^W = 0; # Disable warnings for evals, which may have undefined vars
-	if ($o_ref->[4] && eval "$o_ref->[4]") {
-		# Got a match! Resolve the versions
-		print "$o_ref->[4]\n";
-		$ver_ref = $o_ref;
-		if ($ver_ref->[1] =~ /\$/) {
-			$ver_ref->[1] = eval "($o_ref->[4]); $ver_ref->[1]";
-			}
-		if ($ver_ref->[3] =~ /\$/) {
-			$ver_ref->[3] = eval "($o_ref->[4]); $ver_ref->[3]";
-			}
-		last;
-		}
-	if ($@) {
-		print STDERR "Error parsing $o_ref->[4]\n";
-		}
-	}
-	return $ver_ref;
-}
-
-sub ask_user {
-my ($names_ref, $list_ref) = @_;
-my @names = @$names_ref;
-my @list = @$list_ref;
-my $vnum;
-my $osnum;
-# ask for the operating system name ourselves
-my $dashes = "-" x 75;
-print <<EOF;
-For Webmin to work properly, it needs to know which operating system
-type and version you are running. Please select your system type by
-entering the number next to it from the list below
-$dashes
-EOF
-{
-my $i;
-for($i=0; $i<@names; $i++) {
-	printf " %2d) %-20.20s ", $i+1, $names[$i];
-	print "\n" if ($i%3 == 2);
-	}
-print "\n" if ($i%3);
-}
-print $dashes,"\n";
-print "Operating system: ";
-chop($osnum = <STDIN>);
-if ($osnum !~ /^\d+$/) {
-	print "ERROR: You must enter the number next to your operating\n";
-	print "system, not its name or version number.\n\n";
-	exit 9;
-	}
-if ($osnum < 1 || $osnum > @names) {
-	print "ERROR: $osnum is not a valid operating system number.\n\n";
-	exit 10;
-	}
-print "\n";
-
-# Ask for the operating system version
-my $name = $names[$osnum-1];
-print <<EOF;
-Please enter the version of $name you are running
-EOF
-print "Version: ";
-chop($vnum = <STDIN>);
-if ($vnum !~ /^\S+$/) {
-	print "ERROR: An operating system number cannot contain\n\n";
-	print "spaces. It must be like 2.1 or ES4.0.\n";
-	exit 10;
-	}
-print "\n";
-return [ $name, $vnum,
-	  $NAMES_TO_REAL{$name}, $vnum ];
-}
-
-# write_file($out, $os_type, $os_version, $real_os_type, $real_os_version)
-# Write the name, version and real name and version to a file
-sub write_file {
-my ($out, $os_type, $os_version, $real_os_type, $real_os_version) = @_;
-open(OUT, ">$out") or die "Failed to open $out for writing.";
-print OUT "os_type='",$os_type,"'\n";
-print OUT "os_version='",$os_version,"'\n";
-print OUT "real_os_type='",$real_os_type,"'\n";
-print OUT "real_os_version='",$real_os_version,"'\n";
-return close(OUT);
-}
-
-sub have_tty
-{
-# Do we have a tty?
-my $rv = system("tty >/dev/null 2>&1");
-if ($?) {
-	return 0;
-	}
-else {
-	return 1;
-	}
-}
-
-1;
-
-__END__
-
-=head1 OsChooser.pm
-
-Attempt to detect operating system and version, or ask the user to select
-from a list.  Works from the command line, for usage from shell scripts,
-or as a library for use within Perl scripts.
-
-=head2 COMMAND LINE USE
-
-OsChooser.pm os_list.txt outfile [auto] [issue]
-
-Where "auto" can be the following values:
-
-=over 4
-
-=item 0
-
-always ask user
-
-=item 1
-
-automatic, give up if fails
-
-=item 2
-
-automatic, ask user if fails
-
-=item 3
-
-automatic, ask user if fails and if a TTY
-
-=back
-
-=head2 SYNOPSIS
-
-    use OsChooser;
-    my ($os_type, $version, $real_os_type, $real_os_version) =
-       OsChooser->oschooser("os_list.txt", "outfile", $auto, [$issue]);
-
-=cut
-

README-zh.md

@@ -1,53 +0,0 @@
-## 内容
-* [更新日志](https://github.com/webmin/webmin/blob/master/CHANGELOG.md)
-* [关于](#关于)
-* [安装](#安装)[<img src="https://github.com/webmin-devel/webmin/blob/master/media/download-23x14-stable.png?raw=true" title="稳定版">](http://webmin.com/download.html)[<img src="https://github.com/webmin-devel/webmin/blob/master/media/download-23x14-devel.png?raw=true" title="Development Versions">](http://webmin.com/devel.html)
-* [文档](#文档)
-* [致谢](#致谢)
-* [许可](#许可)
-
-## 关于
-
-**Webmin** 是一个基于网页的类Unix服务器系统管理工具，全球安装超过 _1,000,000_ 次（没错，事宝藏！）。有了它，运维快人一步！比如用户，磁盘配额，服务或者配置文件，比如更改，控制开源应用，再比如 BIND DNS Server，管理 Apache HTTP Server， PHP， MySQL， 还有[许多许多好东西](https://doxfer.webmin.com/Webmin/Introduction)。
-
-[![Quick UI overview 2021](https://user-images.githubusercontent.com/4426533/114315375-61a1c480-9b07-11eb-9aaf-4aa949a39ab7.png)](https://www.youtube.com/watch?v=daYG6O4AsEw)
-
-可通过安装可定制的模块来扩展可用性。 除此之外，还有另外两个扩展其功能的项目：
-
-* [Virtualmin](https://www.virtualmin.com) 是一个强大的，灵活的，最受欢迎的，最全面的 Linux 和 BSD 系统网络托管控制面板，在全球拥有超过 _150,000次_ 安装。它有开源社区支持的版本，以及功能更丰富的Premium版本；
-* [Usermin](https://github.com/webmin/usermin) 顾名思义，呈现和控制以用户为中心的功能子集，而不是管理员级别的任务。
-
-Webmin 包括 _116_ 个[标准模块](https://doxfer.webmin.com/Webmin/Webmin_Modules)，并且至少有同样多的第三方模块。
-
-
-### 系统要求
-Perl 5.10 或更高。
-
-## 安装
-Webmin 可以两种方法安装：
-
- 1. 下载一个预编译包，可用于不同的发行版（CentOS, Fedora, SuSE, Mandriva, Debian, Ubuntu, Solaris 和 [其他发行版](http://www.webmin.com/support.html)）。[下载页面直达车](http://webmin.com/download.html);
-  <kbd>注：非常建议[在你的系统添加源](https://doxfer.webmin.com/Webmin/Installation)，这样可以自动更新</kbd>
-
- 2. 下载并解压[源码](https://prdownloads.sourceforge.net/webadmin/webmin-1.996.tar.gz)然后运行[_setup.sh_](http://www.webmin.com/tgz.html) 脚本，无需任何选项，也就是说会直接安装到当前目录。或者使用命令行参数，例如目标目录。
-  <kbd>注：如果你正在安装 Webmin [到Windows](http://www.webmin.com/windows.html) 系统上，你必须运行 `perl setup.pl` 命令。Windows 版能否正常运行取决于许多程序，和可能不属于标准发行版的模块。你需要 _process.exe_ 命令， _sc.exe_ 命令，以及 _Win32::Daemon_ Perl 模块。</kbd>
-
-## 文档
-完整的 Webmin 还有它所有模块的详细配置都在[维基页面](https://doxfer.webmin.com/Webmin/Main_Page).
-
-## 致谢
-
-### 首席开发者
-
-* [Jamie Cameron](http://www.webmin.com/about.html) [![](https://github.com/webmin-devel/webmin/blob/master/media/linkedin-15x15.png?raw=true)](https://www.linkedin.com/in/jamiecameron2)
-
-### 贡献者
-
-* [Joe Cooper](https://github.com/swelljoe)
-* [Ilia Rostovtsev](https://github.com/iliajie)
-* [Kay Marquardt](https://github.com/gnadelwartz)
-* [Nawawi Jamili](https://github.com/nawawi) + [其他无偿奉献的开发者](https://github.com/webmin/webmin/graphs/contributors)
-
-## 许可
-
-Webmin 基于 [BSD 许可](https://github.com/webmin/webmin/blob/master/LICENCE)发布。

README.md

@@ -1,57 +0,0 @@
-## Contents
-* [Changelog](https://github.com/webmin/webmin/blob/master/CHANGELOG.md)
-* [About](#about)
-* [Installation](#installation)[<img src="https://github.com/webmin-devel/webmin/blob/master/media/download-23x14-stable.png?raw=true" title="Stable Versions">](https://webmin.com/download.html)[<img src="https://github.com/webmin-devel/webmin/blob/master/media/download-23x14-devel.png?raw=true" title="Development Versions">](https://webmin.com/devel.html)
-* [Documentation](#documentation)
-* [Development](#development)
-* [License](#license)
-
-* [中文版](https://github.com/webmin/webmin/blob/master/README-zh.md)
-
-## About
-
-**Webmin** is a web-based system administration tool for Unix-like servers, and services with over _1,000,000_ installations worldwide. Using it, it is possible to configure operating system internals, such as users, disk quotas, services or configuration files, as well as modify, and control open-source apps, such as BIND DNS Server, Apache HTTP Server, PHP, MySQL, and [many more](https://doxfer.webmin.com/Webmin/Introduction). 
-
-[![Quick UI overview 2021](https://user-images.githubusercontent.com/4426533/114315375-61a1c480-9b07-11eb-9aaf-4aa949a39ab7.png)](https://www.youtube.com/watch?v=daYG6O4AsEw)
-
-Usability can be expanded by installing modules, which can be custom made. Aside from this, there are two other major projects that extend its functionality:
-
-* [Virtualmin](https://www.virtualmin.com) is a powerful, flexible, most popular, and most comprehensive web-hosting control panel for Linux, and BSD systems, with over _150,000_ installations worldwide. It is available in an open-source community-supported version, and a more feature-filled version with premium support;
-* [Usermin](https://github.com/webmin/usermin) presents and controls a subset of user-centred features, rather than administrator-level tasks.
-
-Webmin includes _116_ [standard modules](https://doxfer.webmin.com/Webmin/Webmin_Modules), and there are at least as many third-party modules.
-
-
-### Requirements
-Perl 5.10 or higher.
-
-## Installation
-Webmin can be installed in two different ways:
-
- 1. By downloading a pre-built package, available for different distributions (CentOS, Fedora, SuSE, Mandriva, Debian, Ubuntu, Solaris and [other](https://www.webmin.com/support.html)) under [latest release assets](https://github.com/webmin/webmin/releases/latest) or from our [download page](https://webmin.com/download.html);
-  <kbd>Note: It is highly recommended to [add repository](https://doxfer.webmin.com/Webmin/Installation) to your system for having automatic updates.</kbd>
-
- 2. By downloading, extracting [source file](https://prdownloads.sourceforge.net/webadmin/webmin-2.000.tar.gz), and running [_setup.sh_](https://www.webmin.com/tgz.html) script, with no arguments, which will setup to run it directly from this directory, or with a command-line argument, such as targeted directory.
-  <kbd>Note: If you are installing Webmin [on Windows](https://www.webmin.com/windows.html) system, you must run the command `perl setup.pl` instead. The Windows version depends on several programs, and modules that may not be part of the standard distribution. You will need _process.exe_ command, _sc.exe_ command, and _Win32::Daemon_ Perl module.</kbd>
-
-## Documentation
-Complete set of documentation for Webmin and all of its modules can be found at out [Wiki page](https://doxfer.webmin.com/Webmin/Main_Page).
-
-## Development
-
-### Lead developer
-
-* [Jamie Cameron](https://www.webmin.com/about.html) [![](https://github.com/webmin-devel/webmin/blob/master/media/linkedin-15x15.png?raw=true)](https://www.linkedin.com/in/jamiecameron2)
-
-### Developers
-* [Ilia Rostovtsev](https://github.com/iliajie)
-* [Joe Cooper](https://github.com/swelljoe)
-
-### Contributors
-* [Kay Marquardt](https://github.com/gnadelwartz)
-* [Nawawi Jamili](https://github.com/nawawi)
-* [unknown10777](https://github.com/unknown10777) + [90 more..](https://github.com/webmin/webmin/graphs/contributors)
-
-## License
-
-Webmin is released under the [BSD License](https://github.com/webmin/webmin/blob/master/LICENCE).

SECURITY.md

@@ -1,23 +0,0 @@
-## Reporting Security Issues
-
-Please send all reports of security issues found in Webmin to security@webmin.com
-via email, ideally PGP encrypted with the key from https://www.webmin.com/jcameron-key.asc .
-
-Potential security issues, in descending order of impact, include :
-
-* Remotely exploitable attacks that allow `root` access to Webmin without
-  any credentials.
-
-* Privilege escalation vulnerabilities that allow non-`root` users of Webmin
-  to run commands or access files as `root`.
-
-* XSS attacks that target users already logged into Webmin when they visit
-  another website.
-
-Things that are not actually security issues include :
-
-* XSS attacks that are blocked by Webmin's referrer checks, which are enabled
-  by default.
-
-* Attacks that require modifications to Webmin's code or configuration, which
-  can only be done by someone who already has `root` permissions.

WebminUI/All.pm

@@ -1,44 +0,0 @@
-use WebminUI::Page;
-use WebminUI::ResultPage;
-use WebminUI::ErrorPage;
-use WebminUI::ConfirmPage;
-use WebminUI::Form;
-use WebminUI::Section;
-use WebminUI::Textbox;
-use WebminUI::OptTextbox;
-use WebminUI::OptTextarea;
-use WebminUI::Submit;
-use WebminUI::Password;
-use WebminUI::Checkbox;
-use WebminUI::Select;
-use WebminUI::Radios;
-use WebminUI::Checkboxes;
-use WebminUI::Table;
-use WebminUI::Menu;
-use WebminUI::LinkTable;
-use WebminUI::Tabs;
-use WebminUI::Textarea;
-use WebminUI::Upload;
-use WebminUI::DynamicText;
-use WebminUI::DynamicBar;
-use WebminUI::DynamicWait;
-use WebminUI::DynamicHTML;
-use WebminUI::Properties;
-use WebminUI::User;
-use WebminUI::Group;
-use WebminUI::File;
-use WebminUI::Button;
-use WebminUI::JavascriptButton;
-use WebminUI::PlainText;
-use WebminUI::Multiline;
-use WebminUI::Date;
-use WebminUI::Time;
-use WebminUI::TitleList;
-use WebminUI::Columns;
-use WebminUI::Icon;
-use WebminUI::TableAction;
-use WebminUI::InputTable;
-use WebminCore;
-
-1;
-

WebminUI/Button.pm

@@ -1,61 +0,0 @@
-package WebminUI::Button;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Button(cgi, label, [name])
-Creates a button that when clicked will link to some other page
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Button::new) &&
-    caller() !~ /WebminUI::Theme::Button/) {
-        return new WebminUI::Theme::Button(@_[1..$#_]);
-        }
-my ($self, $cgi, $value, $name) = @_;
-$self = { };
-bless($self);
-$self->set_cgi($cgi);
-$self->set_value($value);
-$self->set_name($name) if ($name);
-return $self;
-}
-
-=head2 html()
-Returns HTML for this button
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv = "<form action=".$self->get_cgi().">";
-foreach my $h (@{$self->{'hiddens'}}) {
-	$rv .= &ui_hidden($h->[0], $h->[1])."\n";
-	}
-$rv .= &ui_submit($self->get_value(), $self->get_name(),
-			$self->get_disabled())."</form>";
-return $rv;
-}
-
-sub set_cgi
-{
-my ($self, $cgi) = @_;
-$self->{'cgi'} = $cgi;
-}
-
-sub get_cgi
-{
-my ($self) = @_;
-return $self->{'cgi'};
-}
-
-=head2 add_hidden(name, value)
-Adds some hidden input to this button, for passing to the CGI
-=cut
-sub add_hidden
-{
-my ($self, $name, $value) = @_;
-push(@{$self->{'hiddens'}}, [ $name, $value ]);
-}
-
-1;
-

WebminUI/Checkbox.pm

@@ -1,64 +0,0 @@
-package WebminUI::Checkbox;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Checkbox(name, return, label, checked, [disabled])
-Create a single checkbox field
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Checkbox::new)) {
-        return new WebminUI::Theme::Checkbox(@_[1..$#_]);
-        }
-my ($self, $name, $return, $label, $checked, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_name($name);
-$self->set_return($return);
-$self->set_label($label);
-$self->set_value($checked);
-$self->set_disabled($disabled);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this single checkbox
-=cut
-sub html
-{
-my ($self) = @_;
-my $dis = $self->{'form'}->get_changefunc($self);
-return &ui_checkbox($self->get_name(), $self->get_return(),
-			  $self->get_label(), $self->get_value(),
-			  $dis ? "onClick='$dis'" : undef,
-			  $self->get_disabled()).
-       &ui_hidden("ui_exists_".$self->get_name(), 1);
-}
-
-sub set_return
-{
-my ($self, $return) = @_;
-$self->{'return'} = $return;
-}
-
-sub set_label
-{
-my ($self, $label) = @_;
-$self->{'label'} = $label;
-}
-
-sub get_return
-{
-my ($self) = @_;
-return $self->{'return'};
-}
-
-sub get_label
-{
-my ($self) = @_;
-return $self->{'label'};
-}
-
-1;
-

WebminUI/Checkboxes.pm

@@ -1,119 +0,0 @@
-package WebminUI::Checkboxes;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Checkboxes(name, value|&values, &options, [disabled])
-Create a list of checkboxes, of which zero or more may be selected
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Checkboxes::new)) {
-        return new WebminUI::Theme::Checkboxes(@_[1..$#_]);
-        }
-my ($self, $name, $value, $options, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_name($name);
-$self->set_value($value);
-$self->set_options($options);
-$self->set_disabled($disabled);
-return $self;
-}
-
-=head2 add_option(name, [label])
-=cut
-sub add_option
-{
-my ($self, $name, $label) = @_;
-push(@{$self->{'options'}}, [ $name, $label ]);
-}
-
-=head2 html()
-Returns the HTML for all the checkboxes, one after the other
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-for(my $i=0; $i<@{$self->{'options'}}; $i++) {
-	$rv .= $self->one_html($i)."\n";
-	}
-return $rv;
-}
-
-=head2 one_html(number)
-Returns the HTML for a single one of the checkboxes
-=cut
-sub one_html
-{
-my ($self, $num) = @_;
-my $opt = $self->{'options'}->[$num];
-my $value = $self->get_value();
-my %sel = map { $_, 1 } (ref($value) ? @$value : ( $value ));
-return &ui_checkbox($self->get_name(), $opt->[0],
-			  defined($opt->[1]) ? $opt->[1] : $opt->[0],
-			  $sel{$opt->[0]}, undef, $self->get_disabled()).
-       ($num == 0 ? &ui_hidden("ui_exists_".$self->get_name(), 1) : "");
-}
-
-=head2 get_value()
-Returns a hash ref of all selected values
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && (defined($in->{$self->{'name'}}) ||
-	    defined($in->{"ui_exists_".$self->{'name'}}))) {
-	return [ split(/\0/, $in->{$self->{'name'}}) ];
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	return [ split(/\0/, $in->{"ui_value_".$self->{'name'}}) ];
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-sub set_options
-{
-my ($self, $options) = @_;
-$self->{'options'} = $options;
-}
-
-sub get_options
-{
-my ($self) = @_;
-return $self->{'options'};
-}
-
-=head2 validate()
-Returns a list of error messages for this field
-=cut
-sub validate
-{
-my ($self) = @_;
-my $value = $self->get_value();
-if ($self->{'mandatory'} && !@$value) {
-	return ( $self->{'mandmesg'} || $text{'ui_checkmandatory'} );
-	}
-return ( );
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-my @rv;
-for(my $i=0; $i<@{$self->{'options'}}; $i++) {
-	push(@rv, $self->{'name'}."[".$i."]");
-	}
-return @rv;
-}
-
-1;
-
-

WebminUI/Columns.pm

@@ -1,82 +0,0 @@
-package WebminUI::Columns;
-use WebminCore;
-
-=head2 new WebminUI::Columns(cols)
-Displays some page elements in a multi-column table
-=cut
-sub new
-{
-my ($self, $cols) = @_;
-if (defined(&WebminUI::Theme::Columns::new)) {
-        return new WebminUI::Theme::Columns(@_[1..$#_]);
-        }
-$self = { 'columns' => 2 };
-bless($self);
-$self->set_columns($cols) if (defined($cols));
-return $self;
-}
-
-=head2 html()
-Returns HTML for the objects, arranged in columns
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-my $n = scalar(@{$self->{'contents'}});
-$rv .= "<table width=100% cellpadding=4><tr>\n";
-my $h = int($n / $self->{'columns'})+1;
-my $i = 0;
-my $pc = int(100/$self->{'columns'});
-foreach my $c (@{$self->{'contents'}}) {
-	if ($i%$h == 0) {
-		$rv .= "<td valign=top width=$pc%>";
-		}
-	$rv .= $c->html()."<p>\n";
-	$i++;
-	if ($i%$h == 0) {
-		$rv .= "</td>\n";
-		}
-	}
-$rv .= "</tr></table>\n";
-return $rv;
-}
-
-=head2 add(object)
-Adds some WebminUI:: object to this list
-=cut
-sub add
-{
-my ($self, $object) = @_;
-push(@{$self->{'contents'}}, $object);
-if ($self->{'page'}) {
-	$object->set_page($self->{'page'});
-	}
-}
-
-sub set_columns
-{
-my ($self, $columns) = @_;
-$self->{'columns'} = $columns;
-}
-
-sub get_columns
-{
-my ($self) = @_;
-return $self->{'columns'};
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this menu is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-foreach my $c (@{$self->{'contents'}}) {
-	$c->set_page($page);
-	}
-}
-
-1;
-

WebminUI/ConfirmPage.pm

@@ -1,47 +0,0 @@
-package WebminUI::ConfirmPage;
-use WebminUI::Page;
-use WebminCore;
-@ISA = ( "WebminUI::Page" );
-
-=head2 new WebminUI::ConfirmPage(subheading, title, message, cgi, &in, [ok-message],
-			       [cancel-message], [help-name])
-Create a new page object that asks if the user is sure if he wants to
-do something or not.
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::ConfirmPage::new)) {
-	return new WebminUI::Theme::ConfirmPage(@_[1..$#_]);
-	}
-my ($self, $subheading, $title, $message, $cgi, $in, $ok, $cancel, $help) = @_;
-$self = new WebminUI::Page($subheading, $title, $help);
-$self->{'in'} = $in;
-$self->add_message($message);
-my $form = new WebminUI::Form($cgi, "get");
-$form->set_input($in);
-$self->add_form($form);
-foreach my $i (keys %$in) {
-	foreach my $v (split(/\0/, $in->{$i})) {
-		$form->add_hidden($i, $v);
-		}
-	}
-$form->add_button(new WebminUI::Submit($ok || "OK", "ui_confirm"));
-$form->add_button(new WebminUI::Submit($cancel || $text{'cancel'}, "ui_cancel"));
-bless($self);
-return $self;
-}
-
-sub get_confirm
-{
-my ($self) = @_;
-return $self->{'in'}->{'ui_confirm'} ? 1 : 0;
-}
-
-sub get_cancel
-{
-my ($self) = @_;
-return $self->{'in'}->{'ui_cancel'} ? 1 : 0;
-}
-
-1;
-

WebminUI/Date.pm

@@ -1,96 +0,0 @@
-package WebminUI::Date;
-use WebminUI::Input;
-use Time::Local;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Date(name, time, [disabled])
-Create a new field for selecting a date
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Date::new)) {
-        return new WebminUI::Theme::Date(@_[1..$#_]);
-        }
-my ($self, $name, $value, $disabled) = @_;
-bless($self = { });
-$self->set_name($name);
-$self->set_value($value);
-$self->set_disabled($disabled) if (defined($disabled));
-return $self;
-}
-
-=head2 html()
-Returns the HTML for the date chooser
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-my @tm = localtime($self->get_value());
-my $name = $self->get_name();
-$rv .= &ui_date_input($tm[3], $tm[4]+1, $tm[5]+1900,
-			    "day_".$name, "month_".$name, "year_".$name,
-			    $self->get_disabled())." ".
-       &date_chooser_button("day_".$name, "month_".$name, "year_".$name);
-return $rv;
-}
-
-=head2 get_value()
-Returns the date as a Unix time number (for zero o'clock)
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && defined($in->{"day_".$self->{'name'}})) {
-	my $rv = $self->to_time($in);
-	return defined($rv) ? $rv : $self->{'value'};
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	return $in->{"ui_value_".$self->{'name'}};
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-sub to_time
-{
-my ($self, $in) = @_;
-my $day = $in->{"day_".$self->{'name'}};
-return undef if ($day !~ /^\d+$/);
-my $month = $in->{"month_".$self->{'name'}}-1;
-my $year = $in->{"year_".$self->{'name'}}-1900;
-return undef if ($year !~ /^\d+$/);
-my $rv = eval { timelocal(0, 0, 0, $day, $month, $year) };
-return $@ ? undef : $rv;
-}
-
-sub set_validation_func
-{
-my ($self, $func) = @_;
-$self->{'validation_func'} = $func;
-}
-
-=head2 validate()
-Ensures that the date is valid
-=cut
-sub validate
-{
-my ($self) = @_;
-my $tm = $self->to_time($self->{'form'}->{'in'});
-if (!defined($tm)) {
-	return ( $text{'ui_edate'} );
-	}
-if ($self->{'validation_func'}) {
-	my $err = &{$self->{'validation_func'}}($self->get_value(),
-					        $self->{'name'},
-						$self->{'form'});
-	return ( $err ) if ($err);
-	}
-return ( );
-}
-
-1;
-

WebminUI/DynamicBar.pm

@@ -1,119 +0,0 @@
-package WebminUI::DynamicBar;
-use WebminCore;
-
-=head2 new WebminUI::DynamicBar(&start-function, max)
-A page element for displaying progress towards some goal, like the download of
-a file.
-=cut
-sub new
-{
-my ($self, $func, $max) = @_;
-$self = { 'func' => $func,
-	  'name' => "dynamic".++$dynamic_count,
-	  'width' => 80,
-	  'max' => $max };
-bless($self);
-return $self;
-}
-
-=head2 set_message(text)
-Sets the text describing what we are waiting for
-=cut
-sub set_message
-{
-my ($self, $message) = @_;
-$self->{'message'} = $message;
-}
-
-sub get_message
-{
-my ($self) = @_;
-return $self->{'message'};
-}
-
-=head2 html()
-Returns the HTML for the text field
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-if ($self->get_message()) {
-	$rv .= $self->get_message()."<p>\n";
-	}
-$rv .= "<form name=form_$self->{'name'}>";
-$rv .= "<input name=bar_$self->{'name'} size=$self->{'width'} disabled=true style='font-family: courier'>";
-$rv .= "&nbsp;";
-$rv .= "<input name=pc_$self->{'name'} size=3 disabled=true style='font-family: courier'>%";
-$rv .= "</form>";
-return $rv;
-}
-
-=head2 start()
-Called by the page to begin the progress
-=cut
-sub start
-{
-my ($self) = @_;
-&{$self->{'func'}}($self);
-}
-
-=head2 update(pos)
-Called by the function to update the position of the bar.
-=cut
-sub update
-{
-my ($self, $pos) = @_;
-my $pc = int(100*$pos/$self->{'max'});
-if ($pc != $self->{'lastpc'}) {
-	my $xn = int($self->{'width'}*$pos/$self->{'max'});
-	my $xes = "X" x $xn;
-	print "<script>window.document.forms[\"form_$self->{'name'}\"].pc_$self->{'name'}.value = \"$pc\";</script>\n";
-	print "<script>window.document.forms[\"form_$self->{'name'}\"].bar_$self->{'name'}.value = \"$xes\";</script>\n";
-	$self->{'lastpc'} = $pc;
-	}
-}
-
-=head2 set_wait(wait)
-If called with a non-zero arg, generation of the page should wait until this
-the progress is complete. Otherwise, the page will be generated completely before
-the start function is called
-=cut
-sub set_wait
-{
-my ($self, $wait) = @_;
-$self->{'wait'} = $wait;
-}
-
-sub get_wait
-{
-my ($self) = @_;
-return $self->{'wait'};
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this dynamic text box is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-sub set_width
-{
-my ($self, $width) = @_;
-$self->{'width'} = $width;
-}
-
-=head2 needs_unbuffered()
-Must return 1 if the page needs to be in un-buffered and no-table mode
-=cut
-sub needs_unbuffered
-{
-return 0;
-}
-
-
-1;
-

WebminUI/DynamicHTML.pm

@@ -1,76 +0,0 @@
-package WebminUI::DynamicHTML;
-use WebminCore;
-
-=head2 new WebminUI::DynamicHTML(&function, &args, [before])
-When the page is being rendered, executes the given function and prints any
-text that it returns.
-=cut
-sub new
-{
-my ($self, $func, $args, $before) = @_;
-$self = { 'func' => $func,
-	  'args' => $args,
-	  'before' => $before };
-bless($self);
-return $self;
-}
-
-=head2 set_before(text)
-Sets the text describing what we are waiting for
-=cut
-sub set_before
-{
-my ($self, $before) = @_;
-$self->{'before'} = $before;
-}
-
-sub get_before
-{
-my ($self) = @_;
-return $self->{'before'};
-}
-
-sub html
-{
-my ($self) = @_;
-my $rv;
-if ($self->get_before()) {
-	$rv .= $self->get_before()."<p>\n";
-	}
-return $rv;
-}
-
-=head2 start()
-Called by the page to begin the dynamic output.
-=cut
-sub start
-{
-my ($self) = @_;
-&{$self->{'func'}}($self, @$args);
-}
-
-sub get_wait
-{
-my ($self) = @_;
-return 1;
-}
-
-=head2 needs_unbuffered()
-Must return 1 if the page needs to be in un-buffered and no-table mode
-=cut
-sub needs_unbuffered
-{
-return 1;
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this dynamic HTML element is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-1;
-

WebminUI/DynamicText.pm

@@ -1,123 +0,0 @@
-# XXX should support non-Javascript mode?
-package WebminUI::DynamicText;
-use WebminCore;
-
-=head2 new WebminUI::DynamicText(&start-function, &args)
-A page element for displaying text that takes time to generate, such as from
-a long-running script. Uses a non-editable text box, updated via Javascript.
-The function will be called when it is time to start producing output, with this
-object as a parameter. It must call the add_line function on the object for each
-new line to be added.
-=cut
-sub new
-{
-my ($self, $func, $args) = @_;
-$self = { 'func' => $func,
-	  'args' => $args,
-	  'name' => "dynamic".++$dynamic_count,
-	  'rows' => 20,
-	  'cols' => 80 };
-bless($self);
-return $self;
-}
-
-=head2 set_message(text)
-Sets the text describing what we are waiting for
-=cut
-sub set_message
-{
-my ($self, $message) = @_;
-$self->{'message'} = $message;
-}
-
-sub get_message
-{
-my ($self) = @_;
-return $self->{'message'};
-}
-
-=head2 html()
-Returns the HTML for the text box
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-if ($self->get_message()) {
-	$rv .= $self->get_message()."<p>\n";
-	}
-$rv .= "<form name=form_$self->{'name'}>";
-$rv .= "<textarea name=$self->{'name'} rows=$self->{'rows'} cols=$self->{'cols'} wrap=off disabled=true>";
-$rv .= "</textarea>\n";
-$rv .= "</form>";
-return $rv;
-}
-
-=head2 start()
-Called by the page to begin the dynamic output.
-=cut
-sub start
-{
-my ($self) = @_;
-&{$self->{'func'}}($self, @$args);
-}
-
-=head2 add_line(line)
-Called by the function to add a line of text to this output
-=cut
-sub add_line
-{
-my ($self, $line) = @_;
-$line =~ s/\r|\n//g;
-$line = &quote_escape($line);
-print "<script>window.document.forms[\"form_$self->{'name'}\"].$self->{'name'}.value += \"$line\"+\"\\n\";</script>\n";
-}
-
-=head2 set_wait(wait)
-If called with a non-zero arg, generation of the page should wait until this
-text box is complete. Otherwise, the page will be generated completely before the
-start function is called
-=cut
-sub set_wait
-{
-my ($self, $wait) = @_;
-$self->{'wait'} = $wait;
-}
-
-sub get_wait
-{
-my ($self) = @_;
-return $self->{'wait'};
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this dynamic text box is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-sub set_rows
-{
-my ($self, $rows) = @_;
-$self->{'rows'} = $rows;
-}
-
-sub set_cols
-{
-my ($self, $cols) = @_;
-$self->{'cols'} = $cols;
-}
-
-=head2 needs_unbuffered()
-Must return 1 if the page needs to be in un-buffered and no-table mode
-=cut
-sub needs_unbuffered
-{
-return 0;
-}
-
-1;
-

WebminUI/DynamicWait.pm

@@ -1,129 +0,0 @@
-package WebminUI::DynamicWait;
-use WebminCore;
-
-=head2 new WebminUI::DynamicWait(&start-function, [&args])
-A page element indicating that something is happening.
-=cut
-sub new
-{
-my ($self, $func, $args) = @_;
-$self = { 'func' => $func,
-	  'args' => $args,
-	  'name' => "dynamic".++$dynamic_count,
-	  'width' => 80,
-	  'delay' => 20 };
-bless($self);
-return $self;
-}
-
-=head2 set_message(text)
-Sets the text describing what we are waiting for
-=cut
-sub set_message
-{
-my ($self, $message) = @_;
-$self->{'message'} = $message;
-}
-
-sub get_message
-{
-my ($self) = @_;
-return $self->{'message'};
-}
-
-=head2 html()
-Returns the HTML for the text field used to indicate progress
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-if ($self->get_message()) {
-	$rv .= $self->get_message()."<p>\n";
-	}
-$rv .= "<form name=form_$self->{'name'}>";
-$rv .= "<input name=$self->{'name'} size=$self->{'width'} disabled=true style='font-family: courier'>";
-$rv .= "</form>";
-return $rv;
-}
-
-=head2 start()
-Called by the page to begin the progress. Also starts a process to update the
-Javascript text box
-=cut
-sub start
-{
-my ($self) = @_;
-$self->{'pid'} = fork();
-if (!$self->{'pid'}) {
-	my $pos = 0;
-	while(1) {
-		select(undef, undef, undef, $self->{'delay'}/1000.0);
-		my $str = (" " x $pos) . ("x" x 10);
-		print "<script>window.document.forms[\"form_$self->{'name'}\"].$self->{'name'}.value = \"$str\";</script>\n";
-		$pos++;
-		$pos = 0 if ($pos == $self->{'width'});
-		}
-	exit;
-	}
-&{$self->{'func'}}($self, @{$self->{'args'}});
-}
-
-=head2 stop()
-Called back by the function when whatever we were waiting for is done
-=cut
-sub stop
-{
-my ($self) = @_;
-if ($self->{'pid'}) {
-	kill('TERM', $self->{'pid'});
-	}
-my $str = (" " x ($self->{'width'}/2 - 2)) . "DONE";
-print "<script>window.document.forms[\"form_$self->{'name'}\"].$self->{'name'}.value = \"$str\";</script>\n";
-}
-
-=head2 set_wait(wait)
-If called with a non-zero arg, generation of the page should wait until this
-the progress is complete. Otherwise, the page will be generated completely before
-the start function is called
-=cut
-sub set_wait
-{
-my ($self, $wait) = @_;
-$self->{'wait'} = $wait;
-}
-
-sub get_wait
-{
-my ($self) = @_;
-return $self->{'wait'};
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this dynamic text box is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-sub set_width
-{
-my ($self, $width) = @_;
-$self->{'width'} = $width;
-}
-
-=head2 needs_unbuffered()
-Must return 1 if the page needs to be in un-buffered and no-table mode
-=cut
-sub needs_unbuffered
-{
-return 0;
-}
-
-
-
-
-1;
-

WebminUI/ErrorPage.pm

@@ -1,20 +0,0 @@
-package WebminUI::ErrorPage;
-use WebminCore;
-
-=head2 new WebminUI::ErrorPage(subheading, title, message, [program-output], [help-name])
-Create a new page object for showing an error of some kind
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::ErrorPage::new)) {
-	return new WebminUI::Theme::ErrorPage(@_[1..$#_]);
-	}
-my ($self, $subheading, $title, $message, $output, $help) = @_;
-$self = new WebminUI::Page($subheading, $title, $help);
-$self->add_message("<b>",$text{'error'}," : ",$message,"</b>");
-$self->add_message("<pre>",$output,"</pre>");
-return $self;
-}
-
-1;
-

WebminUI/File.pm

@@ -1,70 +0,0 @@
-package WebminUI::File;
-use WebminUI::Textbox;
-use WebminCore;
-@ISA = ( "WebminUI::Textbox" );
-
-=head2 new WebminUI::File(name, value, size, [directory], [disabled])
-A text box for selecting a file
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::File::new)) {
-        return new WebminUI::Theme::File(@_[1..$#_]);
-        }
-my ($self, $name, $value, $size, $directory, $disabled) = @_;
-$self = new WebminUI::Textbox($name, $value, $size, $disabled);
-bless($self);
-$self->set_directory($directory);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this file input
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv = WebminUI::Textbox::html($self);
-my $name = $self->get_name();
-my $directory = $self->get_directory();
-my $add = 0;
-my $chroot = $self->get_chroot();
-$rv .= "<input type=button name=${name}_button onClick='ifield = form.$name; chooser = window.open(\"@{[&get_webprefix()]}/chooser.cgi?add=$add&type=$directory&chroot=$chroot&file=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbar=no,width=400,height=300\"); chooser.ifield = ifield; window.ifield = ifield' value=\"...\">\n";
-return $rv;
-}
-
-sub set_directory
-{
-my ($self, $directory) = @_;
-$self->{'directory'} = $directory;
-}
-
-sub get_directory
-{
-my ($self) = @_;
-return $self->{'directory'};
-}
-
-sub set_chroot
-{
-my ($self, $chroot) = @_;
-$self->{'chroot'} = $chroot;
-}
-
-sub get_chroot
-{
-my ($self) = @_;
-return $self->{'chroot'};
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-return ( $self->{'name'}, $self->{'name'}."_button" );
-}
-
-1;
-

WebminUI/Form.pm

@@ -1,405 +0,0 @@
-package WebminUI::Form;
-use WebminCore;
-
-=head2 new WebminUI::Form(cgi, [method])
-Creates a new form, which submits to the given CGI
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Form::new)) {
-        return new WebminUI::Theme::Form(@_[1..$#_]);
-        }
-my ($self, $program, $method) = @_;
-$self = { 'method' => 'get',
-	  'name' => "form".++$form_count };
-bless($self);
-$self->set_program($program);
-$self->set_method($method) if ($method);
-return $self;
-}
-
-=head2 html()
-Returns the HTML that makes up this form
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-if ($self->get_align()) {
-	$rv .= "<div align=".$self->get_align().">\n";
-	}
-$rv .= $self->form_start();
-if ($self->get_heading()) {
-	if (defined(&ui_subheading)) {
-		$rv .= &ui_subheading($self->get_heading());
-		}
-	else {
-		$rv .= "<h3>".$self->get_heading()."</h3>\n";
-		}
-	}
-
-# Add the sections
-foreach my $h (@{$self->{'hiddens'}}) {
-	$rv .= &ui_hidden($h->[0], $h->[1])."\n";
-	}
-foreach my $s (@{$self->{'sections'}}) {
-	$rv .= $s->html();
-	}
-
-# Check if we have any inputs that need disabling
-my @dis = $self->list_disable_inputs();
-if (@dis) {
-	# Yes .. generate a function for them
-	$rv .= "<script>\n";
-	$rv .= "function ui_disable_".$self->{'name'}."(form) {\n";
-	foreach my $i (@dis) {
-		foreach my $n ($i->get_input_names()) {
-			$rv .= "    form.".$n.".disabled = (".
-				      $i->get_disable_code().");\n";
-			}
-		}
-	$rv .= "}\n";
-	$rv .= "</script>\n";
-	}
-
-# Add the buttons at the end of the form
-my @buttonargs;
-foreach my $b (@{$self->{'buttons'}}) {
-	if (ref($b)) {
-		# An array of inputs
-		my $ihtml = join(" ", map { $_->html() } @$b);
-		push(@buttonargs, $ihtml);
-		}
-	else {
-		# A spacer
-		push(@buttonargs, "");
-		}
-	}
-$rv .= &ui_form_end(\@buttonargs);
-
-if ($self->get_align()) {
-	$rv .= "</div>\n";
-	}
-
-# Call the Javascript disable function
-if (@dis) {
-	$rv .= "<script>\n";
-	$rv .= "ui_disable_".$self->{'name'}."(window.document.forms[\"$self->{'name'}\"]);\n";
-	$rv .= "</script>\n";
-	}
-
-return $rv;
-}
-
-sub form_start
-{
-my ($self) = @_;
-return "<form action='$self->{'program'}' ".
-		($self->{'method'} eq "post" ? "method=post" :
-		 $self->{'method'} eq "form-data" ?
-			"method=post enctype=multipart/form-data" :
-			"method=get")." name=$self->{'name'}>\n";
-}
-
-=head2 add_section(section)
-Adds a WebminUI::Section object to this form
-=cut
-sub add_section
-{
-my ($self, $section) = @_;
-push(@{$self->{'sections'}}, $section);
-$section->set_form($self);
-}
-
-=head2 get_section(idx)
-=cut
-sub get_section
-{
-my ($self, $idx) = @_;
-return $self->{'sections'}->[$idx];
-}
-
-=head2 add_button(button, [beside, ...])
-Adds a WebminUI::Submit object to this form, for display at the bottom
-=cut
-sub add_button
-{
-my ($self, $button, @beside) = @_;
-push(@{$self->{'buttons'}}, [ $button, @beside ]);
-}
-
-=head2 add_button_spacer()
-Adds a gap between buttons, for grouping
-=cut
-sub add_button_spacer
-{
-my ($self, $spacer) = @_;
-push(@{$self->{'buttons'}}, $spacer);
-}
-
-=head2 add_hidden(name, value)
-Adds some hidden input to this form, for passing to the CGI
-=cut
-sub add_hidden
-{
-my ($self, $name, $value) = @_;
-push(@{$self->{'hiddens'}}, [ $name, $value ]);
-}
-
-=head2 validate()
-Validates all form inputs, based on the current CGI input hash. Returns a list
-of errors, each of which is field name and error message.
-=cut
-sub validate
-{
-my ($self) = @_;
-my @errs;
-foreach my $s (@{$self->{'sections'}}) {
-	push(@errs, $s->validate($self->{'in'}));
-	}
-return @errs;
-}
-
-=head2 validate_redirect(page, [&extra-errors])
-Validates the form, and if any errors are found re-directs to the given page
-with the errors, so that they can be displayed.
-=cut
-sub validate_redirect
-{
-my ($self, $page, $extras) = @_;
-if ($self->{'in'}->{'ui_redirecting'}) {
-	# If this page is displayed as part of a redirect, no need to validate!
-	return;
-	}
-my @errs = $self->validate();
-push(@errs, @$extras);
-if (@errs) {
-	my (@errlist, @vallist);
-	foreach my $e (@errs) {
-		push(@errlist, &urlize("ui_error_".$e->[0])."=".
-			       &urlize($e->[1]));
-		}
-	foreach my $i ($self->list_inputs()) {
-		my $v = $i->get_value();
-		my @vals = ref($v) ? @$v : ( $v );
-		@vals = ( undef ) if (!@vals);
-		foreach $v (@vals) {
-			push(@vallist,
-			    &urlize("ui_value_".$i->get_name())."=".
-			    &urlize($v));
-			}
-		}
-	foreach my $h (@{$self->{'hiddens'}}) {
-		push(@vallist,
-		    &urlize($h->[0])."=".&urlize($h->[1]));
-		}
-	if ($page =~ /\?/) { $page .= "&"; }
-	else { $page .= "?"; }
-	&redirect($page.join("&", "ui_redirecting=1", @errlist, @vallist));
-	exit(0);
-	}
-}
-
-=head2 validate_error(whatfailed)
-Validates the form, and if any errors are found displays an error page.
-=cut
-sub validate_error
-{
-my ($self, $whatfailed) = @_;
-my @errs = $self->validate();
-&error_setup($whatfailed);
-if (@errs == 1) {
-	&error($errs[0]->[2] ? "$errs[0]->[2] : $errs[0]->[1]"
-				   : $errs[0]->[1]);
-	}
-elsif (@errs > 1) {
-	my $msg = $text{'ui_errors'}."<br>";
-	foreach my $e (@errs) {
-		$msg .= $e->[2] ? "$e->[2] : $e->[1]<br>\n"
-				: "$e->[1]<br>\n";
-		}
-	&error($msg);
-	}
-}
-
-=head2 field_errors(name)
-Returns a list of error messages associated with the field of some name, from
-the input passed to set_input
-=cut
-sub field_errors
-{
-my ($self, $name) = @_;
-my @errs;
-my $in = $self->{'in'};
-foreach my $i (keys %$in) {
-	if ($i eq "ui_error_".$name) {
-		push(@errs, split(/\0/, $in->{$i}));
-		}
-	}
-return @errs;
-}
-
-=head2 set_input(&input)
-Passes the form input hash to this form object, for use by the validate
-functions and for displaying errors next to fields.
-=cut
-sub set_input
-{
-my ($self, $in) = @_;
-$self->{'in'} = $in;
-}
-
-=head2 get_value(input-name)
-Returns the value of the input with the given name.
-=cut
-sub get_value
-{
-my ($self, $name) = @_;
-foreach my $s (@{$self->{'sections'}}) {
-	my $rv = $s->get_value($name);
-	return $rv if (defined($rv));
-	}
-return $self->{'in'}->{$name};
-}
-
-=head2 get_input(name)
-Returns the input with the given name
-=cut
-sub get_input
-{
-my ($self, $name) = @_;
-foreach my $i ($self->list_inputs()) {
-	return $i if ($i->get_name() eq $name);
-	}
-return undef;
-}
-
-sub set_program
-{
-my ($self, $program) = @_;
-$self->{'program'} = $program;
-}
-
-sub set_method
-{
-my ($self, $method) = @_;
-$self->{'method'} = $method;
-}
-
-=head2 list_inputs()
-Returns all inputs in all form sections
-=cut
-sub list_inputs
-{
-my ($self) = @_;
-my @rv;
-foreach my $s (@{$self->{'sections'}}) {
-	push(@rv, $s->list_inputs());
-	}
-return @rv;
-}
-
-=head2 list_disable_inputs()
-Returns a list of inputs that have disable functions
-=cut
-sub list_disable_inputs
-{
-my ($self) = @_;
-my @dis;
-foreach my $i ($self->list_inputs()) {
-	push(@dis, $i) if ($i->get_disable_code());
-	}
-return @dis;
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this form is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-=head2 get_changefunc(&input)
-Called by some input, to return the Javascript that should be called when this
-input changes it's value.
-=cut
-sub get_changefunc
-{
-my ($self, $input) = @_;
-my @dis = $self->list_disable_inputs();
-if (@dis) {
-	return "ui_disable_".$self->{'name'}."(form)";
-	}
-return undef;
-}
-
-=head2 set_heading(text)
-Sets the heading to be displayed above the form
-=cut
-sub set_heading
-{
-my ($self, $heading) = @_;
-$self->{'heading'} = $heading;
-}
-
-sub get_heading
-{
-my ($self) = @_;
-return $self->{'heading'};
-}
-
-=head2 get_formno()
-Returns the index of this form on the page
-=cut
-sub get_formno
-{
-my ($self) = @_;
-my $n = 0;
-foreach my $f (@{$self->{'page'}->{'contents'}}) {
-	if ($f eq $self) {
-		return $n;
-		}
-	elsif (ref($f) =~ /Form/) {
-		$n++;
-		}
-	}
-return undef;
-}
-
-=head2 add_onload(code)
-Adds some Javascript code for inclusion in the onLoad tag
-=cut
-sub add_onload
-{
-my ($self, $code) = @_;
-push(@{$self->{'onloads'}}, $code);
-}
-
-=head2 add_script(code)
-Adds some Javascript code for putting in the <head> section
-=cut
-sub add_script
-{
-my ($self, $script) = @_;
-push(@{$self->{'scripts'}}, $script);
-}
-
-=head2 set_align(align)
-Sets the alignment on the page (left, center, right)
-=cut
-sub set_align
-{
-my ($self, $align) = @_;
-$self->{'align'} = $align;
-}
-
-sub get_align
-{
-my ($self) = @_;
-return $self->{'align'};
-}
-
-1;
-

WebminUI/Group.pm

@@ -1,57 +0,0 @@
-package WebminUI::Group;
-use WebminUI::Textbox;
-use WebminCore;
-@ISA = ( "WebminUI::Textbox" );
-
-=head2 new WebminUI::Group(name, value, [multiple], [disabled])
-A text box for entering or selecting one or many Unix groupnames
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Group::new)) {
-        return new WebminUI::Theme::Group(@_[1..$#_]);
-        }
-my ($self, $name, $value, $multiple, $disabled) = @_;
-$self = new WebminUI::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
-bless($self);
-$self->set_multiple($multiple);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this group input
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv = WebminUI::Textbox::html($self);
-my $name = $self->get_name();
-my $multiple = $self->get_multiple();
-local $w = $multiple ? 500 : 300;
-$rv .= "&nbsp;<input type=button name=${name}_button onClick='ifield = form.$name; chooser = window.open(\"@{[&get_webprefix()]}/group_chooser.cgi?multi=$multiple&group=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=$w,height=200\"); chooser.ifield = ifield; window.ifield = ifield' value=\"...\">\n";
-return $rv;
-}
-
-sub set_multiple
-{
-my ($self, $multiple) = @_;
-$self->{'multiple'} = $multiple;
-}
-
-sub get_multiple
-{
-my ($self) = @_;
-return $self->{'multiple'};
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-return ( $self->{'name'}, $self->{'name'}."_button" );
-}
-
-1;
-

WebminUI/Icon.pm

@@ -1,64 +0,0 @@
-package WebminUI::Icon;
-use WebminCore;
-
-=head2 WebminUI::Icon(type, [message])
-This object generates an icon indicating some status. Possible types are :
-ok - OK
-critial - A serious problem
-major - A relatively serious problem
-minor - A small problem
-Can be used inside tables and property lists
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Icon::new) && caller() !~ /WebminUI::Theme::Icon/) {
-        return new WebminUI::Theme::Icon(@_[1..$#_]);
-        }
-my ($self, $type, $message) = @_;
-$self = { };
-bless($self);
-$self->set_type($type);
-$self->set_message($message) if (defined($message));
-return $self;
-}
-
-=head2 html()
-Returns HTML for the icon
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-$rv .= "<img src=/images/".$self->get_type().".gif align=middle>";
-if ($self->get_message()) {
-	$rv .= "&nbsp;".$self->get_message();
-	}
-return $rv;
-}
-
-sub set_type
-{
-my ($self, $type) = @_;
-$self->{'type'} = $type;
-}
-
-sub get_type
-{
-my ($self) = @_;
-return $self->{'type'};
-}
-
-sub set_message
-{
-my ($self, $message) = @_;
-$self->{'message'} = $message;
-}
-
-sub get_message
-{
-my ($self) = @_;
-return $self->{'message'};
-}
-
-1;
-

WebminUI/Input.pm

@@ -1,134 +0,0 @@
-package WebminUI::Input;
-use WebminCore;
-
-sub set_form
-{
-my ($self, $form) = @_;
-$self->{'form'} = $form;
-}
-
-sub set_name
-{
-my ($self, $name) = @_;
-$self->{'name'} = $name;
-}
-
-sub get_name
-{
-my ($self) = @_;
-return $self->{'name'};
-}
-
-sub set_disabled
-{
-my ($self, $disabled) = @_;
-$self->{'disabled'} = $disabled;
-}
-
-sub get_disabled
-{
-my ($self) = @_;
-return $self->{'disabled'};
-}
-
-=head2 validate()
-No validation is done by default
-=cut
-sub validate
-{
-return ( );
-}
-
-sub set_value
-{
-my ($self, $value) = @_;
-$self->{'value'} = $value;
-}
-
-=head2 get_value()
-Returns the current value for this field as entered by the user, the value
-set when the form is re-displayed due to an error, or the initial value.
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && (defined($in->{$self->{'name'}}) ||
-	    defined($in->{"ui_exists_".$self->{'name'}}))) {
-	return $in->{$self->{'name'}};
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	return $in->{"ui_value_".$self->{'name'}};
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-=head2 set_disable_code(javascript)
-Must be provided with a Javascript expression that will return true when this
-input should be disabled. May refer to other fields, via the variable 'form'.
-ie. form.mode.value = "0"
-Will be called every time any field's value changes.
-=cut
-sub set_disable_code
-{
-my ($self, $code) = @_;
-$self->{'disablecode'} = $code;
-}
-
-sub get_disable_code
-{
-my ($self) = @_;
-return $self->{'disablecode'};
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-return ( $self->{'name'} );
-}
-
-=head2 set_label(text)
-Sets HTML to be displayed before this field
-=cut
-sub set_label
-{
-my ($self, $label) = @_;
-$self->{'label'} = $label;
-}
-
-sub get_label
-{
-my ($self) = @_;
-return $self->{'label'};
-}
-
-sub set_mandatory
-{
-my ($self, $mandatory, $mandmesg) = @_;
-$self->{'mandatory'} = $mandatory;
-$self->{'mandmesg'} = $mandmesg if (defined($mandmesg));
-}
-
-sub get_mandatory
-{
-my ($self) = @_;
-return $self->{'mandatory'};
-}
-
-=head2 get_errors()
-Returns a list of errors associated with this field
-=cut
-sub get_errors
-{
-my ($self) = @_;
-return $self->{'form'} ? $self->{'form'}->field_errors($self->get_name())
-		       : ( );
-}
-
-1;
-

WebminUI/InputTable.pm

@@ -1,137 +0,0 @@
-package WebminUI::InputTable;
-use WebminUI::Table;
-use WebminCore;
-@ISA = ( "WebminUI::Table" );
-
-=head2 new WebminUI::InputTable(&headings, [width], [name], [heading])
-A table containing multiple rows of inputs, each of which is the same
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::InputTable::new) &&
-    caller() !~ /WebminUI::Theme::InputTable/) {
-        return new WebminUI::Theme::InputTable(@_[1..$#_]);
-        }
-my $self = defined(&WebminUI::Theme::Table::new) ? WebminUI::Theme::Table::new(@_)
-					       : WebminUI::Table::new(@_);
-bless($self);
-$self->{'rowcount'} = 0;
-return $self;
-}
-
-=head2 set_inputs(&inputs)
-Sets the objects to be used for each row
-=cut
-sub set_inputs
-{
-my ($self, $classes) = @_;
-$self->{'classes'} = $classes;
-}
-
-=head2 add_values(&values)
-Adds a row of inputs, with the given values
-=cut
-sub add_values
-{
-my ($self, $values) = @_;
-my @row;
-for(my $i=0; $i<@$values; $i++) {
-	my $cls = $self->{'classes'}->[$i];
-	my $newin = { %$cls };
-	bless($newin, ref($cls));
-	$newin->set_value($values->[$i]);
-	$newin->set_name($newin->get_name()."_".$self->{'rowcount'});
-	$newin->set_form($self->{'form'}) if ($self->{'form'});
-	push(@row, $newin);
-	}
-$self->add_row(\@row);
-$self->{'rowcount'}++;
-}
-
-=head2 get_values(row)
-Returns the values of the inputs in the given row
-=cut
-sub get_values
-{
-my ($self, $row) = @_;
-my @rv;
-foreach my $i (@{$self->{'rows'}->[$row]}) {
-	if (ref($i) && $i->isa("WebminUI::Input")) {
-		push(@rv, $i->get_value());
-		}
-	}
-return @rv;
-}
-
-=head2 list_inputs()
-=cut
-sub list_inputs
-{
-my ($self) = @_;
-my @rv = WebminUI::Table::list_inputs($self);
-foreach my $r (@{$self->{'rows'}}) {
-	foreach my $i (@$r) {
-		if ($i && ref($i) && $i->isa("WebminUI::Input")) {
-			push(@rv, $i);
-			}
-		}
-	}
-return @rv;
-}
-
-sub get_rowcount
-{
-my ($self) = @_;
-return $self->{'rowcount'};
-}
-
-=head2 validate()
-Validates all inputs, and returns a list of error messages
-=cut
-sub validate
-{
-my ($self) = @_;
-my $seli = $self->{'selectinput'};
-my @errs;
-if ($seli) {
-	push(@errs, map { [ $seli->get_name(), $_ ] } $seli->validate());
-	}
-foreach my $i (@{$self->{'inputs'}}) {
-	foreach my $e ($i->validate()) {
-		push(@errs, [ $i->get_name(), $e ]);
-		}
-	}
-my $k = 1;
-foreach my $r (@{$self->{'rows'}}) {
-	my $j = 0;
-	my $skip;
-	if (defined($self->{'control'})) {
-		if ($r->[$self->{'control'}]->get_value() eq "") {
-			$skip = 1;
-			}
-		}
-	foreach my $i (@$r) {
-		if ($i && ref($i) && $i->isa("WebminUI::Input") && !$skip) {
-			my $label = &text('ui_rowlabel', $k, $self->{'headings'}->[$j]);
-			foreach my $e ($i->validate()) {
-				push(@errs, [ $i->get_name(), $label." ".$e ]);
-				}
-			}
-		$j++;
-		}
-	$k++;
-	}
-return @errs;
-}
-
-=head2 set_control(column)
-Sets the column for which an empty value means no validation should be done
-=cut
-sub set_control
-{
-my ($self, $control) = @_;
-$self->{'control'} = $control;
-}
-
-1;
-

WebminUI/JavascriptButton.pm

@@ -1,47 +0,0 @@
-package WebminUI::JavascriptButton;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::JavascriptButton(label, script, [disabled])
-Create a button that runs some Javascript when clicked
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::JavascriptButton::new) &&
-    caller() !~ /WebminUI::Theme::JavascriptButton/) {
-        return new WebminUI::Theme::JavascriptButton(@_[1..$#_]);
-        }
-my ($self, $value, $script, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_value($value);
-$self->set_script($script);
-$self->set_disabled($disabled) if ($disabled);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this text input
-=cut
-sub html
-{
-my ($self) = @_;
-return "<input type=button value=\"".&quote_escape($self->get_value())."\" ".
-       "onClick=\"".$self->get_script()."\">";
-}
-
-sub set_script
-{
-my ($self, $script) = @_;
-$self->{'script'} = $script;
-}
-
-sub get_script
-{
-my ($self) = @_;
-return $self->{'script'};
-}
-
-1;
-

WebminUI/LinkTable.pm

@@ -1,314 +0,0 @@
-package WebminUI::LinkTable;
-use WebminUI::Table;
-use WebminCore;
-
-=head2 new WebminUI::LinkTable(heading, [columns], [width], [name])
-Creates a new table that just displays links, like in the Users and Groups module
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::LinkTable::new) &&
-    caller() !~ /WebminUI::Theme::LinkTable/) {
-        return new WebminUI::Theme::LinkTable(@_[1..$#_]);
-        }
-my ($self, $heading, $columns, $width, $name) = @_;
-$self = { 'sorter' => \&WebminUI::Table::default_sorter,
-	  'columns' => 4,
-	  'sortable' => 1 };
-bless($self);
-$self->set_heading($heading);
-$self->set_name($name) if (defined($name));
-$self->set_width($width) if (defined($width));
-$self->set_columns($columns) if (defined($columns));
-return $self;
-}
-
-=head2 add_entry(name, link)
-Adds one item to appear in the table
-=cut
-sub add_entry
-{
-my ($self, $name, $link) = @_;
-push(@{$self->{'entries'}}, [ $name, $link ]);
-}
-
-=head2 html()
-Returns the HTML for this table.
-=cut
-sub html
-{
-my ($self) = @_;
-
-# Prepare the selector
-my @srows = @{$self->{'entries'}};
-my %selmap;
-if (defined($self->{'selectinput'})) {
-	my $i = 0;
-	foreach my $r (@srows) {
-		$selmap{$r} = $self->{'selectinput'}->one_html($i);
-		$i++;
-		}
-	}
-
-# Sort the entries
-my $sortdir = $self->get_sortdir();
-if (defined($sortdir)) {
-	my $func = $self->{'sorter'};
-	@srows = sort { my $so = &$func($a->[0], $b->[0]);
-			$sortdir ? -$so : $so } @srows;
-	}
-
-# Build the sorter
-my $head;
-my $thisurl = $self->{'form'}->{'page'}->get_myurl();
-$thisurl .= $thisurl =~ /\?/ ? "&" : "?";
-my $name = $self->get_name();
-if ($self->get_sortable()) {
-	$head = "<table cellpadding=0 cellspacing=0 width=100%><tr>";
-	$head .= "<td><b>".$self->get_heading()."</b></td> <td align=right>";
-	if (!defined($sortdir)) {
-		# Not sorting .. show grey button
-		$head .= "<a href='${thisurl}ui_sortdir_${name}=0'>".
-			 "<img src=/images/nosort.gif border=0></a>";
-		}
-	else {
-		# Sorting .. show button to switch mode
-		my $notsort = !$sortdir;
-		$head .= "<a href='${thisurl}ui_sortdir_${name}=$notsort'>".
-			 "<img src=/images/sort.gif border=0></a>";
-		}
-	$head .= "</td></tr></table>";
-	}
-else {
-	$head = $self->get_heading();
-	}
-
-# Find any errors
-my $rv;
-if ($self->{'selectinput'}) {
-	# Get any errors for inputs
-	my @errs = $self->{'form'}->field_errors(
-			$self->{'selectinput'}->get_name());
-	if (@errs) {
-		foreach my $e (@errs) {
-			$rv .= "<font color=#ff0000>$e</font><br>\n";
-			}
-		}
-	}
-
-# Create the actual table
-$rv .= &ui_table_start($head,
-			     defined($self->{'width'}) ? "width=$self->{'width'}"
-						       : undef, 1);
-$rv .= "<td colspan=2><table width=100%>";
-my $i = 0;
-my $cols = $self->get_columns();
-my $pc = 100/$cols;
-foreach my $r (@srows) {
-	$rv .= "<tr>\n" if ($i%$cols == 0);
-	$rv .= "<td width=$pc%>".$selmap{$r}."<a href='$r->[1]'>".
-	       &html_escape($r->[0])."</a></td>\n";
-	$rv .= "<tr>\n" if ($i%$cols == $cols-1);
-	$i++;
-	}
-if ($i%$cols) {
-	# Finish off row
-	while($i++%$cols != $cols-1) {
-		$rv .= "<td width=$pc%></td>\n";
-		}
-	$rv .= "</tr>\n";
-	}
-$rv .= "</table></td>";
-$rv .= &ui_table_end();
-return $rv;
-}
-
-=head2 set_heading(text)
-Sets the heading text to appear above the table
-=cut
-sub set_heading
-{
-my ($self, $heading) = @_;
-$self->{'heading'} = $heading;
-}
-
-sub get_heading
-{
-my ($self) = @_;
-return $self->{'heading'};
-}
-
-sub set_name
-{
-my ($self, $name) = @_;
-$self->{'name'} = $name;
-}
-
-=head2 get_name()
-Returns the name for identifying this table in HTML
-=cut
-sub get_name
-{
-my ($self) = @_;
-if (defined($self->{'name'})) {
-	return $self->{'name'};
-	}
-elsif ($self->{'form'}) {
-	my $secs = $self->{'form'}->{'sections'};
-	for(my $i=0; $i<@$secs; $i++) {
-		return "table".$i if ($secs->[$i] eq $self);
-		}
-	}
-return "table";
-}
-
-=head2 set_sorter(function)
-Sets a function used for sorting fields. Will be called with two values to compare
-=cut
-sub set_sorter
-{
-my ($self, $func) = @_;
-$self->{'sorter'} = $func;
-}
-
-=head2 default_sorter(value1, value2)
-=cut
-sub default_sorter
-{
-my ($value1, $value2, $col) = @_;
-return lc($value1) cmp lc($value2);
-}
-
-=head2 set_sortable(sortable?)
-Tells the table if sorting is allowed or not. By default, it is.
-=cut
-sub set_sortable
-{
-my ($self, $sortable) = @_;
-$self->{'sortable'} = $sortable;
-}
-
-sub get_sortable
-{
-my ($self) = @_;
-return $self->{'sortable'};
-}
-
-=head2 get_sortdir()
-Returns the order to sort in (1 for descending)
-=cut
-sub get_sortdir
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-my $name = $self->get_name();
-if ($in && defined($in->{"ui_sortdir_".$name})) {
-	return ( $in->{"ui_sortdir_".$name} );
-	}
-else {
-	return ( $self->{'sortdir'} );
-	}
-}
-
-=head2 set_sortdir(descending?)
-Sets the default sort direction, unless overridden by the user.
-=cut
-sub set_sortcolumn
-{
-my ($self, $desc) = @_;
-$self->{'sortdir'} = $desc;
-}
-
-=head2 set_width([number|number%])
-Sets the width of this entire table. Can be called with 100%, 500 or undef to use
-the minimum possible width.
-=cut
-sub set_width
-{
-my ($self, $width) = @_;
-$self->{'width'} = $width;
-}
-
-=head2 set_columns(cols)
-Sets the number of columns to display
-=cut
-sub set_columns
-{
-my ($self, $columns) = @_;
-$self->{'columns'} = $columns;
-}
-
-sub get_columns
-{
-my ($self) = @_;
-return $self->{'columns'};
-}
-
-=head2 set_form(form)
-Called by the WebminUI::Form object when this table is added to it
-=cut
-sub set_form
-{
-my ($self, $form) = @_;
-$self->{'form'} = $form;
-if ($self->{'selectinput'}) {
-	$self->{'selectinput'}->set_form($form);
-	}
-}
-
-=head2 set_selector(input)
-Takes a WebminUI::Checkboxes or WebminUI::Radios object, and uses it to add checkboxes
-to all the entries
-=cut
-sub set_selector
-{
-my ($self, $input) = @_;
-$self->{'selectinput'} = $input;
-$input->set_form($form);
-}
-
-=head2 get_selector()
-Returns the UI element used for selecting rows
-=cut
-sub get_selector
-{
-my ($self) = @_;
-return $self->{'selectinput'};
-}
-
-=head2 validate()
-Validates the selector input
-=cut
-sub validate
-{
-my ($self) = @_;
-my $seli = $self->{'selectinput'};
-if ($seli) {
-	return map { [ $seli->get_name(), $_ ] } $seli->validate();
-	}
-return ( );
-}
-
-=head2 get_value(input-name)
-Returns the value of the input with the given name.
-=cut
-sub get_value
-{
-my ($self, $name) = @_;
-if ($self->{'selectinput'} && $self->{'selectinput'}->get_name() eq $name) {
-	return $self->{'selectinput'}->get_value();
-	}
-return undef;
-}
-
-=head2 list_inputs()
-Returns all inputs in all form sections
-=cut
-sub list_inputs
-{
-my ($self) = @_;
-return $self->{'selectinput'} ? ( $self->{'selectinput'} ) : ( );
-}
-
-1;
-

WebminUI/Menu.pm

@@ -1,86 +0,0 @@
-package WebminUI::Menu;
-use WebminCore;
-
-=head2 new WebminUI::Menu(&options, [columns])
-Generates a menu of options, typically using icons.
-=cut
-sub new
-{
-my ($self, $options, $columns) = @_;
-if (defined(&WebminUI::Theme::Menu::new)) {
-        return new WebminUI::Theme::Menu(@_[1..$#_]);
-        }
-$self = { 'columns' => 4 };
-bless($self);
-$self->set_options($options);
-$self->set_columns($columns) if (defined($columns));
-return $self;
-}
-
-=head2 html()
-Returns the HTML for the table
-=cut
-sub html
-{
-my ($self) = @_;
-my (@links, @titles, @icons, @hrefs);
-foreach my $o (@{$self->{'options'}}) {
-	push(@links, $o->{'link'});
-	if ($o->{'link2'}) {
-		push(@titles, "$o->{'title'}</a> <a href='$o->{'link2'}'>$o->{'title2'}");
-		}
-	else {
-		push(@titles, $o->{'title'});
-		}
-	push(@icons, $o->{'icon'});
-	push(@hrefs, $o->{'href'});
-	}
-my $rv = &capture_function_output(\&icons_table,
-		\@links, \@titles, \@icons, $self->get_columns(),
-		\@hrefs);
-return $rv;
-}
-
-=head2 add_option(&option)
-=cut
-sub add_option
-{
-my ($self, $option) = @_;
-push(@{$self->{'options'}}, $option);
-}
-
-sub set_options
-{
-my ($self, $options) = @_;
-$self->{'options'} = $options;
-}
-
-sub get_options
-{
-my ($self) = @_;
-return $self->{'options'};
-}
-
-sub set_columns
-{
-my ($self, $columns) = @_;
-$self->{'columns'} = $columns;
-}
-
-sub get_columns
-{
-my ($self) = @_;
-return $self->{'columns'};
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this menu is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-1;
-

WebminUI/Multiline.pm

@@ -1,40 +0,0 @@
-package WebminUI::Multiline;
-use WebminUI::Textarea;
-use WebminCore;
-@ISA = ( "WebminUI::Textarea" );
-
-=head2 new WebminUI::Multiline(name, &lines, rows, cols, [disabled])
-Create a new input for entering multiple text entries. By default, just uses
-a textbox
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Multiline::new)) {
-        return new WebminUI::Theme::Multiline(@_[1..$#_]);
-        }
-my ($self, $name, $lines, $rows, $cols, $wrap, $disabled) = @_;
-$self = new WebminUI::Textarea($name, join("\n", @$lines), $rows, $cols, undef, $disabled);
-bless($self);
-return $self;
-}
-
-=head2 set_lines(&lines)
-Sets the lines to display
-=cut
-sub set_lines
-{
-my ($self, $lines) = @_;
-$self->set_value(join("\n", @$lines));
-}
-
-=head2 get_lines()
-Returns an array ref of lines to display
-=cut
-sub get_lines
-{
-my ($self) = @_;
-return [ split(/[\r|\n]+/, $self->get_value()) ];
-}
-
-1;
-

WebminUI/OptTextarea.pm

@@ -1,120 +0,0 @@
-package WebminUI::OptTextarea;
-use WebminUI::Textarea;
-use WebminCore;
-@ISA = ( "WebminUI::Textarea" );
-
-=head2 new WebminUI::OptTextarea(name, value, rows, cols, [default-msg], [other-msg])
-Create a text area whose value is optional.
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::OptTextarea::new)) {
-        return new WebminUI::Theme::OptTextarea(@_[1..$#_]);
-        }
-my ($self, $name, $value, $rows, $cols, $default, $other) = @_;
-$self = new WebminUI::Textarea($name, $value, $rows, $cols);
-bless($self);
-$self->set_default($default || $text{'default'});
-$self->set_other($other) if ($other);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this optional text input
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-my $name = $self->get_name();
-my $value = $self->get_value();
-my $dis = $self->get_disabled();
-my $rows = $self->get_rows();
-my $columns = $self->get_cols();
-my $dis1 = &js_disable_inputs([ $name ], [ ]);
-my $dis2 = &js_disable_inputs([ ], [ $name ]);
-my $opt1 = $self->get_default();
-my $opt2 = $self->get_other();
-$rv .= "<input type=radio name=\"".&quote_escape($name."_def")."\" ".
-       "value=1 ".($value ne '' ? "" : "checked").
-       ($dis ? " disabled=true" : "")." onClick='$dis1'> ".$opt1."\n";
-$rv .= "<input type=radio name=\"".&quote_escape($name."_def")."\" ".
-       "value=0 ".($value ne '' ? "checked" : "").
-       ($dis ? " disabled=true" : "")." onClick='$dis2'> ".$opt2."<br>\n";
-$rv .= "<textarea name=\"".&quote_escape($name)."\" ".
-       ($value eq "" || $dis ? " disabled=true" : "").
-       "rows=$rows columns=$columns>".&html_escape($value)."</textarea>\n";
-return $rv;
-
-}
-
-=head2 validate(&inputs)
-=cut
-sub validate
-{
-my ($self, $in) = @_;
-if (defined($self->get_value())) {
-	if ($self->get_value() eq "") {
-		return ( $text{'ui_nothing'} );
-		}
-	return WebminUI::Textbox::validate($self);
-	}
-return ( );
-}
-
-sub set_default
-{
-my ($self, $default) = @_;
-$self->{'default'} = $default;
-}
-
-sub get_default
-{
-my ($self) = @_;
-return $self->{'default'};
-}
-
-sub set_other
-{
-my ($self, $other) = @_;
-$self->{'other'} = $other;
-}
-
-sub get_other
-{
-my ($self) = @_;
-return $self->{'other'};
-}
-
-=head2 get_value()
-Returns the specified initial value for this field, or the value set when the
-form is re-displayed due to an error.
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && (defined($in->{$self->{'name'}}) ||
-	    defined($in->{$self->{'name'}.'_def'}))) {
-	return $in->{$self->{'name'}.'_def'} ? undef : $in->{$self->{'name'}};
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	return $in->{"ui_value_".$self->{'name'}};
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-return ( $self->{'name'}, $self->{'name'}."_def[0]",
-			  $self->{'name'}."_def[1]" );
-}
-
-1;
-

WebminUI/OptTextbox.pm

@@ -1,90 +0,0 @@
-package WebminUI::OptTextbox;
-use WebminUI::Textbox;
-use WebminCore;
-@ISA = ( "WebminUI::Textbox" );
-
-=head2 new WebminUI::OptTextbox(name, value, size, [default-msg], [other-msg])
-Create a text field whose value is optional.
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::OptTextbox::new)) {
-        return new WebminUI::Theme::OptTextbox(@_[1..$#_]);
-        }
-my ($self, $name, $value, $size, $default, $other) = @_;
-$self = new WebminUI::Textbox($name, $value, $size);
-bless($self);
-$self->set_default($default || $text{'default'});
-$self->set_other($other) if ($other);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this optional text input
-=cut
-sub html
-{
-my ($self) = @_;
-return &ui_opt_textbox($self->get_name(), $self->get_value(),
-			     $self->{'size'}, $self->{'default'},
-			     $self->{'other'});
-}
-
-=head2 validate(&inputs)
-=cut
-sub validate
-{
-my ($self, $in) = @_;
-if (defined($self->get_value())) {
-	if ($self->get_value() eq "") {
-		return ( $text{'ui_nothing'} );
-		}
-	return WebminUI::Textbox::validate($self);
-	}
-return ( );
-}
-
-sub set_default
-{
-my ($self, $default) = @_;
-$self->{'default'} = $default;
-}
-
-sub set_other
-{
-my ($self, $other) = @_;
-$self->{'other'} = $other;
-}
-
-=head2 get_value()
-Returns the specified initial value for this field, or the value set when the
-form is re-displayed due to an error.
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && (defined($in->{$self->{'name'}}) ||
-	    defined($in->{$self->{'name'}.'_def'}))) {
-	return $in->{$self->{'name'}.'_def'} ? undef : $in->{$self->{'name'}};
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	return $in->{"ui_value_".$self->{'name'}};
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-return ( $self->{'name'}, $self->{'name'}."_def[0]",
-			  $self->{'name'}."_def[1]" );
-}
-
-1;
-

WebminUI/Page.pm

@@ -1,426 +0,0 @@
-package WebminUI::Page;
-use WebminCore;
-use WebminCore;
-
-=head2 new WebminUI::Page(subheading, title, [help-name], [show-config],
-		      [no-module-index], [no-webmin-index], [rightside],
-		      [header], [body-tags], [below-text])
-Create a new page object, with the given heading and other details
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Page::new) && caller() !~ /WebminUI::Theme::Page/) {
-        return new WebminUI::Theme::Page(@_[1..$#_]);
-        }
-my ($self, $subheading, $title, $help, $config, $noindex, $nowebmin, $right,
-    $header, $body, $below) = @_;
-$self = { 'index' => 1, 'webmin' => 1, 'image' => "" };
-bless($self);
-$self->set_subheading($subheading);
-$self->set_title($title);
-$self->set_help($help);
-$self->set_config($config);
-$self->set_index(!$noindex);
-$self->set_webmin(!$nowebmin);
-$self->set_right($right);
-$self->set_header($header);
-$self->set_body($body);
-$self->set_below($below);
-return $self;
-}
-
-=head2 print()
-Actually outputs this page
-=cut
-sub print
-{
-my ($self) = @_;
-my $rv;
-
-# Work out if we need buffering/table
-foreach my $c (@{$self->{'contents'}}) {
-	if (ref($c) =~ /Dynamic/) {
-		$| = 1;
-		if ($c->needs_unbuffered()) {
-			$self->{'unbuffered'} = 1;
-			}
-		}
-	}
-
-# Show the page header
-my $func = $self->{'unbuffered'} ? \&ui_print_unbuffered_header
-				 : \&ui_print_header;
-my $scripts;
-foreach my $s (@{$self->{'scripts'}},
-	       (map { @{$_->{'scripts'}} } @{$self->{'contents'}})) {
-	$scripts .= "<script>\n".$s."\n</script>\n";
-	}
-my $onload;
-my @onloads = ( @{$self->{'onloads'}},
-		map { @{$_->{'onloads'}} } @{$self->{'contents'}} );
-if (@onloads) {
-	$onload = "onLoad='".join(" ", @onloads)."'";
-	}
-my @args =  ( $self->{'subheading'}, $self->{'title'}, $self->{'image'},
-	      $self->{'help'}, $self->{'config'}, $self->{'index'} ? undef : 1,
-	      $self->{'webmin'} ? undef : 1, $self->{'right'},
-	      $self->{'header'}.$scripts, $self->{'body'}.$onload,
-	      $self->{'below'} );
-while(!defined($args[$#args])) {
-	pop(@args);
-	}
-if ($self->get_refresh()) {
-	print "Refresh: ",$self->get_refresh(),"\r\n";
-	}
-&ui_print_header(@args);
-
-# Add the tab top
-if ($self->{'tabs'}) {
-	print $self->{'tabs'}->top_html();
-	}
-
-# Add any pre-content stuff
-print $self->pre_content();
-
-if ($self->{'errormsg'}) {
-	# Show the error only
-	print $self->get_errormsg_html();
-	}
-else {
-	# Generate the forms and other stuff
-	foreach my $c (@{$self->{'contents'}}) {
-		if (!ref($c)) {
-			# Just a message
-			print "$c<p>\n";
-			}
-		else {
-			# Convert to HTML
-			eval { print $c->html(); };
-			if ($@) {
-				print "<pre>$@</pre>";
-				}
-			if (ref($c) =~ /Dynamic/ && $c->get_wait()) {
-				# Dynamic object .. execute now
-				$c->start();
-				}
-			}
-		}
-
-	# Generate buttons row
-	if ($self->{'buttons'}) {
-		print "<hr>\n";
-		print &ui_buttons_start();
-		foreach my $b (@{$self->{'buttons'}}) {
-			print &ui_buttons_row(@$b);
-			}
-		print &ui_buttons_end();
-		}
-	}
-
-# Add any post-content stuff
-print $self->post_content();
-
-# End of the tabs
-if ($self->{'tabs'}) {
-	print $self->{'tabs'}->bottom_html();
-	}
-
-# Print the footer
-my @footerargs;
-foreach my $f (@{$self->{'footers'}}) {
-	push(@footerargs, $f->[0], $f->[1]);
-	}
-&ui_print_footer(@footerargs);
-
-# Start any dynamic objects
-foreach my $c (@{$self->{'contents'}}) {
-	if (ref($c) =~ /Dynamic/ && !$c->get_wait()) {
-		$c->start();
-		}
-	}
-}
-
-=head2 add_footer(link, title)
-Adds a return link, typically for display at the end of the page.
-=cut
-sub add_footer
-{
-my ($self, $link, $title) = @_;
-push(@{$self->{'footers'}}, [ $link, $title ]);
-}
-
-=head2 get_footer(index)
-Returns the link for the numbered footer
-=cut
-sub get_footer
-{
-my ($self, $num) = @_;
-return $self->{'footers'}->[$num]->[0];
-}
-
-=head2 add_message(text, ...)
-Adds a text message, to appear at this point on the page
-=cut
-sub add_message
-{
-my ($self, @message) = @_;
-push(@{$self->{'contents'}}, join("", @message));
-}
-
-=head2 add_error(text, [command-output])
-Adds a an error message, possible accompanied by the command output
-=cut
-sub add_error
-{
-my ($self, $message, $out) = @_;
-$message = "<font color=#ff0000>$message</font>";
-if ($out) {
-	$message .= "<pre>$out</pre>";
-	}
-push(@{$self->{'contents'}}, $message);
-}
-
-=head2 add_message_after(&object, text, ...)
-Adds a message after some existing object
-=cut
-sub add_message_after
-{
-my ($self, $object, @message) = @_;
-splice(@{$self->{'contents'}}, $self->position_of($object)+1, 0,
-	join("", @message));
-}
-
-=head2 add_error_after(&object, text, [command-output])
-Adds an error message after some existing object
-=cut
-sub add_error_after
-{
-my ($self, $object, $message, $out) = @_;
-$message = "<font color=#ff0000>$message</font>";
-if ($out) {
-	$message .= "<pre>$out</pre>";
-	}
-splice(@{$self->{'contents'}}, $self->position_of($object)+1, 0,
-       $message);
-}
-
-sub position_of
-{
-my ($self, $object) = @_;
-for(my $i=0; $i<@{$self->{'contents'}}; $i++) {
-	if ($self->{'contents'}->[$i] eq $object) {
-		return $i;
-		}
-	}
-print STDERR "Could not find $object in ",join(" ",@{$self->{'contents'}}),"\n";
-return scalar(@{$self->{'contents'}});
-}
-
-=head2 add_form(WebminUI::Form)
-Adds a form to be displayed on this page
-=cut
-sub add_form
-{
-my ($self, $form) = @_;
-push(@{$self->{'contents'}}, $form);
-$form->set_page($self);
-}
-
-=head2 add_separator()
-Adds some kind of separation between parts of this page, like an <hr>
-=cut
-sub add_separator
-{
-my ($self, $message) = @_;
-push(@{$self->{'contents'}}, "<hr>");
-}
-
-=head2 add_button(cgi, label, description, [&hiddens], [before-button],
-		  [after-button])
-Adds an action button associated with this page, typically for display at the end
-=cut
-sub add_button
-{
-my ($self, $cgi, $label, $desc, $hiddens, $before, $after) = @_;
-push(@{$self->{'buttons'}}, [ $cgi, $label, $desc, join(" ", @$hiddens),
-			      $before, $after ]);
-}
-
-=head2 add_tabs(WebminUI::Tags)
-Tells the page to display the given set of tabs at the top
-=cut
-sub add_tabs
-{
-my ($self, $tabs) = @_;
-$self->{'tabs'} = $tabs;
-}
-
-=head2 add_dynamic(WebminUI::DynamicText|WebminUI::DynamicProgress)
-Adds an object that is dynamically generated, such as a text box or progress bar.
-=cut
-sub add_dynamic
-{
-my ($self, $dyn) = @_;
-push(@{$self->{'contents'}}, $dyn);
-$dyn->set_page($self);
-}
-
-sub set_subheading
-{
-my ($self, $subheading) = @_;
-$self->{'subheading'} = $subheading;
-}
-
-sub set_title
-{
-my ($self, $title) = @_;
-$self->{'title'} = $title;
-}
-
-sub set_help
-{
-my ($self, $help) = @_;
-$self->{'help'} = $help;
-}
-
-sub set_config
-{
-my ($self, $config) = @_;
-$self->{'config'} = $config;
-}
-
-sub set_index
-{
-my ($self, $index) = @_;
-$self->{'index'} = $index;
-}
-
-sub set_webmin
-{
-my ($self, $webmin) = @_;
-$self->{'webmin'} = $webmin;
-}
-
-sub set_right
-{
-my ($self, $right) = @_;
-$self->{'right'} = $right;
-}
-
-sub set_header
-{
-my ($self, $header) = @_;
-$self->{'header'} = $header;
-}
-
-sub set_body
-{
-my ($self, $body) = @_;
-$self->{'body'} = $body;
-}
-
-sub set_below
-{
-my ($self, $below) = @_;
-$self->{'below'} = $below;
-}
-
-sub set_unbuffered
-{
-my ($self, $unbuffered) = @_;
-$self->{'unbuffered'} = $unbuffered;
-}
-
-=head2 set_popup(popup?)
-If set to 1, then this is a popup window
-=cut
-sub set_popup
-{
-my ($self, $popup) = @_;
-$self->{'popup'} = $popup;
-}
-
-=head2 get_myurl()
-Returns the path part of the URL for this page, like /foo/bar.cgi
-=cut
-sub get_myurl
-{
-my @args;
-if ($ENV{'QUERY_STRING'} && $ENV{'REQUEST_METHOD'} ne 'POST') {
-	my %in;
-	&ReadParse(\%in);
-	foreach my $i (keys %in) {
-		if ($i !~ /^ui_/) {
-			foreach my $v (split(/\0/, $in{$i})) {
-				push(@args, &urlize($i)."=".
-					    &urlize($v));
-				}
-			}
-		}
-	}
-return @args ? $ENV{'SCRIPT_NAME'}."?".join("&", @args)
-	     : $ENV{'SCRIPT_NAME'};
-}
-
-=head2 set_refresh(seconds)
-Sets the number of seconds between automatic page refreshes
-=cut
-sub set_refresh
-{
-my ($self, $refresh) = @_;
-$self->{'refresh'} = $refresh;
-}
-
-sub get_refresh
-{
-my ($self) = @_;
-return $self->{'refresh'};
-}
-
-=head2 add_onload(code)
-Adds some Javascript code for inclusion in the onLoad tag
-=cut
-sub add_onload
-{
-my ($self, $code) = @_;
-push(@{$self->{'onloads'}}, $code);
-}
-
-=head2 add_script(code)
-Adds some Javascript code for putting in the <head> section
-=cut
-sub add_script
-{
-my ($self, $script) = @_;
-push(@{$self->{'scripts'}}, $script);
-}
-
-sub pre_content
-{
-my ($self) = @_;
-return undef;
-}
-
-sub post_content
-{
-my ($self) = @_;
-return undef;
-}
-
-=head2 set_errormsg(message)
-Sets an error message to be displayed instead of the page contents
-=cut
-sub set_errormsg
-{
-my ($self, $errormsg) = @_;
-$self->{'errormsg'} = $errormsg;
-}
-
-sub get_errormsg_html
-{
-my ($self) = @_;
-return $self->{'errormsg'}."<p>\n";
-}
-
-1;
-

WebminUI/Password.pm

@@ -1,32 +0,0 @@
-package WebminUI::Password;
-@ISA = ( "WebminUI::Textbox" );
-use WebminUI::Textbox;
-use WebminCore;
-
-=head2 new WebminUI::Password(name, value, [size])
-Create a new text input field, for a password
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Password::new)) {
-	return new WebminUI::Theme::Password(@_[1..$#_]);
-	}
-my ($self, $name, $value, $size) = @_;
-$self = new WebminUI::Textbox($name, $value, $size);
-bless($self);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this password input
-=cut
-sub html
-{
-my ($self) = @_;
-return &ui_password($self->get_name(), $self->get_value(),
-			  $self->{'size'},
-			  $self->{'$disabled'});
-}
-
-
-

WebminUI/PlainText.pm

@@ -1,97 +0,0 @@
-package WebminUI::PlainText;
-use WebminCore;
-
-=head2 new WebminUI::PlainText(text, columns)
-Displays a block of plain fixed-width text, within a page or form.
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::PlainText::new) &&
-    caller() !~ /WebminUI::Theme::PlainText/) {
-        return new WebminUI::Theme::PlainText(@_[1..$#_]);
-        }
-my ($self, $text, $columns) = @_;
-$self = { 'columns' => 80 };
-bless($self);
-$self->set_text($text);
-$self->set_columns($columns) if (defined($columns));
-return $self;
-}
-
-=head2 html()
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-$rv .= "<table border><tr $cb><td><pre>";
-foreach my $l (&wrap_lines($self->get_text(), $self->get_columns())) {
-	if (length($l) < $self->get_columns()) {
-		$l .= (" " x $self->get_columns() - length($l));
-		}
-	$rv .= &html_escape($l)."\n";
-	}
-if (!$self->get_text()) {
-	print (" " x $self->get_columns()),"\n";
-	}
-$rv .= "</pre></td></tr></table>\n";
-return $rv;
-}
-
-sub set_text
-{
-my ($self, $text) = @_;
-$self->{'text'} = $text;
-}
-
-sub get_text
-{
-my ($self) = @_;
-return $self->{'text'};
-}
-
-sub set_columns
-{
-my ($self, $columns) = @_;
-$self->{'columns'} = $columns;
-}
-
-sub get_columns
-{
-my ($self) = @_;
-return $self->{'columns'};
-}
-
-# wrap_lines(text, width)
-# Given a multi-line string, return an array of lines wrapped to
-# the given width
-sub wrap_lines
-{
-local @rv;
-local $w = $_[1];
-foreach $rest (split(/\n/, $_[0])) {
-	if ($rest =~ /\S/) {
-		while($rest =~ /^(.{1,$w}\S*)\s*([\0-\377]*)$/) {
-			push(@rv, $1);
-			$rest = $2;
-			}
-		}
-	else {
-		# Empty line .. keep as it is
-		push(@rv, $rest);
-		}
-	}
-return @rv;
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this form is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-1;
-

WebminUI/Properties.pm

@@ -1,132 +0,0 @@
-package WebminUI::Properties;
-use WebminCore;
-
-=head2 new WebminUI::Properties([heading], [columns], [width])
-Creates a read-only properties list
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Properties::new) &&
-    caller() !~ /WebminUI::Theme::Properties/) {
-        return new WebminUI::Theme::Properties(@_[1..$#_]);
-        }
-my ($self, $heading, $columns, $width) = @_;
-$self = { 'columns' => 2 };
-bless($self);
-$self->set_heading($heading) if (defined($heading));
-$self->set_columns($columns) if (defined($columns));
-$self->set_width($width) if (defined($width));
-return $self;
-}
-
-=head2 add_row(label, value, ...)
-Adds one row to the properties table
-=cut
-sub add_row
-{
-my ($self, @row) = @_;
-push(@{$self->{'rows'}}, \@row);
-}
-
-=head2 set_heading_row(head1, head2, ...)
-Adds a row of headings
-=cut
-sub set_heading_row
-{
-my ($self, @row) = @_;
-$self->{'heading_row'} = \@row;
-}
-
-=head2 html()
-Returns the HTML for this properties list
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-my $width = $self->get_width();
-$rv .= "<table border ".($width ? "width=$width" : "").">\n";
-$rv .= "<tr><td><table width=100% cellspacing=0 cellpadding=3>\n";
-my $cols = $self->get_columns();
-if ($self->get_heading()) {
-	$rv .= "<tr $tb><td colspan=$cols><b>".
-	       $self->get_heading()."</b></td> </tr>\n";
-	}
-if ($self->{'heading_row'}) {
-	$rv .= "<tr $tb>\n";
-	foreach my $r (@{$self->{'heading_row'}}) {
-		$rv .= "<td><b>$r</b></td>\n";
-		}
-	$rv .= "</tr>\n";
-	}
-foreach my $r (@{$self->{'rows'}}) {
-	$rv .= "<tr $cb>\n";
-	$rv .= "<td><b>$r->[0]</b></td>\n";
-	for(my $i=1; $i<@$r || $i<$cols; $i++) {
-		$rv .= "<td>".(ref($r->[$i]) ? $r->[$i]->html()
-					    : $r->[$i])."</td>\n";
-		}
-	$rv .= "</tr>\n";
-	}
-$rv .= "</table></td></tr></table>\n";
-return $rv;
-}
-
-=head2 set_width([number|number%])
-Sets the width of this section. Can be called with 100%, 500, or undef to use
-the minimum possible width.
-=cut
-sub set_width
-{
-my ($self, $width) = @_;
-$self->{'width'} = $width;
-}
-
-sub get_width
-{
-my ($self) = @_;
-return $self->{'width'};
-}
-
-=head2 set_columns(number)
-Sets the number of columns in the properties table, including the title column
-=cut
-sub set_columns
-{
-my ($self, $columns) = @_;
-$self->{'columns'} = $columns;
-}
-
-sub get_columns
-{
-my ($self) = @_;
-return $self->{'columns'};
-}
-
-=head2 set_heading(number)
-Sets the heading to appear above the properties list
-=cut
-sub set_heading
-{
-my ($self, $heading) = @_;
-$self->{'heading'} = $heading;
-}
-
-sub get_heading
-{
-my ($self) = @_;
-return $self->{'heading'};
-}
-
-
-=head2 set_page(WebminUI::Page)
-Called when this form is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-1;
-

WebminUI/Radios.pm

@@ -1,77 +0,0 @@
-package WebminUI::Radios;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Radios(name, value, &options, [disabled])
-Create a list of radio buttons, of which one may be selected
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Radios::new)) {
-        return new WebminUI::Theme::Radios(@_[1..$#_]);
-        }
-my ($self, $name, $value, $options, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_name($name);
-$self->set_value($value);
-$self->set_options($options);
-$self->set_disabled($disabled);
-return $self;
-}
-
-=head2 add_option(name, [label])
-=cut
-sub add_option
-{
-my ($self, $name, $label) = @_;
-push(@{$self->{'options'}}, [ $name, $label ]);
-}
-
-=head2 html()
-Returns the HTML for all the radio buttons, one after the other
-=cut
-sub html
-{
-my ($self) = @_;
-my $dis = $self->{'form'}->get_changefunc($self);
-my $opts = $self->get_options();
-if ($dis) {
-	foreach my $o (@$opts) {
-		$o->[2] = "onClick='$dis'";
-		}
-	}
-return &ui_radio($self->get_name(), $self->get_value(),
-		       $opts, $self->get_disabled());
-}
-
-=head2 one_html(number)
-Returns the HTML for a single one of the radio buttons
-=cut
-sub one_html
-{
-my ($self, $num) = @_;
-my $opt = $self->{'options'}->[$num];
-my $dis = $self->{'form'}->get_changefunc($self);
-return &ui_oneradio($self->get_name(), $opt->[0],
-			  defined($opt->[1]) ? $opt->[1] : $opt->[0],
-			  $self->get_value() eq $opt->[0],
-			  $dis ? "onClick='$dis'" : undef,
-			  $self->get_disabled());
-}
-
-sub set_options
-{
-my ($self, $options) = @_;
-$self->{'options'} = $options;
-}
-
-sub get_options
-{
-my ($self) = @_;
-return $self->{'options'};
-}
-
-1;
-

WebminUI/ResultPage.pm

@@ -1,20 +0,0 @@
-package WebminUI::ResultPage;
-use WebminCore;
-
-=head2 new WebminUI::ResultPage(subheading, title, message, [help-name])
-Create a new page object for showing some success message.
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::ResultPage::new) &&
-    caller() !~ /WebminUI::Theme::ResultPage/) {
-	return new WebminUI::Theme::ResultPage(@_[1..$#_]);
-	}
-my ($self, $subheading, $title, $message, $help) = @_;
-$self = new WebminUI::Page($subheading, $title, $help);
-$self->add_message("<b>$message</b>");
-return $self;
-}
-
-1;
-

WebminUI/Section.pm

@@ -1,172 +0,0 @@
-package WebminUI::Section;
-use WebminCore;
-
-=head2 new WebminUI::Section(header, [columns], [title], [width])
-Create a new form section, which has a header and contains some inputs
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Section::new) &&
-    caller() !~ /WebminUI::Theme::Section/) {
-        return new WebminUI::Theme::Section(@_[1..$#_]);
-        }
-my ($self, $header, $columns, $title, $width) = @_;
-$self = { 'columns' => 4 };
-bless($self);
-$self->set_header($header);
-$self->set_columns($columns) if (defined($columns));
-$self->set_title($title) if (defined($title));
-$self->set_width($width) if (defined($width));
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this form section
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-$rv .= &ui_table_start($self->{'header'},
-		     $self->{'width'} ? "width=$self->{'width'}" : undef,
-		     $self->{'columns'});
-foreach my $i (@{$self->{'inputs'}}) {
-	if (is_input($i->[1])) {
-		my $errs;
-		my @errs = $self->{'form'}->field_errors($i->[1]->get_name());
-		if (@errs) {
-			foreach my $e (@errs) {
-				$errs .= "<br><font color=#ff0000>$e</font>\n";
-				}
-			}
-		$rv .= &ui_table_row($i->[0], $i->[1]->html().$errs,
-					   $i->[2]);
-		}
-	else {
-		$rv .= &ui_table_row($i->[0],
-			ref($i->[1]) ? $i->[1]->html() : $i->[1], $i->[2]);
-		}
-	}
-$rv .= &ui_table_end();
-return $rv;
-}
-
-=head2 add_input(label, input, [columns])
-Adds some WebminUI::Input object to this form section
-=cut
-sub add_input
-{
-my ($self, $label, $input, $cols) = @_;
-push(@{$self->{'inputs'}}, [ $label, $input, $cols ]);
-$input->set_form($self->{'form'});
-}
-
-=head2 add_row(label, text, [columns])
-Adds a non-editable row to this form section
-=cut
-sub add_row
-{
-my ($self, $label, $text, $cols) = @_;
-push(@{$self->{'inputs'}}, [ $label, $text, $cols ]);
-}
-
-=head2 add_separator()
-Adds some kind of separator at this point in the section
-=cut
-sub add_separator
-{
-my ($self) = @_;
-push(@{$self->{'inputs'}}, [ undef, "<hr>", $self->{'columns'} ]);
-}
-
-sub set_header
-{
-my ($self, $header) = @_;
-$self->{'header'} = $header;
-}
-
-sub set_columns
-{
-my ($self, $columns) = @_;
-$self->{'columns'} = $columns;
-}
-
-sub set_title
-{
-my ($self, $title) = @_;
-$self->{'title'} = $title;
-}
-
-=head2 set_width([number|number%])
-Sets the width of this section. Can be called with 100%, 500, or undef to use
-the minimum possible width.
-=cut
-sub set_width
-{
-my ($self, $width) = @_;
-$self->{'width'} = $width;
-}
-
-=head2 validate()
-Validates all form inputs, based on the given CGI input hash. Returns a list
-of errors, each of which is field name, error message and field label.
-=cut
-sub validate
-{
-my ($self) = @_;
-my @errs;
-foreach my $i (@{$self->{'inputs'}}) {
-	if (is_input($i->[1])) {
-		foreach my $e ($i->[1]->validate()) {
-			push(@errs, [ $i->[1]->get_name(), $e, $i->[0] ]);
-			}
-		}
-	}
-return @errs;
-}
-
-=head2 get_value(input-name)
-Returns the value of the input with the given name.
-=cut
-sub get_value
-{
-my ($self, $name) = @_;
-foreach my $i (@{$self->{'inputs'}}) {
-	if (is_input($i->[1]) && $i->[1]->get_name() eq $name) {
-		return $i->[1]->get_value();
-		}
-	}
-return undef;
-}
-
-=head2 set_form(form)
-Called by the WebminUI::Form object when this section is added to it
-=cut
-sub set_form
-{
-my ($self, $form) = @_;
-$self->{'form'} = $form;
-foreach my $i (@{$self->{'inputs'}}) {
-	if (is_input($i->[1])) {
-		$i->[1]->set_form($form);
-		}
-	}
-}
-
-sub list_inputs
-{
-my ($self) = @_;
-return map { $_->[1] } grep { is_input($_->[1]) } @{$self->{'inputs'}};
-}
-
-=head2 is_input(object)
-=cut
-sub is_input
-{
-my ($object) = @_;
-return ref($object) && ref($object) =~ /::/ &&
-       $object->isa("WebminUI::Input");
-}
-
-1;
-

WebminUI/Select.pm

@@ -1,135 +0,0 @@
-package WebminUI::Select;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Select(name, value|&values, &options, [multiple-size],
-			  [add-missing], [disabled])
-Create a menu or multiple-selection field
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Select::new)) {
-        return new WebminUI::Theme::Select(@_[1..$#_]);
-        }
-my ($self, $name, $value, $options, $size, $missing, $disabled) = @_;
-$self = { 'size' => 1 };
-bless($self);
-$self->set_name($name);
-$self->set_value($value);
-$self->set_options($options);
-$self->set_size($size) if (defined($size));
-$self->set_missing($missing);
-$self->set_disabled($disabled);
-return $self;
-}
-
-=head2 add_option(name, [label])
-=cut
-sub add_option
-{
-my ($self, $name, $label) = @_;
-push(@{$self->{'options'}}, [ $name, $label ]);
-}
-
-=head2 html()
-Returns the HTML for this menu or multi-select input
-=cut
-sub html
-{
-my ($self) = @_;
-my $dis = $self->{'form'}->get_changefunc($self);
-return &ui_select($self->get_name(), $self->get_value(),
-			$self->get_options(), 
-			$self->get_size() > 1 ? $self->get_size() : undef,
-			$self->get_size() > 1 ? 1 : 0,
-			undef,
-			$self->get_disabled(),
-			$dis ? "onChange='$dis'" : undef).
-       ($self->get_size() > 1 ? 
-	       &ui_hidden("ui_exists_".$self->get_name(), 1) : "");
-}
-
-=head2 get_value()
-For a multi-select field, returns an array ref of all values. For a menu,
-return just the one value.
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && (defined($in->{$self->{'name'}}) ||
-	    defined($in->{"ui_exists_".$self->{'name'}}))) {
-	if ($self->get_size() > 1) {
-		return [ split(/\0/, $in->{$self->{'name'}}) ];
-		}
-	else {
-		return $in->{$self->{'name'}};
-		}
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	if ($self->get_size() > 1) {
-		return [ split(/\0/, $in->{"ui_value_".$self->{'name'}}) ];
-		}
-	else {
-		return $in->{"ui_value_".$self->{'name'}};
-		}
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-sub set_options
-{
-my ($self, $options) = @_;
-$self->{'options'} = $options;
-}
-
-sub set_size
-{
-my ($self, $size) = @_;
-$self->{'size'} = $size;
-}
-
-sub set_missing
-{
-my ($self, $missing) = @_;
-$self->{'missing'} = $missing;
-}
-
-sub get_options
-{
-my ($self) = @_;
-return $self->{'options'};
-}
-
-sub get_size
-{
-my ($self) = @_;
-return $self->{'size'};
-}
-
-sub get_missing
-{
-my ($self) = @_;
-return $self->{'missing'};
-}
-
-=head2 validate()
-Returns a list of error messages for this field
-=cut
-sub validate
-{
-my ($self) = @_;
-if ($self->{'size'} > 1) {
-	my $value = $self->get_value();
-	if ($self->{'mandatory'} && !@$value) {
-		return ( $self->{'mandatorymsg'} || $text{'ui_mandatory'} );
-		}
-	}
-return ( );
-}
-
-1;
-

WebminUI/Submit.pm

@@ -1,41 +0,0 @@
-package WebminUI::Submit;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Submit(label, [name], [disabled])
-Create a form submit button
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Submit::new) &&
-    caller() !~ /WebminUI::Theme::Submit/) {
-        return new WebminUI::Theme::Submit(@_[1..$#_]);
-        }
-my ($self, $value, $name, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_value($value);
-$self->set_name($name) if ($name);
-$self->set_disabled($disabled) if ($disabled);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this form submit button
-=cut
-sub html
-{
-my ($self) = @_;
-return &ui_submit($self->get_value(), $self->get_name(),
-			$self->get_disabled());
-}
-
-sub get_value
-{
-my ($self) = @_;
-return $self->{'value'};
-}
-
-1;
-

WebminUI/Table.pm

@@ -1,660 +0,0 @@
-package WebminUI::Table;
-use WebminUI::JavascriptButton;
-use WebminCore;
-
-=head2 new WebminUI::Table(&headings, [width], [name], [heading])
-Create a multi-column table, with support for sorting, paging and so on
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Table::new) &&
-    caller() !~ /WebminUI::Theme::Table/) {
-        return new WebminUI::Theme::Table(@_[1..$#_]);
-        }
-my ($self, $headings, $width, $name, $heading) = @_;
-$self = { 'sorter' => [ map { \&default_sorter } @$headings ] };
-bless($self);
-$self->set_headings($headings);
-$self->set_name($name) if (defined($name));
-$self->set_width($width) if (defined($width));
-$self->set_heading($heading) if (defined($heading));
-$self->set_all_sortable(1);
-$self->set_paging(1);
-return $self;
-}
-
-=head2 add_row(&fields)
-Adds a row to the table. Each element in the row can be either an input of some
-kind, or a piece of text.
-=cut
-sub add_row
-{
-my ($self, $fields) = @_;
-push(@{$self->{'rows'}}, $fields);
-}
-
-=head2 html()
-Returns the HTML for this table. The actual ordering may depend upon sort headers
-clicked by the user. The rows to display may be limited by the page size.
-=cut
-sub html
-{
-my ($self) = @_;
-my @srows = @{$self->{'rows'}};
-my $thisurl = $self->{'form'}->{'page'}->get_myurl();
-my $name = $self->get_name();
-my $rv;
-
-# Add the heading
-if ($self->get_heading()) {
-	$rv .= &ui_subheading($self->get_heading())."\n";
-	}
-
-my $sm = $self->get_searchmax();
-if (defined($sm) && @srows > $sm) {
-	# Too many rows to show .. add a search form. This will need to close
-	# the parent form, and then re-open it after the search form, as nested
-	# forms aren't allowed!
-	if ($self->get_searchmsg()) {
-		$rv .= $self->get_searchmsg()."<br>\n";
-		}
-
-	my $form = new WebminUI::Form($thisurl, "get");
-	$form->set_input($self->{'form'}->{'in'});
-	my $section = new WebminUI::Section(undef, 2);
-	$form->add_section($section);
-
-	my $col = new WebminUI::Select("ui_searchcol_".$name, undef);
-	my $i = 0;
-	foreach my $h (@{$self->get_headings()}) {
-		if ($self->{'sortable'}->[$i]) {
-			$col->add_option($i, $h);
-			}
-		$i++;
-		}
-	$section->add_input($text{'ui_searchcol'}, $col);
-
-	my $for = new WebminUI::Textbox("ui_searchfor_".$name, undef, 30);
-	$section->add_input($text{'ui_searchfor'}, $for);
-
-	$rv .= $section->html();
-	my $url = $self->make_url(undef, undef, undef, undef, 1);
-	my $jsb = new WebminUI::JavascriptButton($text{'ui_searchok'},
-			"window.location = '$url'+'&'+'ui_searchfor_${name}'+'='+escape(form.ui_searchfor_${name}.value)+'&'+'ui_searchcol_${name}'+'='+escape(form.ui_searchcol_${name}.selectedIndex)");
-	$rv .= $jsb->html();
-	$rv .= "<br>\n";
-
-	# Limit records to current search
-	if (defined($col->get_value())) {
-		my $sf = $for->get_value();
-		@srows = grep { $_->[$col->get_value()] =~ /\Q$sf\E/i } @srows;
-		}
-	else {
-		@srows = ( );
-		}
-	}
-
-# Prepare the selector
-my $selc = $self->{'selectcolumn'};
-my $seli = $self->{'selectinput'};
-my %selmap;
-if (defined($selc)) {
-	my $i = 0;
-	foreach my $r (@srows) {
-		$selmap{$r,$selc} = $seli->one_html($i);
-		$i++;
-		}
-	}
-
-# Sort the rows
-my ($sortcol, $sortdir) = $self->get_sortcolumn();
-if (defined($sortcol)) {
-	my $func = $self->{'sorter'}->[$sortcol];
-	@srows = sort { my $so = &$func($a->[$sortcol], $b->[$sortcol], $sortcol);
-			$sortdir ? -$so : $so } @srows;
-	}
-
-# Build the td attributes
-my @tds = map { "valign=top" } @{$self->{'headings'}};
-if ($self->{'widths'}) {
-	my $i = 0;
-	foreach my $w (@{$self->{'widths'}}) {
-		$tds[$i++] .= " width=$w";
-		}
-	}
-if ($self->{'aligns'}) {
-	my $i = 0;
-	foreach my $a (@{$self->{'aligns'}}) {
-		$tds[$i++] .= " align=$a";
-		}
-	}
-
-# Find the page we want
-my $page = $self->get_pagepos();
-my ($start, $end, $origsize);
-if ($self->get_paging() && $self->get_pagesize()) {
-	# Restrict view to rows within some page
-	$start = $self->get_pagesize()*$page;
-	$end = $self->get_pagesize()*($page+1) - 1;
-	if ($start >= @srows) {
-		# Gone off end!
-		$start = 0;
-		$end = $self->get_pagesize()-1;
-		}
-	if ($end >= @srows) {
-		# End is too far
-		$end = @srows-1;
-		}
-	$origsize = scalar(@srows);
-	@srows = @srows[$start..$end];
-	}
-
-# Generate the headings, with sorters
-$thisurl .= $thisurl =~ /\?/ ? "&" : "?";
-my @sheadings;
-my $i = 0;
-foreach my $h (@{$self->get_headings()}) {
-	if ($self->{'sortable'}->[$i]) {
-		# Column can be sorted!
-		my $hh = "<table cellpadding=0 cellspacing=0 width=100%><tr>";
-		$hh .= "<td><b>$h</b></td> <td align=right>";
-		if (!defined($sortcol) || $sortcol != $i) {
-			# Not sorting on this column .. show grey button
-			my $url = $self->make_url($i, 0, undef, undef);
-			$hh .= "<a href='$url'>".
-			       "<img src=@{[&get_webprefix()]}/images/nosort.gif border=0></a>";
-			}
-		else {
-			# Sorting .. show button to switch mode
-			my $notsort = !$sortdir;
-			my $url = $self->make_url($i, $sortdir ? 0 : 1, undef, undef);
-			$hh .= "<a href='$url'>".
-			       "<img src=@{[&get_webprefix()]}/images/sort.gif border=0></a>";
-			}
-		$hh .= "</td></tr></table>";
-		push(@sheadings, $hh);
-		}
-	else {
-		push(@sheadings, $h);
-		}
-	$i++;
-	}
-
-# Get any errors for inputs
-my @errs = map { $_->get_errors() } $self->list_inputs();
-if (@errs) {
-	foreach my $e (@errs) {
-		$rv .= "<font color=#ff0000>$e</font><br>\n";
-		}
-	}
-
-# Build links for top and bottom
-my $links;
-if (ref($seli) =~ /Checkboxes/) {
-	# Add select all/none links
-	my $formno = $self->{'form'}->get_formno();
-	$links .= &select_all_link($seli->get_name(), $formno,
-					 $text{'ui_selall'})."\n";
-	$links .= &select_invert_link($seli->get_name(), $formno,
-					    $text{'ui_selinv'})."\n";
-	$links .= "&nbsp;\n";
-	}
-foreach my $l (@{$self->{'links'}}) {
-	$links .= "<a href='$l->[0]'>$l->[1]</a>\n";
-	}
-$links .= "<br>" if ($links);
-
-# Build list of inputs for bottom
-my $inputs;
-foreach my $i (@{$self->{'inputs'}}) {
-	$inputs .= $i->html()."\n";
-	}
-$inputs .= "<br>" if ($inputs);
-
-# Create the pager
-if ($self->get_paging() && $origsize) {
-	my $lastpage = int(($origsize-1)/$self->get_pagesize());
-	$rv .= "<center>";
-	if ($page != 0) {
-		# Add start and left arrows
-		my $surl = $self->make_url(undef, undef, undef, 0);
-		$rv .= "<a href='$surl'><img src=@{[&get_webprefix()]}/images/first.gif border=0 align=middle></a>\n";
-		my $lurl = $self->make_url(undef, undef, undef, $page-1);
-		$rv .= "<a href='$lurl'><img src=@{[&get_webprefix()]}/images/left.gif border=0 align=middle></a>\n";
-		}
-	else {
-		# Start and left are disabled
-		$rv .= "<img src=@{[&get_webprefix()]}/images/first-grey.gif border=0 align=middle>\n";
-		$rv .= "<img src=@{[&get_webprefix()]}/images/left-grey.gif border=0 align=middle>\n";
-		}
-	$rv .= &text('ui_paging', $start+1, $end+1, $origsize);
-	if ($end < $origsize-1) {
-		# Add right and end arrows
-		my $rurl = $self->make_url(undef, undef, undef, $page+1);
-		$rv .= "<a href='$rurl'><img src=@{[&get_webprefix()]}/images/right.gif border=0 align=middle></a>\n";
-		my $eurl = $self->make_url(undef, undef, undef, $lastpage);
-		$rv .= "<a href='$eurl'><img src=@{[&get_webprefix()]}/images/last.gif border=0 align=middle></a>\n";
-		}
-	else {
-		# Right and end are disabled
-		$rv .= "<img src=@{[&get_webprefix()]}/images/right-grey.gif border=0 align=middle>\n";
-		$rv .= "<img src=@{[&get_webprefix()]}/images/last-grey.gif border=0 align=middle>\n";
-		}
-	$rv .= "</center>\n";
-	}
-
-# Create actual table
-if (@srows) {
-	$rv .= $links;
-	$rv .= &ui_columns_start(\@sheadings, $self->{'width'}, 0, \@tds);
-	foreach my $r (@srows) {
-		my @row;
-		for(my $i=0; $i<@$r || $i<@sheadings; $i++) {
-			if (ref($r->[$i]) eq "ARRAY") {
-				my $j = $r->[$i]->[0] &&
-					$r->[$i]->[0]->isa("WebminUI::TableAction")
-					? "&nbsp;|&nbsp;" : "&nbsp;";
-				$row[$i] = $selmap{$r,$i}.
-				  join($j, map { ref($_) ? $_->html() : $_ }
-						     @{$r->[$i]});
-				}
-			elsif (ref($r->[$i])) {
-				$row[$i] = $selmap{$r,$i}.$r->[$i]->html();
-				}
-			else {
-				$row[$i] = $selmap{$r,$i}.$r->[$i];
-				}
-			}
-		$rv .= &ui_columns_row(\@row, \@tds);
-		}
-	$rv .= &ui_columns_end();
-	}
-elsif ($self->{'emptymsg'}) {
-	$rv .= $self->{'emptymsg'}."<p>\n";
-	}
-$rv .= $links;
-$rv .= $inputs;
-return $rv;
-}
-
-=head2 set_form(form)
-Called by the WebminUI::Form object when this table is added to it
-=cut
-sub set_form
-{
-my ($self, $form) = @_;
-$self->{'form'} = $form;
-foreach my $i ($self->list_inputs()) {
-	$i->set_form($form);
-	}
-}
-
-=head2 set_sorter(function, [column])
-Sets a function used for sorting fields. Will be called with two field values to
-compare, and a column number.
-=cut
-sub set_sorter
-{
-my ($self, $func, $col) = @_;
-if (defined($col)) {
-	$self->{'sorter'}->[$col] = $func;
-	}
-else {
-	$self->{'sorter'} = [ map { $func } @{$self->{'headings'}} ];
-	}
-}
-
-=head2 default_sorter(value1, value2, col)
-=cut
-sub default_sorter
-{
-my ($value1, $value2, $col) = @_;
-if (ref($value1) && $value1->isa("WebminUI::TableAction")) {
-	$value1 = $value1->get_value();
-	$value2 = $value2->get_value();
-	}
-return lc($value1) cmp lc($value2);
-}
-
-=head2 numeric_sorter(value1, value2, col)
-=cut
-sub numeric_sorter
-{
-my ($value1, $value2, $col) = @_;
-return $value1 <=> $value2;
-}
-
-=head2 set_sortable(column, sortable?)
-Tells the table if some column should allow sorting or not. By default, all are.
-=cut
-sub set_sortable
-{
-my ($self, $col, $sortable) = @_;
-$self->{'sortable'}->[$col] = $sortable;
-}
-
-=head2 set_all_sortable(sortable?)
-Enabled or disables sorting for all columns
-=cut
-sub set_all_sortable
-{
-my ($self, $sortable) = @_;
-$self->{'sortable'} = [ map { $sortable } @{$self->{'headings'}} ];
-}
-
-=head2 get_sortcolumn()
-Returns the column to sort on and the order (1 for descending), or undef for none
-=cut
-sub get_sortcolumn
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-my $name = $self->get_name();
-if ($in && defined($in->{"ui_sortcolumn_".$name})) {
-	return ( $in->{"ui_sortcolumn_".$name},
-		 $in->{"ui_sortdir_".$name} );
-	}
-else {
-	return ( $self->{'sortcolumn'}, $self->{'sortdir'} );
-	}
-}
-
-=head2 set_sortcolumn(num, descending?)
-Sets the default column on which sorting will be done, unless overridden by
-the user.
-=cut
-sub set_sortcolumn
-{
-my ($self, $col, $desc) = @_;
-$self->{'sortcolumn'} = $col;
-$self->{'sortdir'} = $desc;
-}
-
-=head2 get_paging()
-Returns 1 if page-by-page display should be used
-=cut
-sub get_paging
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-my $name = $self->get_name();
-if ($in && defined($in->{"ui_paging_".$name})) {
-	return ( $in->{"ui_paging_".$name} );
-	}
-else {
-	return ( $self->{'paging'} );
-	}
-}
-
-=head2 set_paging(paging?)
-Turns page-by-page display of the table on or off
-=cut
-sub set_paging
-{
-my ($self, $paging) = @_;
-$self->{'paging'} = $paging;
-}
-
-sub set_name
-{
-my ($self, $name) = @_;
-$self->{'name'} = $name;
-}
-
-=head2 get_name()
-Returns the name for identifying this table in HTML
-=cut
-sub get_name
-{
-my ($self) = @_;
-if (defined($self->{'name'})) {
-	return $self->{'name'};
-	}
-elsif ($self->{'form'}) {
-	my $secs = $self->{'form'}->{'sections'};
-	for(my $i=0; $i<@$secs; $i++) {
-		return "table".$i if ($secs->[$i] eq $self);
-		}
-	}
-return "table";
-}
-
-sub set_headings
-{
-my ($self, $headings) = @_;
-$self->{'headings'} = $headings;
-}
-
-sub get_headings
-{
-my ($self) = @_;
-return $self->{'headings'};
-}
-
-=head2 set_selector(column, input)
-Takes a WebminUI::Checkboxes or WebminUI::Radios object, and uses it to add checkboxes
-in the specified column.
-=cut
-sub set_selector
-{
-my ($self, $col, $input) = @_;
-$self->{'selectcolumn'} = $col;
-$self->{'selectinput'} = $input;
-$input->set_form($form);
-}
-
-=head2 get_selector()
-Returns the UI element used for selecting rows
-=cut
-sub get_selector
-{
-my ($self) = @_;
-return wantarray ? ( $self->{'selectinput'}, $self->{'selectcolumn'} )
-		 : $self->{'selectinput'};
-}
-
-=head2 set_widths(&widths)
-Given an array reference of widths (like 50 or 20%), uses them for the columns
-in the table.
-=cut
-sub set_widths
-{
-my ($self, $widths) = @_;
-$self->{'widths'} = $widths;
-}
-
-=head2 set_width([number|number%])
-Sets the width of this entire table. Can be called with 100%, 500 or undef to use
-the minimum possible width.
-=cut
-sub set_width
-{
-my ($self, $width) = @_;
-$self->{'width'} = $width;
-}
-
-=head2 set_aligns(&aligns)
-Given an array reference of horizontal alignments (like left or right), uses them
-for the columns in the table.
-=cut
-sub set_aligns
-{
-my ($self, $aligns) = @_;
-$self->{'aligns'} = $aligns;
-}
-
-=head2 validate()
-Validates all inputs, and returns a list of error messages
-=cut
-sub validate
-{
-my ($self) = @_;
-my $seli = $self->{'selectinput'};
-my @errs;
-if ($seli) {
-	push(@errs, map { [ $seli->get_name(), $_ ] } $seli->validate());
-	}
-foreach my $i ($self->list_inputs()) {
-	foreach my $e ($i->validate()) {
-		push(@errs, [ $i->get_name(), $e ]);
-		}
-	}
-return @errs;
-}
-
-=head2 get_value(input-name)
-Returns the value of the input with the given name.
-=cut
-sub get_value
-{
-my ($self, $name) = @_;
-if ($self->{'selectinput'} && $self->{'selectinput'}->get_name() eq $name) {
-	return $self->{'selectinput'}->get_value();
-	}
-foreach my $i ($self->list_inputs()) {
-	if ($i->get_name() eq $name) {
-		return $i->get_value();
-		}
-	}
-return undef;
-}
-
-=head2 list_inputs()
-Returns all inputs in all form sections
-=cut
-sub list_inputs
-{
-my ($self) = @_;
-my @rv = @{$self->{'inputs'}};
-push(@rv, $self->{'selectinput'}) if ($self->{'selectinput'});
-return @rv;
-}
-
-=head2 set_searchmax(num, [message])
-Sets the maximum number of table rows to display before showing a search form
-=cut
-sub set_searchmax
-{
-my ($self, $searchmax, $searchmsg) = @_;
-$self->{'searchmax'} = $searchmax;
-$self->{'searchmsg'} = $searchmsg;
-}
-
-sub get_searchmax
-{
-my ($self) = @_;
-return $self->{'searchmax'};
-}
-
-sub get_searchmsg
-{
-my ($self) = @_;
-return $self->{'searchmsg'};
-}
-
-=head2 add_link(link, message)
-Adds a link to the table, for example for adding a new entry
-=cut
-sub add_link
-{
-my ($self, $link, $msg) = @_;
-push(@{$self->{'links'}}, [ $link, $msg ]);
-}
-
-=head2 add_input(input)
-Adds some input to be displayed at the bottom of the table
-=cut
-sub add_input
-{
-my ($self, $input) = @_;
-push(@{$self->{'inputs'}}, $input);
-$input->set_form($self->{'form'});
-}
-
-=head2 set_emptymsg(message)
-Sets the message to display when the table is empty
-=cut
-sub set_emptymsg
-{
-my ($self, $emptymsg) = @_;
-$self->{'emptymsg'} = $emptymsg;
-}
-
-=head2 set_heading(text)
-Sets the heading text to appear above the table
-=cut
-sub set_heading
-{
-my ($self, $heading) = @_;
-$self->{'heading'} = $heading;
-}
-
-sub get_heading
-{
-my ($self) = @_;
-return $self->{'heading'};
-}
-
-=head2 set_pagesize(pagesize)
-Sets the size of a page. Set to 0 to turn off completely.
-=cut
-sub set_pagesize
-{
-my ($self, $pagesize) = @_;
-$self->{'pagesize'} = $pagesize;
-}
-
-=head2 get_pagesize()
-Returns the size of a page, or 0 if paging is turned off totally
-=cut
-sub get_pagesize
-{
-my ($self) = @_;
-return $self->{'pagesize'};
-}
-
-sub get_pagepos
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-my $name = $self->get_name();
-if ($in && defined($in->{"ui_pagepos_".$name})) {
-	return ( $in->{"ui_pagepos_".$name} );
-	}
-else {
-	return ( $self->{'pagepos'} );
-	}
-}
-
-=head2 make_url(sortcol, sortdir, paging, page, [no-searchargs], [no-pagearg])
-Returns a link to this table's page, with the defaults for the various state
-fields overridden by the parameters (where defined)
-=cut
-sub make_url
-{
-my ($self, $newsortcol, $newsortdir, $newpaging, $newpagepos,
-    $nosearch, $nopage) = @_;
-my ($sortcol, $sortdir) = $self->get_sortcolumn();
-$sortcol = $newsortcol if (defined($newsortcol));
-$sortdir = $newsortdir if (defined($newsortdir));
-my $paging = $self->get_paging();
-$paging = $newpaging if (defined($newpaging));
-my $pagepos = $self->get_pagepos();
-$pagepos = $newpagepos if (defined($newpagepos));
-
-my $thisurl = $self->{'form'}->{'page'}->get_myurl();
-my $name = $self->get_name();
-$thisurl .= $thisurl =~ /\?/ ? "&" : "?";
-my $in = $self->{'form'}->{'in'};
-return "${thisurl}ui_sortcolumn_${name}=$sortcol".
-       "&ui_sortdir_${name}=$sortdir".
-       "&ui_paging_${name}=$paging".
-       ($nopage ? "" : "&ui_pagepos_${name}=$pagepos").
-       ($nosearch ? "" : "&ui_searchfor_${name}=".
-			 &urlize($in->{"ui_searchfor_${name}"}).
-			 "&ui_searchcol_${name}=".
-			 &urlize($in->{"ui_searchcol_${name}"}));
-}
-
-1;
-

WebminUI/TableAction.pm

@@ -1,92 +0,0 @@
-package WebminUI::TableAction;
-use WebminCore;
-
-=head2 new WebminUI::TableAction(cgi, label, &args, disabled)
-An object of this class can be added to a table or properties object to create
-a link or action button of some kind.
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::TableAction::new) &&
-    caller() !~ /WebminUI::Theme::TableAction/) {
-        return new WebminUI::Theme::TableAction(@_[1..$#_]);
-        }
-my ($self, $cgi, $value, $args, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_value($value);
-$self->set_cgi($cgi);
-$self->set_args($args) if (defined($args));
-$self->set_disabled($disabled) if (defined($disabled));
-return $self;
-}
-
-sub html
-{
-my ($self) = @_;
-my $rv;
-if ($self->get_disabled()) {
-	$rv .= "<u><i>".$self->get_value()."</i></u>";
-	}
-else {
-	my $link = $self->get_cgi();
-	my $i = 0;
-	foreach my $a (@{$self->get_args()}) {
-		$link .= ($i++ ? "&" : "?");
-		$link .= &urlize($a->[0])."=".&urlize($a->[1]);
-		}
-	$rv .= "<a href='$link'>".$self->get_value()."</a>";
-	}
-return $rv;
-}
-
-sub set_value
-{
-my ($self, $value) = @_;
-$self->{'value'} = $value;
-}
-
-sub get_value
-{
-my ($self) = @_;
-return $self->{'value'};
-}
-
-sub set_cgi
-{
-my ($self, $cgi) = @_;
-$self->{'cgi'} = $cgi;
-}
-
-sub get_cgi
-{
-my ($self) = @_;
-return $self->{'cgi'};
-}
-
-sub set_args
-{
-my ($self, $args) = @_;
-$self->{'args'} = $args;
-}
-
-sub get_args
-{
-my ($self) = @_;
-return $self->{'args'};
-}
-
-sub set_disabled
-{
-my ($self, $disabled) = @_;
-$self->{'disabled'} = $disabled;
-}
-
-sub get_disabled
-{
-my ($self) = @_;
-return $self->{'disabled'};
-}
-
-1;
-

WebminUI/Tabs.pm

@@ -1,142 +0,0 @@
-package WebminUI::Tabs;
-use WebminCore;
-
-=head2 new WebminUI::Tabs([&tabs])
-Displayed at the top of a page, to allow selection of various pages
-=cut
-sub new
-{
-my ($self, $tabs) = @_;
-if (defined(&WebminUI::Theme::Tabs::new)) {
-        return new WebminUI::Theme::Tabs(@_[1..$#_]);
-        }
-$self = { 'tabs' => [ ],
-	  'tab' => 0 };
-bless($self);
-$self->set_tabs($tabs) if (defined($tabs));
-return $self;
-}
-
-=head2 add_tab(name, link)
-=cut
-sub add_tab
-{
-my ($self, $name, $link) = @_;
-push(@{$self->{'tabs'}}, [ $name, $link ]);
-}
-
-=head2 html()
-Returns the HTML for the top of the page
-=cut
-sub top_html
-{
-my ($self) = @_;
-my $rv;
-$rv .= "<table border=0 cellpadding=0 cellspacing=0 width=100% height=20><tr>";
-$rv .= "<td valign=bottom>";
-$rv .= "<table border=0 cellpadding=0 cellspacing=0 height=20><tr>";
-my $i = 0;
-my ($high, $low) = ("#cccccc", "#9999ff");
-my ($lowlc, $lowrc) = ( "/images/lc1.gif", "/images/rc1.gif" );
-my ($highlc, $highrc) = ( "/images/lc2.gif", "/images/rc2.gif" );
-foreach my $t (@{$self->get_tabs()}) {
-	if ($i == $self->get_tab()) {
-		# This is the selected tab
-		$rv .= "<td valign=top bgcolor=$high>".
-		       "<img src=$highlc alt=\"\"></td>";
-		if ($self->get_link()) {
-			# Link
-			$rv .= "<td bgcolor=$high>&nbsp;".
-			       "<a href=$t->[1]><b>$t->[0]</b></a>&nbsp;</td>";
-			}
-		else {
-			# Don't link
-			$rv .= "<td bgcolor=$high>&nbsp;<b>$t->[0]</b>&nbsp;</td>";
-			}
-		$rv .= "<td valign=top bgcolor=$high>".
-		       "<img src=$highrc alt=\"\"></td>\n";
-		}
-	else {
-		# Not selected
-	    	$rv .= "<td valign=top bgcolor=$low>".
-	    	       "<img src=$lowlc alt=\"\"></td>";
-	    	$rv .= "<td bgcolor=$low>&nbsp;".
-		       "<a href=$t->[1]><b>$t->[0]</b></a>&nbsp;</td>";
-	    	$rv .= "<td valign=top bgcolor=$low>".
-		       "<img src=$lowrc alt=\"\"></td>\n";
-		}
-	$i++;
-	if ($self->{'wrap'} && $i%$self->{'wrap'} == 0) {
-		# New row
-		$rv .= "</tr><tr>";
-		}
-	}
-$rv .= "</tr></table></td>\n";
-$rv .= "</tr></table>\n";
-$rv .= "<table border=1 cellpadding=10 cellspacing=0 width=100%><tr><td>\n";
-return $rv;
-}
-
-=head2 bottom_html()
-Returns the HTML for the bottom of the page
-=cut
-sub bottom_html
-{
-my ($self) = @_;
-my $rv = "</td></tr></table>\n";
-return $rv;
-}
-
-=head2 set_tab(number|link)
-Sets the tab that is currently highlighted
-=cut
-sub set_tab
-{
-my ($self, $tab) = @_;
-if ($tab =~ /^\d+$/) {
-	$self->{'tab'} = $tab;
-	}
-else {
-	for(my $i=0; $i<@{$self->{'tabs'}}; $i++) {
-		if ($self->{'tabs'}->[$i]->[1] eq $tab) {
-			$self->{'tab'} = $i;
-			}
-		}
-	}
-}
-
-sub get_tab
-{
-my ($self) = @_;
-return $self->{'tab'};
-}
-
-=head2 set_link(link)
-If called with a non-zero parameter, even the highlighted tab will be a link
-=cut
-sub set_link
-{
-my ($self, $link) = @_;
-$self->{'link'} = $link;
-}
-
-sub get_link
-{
-my ($self) = @_;
-return $self->{'link'};
-}
-
-sub set_tabs
-{
-my ($self, $tabs) = @_;
-$self->{'tabs'} = $tabs;
-}
-
-sub get_tabs
-{
-my ($self) = @_;
-return $self->{'tabs'};
-}
-
-1;
-

WebminUI/Textarea.pm

@@ -1,122 +0,0 @@
-package WebminUI::Textarea;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Textarea(name, value, rows, cols, [wrap], [disabled])
-Create a new text box, with the given size
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Textarea::new)) {
-        return new WebminUI::Theme::Textarea(@_[1..$#_]);
-        }
-my ($self, $name, $value, $rows, $cols, $wrap, $disabled) = @_;
-$self = { };
-bless($self);
-$self->set_name($name);
-$self->set_value($value);
-$self->set_rows($rows);
-$self->set_cols($cols);
-$self->set_disabled($disabled);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this text area
-=cut
-sub html
-{
-my ($self) = @_;
-return &ui_textarea($self->get_name(), $self->get_value(),
-			  $self->get_rows(), $self->get_cols(),
-			  $self->get_wrap(), $self->get_disabled());
-}
-
-sub set_rows
-{
-my ($self, $rows) = @_;
-$self->{'rows'} = $rows;
-}
-
-sub get_rows
-{
-my ($self) = @_;
-return $self->{'rows'};
-}
-
-sub set_cols
-{
-my ($self, $cols) = @_;
-$self->{'cols'} = $cols;
-}
-
-sub get_cols
-{
-my ($self) = @_;
-return $self->{'cols'};
-}
-
-sub set_wrap
-{
-my ($self, $wrap) = @_;
-$self->{'wrap'} = $wrap;
-}
-
-sub get_wrap
-{
-my ($self) = @_;
-return $self->{'wrap'};
-}
-
-sub set_validation_func
-{
-my ($self, $func) = @_;
-$self->{'validation_func'} = $func;
-}
-
-=head2 set_validation_regexp(regexp, message)
-=cut
-sub set_validation_regexp
-{
-my ($self, $regexp, $message) = @_;
-$self->{'validation_regexp'} = $regexp;
-$self->{'validation_message'} = $message;
-}
-
-=head2 validate()
-Returns a list of error messages for this field
-=cut
-sub validate
-{
-my ($self) = @_;
-my $value = $self->get_value();
-if ($self->{'mandatory'} && $value eq '') {
-	return ( $self->{'mandmesg'} || $text{'ui_mandatory'} );
-	}
-if ($self->{'validation_func'}) {
-	my $err = &{$self->{'validation_func'}}($value, $self->{'name'},
-						$self->{'form'});
-	return ( $err ) if ($err);
-	}
-if ($self->{'validation_regexp'}) {
-	if ($value !~ /$self->{'validation_regexp'}/) {
-		return ( $self->{'validation_message'} );
-		}
-	}
-return ( );
-}
-
-=head2 get_value()
-Returns the value, without any \r characters
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $rv = WebminUI::Input::get_value($self);
-$rv =~ s/\r//g;
-return $rv;
-}
-
-1;
-

WebminUI/Textbox.pm

@@ -1,80 +0,0 @@
-package WebminUI::Textbox;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Textbox(name, value, [size], [disabled])
-Create a new text input field
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Textbox::new)) {
-        return new WebminUI::Theme::Textbox(@_[1..$#_]);
-        }
-my ($self, $name, $value, $size, $disabled) = @_;
-$self = { 'size' => 30 };
-bless($self);
-$self->{'name'} = $name;
-$self->{'value'} = $value;
-$self->{'size'} = $size if ($size);
-$self->set_disabled($disabled) if (defined($disabled));
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this text input
-=cut
-sub html
-{
-my ($self) = @_;
-return &ui_textbox($self->get_name(), $self->get_value(),
-			 $self->{'size'},
-			 $self->{'$disabled'});
-}
-
-sub set_size
-{
-my ($self, $size) = @_;
-$self->{'size'} = $size;
-}
-
-sub set_validation_func
-{
-my ($self, $func) = @_;
-$self->{'validation_func'} = $func;
-}
-
-=head2 set_validation_regexp(regexp, message)
-=cut
-sub set_validation_regexp
-{
-my ($self, $regexp, $message) = @_;
-$self->{'validation_regexp'} = $regexp;
-$self->{'validation_message'} = $message;
-}
-
-=head2 validate()
-Returns a list of error messages for this field
-=cut
-sub validate
-{
-my ($self) = @_;
-my $value = $self->get_value();
-if ($self->{'mandatory'} && $value eq '') {
-	return ( $self->{'mandmesg'} || $text{'ui_mandatory'} );
-	}
-if ($self->{'validation_func'}) {
-	my $err = &{$self->{'validation_func'}}($value, $self->{'name'},
-						$self->{'form'});
-	return ( $err ) if ($err);
-	}
-if ($self->{'validation_regexp'}) {
-	if ($value !~ /$self->{'validation_regexp'}/) {
-		return ( $self->{'validation_message'} );
-		}
-	}
-return ( );
-}
-
-1;
-

WebminUI/Time.pm

@@ -1,168 +0,0 @@
-package WebminUI::Time;
-use WebminUI::Input;
-use Time::Local;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Time(name, time, [disabled])
-Create a new field for selecting a time
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Time::new)) {
-        return new WebminUI::Theme::Time(@_[1..$#_]);
-        }
-my ($self, $name, $value, $disabled) = @_;
-bless($self = { });
-$self->set_name($name);
-$self->set_value($value);
-$self->set_disabled($disabled) if (defined($disabled));
-return $self;
-}
-
-=head2 html()
-Returns the HTML for the time chooser
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-my $val = $self->get_value();
-my $hour = ($val/3600) % 24;
-my $min = ($val/60) % 60;
-my $sec = ($val/1) % 60;
-my $name = $self->get_name();
-$rv .= &ui_textbox("hour_".$name, pad2($hour), 2,$self->get_disabled()).":".
-       &ui_textbox("min_".$name, pad2($min), 2, $self->get_disabled()).":".
-       &ui_textbox("sec_".$name, pad2($sec), 2, $self->get_disabled());
-return $rv;
-}
-
-sub pad2
-{
-return $_[0] < 10 ? "0".$_[0] : $_[0];
-}
-
-sub set_value
-{
-my ($self, $value) = @_;
-$self->{'value'} = timegm(localtime($value));
-}
-
-=head2 get_value()
-Returns the date as a Unix time number (for 1st jan 1970)
-=cut
-sub get_value
-{
-my ($self) = @_;
-my $in = $self->{'form'} ? $self->{'form'}->{'in'} : undef;
-if ($in && defined($in->{"hour_".$self->{'name'}})) {
-	my $rv = $self->to_time($in);
-	return defined($rv) ? $rv : $self->{'value'};
-	}
-elsif ($in && defined($in->{"ui_value_".$self->{'name'}})) {
-	return $in->{"ui_value_".$self->{'name'}};
-	}
-else {
-	return $self->{'value'};
-	}
-}
-
-sub to_time
-{
-my ($self, $in) = @_;
-my $hour = $in->{"hour_".$self->{'name'}};
-return undef if ($hour !~ /^\d+$/ || $hour < 0 || $hour > 23);
-my $min = $in->{"min_".$self->{'name'}};
-return undef if ($min !~ /^\d+$/ || $min < 0 || $min > 59);
-my $sec = $in->{"sec_".$self->{'name'}};
-return undef if ($sec !~ /^\d+$/ || $sec < 0 || $sec > 59);
-return $hour*60*60 + $min*60 + $sec;
-}
-
-sub set_validation_func
-{
-my ($self, $func) = @_;
-$self->{'validation_func'} = $func;
-}
-
-=head2 validate()
-Ensures that the date is valid
-=cut
-sub validate
-{
-my ($self) = @_;
-my $tm = $self->to_time($self->{'form'}->{'in'});
-if (!defined($tm)) {
-	return ( $text{'ui_etime'} );
-	}
-if ($self->{'validation_func'}) {
-	my $err = &{$self->{'validation_func'}}($self->get_value(),
-					        $self->{'name'},
-						$self->{'form'});
-	return ( $err ) if ($err);
-	}
-return ( );
-}
-
-=head2 set_auto(auto?)
-If set to 1, the time will be automatically incremented by Javascript
-=cut
-sub set_auto
-{
-my ($self, $auto) = @_;
-$self->{'auto'} = $auto;
-if ($auto) {
-	# XXX incorrect!!
-	my $formno = $self->{'form'}->get_formno();
-	$self->{'form'}->add_onload("F=[0]; timeInit(F); setTimeout(\"timeUpdate(F)\", 5000)");
-	my $as = $autoscript;
-	$as =~ s/NAME/$self->{'name'}/g;
-	$self->{'form'}->add_script($as);
-	}
-}
-
-$autoscript = <<EOF;
-function timeInit(F) {
-        secs = new Array();
-        mins = new Array();
-        hours = new Array();
-        for(i=0; i<F.length; i++){
-                secs[i]  = document.forms[F[i]].sec_NAME;
-                mins[i]  = document.forms[F[i]].min_NAME;
-                hours[i] = document.forms[F[i]].hour_NAME;
-		}
-}
-function timeUpdate(F) {
-        for(i=0; i<F.length; i++){
-                s = parseInt(secs[i].value);
-                s = s ? s : 0;
-                s = s+5;
-                if( s>59 ){
-                        s -= 60;
-                        m = parseInt(mins[i].value);
-                        m= m ? m : 0;
-                        m+=1;
-                        if( m>59 ){
-                                m -= 60;
-                                h = parseInt(hours[i].value);
-                                h = h ? h : 0;
-                                h+=1;
-                                if( h>23 ){
-                                        h -= 24;
-                                }
-                                hours[i].value  = packNum(h);
-                        }
-                        mins[i].value  = packNum(m);
-                }
-        secs[i].value = packNum(s);
-	}
-        setTimeout('timeUpdate(F)', 5000);
-}
-function packNum(t) {
-        return (t < 10 ? '0'+t : t);
-}
-EOF
-
-1;
-

WebminUI/TitleList.pm

@@ -1,101 +0,0 @@
-package WebminUI::TitleList;
-use WebminCore;
-
-=head2 new WebminUI::TitleList(title, &links, [alt-text])
-Generates a title with a list of links under it
-=cut
-sub new
-{
-my ($self, $title, $links, $alt) = @_;
-if (defined(&WebminUI::Theme::TitleList::new)) {
-        return new WebminUI::Theme::TitleList(@_[1..$#_]);
-        }
-$self = { };
-bless($self);
-$self->set_title($title);
-$self->set_links($links);
-$self->set_alt($alt) if (defined($alt));
-return $self;
-}
-
-=head2 html()
-Returns the list
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv;
-if (defined(&ui_subheading)) {
-	$rv .= &ui_subheading($self->get_title());
-	}
-else {
-	$rv .= "<h3>".$self->get_title()."</h3>\n";
-	}
-$rv .= "<hr>\n";
-foreach my $l (@{$self->get_links()}) {
-	if ($l->[1]) {
-		$rv .= "<a href='$l->[1]'>$l->[0]</a><br>\n";
-		}
-	else {
-		$rv .= $l->[0]."<br>\n";
-		}
-	}
-return $rv;
-}
-
-sub set_title
-{
-my ($self, $title) = @_;
-$self->{'title'} = $title;
-}
-
-sub get_title
-{
-my ($self) = @_;
-return $self->{'title'};
-}
-
-sub set_links
-{
-my ($self, $links) = @_;
-$self->{'links'} = $links;
-}
-
-sub get_links
-{
-my ($self) = @_;
-return $self->{'links'};
-}
-
-sub set_alt
-{
-my ($self, $alt) = @_;
-$self->{'alt'} = $alt;
-}
-
-sub get_alt
-{
-my ($self) = @_;
-return $self->{'alt'};
-}
-
-=head2 add_link(name, link)
-Adds a link to be displayed in the list
-=cut
-sub add_link
-{
-my ($self, $name, $link) = @_;
-push(@{$self->{'links'}}, [ $name, $link ]);
-}
-
-=head2 set_page(WebminUI::Page)
-Called when this menu is added to a page
-=cut
-sub set_page
-{
-my ($self, $page) = @_;
-$self->{'page'} = $page;
-}
-
-1;
-

WebminUI/Upload.pm

@@ -1,77 +0,0 @@
-package WebminUI::Upload;
-use WebminUI::Input;
-use WebminCore;
-@ISA = ( "WebminUI::Input" );
-
-=head2 new WebminUI::Upload(name, [size])
-Create a new file upload field
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::Upload::new)) {
-        return new WebminUI::Theme::Upload(@_[1..$#_]);
-        }
-my ($self, $name, $size) = @_;
-$self = { 'size' => 30 };
-bless($self);
-$self->{'name'} = $name;
-$self->{'size'} = $size if ($size);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this text input
-=cut
-sub html
-{
-my ($self) = @_;
-return &ui_upload($self->get_name(), $self->{'size'},
-			$self->{'$disabled'});
-}
-
-sub set_size
-{
-my ($self, $size) = @_;
-$self->{'size'} = $size;
-}
-
-sub set_validation_func
-{
-my ($self, $func) = @_;
-$self->{'validation_func'} = $func;
-}
-
-=head2 set_validation_regexp(regexp, message)
-=cut
-sub set_validation_regexp
-{
-my ($self, $regexp, $message) = @_;
-$self->{'validation_regexp'} = $regexp;
-$self->{'validation_message'} = $message;
-}
-
-=head2 validate()
-Returns a list of error messages for this field
-=cut
-sub validate
-{
-my ($self) = @_;
-my $value = $self->get_value();
-if ($self->{'mandatory'} && $value eq '') {
-	return ( $self->{'mandmesg'} || $text{'ui_mandatory'} );
-	}
-if ($self->{'validation_func'}) {
-	my $err = &{$self->{'validation_func'}}($value, $self->{'name'},
-						$self->{'in'});
-	return ( $err ) if ($err);
-	}
-if ($self->{'validation_regexp'}) {
-	if ($value !~ /$self->{'validation_regexp'}/) {
-		return ( $self->{'validation_message'} );
-		}
-	}
-return ( );
-}
-
-1;
-

WebminUI/User.pm

@@ -1,57 +0,0 @@
-package WebminUI::User;
-use WebminUI::Textbox;
-use WebminCore;
-@ISA = ( "WebminUI::Textbox" );
-
-=head2 new WebminUI::User(name, value, [multiple], [disabled])
-A text box for entering or selecting one or many Unix usernames
-=cut
-sub new
-{
-if (defined(&WebminUI::Theme::User::new)) {
-        return new WebminUI::Theme::User(@_[1..$#_]);
-        }
-my ($self, $name, $value, $multiple, $disabled) = @_;
-$self = new WebminUI::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
-bless($self);
-$self->set_multiple($multiple);
-return $self;
-}
-
-=head2 html()
-Returns the HTML for this user input
-=cut
-sub html
-{
-my ($self) = @_;
-my $rv = WebminUI::Textbox::html($self);
-my $name = $self->get_name();
-my $multiple = $self->get_multiple();
-local $w = $multiple ? 500 : 300;
-$rv .= "&nbsp;<input type=button name=${name}_button onClick='ifield = form.$name; chooser = window.open(\"@{[&get_webprefix()]}/user_chooser.cgi?multi=$multiple&user=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=$w,height=200\"); chooser.ifield = ifield; window.ifield = ifield' value=\"...\">\n";
-return $rv;
-}
-
-sub set_multiple
-{
-my ($self, $multiple) = @_;
-$self->{'multiple'} = $multiple;
-}
-
-sub get_multiple
-{
-my ($self) = @_;
-return $self->{'multiple'};
-}
-
-=head2 get_input_names()
-Returns the actual names of all HTML elements that make up this input
-=cut
-sub get_input_names
-{
-my ($self) = @_;
-return ( $self->{'name'}, $self->{'name'}."_button" );
-}
-
-1;
-

acl/CHANGELOG

@@ -1,68 +0,0 @@
----- Changes since 1.130 ----
-Improved the code for finding the openssl program for generating certificates.
-Added the ability to restrict allowed Unix users who can login as Webmin users.
----- Changes since 1.150 ----
-Added a Module Config option for an alternate user and group list display, which takes up less space on systems with a large number of Webmin users.
----- Changes since 1.160 ----
-When editing a Webmin user or group, modules are now displayed under category headings.
----- Changes since 1.170 ----
-Added a button to the user editing page for switching the current Webmin login to that user, without needing to know his password.
----- Changes since 1.180 ----
-Added module hiding button to the group page, as in the user page.
----- Changes since 1.190 ----
-Users and groups can now be backed up using the Backup Configuration Files module.
----- Changes since 1.200 ----
-Users and groups with the same name can now be created. Internally, Webmin now uses .gacl files instead of .acl to store group ACL settings.
----- Changes since 1.210 ----
-Enhanced the  Unix User Authentication page to allow different access to be granted to different users and group members.
----- Changes since 1.220 ----
-Users can now be temporarily locked without their passwords being lost.
----- Changes since 1.230 ----
-CIDR-format network addresses can now be used in the IP access control field.
-The inactivity logout time can now be set on a per-Webmin user basis, rather than the global setting in the Webmin Configuration module applying to all users.
----- Changes since 1.250 ----
-Added checkboxes and buttons on the module's main page for deleting several users and groups at once.
-Webmin users created and managed by other modules can be marked as non-editable, to prevent them from being edited when any changes would be over-written.
-The IP addresses of connected users are displayed on the sessions page.
----- Changes since 1.260 ----
-Added the ability to control which hours of the day and days of the week a Webmin user can login.
----- Changes since 1.290 ----
-Added an option on the Unix User Authentication page to allow Unix users who can sudo to root to login to Webmin with root privileges.
-Added an option to the Unix User Authentication that lets users who pass PAM validation but have no Unix or Webmin account login as a selected Webmin user.
----- Changes since 1.330 ----
-When a group is deleted, sub-groups are also removed, and the group is removed from any parents.
----- Changes since 1.360 ----
-Added the Password Restrictions page, for configuring password quality and change time settings.
-Re-designed the Edit User page to use the new Webmin UI library, and move lesser-used fields into collapsible sections.
-Webmin users can have a real name, which can be any text you like.
----- Changes since 1.370 ----
-When editing a user who inherits some modules and ACL settings from a group, they can no longer be de-selected or edited.
----- Changes since 1.380 ----
-Fixed a bug that prevented cloning from copying detailed access control settings, and ensured that other user attributes like the group, theme, language and access times are cloned too.
-Added back the ability to edit the global ACL for groups.
----- Changes since 1.390 ----
-Updated the user interface to use the Webmin UI library.
----- Changes since 1.400 ----
-Fixed the display of modules granted to groups.
-Added a per-user option to opt out of forced password changes after a certain number of days.
-A human-readable description of the password restrictions regular expression can be entered, for use in error messages.
-Webmin users can now be given temporary passwords, which they are forced to change at the next login. Thanks to GE Medical Systems for supporting this feature.
----- Changes since 1.410 ----
-Added an API function to allow easier anonymous module access setup.
----- Changes since 1.440 ----
-Removed the Hide Unused button and associated functionality, as un-available modules are already automatically hidden in the Un-used Modules category.
-Moved the 'global ACL' fields to the Edit User and Edit Group pages, so that restrictions applying to all modules can be more easily found and edited.
-Added a per-user option to not grant that user new module permissions when Webmin is upgraded.
-If any theme overlays are installed, users' overlays can be selected on the Edit User page.
-Converted commands in the module's API file to POD format, and added more details about each function.
----- Changes since 1.520 ----
-Added the User and Group Database page, for configuring Webmin to store all new users, groups and access control lists in a MySQL, PostgreSQL or LDAP database. This allows Webmin permissions to be shared between multiple systems.
----- Changes since 1.650 ----
-Added support for two-factor authentication using Authy or Google Authenticator.
----- Changes since 1.660 ----
-Converted all pages to use the common Webmin UI library for a more consistent interface.
-Made all code Perl strict and warnings compliant.
----- Changes since 1.670 ----
-Added a button for adding multiple Webmin users to a group.
----- Changes since 1.930 ----
-Added support for creating "safe-mode" Webmin users who have access only to modules and permissions that don't grant root access.

acl/acl_security.pl

@@ -1,87 +0,0 @@
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-do 'acl-lib.pl';
-our (%text, %in);
-
-# acl_security_form(&options)
-# Output HTML for editing security options for the acl module
-sub acl_security_form
-{
-my ($o) = @_;
-
-print &ui_table_row($text{'acl_users'},
-	&ui_radio("users_def", $o->{'users'} eq '*' ? 1 :
-			       $o->{'users'} eq '~' ? 2 : 0,
-		  [ [ 1, $text{'acl_uall'} ],
-		    [ 2, $text{'acl_uthis'}."<br>" ],
-		    [ 0, $text{'acl_usel'} ] ])."<br>\n".
-	&ui_select("users", [ split(/\s+/, $o->{'users'}) ],
-		   [ (map { $_->{'name'} } &list_users()),
-		     (map { [ '_'.$_->{'name'},
-			      &text('acl_gr', $_->{'name'}) ] }
-			  &list_groups()) ],
-		   6, 1));
-
-print &ui_table_row($text{'acl_mods'},
-	&ui_radio("mode", $o->{'mode'},
-		  [ [ 0, $text{'acl_all'} ],
-		    [ 1, $text{'acl_own'}."<br>" ],
-		    [ 2, $text{'acl_sel'}."<br>" ] ]).
-	&ui_select("mods", [ split(/\s+/, $o->{'mods'}) ],
-		   [ map { [ $_->{'dir'}, $_->{'desc'} ] }
-			 &list_module_infos() ],
-		   6, 1));
-
-foreach my $f (&list_acl_yesno_fields()) {
-	print &ui_table_row($text{'acl_'.$f},
-		&ui_yesno_radio($f, $o->{$f}));
-	}
-
-print &ui_table_hr();
-
-print &ui_table_row($text{'acl_groups'},
-	&ui_yesno_radio("groups", $o->{'groups'}));
-
-print &ui_table_row($text{'acl_gassign'},
-	&ui_radio("gassign_def", $o->{'gassign'} eq '*' ? 1 : 0,
-		  [ [ 1, $text{'acl_gall'} ],
-		    [ 0, $text{'acl_gsel'} ] ])."<br>\n".
-	&ui_select("gassign", [ split(/\s+/, $o->{'gassign'}) ],
-		   [ map { $_->{'name'} } &list_groups() ],
-		   6, 1));
-}
-
-# acl_security_save(&options)
-# Parse the form for security options for the acl module
-sub acl_security_save
-{
-my ($o) = @_;
-if ($in{'users_def'} == 1) {
-	$o->{'users'} = '*';
-	}
-elsif ($in{'users_def'} == 2) {
-	$o->{'users'} = '~';
-	}
-else {
-	$o->{'users'} = join(" ", split(/\0/, $in{'users'}));
-	}
-$o->{'mode'} = $in{'mode'};
-$o->{'mods'} = $in{'mode'} == 2 ? join(" ", split(/\0/, $in{'mods'}))
-				   : undef;
-foreach my $f (&list_acl_yesno_fields()) {
-	$o->{$f} = $in{$f};
-	}
-$o->{'groups'} = $in{'groups'};
-$o->{'gassign'} = $in{'gassign_def'} ? '*' :
-		     join(" ", split(/\0/, $in{'gassign'}));
-}
-
-sub list_acl_yesno_fields
-{
-return ('create', 'delete', 'rename', 'acl', 'cert', 'others', 'chcert',
-	'lang', 'cats', 'theme', 'ips', 'perms', 'sync', 'unix', 'sessions',
-	'switch', 'times', 'pass', 'sql');
-}

acl/backup_config.pl

@@ -1,108 +0,0 @@
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-require 'acl-lib.pl';
-our ($config_directory, %gconfig);
-
-# backup_config_files()
-# Returns files and directories that can be backed up
-sub backup_config_files
-{
-my @rv;
-
-# Add primary user and group files
-my %miniserv;
-&get_miniserv_config(\%miniserv);
-push(@rv, $miniserv{'userfile'});
-push(@rv, &acl_filename());
-
-# Add all .acl files for users and groups
-foreach my $u (&list_users(), &list_groups()) {
-	if (!$u->{'proto'}) {
-		push(@rv, "$config_directory/$u->{'name'}.acl",
-			  glob("$config_directory/*/$u->{'name'}.acl"));
-		}
-	}
-
-# Add /etc/webmin/config
-&copy_source_dest("$config_directory/config",
-		  "$config_directory/config.aclbackup");
-push(@rv, "$config_directory/config.aclbackup");
-
-# Add /etc/webmin/miniserv.conf
-&copy_source_dest("$config_directory/miniserv.conf",
-		  "$config_directory/miniserv.conf.aclbackup");
-push(@rv, "$config_directory/miniserv.conf.aclbackup");
-
-return @rv;
-}
-
-# pre_backup(&files)
-# Called before the files are actually read
-sub pre_backup
-{
-return undef;
-}
-
-# post_backup(&files)
-# Called after the files are actually read
-sub post_backup
-{
-unlink("$config_directory/config.aclbackup");
-unlink("$config_directory/miniserv.conf.aclbackup");
-return undef;
-}
-
-# pre_restore(&files)
-# Called before the files are restored from a backup
-sub pre_restore
-{
-# Remove user and group .acl files
-foreach my $u (&list_users(), &list_groups()) {
-	if (!$u->{'proto'}) {
-		unlink("$config_directory/$u->{'name'}.acl",
-		       glob("$config_directory/*/$u->{'name'}.acl"));
-		}
-	}
-return undef;
-}
-
-# post_restore(&files)
-# Called after the files are restored from a backup
-sub post_restore
-{
-# Splice global config entries for users into real config
-my %aclbackup;
-&read_file("$config_directory/config.aclbackup", \%aclbackup);
-unlink("$config_directory/config.aclbackup");
-foreach my $k (keys %gconfig) {
-	delete($gconfig{$k}) if ($k =~ /^(lang_|notabs_|theme_|ownmods_)/);
-	}
-foreach my $k (keys %aclbackup) {
-	$gconfig{$k} = $aclbackup{$k} if ($k =~ /^(lang_|notabs_|theme_|ownmods_)/);
-	}
-&write_file("$config_directory/config", \%gconfig);
-
-# Splice miniserv.conf entries for users and password restrictions into
-# real config
-%aclbackup = ( );
-&read_file("$config_directory/miniserv.conf.aclbackup", \%aclbackup);
-unlink("$config_directory/miniserv.conf.aclbackup");
-my %miniserv;
-&get_miniserv_config(\%miniserv);
-foreach my $k (keys %miniserv) {
-	delete($miniserv{$k}) if ($k =~ /^(preroot_|pass_)/);
-	}
-foreach my $k (keys %aclbackup) {
-	$miniserv{$k} = $aclbackup{$k} if ($k =~ /^(preroot_|pass_)/);
-	}
-&put_miniserv_config(\%miniserv);
-
-&restart_miniserv();
-return undef;
-}
-
-1;
-

acl/cert_form.cgi

@@ -1,56 +0,0 @@
-#!/usr/local/bin/perl
-# cert_form.cgi
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-require './acl-lib.pl';
-our (%in, %text, %config, %access);
-&ui_print_header(undef, $text{'cert_title'}, "", undef, undef, undef, undef,
-		 undef, undef, "language=VBSCRIPT onload='postLoad()'");
-eval "use Net::SSLeay";
-
-print "<p>$text{'cert_msg'}<p>\n";
-if ($ENV{'SSL_USER'}) {
-	print &text('cert_already', "<tt>$ENV{'SSL_USER'}</tt>"),
-	      "<p>\n";
-	}
-
-if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/i) {
-	# Output a form that works for netscape and mozilla
-	print &ui_form_start("cert_issue.cgi", "post");
-	print &ui_table_start($text{'cert_header'}, undef, 2);
-
-	print &ui_table_row($text{'cert_cn'},
-		&ui_textbox("commonName", undef, 30));
-
-	print &ui_table_row($text{'cert_email'},
-		&ui_textbox("emailAddress", undef, 30));
-
-	print &ui_table_row($text{'cert_ou'},
-		&ui_textbox("organizationalUnitName", undef, 30));
-
-	print &ui_table_row($text{'cert_o'},
-		&ui_textbox("organizationName", undef, 30));
-
-	print &ui_table_row($text{'cert_sp'},
-		&ui_textbox("stateOrProvinceName", undef, 30));
-
-	print &ui_table_row($text{'cert_c'},
-		&ui_textbox("countryName", undef, 30));
-
-	print &ui_table_row($text{'cert_key'},
-		"<keygen name=key>");
-
-	print &ui_table_end();
-	print &ui_form_end([ [ undef, $text{'cert_issue'} ] ]);
-	}
-else {
-	# Unsupported browser!
-	print "<p><b>",&text('cert_ebrowser',
-			     "<tt>$ENV{'HTTP_USER_AGENT'}</tt>"),"</b><p>\n";
-	}
-
-&ui_print_footer("", $text{'index_return'});
-

acl/cert_issue.cgi

@@ -1,58 +0,0 @@
-#!/usr/local/bin/perl
-# cert_issue.cgi
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-require './acl-lib.pl';
-our (%in, %text, %config, %access, $module_config_directory, $base_remote_user);
-&ReadParse();
-
-&error_setup($text{'cert_err'});
-$in{'key'} || &error($text{'cert_ekey'});
-
-my %miniserv;
-&get_miniserv_config(\%miniserv);
-
-# Create the new key
-my $temp1 = &transname();
-my $temp2 = &tempname();
-my $fh = "IN";
-&open_tempfile($fh, ">$temp1");
-foreach my $k ("emailAddress", "organizationalUnitName", "organizationName",
-	       "stateOrProvinceName", "countryName", "commonName") {
-	&print_tempfile($fh, "$k = $in{$k}\n");
-	}
-$in{'key'} =~ s/\s//g;
-&print_tempfile($fh, "SPKAC = $in{'key'}\n");
-&close_tempfile($fh);
-my $cmd = &get_ssleay();
-my $ssleay = &backquote_logged("$cmd ca -spkac $temp1 -out $temp2 -config $module_config_directory/openssl.cnf -days 1095 2>&1");
-&unlink_file($temp1);
-if ($?) {
-	&error("<pre>$ssleay</pre>");
-	}
-else {
-	# Display status and redirect to actual cert file
-	&ui_print_unbuffered_header(undef, $text{'cert_title'}, "");
-	print &text('cert_done', $in{'commonName'}),"<p>\n";
-	print &text('cert_pickup', "cert_output.cgi?file=$temp2"),"<p>\n";
-	&ui_print_footer("", $text{'index_return'});
-
-	# Update the Webmin user
-	my ($me) = grep { $_->{'name'} eq $base_remote_user } &list_users();
-	$me || &error($text{'edit_egone'});
-	$me->{'cert'} = "/C=$in{'countryName'}".
-			"/ST=$in{'stateOrProvinceName'}".
-			"/O=$in{'organizationName'}".
-			"/OU=$in{'organizationalUnitName'}".
-			"/CN=$in{'commonName'}".
-			"/Email=$in{'emailAddress'}";
-	&modify_user($me->{'name'}, $me);
-
-	sleep(1);
-	&restart_miniserv();
-	&webmin_log("cert", undef, $base_remote_user, \%in);
-	}
-

acl/cert_output.cgi

@@ -1,19 +0,0 @@
-#!/usr/local/bin/perl
-# cert_issue.cgi
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-require './acl-lib.pl';
-our (%in, %text, %config, %access);
-
-&ReadParse();
-my $tempdir = &tempname();
-$tempdir =~ s/\/[^\/]+$//;
-&is_under_directory($tempdir, $in{'file'}) ||
-	&error($text{'cert_etempdir'});
-print "Content-type: application/x-x509-user-cert\n\n";
-print &read_file_contents($in{'file'});
-&unlink_file($in{'file'});
-

acl/cgi_args.pl

@@ -1,31 +0,0 @@
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-do 'acl-lib.pl';
-our (%access);
-
-sub cgi_args
-{
-my ($cgi) = @_;
-if ($cgi eq 'edit_user.cgi') {
-	my ($u) = grep { &can_edit_user($_->{'name'}) } &list_users();
-	return $u ? 'user='.&urlize($u->{'name'}) :
-	       $access{'create'} ? '' : 'none';
-	}
-elsif ($cgi eq 'edit_group.cgi') {
-	my ($u) = grep { &can_edit_group($_->{'name'}) } &list_groups();
-	return $u ? 'group='.&urlize($u->{'name'}) :
-	       $access{'groups'} ? '' : 'none';
-	}
-elsif ($cgi eq 'edit_acl.cgi') {
-	my ($u) = grep { &can_edit_user($_->{'name'}) } &list_users();
-	if ($u && @{$u->{'modules'}}) {
-		return 'user='.&urlize($u->{'name'}).
-		       '&mod='.$u->{'modules'}->[0];
-		}
-	return 'none';
-	}
-return undef;
-}

acl/config

@@ -1,4 +0,0 @@
-ssleay=/usr/local/ssl/bin/openssl
-select=0
-order=0
-display=1

acl/config-ALL-linux

@@ -1,3 +0,0 @@
-ssleay=/usr/bin/openssl
-order=0
-display=1

acl/config-freebsd

@@ -1,3 +0,0 @@
-ssleay=/usr/bin/openssl
-order=0
-display=1

acl/config-macos

@@ -1,3 +0,0 @@
-ssleay=/usr/bin/openssl
-order=0
-display=1

acl/config-netbsd

@@ -1,3 +0,0 @@
-ssleay=/usr/bin/openssl
-order=0
-display=1

acl/config-openbsd

@@ -1,3 +0,0 @@
-ssleay=/usr/bin/openssl
-order=0
-display=1

acl/config-solaris-10-ALL

@@ -1,3 +0,0 @@
-ssleay=/usr/sfw/bin/openssl
-order=0
-display=1

acl/config-syno-linux

@@ -1,4 +0,0 @@
-ssleay=/usr/bin/openssl
-select=0
-order=0
-display=1

acl/config.info

@@ -1,5 +0,0 @@
-line1=Configurable options,11
-display=User and group display mode,1,1-Names only,0-Names and modules
-order=Sort users and groups by,1,0-Order in file,1-Name
-line2=System configuration,11
-ssleay=Path to openssl or ssleay program,3,Automatic

acl/config.info.ar

@@ -1,5 +0,0 @@
-line1=تكوين الخيارات,11
-display=وضع عرض المستخدم والمجموعة,1,1-الأسماء فقط,0-الأسماء والوحدات النمطية
-order=فرز المستخدمين والمجموعات حسب,1,0-الطلب في الملف,1-الإ سم
-line2=تكوين النظام,11
-ssleay=المسار إلى openssl أو برنامج ssleay,3,تلقائي

acl/config.info.bg

@@ -1,5 +0,0 @@
-line1=Конфигурационни опции,11
-display=Режим на показване на потребител и група,1,1-Само имена,0-Имена и модули
-order=Подреди юзери и групи по,1,0-подредба във файл,1-име
-line2=Системна конфигурация,11
-ssleay=Път към openssl или ssleay програма,0

acl/config.info.ca

@@ -1,5 +0,0 @@
-line1=Opcions configurables,11
-display=Forma de mostrar els usuaris i els grups,1,1-Només els noms,0-Noms i mòduls
-order=Ordena els usuaris i grups per,1,0-L'ordre del fitxer,1-El nom
-line2=Configuració del sistema,11
-ssleay=Camí del programa <tt>openssl</tt> o <tt>ssleay</tt>,3,Automàtic

acl/config.info.cs

@@ -1,5 +0,0 @@
-line1=Možnosti konfigurace,11
-display=Mód pro zobrazení uživatele a skupiny,1,1-Pouze jména,0-Jména a moduly
-order=Třídit uživatele a skupiny podle,1,0-pořadí v souboru,1-jména
-line2=Konfigurace systému,11
-ssleay=Cesta k programu openssl nebo ssleay,0

acl/config.info.da

@@ -1,5 +0,0 @@
-line1=Konfigurerbare indstillinger,11
-display=Bruger og gruppe visnings mode,1,1-Kun navne,0-Navne og moduler
-order=Sorter brugere og grupper ved,1.0-Sortering i fil,1-Navn
-line2=Systemkonfiguration,11
-ssleay=Sti til openssl eller ssleay progarm,3,Automatisk

acl/config.info.de

@@ -1,5 +0,0 @@
-line1=Konfigurierbare Optionen,11
-display=Benutzer- und Gruppenanzeige,1,1-Nur Namen,0-Namen und Module
-order=Sortiere Benutzer und Gruppen nach,1,0-Reihenfolge in Datei,1-Name
-line2=Systemkonfiguration,11
-ssleay=Pfad zu <tt>openssl</tt> oder <tt>ssleay</tt>,3,Automatisch

acl/config.info.es

@@ -1,5 +0,0 @@
-line1=Opciones Configurables,11
-display=Modo de mostrar usuario y grupo,1,1-Sólo nombres,0-Nombres y módulos
-order=Clasificar usuarios y grupos por,1,0-Orden en archivo,1-Nombre
-line2=Configuración de Sistema,11
-ssleay=Trayectoria al programa openssl o ssleay,0

acl/config.info.eu

@@ -1,5 +0,0 @@
-line1=Konfiguragarri diren aukerak, 11
-display=Erabiltzaile eta taldea erakusteko modua, 1,1-Izenak soilik, 0-Izenak eta moduluak
-order=Ordenatu erabiltzaile eta taldeak,1,0-Fitxategian ordenatu,1-Izena
-line2=Sistemaren konfigurazioa,11
-ssleay=Openssl edo ssleay programaren helbidea,3,Automatikoa

acl/config.info.fa

@@ -1,5 +0,0 @@
-line1=گزينه‌هاي پيکربندي,11
-display=حالت نمايش کاربران و گروه‌ها,1,1-فقط نامها,0-نامها و پيمانه‌ها
-order=مرتب سازي کاربران و گروه‌ها براساس,1,0-ترتيب در پرونده,1-نام
-line2=پيکربندي سيستم,11
-ssleay=مسير براي openssl يا برنامه ssleay,3,خودکار

acl/config.info.fr

@@ -1,5 +0,0 @@
-line1=Options configurables,11
-display=Mode d'affichage des utilisateurs et des groupes,1,1-Noms seulement,0-Noms et modules
-order=Trier les utilisateurs et les groupes par,1,0-Ordre dans le fichier,1-Nom
-line2=Configuration du système,11
-ssleay=Chemin d'accès au programme openssl ou ssleay,3,Automatique

acl/config.info.hu

@@ -1,5 +0,0 @@
-line1=Konfigurálható beállítások,11
-display=Felhasználó és csoport megjelenítési mód,1,1-Csak a neveket,0-Neveket és modulokat
-order=Felhasználók és csoportok rendezése,1,0-A fájl rendezése szerint,1-Név szerint
-line2=Rendszer konfiguráció,11
-ssleay=Az <code>openssl</code> vagy <code>ssleay</code> program teljes elérési útja,0

acl/config.info.it

@@ -1,5 +0,0 @@
-line1=Opzioni configurabili,11
-display=Modalità di visualizzazione di utenti e gruppi,1,1-Solo i nomi,0-Nomi e moduli
-order=Ordina gli utenti e i gruppi per,1,0-Ordine nel file,1-Nome
-line2=Configurazione di sistema,11
-ssleay=Percorso al programma openssl o ssleay,3,Automatico

acl/config.info.ja

@@ -1,5 +0,0 @@
-line1=設定可能なオプション,11
-display=ユーザとグループの表示モード,1,1-名前のみ,0-名前とモジュール
-order=ユーザとグループのソート順,1,0-ファイル順,1-名前順
-line2=システム設定,11
-ssleay=opensslプログラムまたはssleayプログラムのパス,3,自動

acl/config.info.ko

@@ -1,5 +0,0 @@
-line1=가능한 옵션,11
-display=유저와 그룹 출력 모드,1,1-이름만,0-이름과 모듈
-order=유저와 그룹 정렬,1,0-파일 순,1-이름
-line2=시스템 설정,11
-ssleay=openssl 또는 ssleay 파일 경로,3,Automatic

acl/config.info.ms

@@ -1,5 +0,0 @@
-line1=Pilihan konfigurasi,11
-display=Mod paparan pengguna dan grup,1,1-Nama sahaja,0-Nama dan modul
-order=Tapis pengguna dan grup dengan,1,0-Urutan dalam fail,1-Nama
-line2=Konfigurasi sistem,11
-ssleay=Lokasi program openssl atau ssleay,3,Automatik

acl/config.info.nl

@@ -1,5 +0,0 @@
-line1=Instelbare opties,11
-display=Gebruiker en groep weergave instelling,1,1-Alleen Namen,0-Namen en modules
-order=Sorteer gebruikers en groepen op,1,0-Volgorde in bestand,1-Naam
-line2=Systeem configuratie,11
-ssleay=Pad naar openssl of ssleay programma,3,Automatisch

acl/config.info.no

@@ -1,5 +0,0 @@
-line1=Konfigurerbare innstillinger,11
-display=Visningsmodus for bruker og gruppe,1,1-Bare navn,0-Navn og moduler
-order=Sorter brukere og grupper etter,1,0-Rekkefølge i filen,1-Navn
-line2=System konfigurasjon,11
-ssleay=Stien til openssl eller ssleay program,0

acl/config.info.pl

@@ -1,5 +0,0 @@
-line1=Opcje konfiguracyjne,11
-display=Tryb wyświetlania użytkowników i grup,1,1-Tylko nazwy,0-Nazwy i moduły
-order=Porządkuj użytkowników i grupy wg,1,0-Kolejności w zbiorze,1-Nazwy
-line2=Konfiguracja systemu,11
-ssleay=Ścieżka do programu openssl lub ssleay,0

acl/config.info.pt_BR

@@ -1,5 +0,0 @@
-line1=Opções configuráveis,11
-display=Modo de exibição de usuário e grupo, 1, 1-Somente nomes, 0-Nomes e módulos
-order=Ordenar usuários e grupos por,1,0-Ordem no arquivo,1-Nome
-line2=Configuração do sistema,11
-ssleay=Caminho para o programa openssl ou ssleay,0

acl/config.info.ru

@@ -1,5 +0,0 @@
-line1=Настраиваемые параметры,11
-display=Режим отображения пользователей и групп,1,1-Только имена,0-Имена и модули
-order=Упорядочивать пользователей и группы по,1,0-Очередности в файле,1-Имени
-line2=Системные параметры,11
-ssleay=Путь к программе openssl или ssleay,0

acl/config.info.sk

@@ -1,5 +0,0 @@
-line1=Nastaviteľné možnosti,11
-display=Spôsob zobrazenia užívateľov a skupín,1,1-Iba mená,0-Mená a moduly
-order=Zoraď užívateľov a skupiny podľa,1,0-Poradia v súbore,1-Mena
-line2=Nastavenie Systému,11
-ssleay=Cesta k programu openssl alebo ssleay,3,Automatická

acl/config.info.sv

@@ -1 +0,0 @@
-ssleay=Sökväg till openssl- eller ssleay-program,0

acl/config.info.tr

@@ -1,5 +0,0 @@
-line1=Yapılandırılabilir seçenekler,11
-display=Kullanıcı ve grup görüntüleme biçimi,1,1-Sadece isim,0-İsim ve modüller
-order=Kullanıcı ve grupları bu şekilde sırala,1,0-Dosyadaki sırası ile,1-İsim ile
-line2=Sistem yapılandırması,11
-ssleay=Openssl ya da ssleay programı yolu,3,Otomatik

acl/config.info.uk

@@ -1,4 +0,0 @@
-line1=Параметри, що настроюються,11
-order=Упорядковувати користувачів і групи по,1,0-черговості у файлі,1-імені
-line2=Системні параметри,11
-ssleay=Шлях до програми openssl чи ssleay,0

acl/config.info.zh

@@ -1 +0,0 @@
-ssleay=Openssl 或者 Ssleay 程序的路径,0

acl/config.info.zh_TW

@@ -1,4 +0,0 @@
-line1=組態選項,11
-order=排序使用者和全組 依,1,0-檔案內位置,1-名稱
-line2=系統組態,11
-ssleay=openssl或ssleay程式路徑,0

acl/convert.cgi

@@ -1,150 +0,0 @@
-#!/usr/local/bin/perl
-# convert.cgi
-# Convert unix to webmin users
-
-use strict;
-use warnings;
-no warnings 'redefine';
-no warnings 'uninitialized';
-require './acl-lib.pl';
-our (%in, %text, %config, %access, $config_directory);
-&ReadParse();
-&error_setup($text{'convert_err'});
-$access{'sync'} && $access{'create'} || &error($text{'convert_ecannot'});
-&foreign_require("useradmin", "user-lib.pl");
-
-# Validate inputs
-my (%users, %nusers, $gid);
-if ($access{'gassign'} ne '*') {
-	my @gcan = split(/\s+/, $access{'gassign'});
-	&indexof($in{'wgroup'}, @gcan) >= 0 ||
-		&error($text{'convert_ewgroup2'});
-	}
-if ($in{'conv'} == 1) {
-	$in{'users'} =~ /\S/ || &error($text{'convert_eusers'});
-	map { $users{$_}++ } split(/\s+/, $in{'users'});
-	}
-elsif ($in{'conv'} == 2) {
-	map { $nusers{$_}++ } split(/\s+/, $in{'nusers'});
-	}
-elsif ($in{'conv'} == 3) {
-	$gid = getgrnam($in{'group'});
-	defined($gid) || &error($text{'convert_egroup'});
-	}
-elsif ($in{'conv'} == 4) {
-	$in{'min'} =~ /^\d+$/ || &error($text{'convert_emin'});
-	$in{'max'} =~ /^\d+$/ || &error($text{'convert_emax'});
-	}
-
-# Get the group to add to
-my $group;
-my %exists;
-foreach my $g (&list_groups()) {
-	$group = $g if ($g->{'name'} eq $in{'wgroup'});
-	$exists{$g->{'name'}}++;
-	}
-$group || &error($text{'convert_ewgroup'});
-
-my (@ginfo, @members);
-if ($in{'conv'} == 3) {
-	# Find secondary members of group
-	@ginfo = getgrnam($in{'group'});
-	@members = split(/\s+/, $ginfo[3]);
-	}
-
-# Build the list of users
-my @users;
-if ($in{'sync'}) {
-	# Can just get from getpw* system calls, as password isn't needed
-	@users = ( );
-	setpwent();
-	while(my @uinfo = getpwent()) {
-		push(@users, { 'user' => $uinfo[0],
-			       'pass' => $uinfo[1],
-			       'uid' => $uinfo[2],
-			       'gid' => $uinfo[3],
-			       'real' => $uinfo[6],
-			       'home' => $uinfo[7],
-			       'shell' => $uinfo[8] });
-		}
-	}
-else {
-	# Read /etc/passwd
-	@users = &useradmin::list_users();
-	}
-
-# Convert matching users
-&ui_print_header(undef, $text{'convert_title'}, "");
-print $text{'convert_msg'},"<p>\n";
-print &ui_columns_start([ $text{'convert_user'}, $text{'convert_action'} ]);
-map { $exists{$_->{'name'}}++ } &list_users();
-my ($skipped, $exists, $invalid, $converted) = (0, 0, 0, 0);
-foreach my $u (@users) {
-	my $ok;
-	if ($in{'conv'} == 0) {
-		$ok = 1;
-		}
-	elsif ($in{'conv'} == 1) {
-		$ok = $users{$u->{'user'}};
-		}
-	elsif ($in{'conv'} == 2) {
-		$ok = !$nusers{$u->{'user'}};
-		}
-	elsif ($in{'conv'} == 3) {
-		$ok = $u->{'gid'} == $gid ||
-		      &indexof($u->{'user'}, @members) >= 0;
-		}
-	elsif ($in{'conv'} == 4) {
-		$ok = $u->{'uid'} >= $in{'min'} &&
-		      $u->{'uid'} <= $in{'max'};
-		}
-	my $msg;
-	if (!$ok) {
-		#print &text('convert_skip', $u->{'user'}),"\n";
-		$msg = undef;
-		$skipped++;
-		}
-	elsif ($exists{$u->{'user'}}) {
-		$msg = "<i>".&text('convert_exists', $u->{'user'})."</i>";
-		$exists++;
-		}
-	elsif ($u->{'user'} !~ /^[A-z0-9\-\_\.]+$/) {
-		$msg = "<i>".&text('convert_invalid', $u->{'user'})."</i>";
-		$invalid++;
-		}
-	else {
-		# Actually add the user
-		$msg = "<b>".&text('convert_added', $u->{'user'})."</b>";
-		my $user = { 'name' => $u->{'user'},
-			     'pass' => $in{'sync'} ? 'x' : $u->{'pass'},
-			     'modules' => $group->{'modules'} };
-		&create_user($user);
-		foreach my $m (@{$group->{'modules'}}, "") {
-			my %groupacl;
-			if (&read_file(
-			    "$config_directory/$m/$in{'wgroup'}.gacl",
-			    \%groupacl)) {
-				&write_file(
-					"$config_directory/$m/$u->{'user'}.acl",
-					\%groupacl);
-				}
-			}
-
-		push(@{$group->{'members'}}, $u->{'user'});
-		$exists{$u->{'user'}}++;
-		$converted++;
-		}
-	print &ui_columns_row([ $u->{'user'}, $msg ]) if ($msg);
-	}
-endpwent();
-print &ui_columns_end();
-
-# Finish off
-&modify_group($group->{'name'}, $group);
-&restart_miniserv();
-
-# Print summary
-print &text('convert_done', $converted, $invalid, $exists, $skipped),"<p>\n";
-
-&ui_print_footer("", $text{'index_return'});
-