Fix readme file path

Freeze and thaw zone when re-signing.

.gitattributes

@@ -0,0 +1,58 @@
+
+# webmin .gitattribues file
+# help git / github to know the encoding of webmin (lang) files
+
+# set default encoding to iso-8859-1 aka ASCII
+*        working-tree-encoding=iso8859-1 git-encoding=iso8859-1
+
+# 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
+
+# set all non iso8859-1 lang files to correct encoding
+**/lang/ru_SU        working-tree-encoding=koi8-r       git-encoding=koi8-r
+**/lang/ru_RU        working-tree-encoding=windows-1251     git-encoding=windows-1251
+**/lang/zh_TW.Big5   working-tree-encoding=Big5         git-encoding=Big5
+**/lang/zh_CN        working-tree-encoding=GB2312       git-encoding=GB2312
+**/lang/hu       working-tree-encoding=iso-8859-2       git-encoding=iso-8859-2
+**/lang/he       working-tree-encoding=iso-8859-8-I     git-encoding=iso-8859-8-I
+**/lang/tr       working-tree-encoding=iso-8859-9       git-encoding=iso-8859-9
+**/lang/pl       working-tree-encoding=iso-8859-2       git-encoding=iso-8859-2
+**/lang/ja_JP.euc    working-tree-encoding=EUC-JP       git-encoding=EUC-JP
+**/lang/si       working-tree-encoding=iso-8859-2       git-encoding=iso-8859-2
+**/lang/ko_KR.euc    working-tree-encoding=EUC-KR       git-encoding=EUC-KR
+**/lang/cz       working-tree-encoding=iso-8859-2       git-encoding=iso-8859-2
+**/lang/th       working-tree-encoding=tis-620          git-encoding=tis-620
+**/lang/no       working-tree-encoding=iso-8859-15      git-encoding=iso-8859-15
+**/lang/sk       working-tree-encoding=iso-8859-2       git-encoding=iso-8859-2
+**/lang/lt       working-tree-encoding=windows-1257     git-encoding=windows-1257
+**/lang/bg       working-tree-encoding=windows-1251     git-encoding=windows-1251
+**/lang/el       working-tree-encoding=iso-8859-7       git-encoding=iso-8859-7
+**/lang/uk_UA    working-tree-encoding=windows-1251     git-encoding=windows-1251
+**/lang/ar       working-tree-encoding=iso-8859-6-I     git-encoding=iso-8859-6-I
+**/lang/fa       working-tree-encoding=UTF-8            git-encoding=UTF-8
+
+# set all non iso8859-1 config.info files to correct encoding
+*/config.info.ru_SU       working-tree-encoding=koi8-r          git-encoding=koi8-r
+*/lconfig.info.ru_RU      working-tree-encoding=windows-1251    git-encoding=windows-1251
+*/config.info.zh_TW.Big5  working-tree-encoding=Big5            git-encoding=Big5
+*/config.info.zh_CN       working-tree-encoding=GB2312          git-encoding=GB2312
+*/lconfig.info.hu         working-tree-encoding=iso-8859-2      git-encoding=iso-8859-2
+*/config.info.he          working-tree-encoding=iso-8859-8-I    git-encoding=iso-8859-8-I
+*/config.info.tr          working-tree-encoding=iso-8859-9      git-encoding=iso-8859-9
+*/config.info.pl          working-tree-encoding=iso-8859-2      git-encoding=iso-8859-2
+*/config.info.ja_JP.euc   working-tree-encoding=EUC-JP          git-encoding=EUC-JP
+*/config.info.si          working-tree-encoding=iso-8859-2      git-encoding=iso-8859-2
+*/config.info.ko_KR.euc   working-tree-encoding=EUC-KR          git-encoding=EUC-KR
+*/lconfig.info.cz         working-tree-encoding=iso-8859-2      git-encoding=iso-8859-2
+*/lconfig.info.th         working-tree-encoding=tis-620         git-encoding=tis-620
+*/config.info.no          working-tree-encoding=iso-8859-15     git-encoding=iso-8859-15
+*/config.info.sk          working-tree-encoding=iso-8859-2      git-encoding=iso-8859-2
+*/config.info.lt          working-tree-encoding=windows-1257    git-encoding=windows-1257
+*/lconfig.info.bg         working-tree-encoding=windows-1251    git-encoding=windows-1251
+*/config.info.el          working-tree-encoding=iso-8859-7      git-encoding=iso-8859-7
+*/config.info.uk_UA       working-tree-encoding=windows-1251    git-encoding=windows-1251
+*/config.info.ar          working-tree-encoding=iso-8859-6-I    git-encoding=iso-8859-6-I
+*/config.info.fa          working-tree-encoding=UTF-8           git-encoding=UTF-8

.gitignore

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

CHANGELOG

@@ -228,3 +228,12 @@ More German translation updates, thanks to Raymond Vetter.
 Fixed an XSS bug that allowed xmlrpc.cgi to be abused by a malicious link.
 ---- Changes since 1.760 ----
 For new installs, switched the location of data files in many modules to /var/webmin instead of /etc/webmin.
+---- Changes since 1.790 ----
+Added a recent logins section to the System Information page.
+Major rework of majordomo module, Kay Marquardt
+---- Changes since 1.870 ----
+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

CHANGELOG.md

@@ -0,0 +1,37 @@
+## Changelog
+
+#### 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.

LICENCE

@@ -1,29 +1,30 @@
----------------------------------------------------------
- Copyright (c) Jamie Cameron
- All rights reserved.
+BSD 3-Clause License
 
- 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.
+Copyright (c) Jamie Cameron
 
- 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.
- ---------------------------------------------------------
+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.

README

@@ -1,54 +0,0 @@
-Webmin Version 1.770
---------------------
-Webmin is a web-based interface for system administration for Unix. 
-Using any browser that supports tables and forms, you can setup user
-accounts, Apache, internet services, DNS, file sharing and so on. 
-
-Webmin consists of a simple web server, and a number of CGI programs
-which directly update system files like /etc/inetd.conf and /etc/passwd.
-The web server and all CGI programs are written in Perl version 5, and use
-only the standard perl modules. 
-
-Webmin can be installed in two different ways :
-
-1) By just running the setup.sh script in the same directory as this README
-   file, with no arguments. You will be asked a series of questions such as
-   the configuration directory, your chosen login name and password, and
-   possibly your operating system. For questions where a default is shown
-   in square brackets, you can just hit enter to accept the default (which
-   is usually correct).
-
-   If the configuration directory you enter is the same as that used by
-   a previous install of Webmin, it will be automatically upgraded with all
-   configurable settings preserved.
-
-   This will set up Webmin to run directly from this directory. After running
-   setup.sh, do not delete the directory as it contains all the scripts and
-   programs that will be used by Webmin when it is running. Unlike in the second
-   installation method, the Webmin scripts do not get copied to another
-   location when installing.
-
-2) By running the setup.sh script in this directory, but with a command-line
-   argument such as /usr/local/webmin . When a directory like this is provided,
-   Webmin's scripts will be copied to the chosen directory and it will be
-   configured to run from that location.
-
-   The exact same questions will be asked by setup.sh when it is run with
-   a directory argument, and upgrading will work in the same way. If you
-   are upgrading an old install, you should enter the same directory argument
-   so that the new files overwrite the old in order to save disk space.
-
-   After Webmin has been installed to a specific directory using this method,
-   the directory extracted from the tar.gz file can be safely deleted.
-
-If you are installing Webmin on a Windows system, you must run the command
-perl setup.pl instead, as shell scripts will not typically run on a Windows
-system. The Windows version depends on several programs and modules that may
-not be part of the standard distribution. You will need the process.exe
-commmand, the sc.exe command and the Win32::Daemon Perl module.
-
-For more information, see http://www.webmin.com/
-
-Jamie Cameron
-jcameron@webmin.com
-

README.md

@@ -0,0 +1,53 @@
+## 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">](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)
+* [Documentation](#documentation)
+* [Development](#development)
+* [License](#license)
+
+## 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). 
+
+![](https://github.com/webmin-devel/webmin/blob/master/media/webmin-demo-basic.gif?raw=true)
+
+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 _100,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](http://www.webmin.com/support.html)) from our [download page](http://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-1.930.tar.gz), and running [_setup.sh_](http://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](http://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_ commmand, _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](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)
+
+### Contributors
+
+* [Joe Cooper](https://github.com/swelljoe)
+* [Ilia Rostovtsev](https://github.com/rostovtsev)
+* [Kay Marquardt](https://github.com/gnadelwartz)
+* [Nawawi Jamili](https://github.com/nawawi) + [57 more..](https://github.com/webmin/webmin/graphs/contributors)
+
+## License
+
+Webmin is released under the [BSD License](https://github.com/webmin/webmin/blob/master/LICENCE).

Webmin/All.pm

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

Webmin/ConfirmPage.pm

@@ -1,47 +0,0 @@
-package Webmin::ConfirmPage;
-use Webmin::Page;
-use WebminCore;
-@ISA = ( "Webmin::Page" );
-
-=head2 new Webmin::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(&Webmin::Theme::ConfirmPage::new)) {
-	return new Webmin::Theme::ConfirmPage(@_[1..$#_]);
-	}
-my ($self, $subheading, $title, $message, $cgi, $in, $ok, $cancel, $help) = @_;
-$self = new Webmin::Page($subheading, $title, $help);
-$self->{'in'} = $in;
-$self->add_message($message);
-my $form = new Webmin::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 Webmin::Submit($ok || "OK", "ui_confirm"));
-$form->add_button(new Webmin::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;
-

Webmin/ErrorPage.pm

@@ -1,20 +0,0 @@
-package Webmin::ErrorPage;
-use WebminCore;
-
-=head2 new Webmin::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(&Webmin::Theme::ErrorPage::new)) {
-	return new Webmin::Theme::ErrorPage(@_[1..$#_]);
-	}
-my ($self, $subheading, $title, $message, $output, $help) = @_;
-$self = new Webmin::Page($subheading, $title, $help);
-$self->add_message("<b>",$text{'error'}," : ",$message,"</b>");
-$self->add_message("<pre>",$output,"</pre>");
-return $self;
-}
-
-1;
-

Webmin/JavascriptButton.pm

@@ -1,47 +0,0 @@
-package Webmin::JavascriptButton;
-use Webmin::Input;
-use WebminCore;
-@ISA = ( "Webmin::Input" );
-
-=head2 new Webmin::JavascriptButton(label, script, [disabled])
-Create a button that runs some Javascript when clicked
-=cut
-sub new
-{
-if (defined(&Webmin::Theme::JavascriptButton::new) &&
-    caller() !~ /Webmin::Theme::JavascriptButton/) {
-        return new Webmin::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;
-

Webmin/Multiline.pm

@@ -1,40 +0,0 @@
-package Webmin::Multiline;
-use Webmin::Textarea;
-use WebminCore;
-@ISA = ( "Webmin::Textarea" );
-
-=head2 new Webmin::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(&Webmin::Theme::Multiline::new)) {
-        return new Webmin::Theme::Multiline(@_[1..$#_]);
-        }
-my ($self, $name, $lines, $rows, $cols, $wrap, $disabled) = @_;
-$self = new Webmin::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;
-

Webmin/Password.pm

@@ -1,32 +0,0 @@
-package Webmin::Password;
-@ISA = ( "Webmin::Textbox" );
-use Webmin::Textbox;
-use WebminCore;
-
-=head2 new Webmin::Password(name, value, [size])
-Create a new text input field, for a password
-=cut
-sub new
-{
-if (defined(&Webmin::Theme::Password::new)) {
-	return new Webmin::Theme::Password(@_[1..$#_]);
-	}
-my ($self, $name, $value, $size) = @_;
-$self = new Webmin::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'});
-}
-
-
-

Webmin/ResultPage.pm

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

Webmin/Submit.pm

@@ -1,41 +0,0 @@
-package Webmin::Submit;
-use Webmin::Input;
-use WebminCore;
-@ISA = ( "Webmin::Input" );
-
-=head2 new Webmin::Submit(label, [name], [disabled])
-Create a form submit button
-=cut
-sub new
-{
-if (defined(&Webmin::Theme::Submit::new) &&
-    caller() !~ /Webmin::Theme::Submit/) {
-        return new Webmin::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/All.pm

@@ -0,0 +1,44 @@
+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,16 +1,16 @@
-package Webmin::Button;
-use Webmin::Input;
+package WebminUI::Button;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Button(cgi, label, [name])
+=head2 new WebminUI::Button(cgi, label, [name])
 Creates a button that when clicked will link to some other page
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Button::new) &&
-    caller() !~ /Webmin::Theme::Button/) {
-        return new Webmin::Theme::Button(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Button::new) &&
+    caller() !~ /WebminUI::Theme::Button/) {
+        return new WebminUI::Theme::Button(@_[1..$#_]);
         }
 my ($self, $cgi, $value, $name) = @_;
 $self = { };

WebminUI/Checkbox.pm

@@ -1,15 +1,15 @@
-package Webmin::Checkbox;
-use Webmin::Input;
+package WebminUI::Checkbox;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Checkbox(name, return, label, checked, [disabled])
+=head2 new WebminUI::Checkbox(name, return, label, checked, [disabled])
 Create a single checkbox field
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Checkbox::new)) {
-        return new Webmin::Theme::Checkbox(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Checkbox::new)) {
+        return new WebminUI::Theme::Checkbox(@_[1..$#_]);
         }
 my ($self, $name, $return, $label, $checked, $disabled) = @_;
 $self = { };

WebminUI/Checkboxes.pm

@@ -1,15 +1,15 @@
-package Webmin::Checkboxes;
-use Webmin::Input;
+package WebminUI::Checkboxes;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Checkboxes(name, value|&values, &options, [disabled])
+=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(&Webmin::Theme::Checkboxes::new)) {
-        return new Webmin::Theme::Checkboxes(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Checkboxes::new)) {
+        return new WebminUI::Theme::Checkboxes(@_[1..$#_]);
         }
 my ($self, $name, $value, $options, $disabled) = @_;
 $self = { };

WebminUI/Columns.pm

@@ -1,14 +1,14 @@
-package Webmin::Columns;
+package WebminUI::Columns;
 use WebminCore;
 
-=head2 new Webmin::Columns(cols)
+=head2 new WebminUI::Columns(cols)
 Displays some page elements in a multi-column table
 =cut
 sub new
 {
 my ($self, $cols) = @_;
-if (defined(&Webmin::Theme::Columns::new)) {
-        return new Webmin::Theme::Columns(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Columns::new)) {
+        return new WebminUI::Theme::Columns(@_[1..$#_]);
         }
 $self = { 'columns' => 2 };
 bless($self);
@@ -43,7 +43,7 @@ return $rv;
 }
 
 =head2 add(object)
-Adds some Webmin:: object to this list
+Adds some WebminUI:: object to this list
 =cut
 sub add
 {
@@ -66,7 +66,7 @@ my ($self) = @_;
 return $self->{'columns'};
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this menu is added to a page
 =cut
 sub set_page

WebminUI/ConfirmPage.pm

@@ -0,0 +1,47 @@
+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,16 +1,16 @@
-package Webmin::Date;
-use Webmin::Input;
+package WebminUI::Date;
+use WebminUI::Input;
 use Time::Local;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Date(name, time, [disabled])
+=head2 new WebminUI::Date(name, time, [disabled])
 Create a new field for selecting a date
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Date::new)) {
-        return new Webmin::Theme::Date(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Date::new)) {
+        return new WebminUI::Theme::Date(@_[1..$#_]);
         }
 my ($self, $name, $value, $disabled) = @_;
 bless($self = { });

WebminUI/DynamicBar.pm

@@ -1,7 +1,7 @@
-package Webmin::DynamicBar;
+package WebminUI::DynamicBar;
 use WebminCore;
 
-=head2 new Webmin::DynamicBar(&start-function, max)
+=head2 new WebminUI::DynamicBar(&start-function, max)
 A page element for displaying progress towards some goal, like the download of
 a file.
 =cut
@@ -91,7 +91,7 @@ my ($self) = @_;
 return $self->{'wait'};
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this dynamic text box is added to a page
 =cut
 sub set_page

WebminUI/DynamicHTML.pm

@@ -1,7 +1,7 @@
-package Webmin::DynamicHTML;
+package WebminUI::DynamicHTML;
 use WebminCore;
 
-=head2 new Webmin::DynamicHTML(&function, &args, [before])
+=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
@@ -63,7 +63,7 @@ sub needs_unbuffered
 return 1;
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this dynamic HTML element is added to a page
 =cut
 sub set_page

WebminUI/DynamicText.pm

@@ -1,8 +1,8 @@
 # XXX should support non-Javascript mode?
-package Webmin::DynamicText;
+package WebminUI::DynamicText;
 use WebminCore;
 
-=head2 new Webmin::DynamicText(&start-function, &args)
+=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
@@ -90,7 +90,7 @@ my ($self) = @_;
 return $self->{'wait'};
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this dynamic text box is added to a page
 =cut
 sub set_page

WebminUI/DynamicWait.pm

@@ -1,7 +1,7 @@
-package Webmin::DynamicWait;
+package WebminUI::DynamicWait;
 use WebminCore;
 
-=head2 new Webmin::DynamicWait(&start-function, [&args])
+=head2 new WebminUI::DynamicWait(&start-function, [&args])
 A page element indicating that something is happening.
 =cut
 sub new
@@ -99,7 +99,7 @@ my ($self) = @_;
 return $self->{'wait'};
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this dynamic text box is added to a page
 =cut
 sub set_page

WebminUI/ErrorPage.pm

@@ -0,0 +1,20 @@
+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,18 +1,18 @@
-package Webmin::File;
-use Webmin::Textbox;
+package WebminUI::File;
+use WebminUI::Textbox;
 use WebminCore;
-@ISA = ( "Webmin::Textbox" );
+@ISA = ( "WebminUI::Textbox" );
 
-=head2 new Webmin::File(name, value, size, [directory], [disabled])
+=head2 new WebminUI::File(name, value, size, [directory], [disabled])
 A text box for selecting a file
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::File::new)) {
-        return new Webmin::Theme::File(@_[1..$#_]);
+if (defined(&WebminUI::Theme::File::new)) {
+        return new WebminUI::Theme::File(@_[1..$#_]);
         }
 my ($self, $name, $value, $size, $directory, $disabled) = @_;
-$self = new Webmin::Textbox($name, $value, $size, $disabled);
+$self = new WebminUI::Textbox($name, $value, $size, $disabled);
 bless($self);
 $self->set_directory($directory);
 return $self;
@@ -24,7 +24,7 @@ Returns the HTML for this file input
 sub html
 {
 my ($self) = @_;
-my $rv = Webmin::Textbox::html($self);
+my $rv = WebminUI::Textbox::html($self);
 my $name = $self->get_name();
 my $directory = $self->get_directory();
 my $add = 0;

WebminUI/Form.pm

@@ -1,13 +1,13 @@
-package Webmin::Form;
+package WebminUI::Form;
 use WebminCore;
 
-=head2 new Webmin::Form(cgi, [method])
+=head2 new WebminUI::Form(cgi, [method])
 Creates a new form, which submits to the given CGI
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Form::new)) {
-        return new Webmin::Theme::Form(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Form::new)) {
+        return new WebminUI::Theme::Form(@_[1..$#_]);
         }
 my ($self, $program, $method) = @_;
 $self = { 'method' => 'get',
@@ -102,7 +102,7 @@ return "<form action='$self->{'program'}' ".
 }
 
 =head2 add_section(section)
-Adds a Webmin::Section object to this form
+Adds a WebminUI::Section object to this form
 =cut
 sub add_section
 {
@@ -120,7 +120,7 @@ return $self->{'sections'}->[$idx];
 }
 
 =head2 add_button(button, [beside, ...])
-Adds a Webmin::Submit object to this form, for display at the bottom
+Adds a WebminUI::Submit object to this form, for display at the bottom
 =cut
 sub add_button
 {
@@ -312,7 +312,7 @@ foreach my $i ($self->list_inputs()) {
 return @dis;
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this form is added to a page
 =cut
 sub set_page

WebminUI/Group.pm

@@ -1,18 +1,18 @@
-package Webmin::Group;
-use Webmin::Textbox;
+package WebminUI::Group;
+use WebminUI::Textbox;
 use WebminCore;
-@ISA = ( "Webmin::Textbox" );
+@ISA = ( "WebminUI::Textbox" );
 
-=head2 new Webmin::Group(name, value, [multiple], [disabled])
+=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(&Webmin::Theme::Group::new)) {
-        return new Webmin::Theme::Group(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Group::new)) {
+        return new WebminUI::Theme::Group(@_[1..$#_]);
         }
 my ($self, $name, $value, $multiple, $disabled) = @_;
-$self = new Webmin::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
+$self = new WebminUI::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
 bless($self);
 $self->set_multiple($multiple);
 return $self;
@@ -24,7 +24,7 @@ Returns the HTML for this group input
 sub html
 {
 my ($self) = @_;
-my $rv = Webmin::Textbox::html($self);
+my $rv = WebminUI::Textbox::html($self);
 my $name = $self->get_name();
 my $multiple = $self->get_multiple();
 local $w = $multiple ? 500 : 300;

WebminUI/Icon.pm

@@ -1,7 +1,7 @@
-package Webmin::Icon;
+package WebminUI::Icon;
 use WebminCore;
 
-=head2 Webmin::Icon(type, [message])
+=head2 WebminUI::Icon(type, [message])
 This object generates an icon indicating some status. Possible types are :
 ok - OK
 critial - A serious problem
@@ -11,8 +11,8 @@ Can be used inside tables and property lists
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Icon::new) && caller() !~ /Webmin::Theme::Icon/) {
-        return new Webmin::Theme::Icon(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Icon::new) && caller() !~ /WebminUI::Theme::Icon/) {
+        return new WebminUI::Theme::Icon(@_[1..$#_]);
         }
 my ($self, $type, $message) = @_;
 $self = { };

WebminUI/Input.pm

@@ -1,4 +1,4 @@
-package Webmin::Input;
+package WebminUI::Input;
 use WebminCore;
 
 sub set_form

WebminUI/InputTable.pm

@@ -1,19 +1,19 @@
-package Webmin::InputTable;
-use Webmin::Table;
+package WebminUI::InputTable;
+use WebminUI::Table;
 use WebminCore;
-@ISA = ( "Webmin::Table" );
+@ISA = ( "WebminUI::Table" );
 
-=head2 new Webmin::InputTable(&headings, [width], [name], [heading])
+=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(&Webmin::Theme::InputTable::new) &&
-    caller() !~ /Webmin::Theme::InputTable/) {
-        return new Webmin::Theme::InputTable(@_[1..$#_]);
+if (defined(&WebminUI::Theme::InputTable::new) &&
+    caller() !~ /WebminUI::Theme::InputTable/) {
+        return new WebminUI::Theme::InputTable(@_[1..$#_]);
         }
-my $self = defined(&Webmin::Theme::Table::new) ? Webmin::Theme::Table::new(@_)
-					       : Webmin::Table::new(@_);
+my $self = defined(&WebminUI::Theme::Table::new) ? WebminUI::Theme::Table::new(@_)
+					       : WebminUI::Table::new(@_);
 bless($self);
 $self->{'rowcount'} = 0;
 return $self;
@@ -56,7 +56,7 @@ sub get_values
 my ($self, $row) = @_;
 my @rv;
 foreach my $i (@{$self->{'rows'}->[$row]}) {
-	if (ref($i) && $i->isa("Webmin::Input")) {
+	if (ref($i) && $i->isa("WebminUI::Input")) {
 		push(@rv, $i->get_value());
 		}
 	}
@@ -68,10 +68,10 @@ return @rv;
 sub list_inputs
 {
 my ($self) = @_;
-my @rv = Webmin::Table::list_inputs($self);
+my @rv = WebminUI::Table::list_inputs($self);
 foreach my $r (@{$self->{'rows'}}) {
 	foreach my $i (@$r) {
-		if ($i && ref($i) && $i->isa("Webmin::Input")) {
+		if ($i && ref($i) && $i->isa("WebminUI::Input")) {
 			push(@rv, $i);
 			}
 		}
@@ -111,7 +111,7 @@ foreach my $r (@{$self->{'rows'}}) {
 			}
 		}
 	foreach my $i (@$r) {
-		if ($i && ref($i) && $i->isa("Webmin::Input") && !$skip) {
+		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 ]);

WebminUI/JavascriptButton.pm

@@ -0,0 +1,47 @@
+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,18 +1,18 @@
-package Webmin::LinkTable;
-use Webmin::Table;
+package WebminUI::LinkTable;
+use WebminUI::Table;
 use WebminCore;
 
-=head2 new Webmin::LinkTable(heading, [columns], [width], [name])
+=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(&Webmin::Theme::LinkTable::new) &&
-    caller() !~ /Webmin::Theme::LinkTable/) {
-        return new Webmin::Theme::LinkTable(@_[1..$#_]);
+if (defined(&WebminUI::Theme::LinkTable::new) &&
+    caller() !~ /WebminUI::Theme::LinkTable/) {
+        return new WebminUI::Theme::LinkTable(@_[1..$#_]);
         }
 my ($self, $heading, $columns, $width, $name) = @_;
-$self = { 'sorter' => \&Webmin::Table::default_sorter,
+$self = { 'sorter' => \&WebminUI::Table::default_sorter,
 	  'columns' => 4,
 	  'sortable' => 1 };
 bless($self);
@@ -245,7 +245,7 @@ return $self->{'columns'};
 }
 
 =head2 set_form(form)
-Called by the Webmin::Form object when this table is added to it
+Called by the WebminUI::Form object when this table is added to it
 =cut
 sub set_form
 {
@@ -257,7 +257,7 @@ if ($self->{'selectinput'}) {
 }
 
 =head2 set_selector(input)
-Takes a Webmin::Checkboxes or Webmin::Radios object, and uses it to add checkboxes
+Takes a WebminUI::Checkboxes or WebminUI::Radios object, and uses it to add checkboxes
 to all the entries
 =cut
 sub set_selector

WebminUI/Menu.pm

@@ -1,14 +1,14 @@
-package Webmin::Menu;
+package WebminUI::Menu;
 use WebminCore;
 
-=head2 new Webmin::Menu(&options, [columns])
+=head2 new WebminUI::Menu(&options, [columns])
 Generates a menu of options, typically using icons.
 =cut
 sub new
 {
 my ($self, $options, $columns) = @_;
-if (defined(&Webmin::Theme::Menu::new)) {
-        return new Webmin::Theme::Menu(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Menu::new)) {
+        return new WebminUI::Theme::Menu(@_[1..$#_]);
         }
 $self = { 'columns' => 4 };
 bless($self);
@@ -73,7 +73,7 @@ my ($self) = @_;
 return $self->{'columns'};
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this menu is added to a page
 =cut
 sub set_page

WebminUI/Multiline.pm

@@ -0,0 +1,40 @@
+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,18 +1,18 @@
-package Webmin::OptTextarea;
-use Webmin::Textarea;
+package WebminUI::OptTextarea;
+use WebminUI::Textarea;
 use WebminCore;
-@ISA = ( "Webmin::Textarea" );
+@ISA = ( "WebminUI::Textarea" );
 
-=head2 new Webmin::OptTextarea(name, value, rows, cols, [default-msg], [other-msg])
+=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(&Webmin::Theme::OptTextarea::new)) {
-        return new Webmin::Theme::OptTextarea(@_[1..$#_]);
+if (defined(&WebminUI::Theme::OptTextarea::new)) {
+        return new WebminUI::Theme::OptTextarea(@_[1..$#_]);
         }
 my ($self, $name, $value, $rows, $cols, $default, $other) = @_;
-$self = new Webmin::Textarea($name, $value, $rows, $cols);
+$self = new WebminUI::Textarea($name, $value, $rows, $cols);
 bless($self);
 $self->set_default($default || $text{'default'});
 $self->set_other($other) if ($other);
@@ -57,7 +57,7 @@ if (defined($self->get_value())) {
 	if ($self->get_value() eq "") {
 		return ( $text{'ui_nothing'} );
 		}
-	return Webmin::Textbox::validate($self);
+	return WebminUI::Textbox::validate($self);
 	}
 return ( );
 }

WebminUI/OptTextbox.pm

@@ -1,18 +1,18 @@
-package Webmin::OptTextbox;
-use Webmin::Textbox;
+package WebminUI::OptTextbox;
+use WebminUI::Textbox;
 use WebminCore;
-@ISA = ( "Webmin::Textbox" );
+@ISA = ( "WebminUI::Textbox" );
 
-=head2 new Webmin::OptTextbox(name, value, size, [default-msg], [other-msg])
+=head2 new WebminUI::OptTextbox(name, value, size, [default-msg], [other-msg])
 Create a text field whose value is optional.
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::OptTextbox::new)) {
-        return new Webmin::Theme::OptTextbox(@_[1..$#_]);
+if (defined(&WebminUI::Theme::OptTextbox::new)) {
+        return new WebminUI::Theme::OptTextbox(@_[1..$#_]);
         }
 my ($self, $name, $value, $size, $default, $other) = @_;
-$self = new Webmin::Textbox($name, $value, $size);
+$self = new WebminUI::Textbox($name, $value, $size);
 bless($self);
 $self->set_default($default || $text{'default'});
 $self->set_other($other) if ($other);
@@ -39,7 +39,7 @@ if (defined($self->get_value())) {
 	if ($self->get_value() eq "") {
 		return ( $text{'ui_nothing'} );
 		}
-	return Webmin::Textbox::validate($self);
+	return WebminUI::Textbox::validate($self);
 	}
 return ( );
 }

WebminUI/Page.pm

@@ -1,16 +1,16 @@
-package Webmin::Page;
+package WebminUI::Page;
 use WebminCore;
 use WebminCore;
 
-=head2 new Webmin::Page(subheading, title, [help-name], [show-config],
+=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(&Webmin::Theme::Page::new) && caller() !~ /Webmin::Theme::Page/) {
-        return new Webmin::Theme::Page(@_[1..$#_]);
+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) = @_;
@@ -216,7 +216,7 @@ print STDERR "Could not find $object in ",join(" ",@{$self->{'contents'}}),"\n";
 return scalar(@{$self->{'contents'}});
 }
 
-=head2 add_form(Webmin::Form)
+=head2 add_form(WebminUI::Form)
 Adds a form to be displayed on this page
 =cut
 sub add_form
@@ -246,7 +246,7 @@ push(@{$self->{'buttons'}}, [ $cgi, $label, $desc, join(" ", @$hiddens),
 			      $before, $after ]);
 }
 
-=head2 add_tabs(Webmin::Tags)
+=head2 add_tabs(WebminUI::Tags)
 Tells the page to display the given set of tabs at the top
 =cut
 sub add_tabs
@@ -255,7 +255,7 @@ my ($self, $tabs) = @_;
 $self->{'tabs'} = $tabs;
 }
 
-=head2 add_dynamic(Webmin::DynamicText|Webmin::DynamicProgress)
+=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

WebminUI/Password.pm

@@ -0,0 +1,32 @@
+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,14 +1,14 @@
-package Webmin::PlainText;
+package WebminUI::PlainText;
 use WebminCore;
 
-=head2 new Webmin::PlainText(text, columns)
+=head2 new WebminUI::PlainText(text, columns)
 Displays a block of plain fixed-width text, within a page or form.
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::PlainText::new) &&
-    caller() !~ /Webmin::Theme::PlainText/) {
-        return new Webmin::Theme::PlainText(@_[1..$#_]);
+if (defined(&WebminUI::Theme::PlainText::new) &&
+    caller() !~ /WebminUI::Theme::PlainText/) {
+        return new WebminUI::Theme::PlainText(@_[1..$#_]);
         }
 my ($self, $text, $columns) = @_;
 $self = { 'columns' => 80 };
@@ -84,7 +84,7 @@ foreach $rest (split(/\n/, $_[0])) {
 return @rv;
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this form is added to a page
 =cut
 sub set_page

WebminUI/Properties.pm

@@ -1,14 +1,14 @@
-package Webmin::Properties;
+package WebminUI::Properties;
 use WebminCore;
 
-=head2 new Webmin::Properties([heading], [columns], [width])
+=head2 new WebminUI::Properties([heading], [columns], [width])
 Creates a read-only properties list
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Properties::new) &&
-    caller() !~ /Webmin::Theme::Properties/) {
-        return new Webmin::Theme::Properties(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Properties::new) &&
+    caller() !~ /WebminUI::Theme::Properties/) {
+        return new WebminUI::Theme::Properties(@_[1..$#_]);
         }
 my ($self, $heading, $columns, $width) = @_;
 $self = { 'columns' => 2 };
@@ -119,7 +119,7 @@ return $self->{'heading'};
 }
 
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this form is added to a page
 =cut
 sub set_page

WebminUI/Radios.pm

@@ -1,15 +1,15 @@
-package Webmin::Radios;
-use Webmin::Input;
+package WebminUI::Radios;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Radios(name, value, &options, [disabled])
+=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(&Webmin::Theme::Radios::new)) {
-        return new Webmin::Theme::Radios(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Radios::new)) {
+        return new WebminUI::Theme::Radios(@_[1..$#_]);
         }
 my ($self, $name, $value, $options, $disabled) = @_;
 $self = { };

WebminUI/ResultPage.pm

@@ -0,0 +1,20 @@
+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,14 +1,14 @@
-package Webmin::Section;
+package WebminUI::Section;
 use WebminCore;
 
-=head2 new Webmin::Section(header, [columns], [title], [width])
+=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(&Webmin::Theme::Section::new) &&
-    caller() !~ /Webmin::Theme::Section/) {
-        return new Webmin::Theme::Section(@_[1..$#_]);
+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 };
@@ -52,7 +52,7 @@ return $rv;
 }
 
 =head2 add_input(label, input, [columns])
-Adds some Webmin::Input object to this form section
+Adds some WebminUI::Input object to this form section
 =cut
 sub add_input
 {
@@ -140,7 +140,7 @@ return undef;
 }
 
 =head2 set_form(form)
-Called by the Webmin::Form object when this section is added to it
+Called by the WebminUI::Form object when this section is added to it
 =cut
 sub set_form
 {
@@ -165,7 +165,7 @@ sub is_input
 {
 my ($object) = @_;
 return ref($object) && ref($object) =~ /::/ &&
-       $object->isa("Webmin::Input");
+       $object->isa("WebminUI::Input");
 }
 
 1;

WebminUI/Select.pm

@@ -1,16 +1,16 @@
-package Webmin::Select;
-use Webmin::Input;
+package WebminUI::Select;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Select(name, value|&values, &options, [multiple-size],
+=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(&Webmin::Theme::Select::new)) {
-        return new Webmin::Theme::Select(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Select::new)) {
+        return new WebminUI::Theme::Select(@_[1..$#_]);
         }
 my ($self, $name, $value, $options, $size, $missing, $disabled) = @_;
 $self = { 'size' => 1 };

WebminUI/Submit.pm

@@ -0,0 +1,41 @@
+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,15 +1,15 @@
-package Webmin::Table;
-use Webmin::JavascriptButton;
+package WebminUI::Table;
+use WebminUI::JavascriptButton;
 use WebminCore;
 
-=head2 new Webmin::Table(&headings, [width], [name], [heading])
+=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(&Webmin::Theme::Table::new) &&
-    caller() !~ /Webmin::Theme::Table/) {
-        return new Webmin::Theme::Table(@_[1..$#_]);
+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 ] };
@@ -59,12 +59,12 @@ if (defined($sm) && @srows > $sm) {
 		$rv .= $self->get_searchmsg()."<br>\n";
 		}
 
-	my $form = new Webmin::Form($thisurl, "get");
+	my $form = new WebminUI::Form($thisurl, "get");
 	$form->set_input($self->{'form'}->{'in'});
-	my $section = new Webmin::Section(undef, 2);
+	my $section = new WebminUI::Section(undef, 2);
 	$form->add_section($section);
 
-	my $col = new Webmin::Select("ui_searchcol_".$name, undef);
+	my $col = new WebminUI::Select("ui_searchcol_".$name, undef);
 	my $i = 0;
 	foreach my $h (@{$self->get_headings()}) {
 		if ($self->{'sortable'}->[$i]) {
@@ -74,12 +74,12 @@ if (defined($sm) && @srows > $sm) {
 		}
 	$section->add_input($text{'ui_searchcol'}, $col);
 
-	my $for = new Webmin::Textbox("ui_searchfor_".$name, undef, 30);
+	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 Webmin::JavascriptButton($text{'ui_searchok'},
+	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";
@@ -252,7 +252,7 @@ if (@srows) {
 		for(my $i=0; $i<@$r || $i<@sheadings; $i++) {
 			if (ref($r->[$i]) eq "ARRAY") {
 				my $j = $r->[$i]->[0] &&
-					$r->[$i]->[0]->isa("Webmin::TableAction")
+					$r->[$i]->[0]->isa("WebminUI::TableAction")
 					? "&nbsp;|&nbsp;" : "&nbsp;";
 				$row[$i] = $selmap{$r,$i}.
 				  join($j, map { ref($_) ? $_->html() : $_ }
@@ -278,7 +278,7 @@ return $rv;
 }
 
 =head2 set_form(form)
-Called by the Webmin::Form object when this table is added to it
+Called by the WebminUI::Form object when this table is added to it
 =cut
 sub set_form
 {
@@ -309,7 +309,7 @@ else {
 sub default_sorter
 {
 my ($value1, $value2, $col) = @_;
-if (ref($value1) && $value1->isa("Webmin::TableAction")) {
+if (ref($value1) && $value1->isa("WebminUI::TableAction")) {
 	$value1 = $value1->get_value();
 	$value2 = $value2->get_value();
 	}
@@ -432,7 +432,7 @@ return $self->{'headings'};
 }
 
 =head2 set_selector(column, input)
-Takes a Webmin::Checkboxes or Webmin::Radios object, and uses it to add checkboxes
+Takes a WebminUI::Checkboxes or WebminUI::Radios object, and uses it to add checkboxes
 in the specified column.
 =cut
 sub set_selector

WebminUI/TableAction.pm

@@ -1,15 +1,15 @@
-package Webmin::TableAction;
+package WebminUI::TableAction;
 use WebminCore;
 
-=head2 new Webmin::TableAction(cgi, label, &args, disabled)
+=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(&Webmin::Theme::TableAction::new) &&
-    caller() !~ /Webmin::Theme::TableAction/) {
-        return new Webmin::Theme::TableAction(@_[1..$#_]);
+if (defined(&WebminUI::Theme::TableAction::new) &&
+    caller() !~ /WebminUI::Theme::TableAction/) {
+        return new WebminUI::Theme::TableAction(@_[1..$#_]);
         }
 my ($self, $cgi, $value, $args, $disabled) = @_;
 $self = { };

WebminUI/Tabs.pm

@@ -1,14 +1,14 @@
-package Webmin::Tabs;
+package WebminUI::Tabs;
 use WebminCore;
 
-=head2 new Webmin::Tabs([&tabs])
+=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(&Webmin::Theme::Tabs::new)) {
-        return new Webmin::Theme::Tabs(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Tabs::new)) {
+        return new WebminUI::Theme::Tabs(@_[1..$#_]);
         }
 $self = { 'tabs' => [ ],
 	  'tab' => 0 };

WebminUI/Textarea.pm

@@ -1,15 +1,15 @@
-package Webmin::Textarea;
-use Webmin::Input;
+package WebminUI::Textarea;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Textarea(name, value, rows, cols, [wrap], [disabled])
+=head2 new WebminUI::Textarea(name, value, rows, cols, [wrap], [disabled])
 Create a new text box, with the given size
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Textarea::new)) {
-        return new Webmin::Theme::Textarea(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Textarea::new)) {
+        return new WebminUI::Theme::Textarea(@_[1..$#_]);
         }
 my ($self, $name, $value, $rows, $cols, $wrap, $disabled) = @_;
 $self = { };
@@ -113,7 +113,7 @@ Returns the value, without any \r characters
 sub get_value
 {
 my ($self) = @_;
-my $rv = Webmin::Input::get_value($self);
+my $rv = WebminUI::Input::get_value($self);
 $rv =~ s/\r//g;
 return $rv;
 }

WebminUI/Textbox.pm

@@ -1,15 +1,15 @@
-package Webmin::Textbox;
-use Webmin::Input;
+package WebminUI::Textbox;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Textbox(name, value, [size], [disabled])
+=head2 new WebminUI::Textbox(name, value, [size], [disabled])
 Create a new text input field
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Textbox::new)) {
-        return new Webmin::Theme::Textbox(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Textbox::new)) {
+        return new WebminUI::Theme::Textbox(@_[1..$#_]);
         }
 my ($self, $name, $value, $size, $disabled) = @_;
 $self = { 'size' => 30 };

WebminUI/Time.pm

@@ -1,16 +1,16 @@
-package Webmin::Time;
-use Webmin::Input;
+package WebminUI::Time;
+use WebminUI::Input;
 use Time::Local;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Time(name, time, [disabled])
+=head2 new WebminUI::Time(name, time, [disabled])
 Create a new field for selecting a time
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Time::new)) {
-        return new Webmin::Theme::Time(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Time::new)) {
+        return new WebminUI::Theme::Time(@_[1..$#_]);
         }
 my ($self, $name, $value, $disabled) = @_;
 bless($self = { });

WebminUI/TitleList.pm

@@ -1,14 +1,14 @@
-package Webmin::TitleList;
+package WebminUI::TitleList;
 use WebminCore;
 
-=head2 new Webmin::TitleList(title, &links, [alt-text])
+=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(&Webmin::Theme::TitleList::new)) {
-        return new Webmin::Theme::TitleList(@_[1..$#_]);
+if (defined(&WebminUI::Theme::TitleList::new)) {
+        return new WebminUI::Theme::TitleList(@_[1..$#_]);
         }
 $self = { };
 bless($self);
@@ -88,7 +88,7 @@ my ($self, $name, $link) = @_;
 push(@{$self->{'links'}}, [ $name, $link ]);
 }
 
-=head2 set_page(Webmin::Page)
+=head2 set_page(WebminUI::Page)
 Called when this menu is added to a page
 =cut
 sub set_page

WebminUI/Upload.pm

@@ -1,15 +1,15 @@
-package Webmin::Upload;
-use Webmin::Input;
+package WebminUI::Upload;
+use WebminUI::Input;
 use WebminCore;
-@ISA = ( "Webmin::Input" );
+@ISA = ( "WebminUI::Input" );
 
-=head2 new Webmin::Upload(name, [size])
+=head2 new WebminUI::Upload(name, [size])
 Create a new file upload field
 =cut
 sub new
 {
-if (defined(&Webmin::Theme::Upload::new)) {
-        return new Webmin::Theme::Upload(@_[1..$#_]);
+if (defined(&WebminUI::Theme::Upload::new)) {
+        return new WebminUI::Theme::Upload(@_[1..$#_]);
         }
 my ($self, $name, $size) = @_;
 $self = { 'size' => 30 };

WebminUI/User.pm

@@ -1,18 +1,18 @@
-package Webmin::User;
-use Webmin::Textbox;
+package WebminUI::User;
+use WebminUI::Textbox;
 use WebminCore;
-@ISA = ( "Webmin::Textbox" );
+@ISA = ( "WebminUI::Textbox" );
 
-=head2 new Webmin::User(name, value, [multiple], [disabled])
+=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(&Webmin::Theme::User::new)) {
-        return new Webmin::Theme::User(@_[1..$#_]);
+if (defined(&WebminUI::Theme::User::new)) {
+        return new WebminUI::Theme::User(@_[1..$#_]);
         }
 my ($self, $name, $value, $multiple, $disabled) = @_;
-$self = new Webmin::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
+$self = new WebminUI::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
 bless($self);
 $self->set_multiple($multiple);
 return $self;
@@ -24,7 +24,7 @@ Returns the HTML for this user input
 sub html
 {
 my ($self) = @_;
-my $rv = Webmin::Textbox::html($self);
+my $rv = WebminUI::Textbox::html($self);
 my $name = $self->get_name();
 my $multiple = $self->get_multiple();
 local $w = $multiple ? 500 : 300;

acl/Authen-SolarisRBAC-0.1/Changes

@@ -1,6 +0,0 @@
-Revision history for Perl extension Authen::SolarisRBAC.
-
-0.01  Mon Apr 18 11:53:37 2005
-	- original version; created by h2xs 1.20 with options
-		-A -n Authen::SolarisRBAC
-

acl/Authen-SolarisRBAC-0.1/MANIFEST

@@ -1,6 +0,0 @@
-Changes
-MANIFEST
-Makefile.PL
-SolarisRBAC.pm
-SolarisRBAC.xs
-test.pl

acl/Authen-SolarisRBAC-0.1/Makefile

@@ -1,877 +0,0 @@
-# This Makefile is for the Authen::SolarisRBAC extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.17 (Revision: 1.133) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-#       ANY CHANGES MADE HERE WILL BE LOST!
-#
-#   MakeMaker ARGV: ()
-#
-#   MakeMaker Parameters:
-
-#     CCCDLFLAGS => q[ ]
-#     CCFLAGS => q[ ]
-#     DEFINE => q[]
-#     INC => q[]
-#     LIBS => [q[-lsecdb -lsocket -lnsl -lintl]]
-#     NAME => q[Authen::SolarisRBAC]
-#     OPTIMIZE => q[ ]
-#     PREREQ_PM => {  }
-#     VERSION_FROM => q[SolarisRBAC.pm]
-
-# --- MakeMaker post_initialize section:
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /usr/perl5/5.8.4/lib/sun4-solaris-64int/Config.pm)
-
-# They may have been overridden via Makefile.PL or on the command line
-AR = ar
-CC = cc
-CCCDLFLAGS =  
-CCDLFLAGS = -R /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE
-DLEXT = so
-DLSRC = dl_dlopen.xs
-LD = cc
-LDDLFLAGS = -G
-LDFLAGS = 
-LIBC = /lib/libc.so
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = solaris
-OSVERS = 2.10
-RANLIB = :
-SITELIBEXP = /usr/perl5/site_perl/5.8.4
-SITEARCHEXP = /usr/perl5/site_perl/5.8.4/sun4-solaris-64int
-SO = so
-EXE_EXT = 
-FULL_AR = /usr/ccs/bin/ar
-VENDORARCHEXP = /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int
-VENDORLIBEXP = /usr/perl5/vendor_perl/5.8.4
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-NAME = Authen::SolarisRBAC
-NAME_SYM = Authen_SolarisRBAC
-VERSION = 0.1
-VERSION_MACRO = VERSION
-VERSION_SYM = 0_1
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 0.1
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = blib/arch
-INST_SCRIPT = blib/script
-INST_BIN = blib/bin
-INST_LIB = blib/lib
-INST_MAN1DIR = blib/man1
-INST_MAN3DIR = blib/man3
-MAN1EXT = 1
-MAN3EXT = 3
-INSTALLDIRS = site
-DESTDIR = 
-PREFIX = 
-PERLPREFIX = /usr/perl5/5.8.4
-SITEPREFIX = /usr/perl5/5.8.4
-VENDORPREFIX = /usr/perl5/5.8.4
-INSTALLPRIVLIB = $(PERLPREFIX)/lib
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /usr/perl5/site_perl/5.8.4
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB = /usr/perl5/vendor_perl/5.8.4
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = $(PERLPREFIX)/lib/sun4-solaris-64int
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /usr/perl5/site_perl/5.8.4/sun4-solaris-64int
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH = /usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = $(PERLPREFIX)/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = $(SITEPREFIX)/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN = $(VENDORPREFIX)/bin
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = $(PERLPREFIX)/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLMAN1DIR = $(PERLPREFIX)/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = $(SITEPREFIX)/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR = $(VENDORPREFIX)/man/man1
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = $(PERLPREFIX)/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = $(SITEPREFIX)/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR = $(VENDORPREFIX)/man/man3
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /usr/perl5/5.8.4/lib
-PERL_ARCHLIB = /usr/perl5/5.8.4/lib/sun4-solaris-64int
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = $(FIRST_MAKEFILE).old
-MAKE_APERL_FILE = $(FIRST_MAKEFILE).aperl
-PERLMAINCC = $(CC)
-PERL_INC = /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE
-PERL = /usr/local/bin/perl
-FULLPERL = /usr/local/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER   = /usr/perl5/5.8.4/lib/ExtUtils/MakeMaker.pm
-MM_VERSION  = 6.17
-MM_REVISION = 1.133
-
-# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
-# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
-# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
-# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
-FULLEXT = Authen/SolarisRBAC
-BASEEXT = SolarisRBAC
-PARENT_NAME = Authen
-DLBASE = $(BASEEXT)
-VERSION_FROM = SolarisRBAC.pm
-INC = 
-DEFINE = 
-OBJECT = $(BASEEXT)$(OBJ_EXT)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-
-# Handy lists of source code files:
-XS_FILES = SolarisRBAC.xs
-C_FILES  = SolarisRBAC.c
-O_FILES  = SolarisRBAC.o
-H_FILES  = 
-MAN1PODS = 
-MAN3PODS = SolarisRBAC.pm
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DIRFILESEP)Config.pm $(PERL_INC)$(DIRFILESEP)config.h
-
-# Where to build things
-INST_LIBDIR      = $(INST_LIB)/Authen
-INST_ARCHLIBDIR  = $(INST_ARCHLIB)/Authen
-
-INST_AUTODIR     = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC      = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC     = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT        = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-# Extra linker info
-EXPORT_LIST        = 
-PERL_ARCHIVE       = 
-PERL_ARCHIVE_AFTER = 
-
-
-TO_INST_PM = SolarisRBAC.pm
-
-PM_TO_BLIB = SolarisRBAC.pm \
-	$(INST_LIB)/Authen/SolarisRBAC.pm
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 1.42
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(PERLRUN)  -e 'use AutoSplit;  autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)'
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /usr/perl5/5.8.4/lib/ExtUtils
-XSUBPP = $(XSUBPPDIR)/xsubpp
-XSPROTOARG = 
-XSUBPPDEPS = /usr/perl5/5.8.4/lib/ExtUtils/typemap $(XSUBPP)
-XSUBPPARGS = -typemap /usr/perl5/5.8.4/lib/ExtUtils/typemap
-XSUBPP_EXTRA_ARGS = 
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(SHELL) -c true
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(PERLRUN) "-MExtUtils::Command" -e mkpath
-EQUALIZE_TIMESTAMP = $(PERLRUN) "-MExtUtils::Command" -e eqtime
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(PERLRUN) -MExtUtils::Install -e 'install({@ARGV}, '\''$(VERBINST)'\'', 0, '\''$(UNINST)'\'');'
-DOC_INSTALL = $(PERLRUN) "-MExtUtils::Command::MM" -e perllocal_install
-UNINSTALL = $(PERLRUN) "-MExtUtils::Command::MM" -e uninstall
-WARN_IF_OLD_PACKLIST = $(PERLRUN) "-MExtUtils::Command::MM" -e warn_if_old_packlist
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt: all
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section:
-TAR = tar
-TARFLAGS = cvf
-ZIP = zip
-ZIPFLAGS = -r
-COMPRESS = gzip --best
-SUFFIX = .gz
-SHAR = shar
-PREOP = $(NOECHO) $(NOOP)
-POSTOP = $(NOECHO) $(NOOP)
-TO_UNIX = $(NOECHO) $(NOOP)
-CI = ci -u
-RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
-DIST_CP = best
-DIST_DEFAULT = tardist
-DISTNAME = Authen-SolarisRBAC
-DISTVNAME = Authen-SolarisRBAC-0.1
-
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS =  
-OPTIMIZE =  
-PERLTYPE = 
-MPOLLUTE = 
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Authen::SolarisRBAC might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-EXTRALIBS = -lsecdb -lintl
-LDLOADLIBS = -lsecdb -lsocket -lnsl -lintl
-BSLOADLIBS = 
-LD_RUN_PATH = /lib
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \
-	$(CCFLAGS) $(OPTIMIZE) \
-	$(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
-	$(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIB="$(LIB)"\
-	LIBPERL_A="$(LIBPERL_A)"\
-	LINKTYPE="$(LINKTYPE)"\
-	PREFIX="$(PREFIX)"\
-	OPTIMIZE="$(OPTIMIZE)"\
-	PASTHRU_DEFINE="$(PASTHRU_DEFINE)"\
-	PASTHRU_INC="$(PASTHRU_INC)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES: .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest
-
-
-
-# --- MakeMaker c_o section:
-
-.c.i:
-	cc -E -c $(PASTHRU_INC) $(INC) \
-	$(CCFLAGS) $(OPTIMIZE) \
-	$(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
-	$(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
-
-.c.s:
-	$(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.c$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.C$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
-
-.cpp$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
-	$(PERLRUN) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
-	$(PERLRUN) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
-	$(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
-	$(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
-	$(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) $(INST_LIBDIR)$(DIRFILESEP).exists
-	$(NOECHO) $(NOOP)
-
-config :: $(INST_ARCHAUTODIR)$(DIRFILESEP).exists
-	$(NOECHO) $(NOOP)
-
-config :: $(INST_AUTODIR)$(DIRFILESEP).exists
-	$(NOECHO) $(NOOP)
-
-$(INST_AUTODIR)/.exists :: /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h
-	$(NOECHO) $(MKPATH) $(INST_AUTODIR)
-	$(NOECHO) $(EQUALIZE_TIMESTAMP) /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h $(INST_AUTODIR)/.exists
-
-	-$(NOECHO) $(CHMOD) $(PERM_RWX) $(INST_AUTODIR)
-
-$(INST_LIBDIR)/.exists :: /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h
-	$(NOECHO) $(MKPATH) $(INST_LIBDIR)
-	$(NOECHO) $(EQUALIZE_TIMESTAMP) /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h $(INST_LIBDIR)/.exists
-
-	-$(NOECHO) $(CHMOD) $(PERM_RWX) $(INST_LIBDIR)
-
-$(INST_ARCHAUTODIR)/.exists :: /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h
-	$(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
-	$(NOECHO) $(EQUALIZE_TIMESTAMP) /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h $(INST_ARCHAUTODIR)/.exists
-
-	-$(NOECHO) $(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR)
-
-config :: $(INST_MAN3DIR)$(DIRFILESEP).exists
-	$(NOECHO) $(NOOP)
-
-
-$(INST_MAN3DIR)/.exists :: /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h
-	$(NOECHO) $(MKPATH) $(INST_MAN3DIR)
-	$(NOECHO) $(EQUALIZE_TIMESTAMP) /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE/perl.h $(INST_MAN3DIR)/.exists
-
-	-$(NOECHO) $(CHMOD) $(PERM_RWX) $(INST_MAN3DIR)
-
-help:
-	perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-BOOTSTRAP = $(BASEEXT).bs
-
-# As Mkbootstrap might not write a file (if none is required)
-# we use touch to prevent make continually trying to remake it.
-# The DynaLoader only reads a non-empty file.
-$(BOOTSTRAP): $(FIRST_MAKEFILE) $(BOOTDEP) $(INST_ARCHAUTODIR)$(DIRFILESEP).exists
-	$(NOECHO) $(ECHO) "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
-	$(NOECHO) $(PERLRUN) \
-		"-MExtUtils::Mkbootstrap" \
-		-e "Mkbootstrap('$(BASEEXT)','$(BSLOADLIBS)');"
-	$(NOECHO) $(TOUCH) $(BOOTSTRAP)
-	$(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DIRFILESEP).exists
-	$(NOECHO) $(RM_RF) $(INST_BOOT)
-	-$(CP) $(BOOTSTRAP) $(INST_BOOT)
-	$(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS = 
-INST_DYNAMIC_DEP = 
-INST_DYNAMIC_FIX = 
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DIRFILESEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
-	$(RM_F) $@
-	LD_RUN_PATH="$(LD_RUN_PATH)" $(LD)  $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) $(INST_DYNAMIC_FIX)
-	$(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(INST_PM) has been moved to the all: target.
-## It remains here for awhile to allow for old usage: "make static"
-static :: $(FIRST_MAKEFILE) $(INST_STATIC)
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DIRFILESEP).exists
-	$(RM_RF) $@
-	$(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
-	$(CHMOD) $(PERM_RWX) $@
-	$(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all  \
-	SolarisRBAC.pm \
-	SolarisRBAC.pm
-	$(NOECHO) $(POD2MAN) --section=3 --perm_rw=$(PERM_RW)\
-	  SolarisRBAC.pm $(INST_MAN3DIR)/Authen::SolarisRBAC.$(MAN3EXT) 
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# Delete temporary files but do not touch installed files. We don't delete
-# the Makefile here so a later make realclean still has a makefile to use.
-
-clean :: clean_subdirs
-	-$(RM_RF) SolarisRBAC.c ./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all $(INST_ARCHAUTODIR)/extralibs.ld perlmain.c tmon.out mon.out so_locations pm_to_blib *$(OBJ_EXT) *$(LIB_EXT) perl.exe perl perl$(EXE_EXT) $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def lib$(BASEEXT).def $(BASEEXT).exp $(BASEEXT).x core core.*perl.*.? *perl.core core.[0-9] core.[0-9][0-9] core.[0-9][0-9][0-9] core.[0-9][0-9][0-9][0-9] core.[0-9][0-9][0-9][0-9][0-9]
-	-$(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-
-# Delete temporary files (via clean) and also delete installed files
-realclean purge ::  clean realclean_subdirs
-	$(RM_RF) $(INST_AUTODIR) $(INST_ARCHAUTODIR)
-	$(RM_RF) $(DISTVNAME)
-	$(RM_F) $(INST_DYNAMIC) $(INST_BOOT)
-	$(RM_F) $(INST_STATIC)
-	$(RM_F)  $(INST_LIB)/Authen/SolarisRBAC.pm $(MAKEFILE_OLD) $(FIRST_MAKEFILE)
-
-
-# --- MakeMaker metafile section:
-metafile :
-	$(NOECHO) $(ECHO) '# http://module-build.sourceforge.net/META-spec.html' > META.yml
-	$(NOECHO) $(ECHO) '#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#' >> META.yml
-	$(NOECHO) $(ECHO) 'name:         Authen-SolarisRBAC' >> META.yml
-	$(NOECHO) $(ECHO) 'version:      0.1' >> META.yml
-	$(NOECHO) $(ECHO) 'version_from: SolarisRBAC.pm' >> META.yml
-	$(NOECHO) $(ECHO) 'installdirs:  site' >> META.yml
-	$(NOECHO) $(ECHO) 'requires:' >> META.yml
-	$(NOECHO) $(ECHO) '' >> META.yml
-	$(NOECHO) $(ECHO) 'distribution_type: module' >> META.yml
-	$(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.17' >> META.yml
-
-
-# --- MakeMaker metafile_addtomanifest section:
-metafile_addtomanifest:
-	$(NOECHO) $(PERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
-	-e '    or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"'
-
-
-# --- MakeMaker dist_basics section:
-distclean :: realclean distcheck
-	$(NOECHO) $(NOOP)
-
-distcheck :
-	$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
-
-skipcheck :
-	$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
-
-manifest :
-	$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
-
-veryclean : realclean
-	$(RM_F) *~ *.orig */*~ */*.orig
-
-
-
-# --- MakeMaker dist_core section:
-
-dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
-	$(NOECHO) $(PERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \
-	-e '    if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';'
-
-tardist : $(DISTVNAME).tar$(SUFFIX)
-	$(NOECHO) $(NOOP)
-
-uutardist : $(DISTVNAME).tar$(SUFFIX)
-	uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu
-
-$(DISTVNAME).tar$(SUFFIX) : distdir
-	$(PREOP)
-	$(TO_UNIX)
-	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
-	$(RM_RF) $(DISTVNAME)
-	$(COMPRESS) $(DISTVNAME).tar
-	$(POSTOP)
-
-zipdist : $(DISTVNAME).zip
-	$(NOECHO) $(NOOP)
-
-$(DISTVNAME).zip : distdir
-	$(PREOP)
-	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
-	$(RM_RF) $(DISTVNAME)
-	$(POSTOP)
-
-shdist : distdir
-	$(PREOP)
-	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
-	$(RM_RF) $(DISTVNAME)
-	$(POSTOP)
-
-
-# --- MakeMaker distdir section:
-distdir : metafile metafile_addtomanifest
-	$(RM_RF) $(DISTVNAME)
-	$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
-		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
-
-
-
-# --- MakeMaker dist_test section:
-
-disttest : distdir
-	cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
-	cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
-	cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
-
-
-# --- MakeMaker dist_ci section:
-
-ci :
-	$(PERLRUN) "-MExtUtils::Manifest=maniread" \
-	  -e "@all = keys %{ maniread() };" \
-	  -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \
-	  -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});"
-
-
-# --- MakeMaker install section:
-
-install :: all pure_install doc_install
-
-install_perl :: all pure_perl_install doc_perl_install
-
-install_site :: all pure_site_install doc_site_install
-
-install_vendor :: all pure_vendor_install doc_vendor_install
-
-pure_install :: pure_$(INSTALLDIRS)_install
-
-doc_install :: doc_$(INSTALLDIRS)_install
-
-pure__install : pure_site_install
-	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-doc__install : doc_site_install
-	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-pure_perl_install ::
-	$(NOECHO) $(MOD_INSTALL) \
-		read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
-		write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(DESTINSTALLPRIVLIB) \
-		$(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
-		$(INST_BIN) $(DESTINSTALLBIN) \
-		$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
-		$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \
-		$(INST_MAN3DIR) $(DESTINSTALLMAN3DIR)
-	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
-		$(SITEARCHEXP)/auto/$(FULLEXT)
-
-
-pure_site_install ::
-	$(NOECHO) $(MOD_INSTALL) \
-		read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \
-		write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(DESTINSTALLSITELIB) \
-		$(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \
-		$(INST_BIN) $(DESTINSTALLSITEBIN) \
-		$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
-		$(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \
-		$(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR)
-	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
-		$(PERL_ARCHLIB)/auto/$(FULLEXT)
-
-pure_vendor_install ::
-	$(NOECHO) $(MOD_INSTALL) \
-		read $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist \
-		write $(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(DESTINSTALLVENDORLIB) \
-		$(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
-		$(INST_BIN) $(DESTINSTALLVENDORBIN) \
-		$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
-		$(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \
-		$(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
-
-doc_perl_install ::
-	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-	-$(NOECHO) $(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLPRIVLIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(DESTINSTALLARCHLIB)/perllocal.pod
-
-doc_site_install ::
-	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-	-$(NOECHO) $(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLSITELIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(DESTINSTALLARCHLIB)/perllocal.pod
-
-doc_vendor_install ::
-	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-	-$(NOECHO) $(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLVENDORLIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(DESTINSTALLARCHLIB)/perllocal.pod
-
-
-uninstall :: uninstall_from_$(INSTALLDIRS)dirs
-
-uninstall_from_perldirs ::
-	$(NOECHO) $(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist
-
-uninstall_from_sitedirs ::
-	$(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist
-
-uninstall_from_vendordirs ::
-	$(NOECHO) $(UNINSTALL) $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist
-
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE:
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
-	$(PERL_INC)/EXTERN.h		\
-	$(PERL_INC)/INTERN.h		\
-	$(PERL_INC)/XSUB.h		\
-	$(PERL_INC)/av.h		\
-	$(PERL_INC)/cc_runtime.h	\
-	$(PERL_INC)/config.h		\
-	$(PERL_INC)/cop.h		\
-	$(PERL_INC)/cv.h		\
-	$(PERL_INC)/dosish.h		\
-	$(PERL_INC)/embed.h		\
-	$(PERL_INC)/embedvar.h		\
-	$(PERL_INC)/fakethr.h		\
-	$(PERL_INC)/form.h		\
-	$(PERL_INC)/gv.h		\
-	$(PERL_INC)/handy.h		\
-	$(PERL_INC)/hv.h		\
-	$(PERL_INC)/intrpvar.h		\
-	$(PERL_INC)/iperlsys.h		\
-	$(PERL_INC)/keywords.h		\
-	$(PERL_INC)/mg.h		\
-	$(PERL_INC)/nostdio.h		\
-	$(PERL_INC)/op.h		\
-	$(PERL_INC)/opcode.h		\
-	$(PERL_INC)/patchlevel.h	\
-	$(PERL_INC)/perl.h		\
-	$(PERL_INC)/perlio.h		\
-	$(PERL_INC)/perlsdio.h		\
-	$(PERL_INC)/perlsfio.h		\
-	$(PERL_INC)/perlvars.h		\
-	$(PERL_INC)/perly.h		\
-	$(PERL_INC)/pp.h		\
-	$(PERL_INC)/pp_proto.h		\
-	$(PERL_INC)/proto.h		\
-	$(PERL_INC)/regcomp.h		\
-	$(PERL_INC)/regexp.h		\
-	$(PERL_INC)/regnodes.h		\
-	$(PERL_INC)/scope.h		\
-	$(PERL_INC)/sv.h		\
-	$(PERL_INC)/thrdvar.h		\
-	$(PERL_INC)/thread.h		\
-	$(PERL_INC)/unixish.h		\
-	$(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-SolarisRBAC.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# We take a very conservative approach here, but it's worth it.
-# We move Makefile to Makefile.old here to avoid gnu make looping.
-$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
-	$(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?"
-	$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
-	$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
-	$(NOECHO) $(MV)   $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
-	-$(MAKE) -f $(MAKEFILE_OLD) clean $(DEV_NULL) || $(NOOP)
-	$(PERLRUN) Makefile.PL 
-	$(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
-	$(NOECHO) $(ECHO) "==> Please rerun the make command.  <=="
-	false
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET    = perl
-FULLPERL      = /usr/local/bin/perl
-
-$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
-	$(MAKE) -f $(MAKE_APERL_FILE) $@
-
-$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
-	$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
-	$(NOECHO) $(PERLRUNINST) \
-		Makefile.PL DIR= \
-		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
-		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES = 
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE)
-
-test_dynamic :: pure_all
-	PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-testdb_dynamic :: pure_all
-	PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-	PERL_DL_NONLAZY=1 ./$(MAP_TARGET) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-testdb_static :: pure_all $(MAP_TARGET)
-	PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd:
-	$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0,1,0,0">' > $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <TITLE>$(DISTNAME)</TITLE>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <IMPLEMENTATION>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <OS NAME="$(OSNAME)" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <ARCHITECTURE NAME="sun4-solaris-64int" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <CODEBASE HREF="" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    </IMPLEMENTATION>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib: $(TO_INST_PM)
-	$(NOECHO) $(PERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', '\''$(PM_FILTER)'\'')'\
-	  SolarisRBAC.pm $(INST_LIB)/Authen/SolarisRBAC.pm 
-	$(NOECHO) $(TOUCH) $@
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-
-
-# End.

acl/Authen-SolarisRBAC-0.1/Makefile.PL

@@ -1,14 +0,0 @@
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
-    'NAME'		=> 'Authen::SolarisRBAC',
-    'VERSION_FROM'	=> 'SolarisRBAC.pm', # finds $VERSION
-    'PREREQ_PM'		=> {}, # e.g., Module::Name => 1.1
-    'LIBS'		=> ['-lsecdb -lsocket -lnsl -lintl'], # e.g., '-lm'
-    'DEFINE'		=> '', # e.g., '-DHAVE_SOMETHING'
-    'INC'		=> '', # e.g., '-I/usr/include/other'
-    'CCCDLFLAGS'        => ' ',
-    'CCFLAGS'           => ' ',
-    'OPTIMIZE'          => ' ',
-);

acl/Authen-SolarisRBAC-0.1/Makefile.old

@@ -1,813 +0,0 @@
-# This Makefile is for the Authen::SolarisRBAC extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 5.45 (Revision: 1.222) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-#	ANY CHANGES MADE HERE WILL BE LOST!
-#
-#   MakeMaker ARGV: ()
-#
-#   MakeMaker Parameters:
-
-#	DEFINE => q[]
-#	INC => q[]
-#	LIBS => [q[-lsecdb -lsocket -lnsl -lintl]]
-#	NAME => q[Authen::SolarisRBAC]
-#	PREREQ_PM => {  }
-#	VERSION_FROM => q[SolarisRBAC.pm]
-
-# --- MakeMaker post_initialize section:
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /usr/lib/perl5/5.6.0/i386-linux/Config.pm)
-
-# They may have been overridden via Makefile.PL or on the command line
-AR = ar
-CC = gcc
-CCCDLFLAGS = -fpic
-CCDLFLAGS = -rdynamic
-DLEXT = so
-DLSRC = dl_dlopen.xs
-LD = gcc
-LDDLFLAGS = -shared
-LDFLAGS = 
-LIBC = /lib/libc-2.2.1.so
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = linux
-OSVERS = 2.2.14
-RANLIB = :
-SO = so
-EXE_EXT = 
-FULL_AR = /usr/bin/ar
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-NAME = Authen::SolarisRBAC
-DISTNAME = Authen-SolarisRBAC
-NAME_SYM = Authen_SolarisRBAC
-VERSION = 0.1
-VERSION_SYM = 0_1
-XS_VERSION = 0.1
-INST_BIN = blib/bin
-INST_EXE = blib/script
-INST_LIB = blib/lib
-INST_ARCHLIB = blib/arch
-INST_SCRIPT = blib/script
-PREFIX = /usr
-INSTALLDIRS = site
-INSTALLPRIVLIB = $(PREFIX)/lib/perl5/5.6.0
-INSTALLARCHLIB = $(PREFIX)/lib/perl5/5.6.0/i386-linux
-INSTALLSITELIB = $(PREFIX)/lib/perl5/site-perl
-INSTALLSITEARCH = $(PREFIX)/lib/perl5/site-perl/i386-linux
-INSTALLBIN = $(PREFIX)/bin
-INSTALLSCRIPT = $(PREFIX)/bin
-PERL_LIB = /usr/lib/perl5/5.6.0
-PERL_ARCHLIB = /usr/lib/perl5/5.6.0/i386-linux
-SITELIBEXP = /usr/lib/perl5/site-perl
-SITEARCHEXP = /usr/lib/perl5/site-perl/i386-linux
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /usr/lib/perl5/5.6.0/i386-linux/CORE
-PERL = /usr/local/bin/perl
-FULLPERL = /usr/local/bin/perl
-FULL_AR = /usr/bin/ar
-
-VERSION_MACRO = VERSION
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-MAKEMAKER = /usr/lib/perl5/5.6.0/ExtUtils/MakeMaker.pm
-MM_VERSION = 5.45
-
-# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
-# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
-# ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)  !!! Deprecated from MM 5.32  !!!
-# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
-# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
-FULLEXT = Authen/SolarisRBAC
-BASEEXT = SolarisRBAC
-PARENT_NAME = Authen
-DLBASE = $(BASEEXT)
-VERSION_FROM = SolarisRBAC.pm
-INC = 
-DEFINE = 
-OBJECT = $(BASEEXT)$(OBJ_EXT)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-
-# Handy lists of source code files:
-XS_FILES= SolarisRBAC.xs
-C_FILES = SolarisRBAC.c
-O_FILES = SolarisRBAC.o
-H_FILES = 
-HTMLLIBPODS    = 
-HTMLSCRIPTPODS = 
-MAN1PODS = 
-MAN3PODS = SolarisRBAC.pm
-HTMLEXT = html
-INST_MAN1DIR = blib/man1
-INSTALLMAN1DIR = /usr/share/man/en/man1
-MAN1EXT = 1
-INST_MAN3DIR = blib/man3
-INSTALLMAN3DIR = /usr/share/perl5/man/man3
-MAN3EXT = 3
-PERM_RW = 644
-PERM_RWX = 755
-
-# work around a famous dec-osf make(1) feature(?):
-makemakerdflt: all
-
-.SUFFIXES: .xs .c .C .cpp .cxx .cc $(OBJ_EXT)
-
-# Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
-# some make implementations will delete the Makefile when we rebuild it. Because
-# we call false(1) when we rebuild it. So make(1) is not completely wrong when it
-# does so. Our milage may vary.
-# .PRECIOUS: Makefile    # seems to be not necessary anymore
-
-.PHONY: all config static dynamic test linkext manifest
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)/Config.pm $(PERL_INC)/config.h
-
-# Where to put things:
-INST_LIBDIR      = $(INST_LIB)/Authen
-INST_ARCHLIBDIR  = $(INST_ARCHLIB)/Authen
-
-INST_AUTODIR     = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC  = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT    = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-EXPORT_LIST = 
-
-PERL_ARCHIVE = 
-
-TO_INST_PM = SolarisRBAC.pm
-
-PM_TO_BLIB = SolarisRBAC.pm \
-	$(INST_LIBDIR)/SolarisRBAC.pm
-
-
-# --- MakeMaker tool_autosplit section:
-
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /usr/lib/perl5/5.6.0/ExtUtils
-XSUBPP = $(XSUBPPDIR)/xsubpp
-XSPROTOARG = 
-XSUBPPDEPS = $(XSUBPPDIR)/typemap $(XSUBPP)
-XSUBPPARGS = -typemap $(XSUBPPDIR)/typemap
-
-
-# --- MakeMaker tools_other section:
-
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-LD = gcc
-MV = mv
-NOOP = $(SHELL) -c true
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-
-# The following is a portable way to say mkdir -p
-# To see which directories are created, change the if 0 to if 1
-MKPATH = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e mkpath
-
-# This helps us to minimize the effect of the .exists files A yet
-# better solution would be to have a stable file in the perl
-# distribution with a timestamp of zero. But this solution doesn't
-# need any changes to the core distribution and works with older perls
-EQUALIZE_TIMESTAMP = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e eqtime
-
-# Here we warn users that an old packlist file was found somewhere,
-# and that they should call some uninstall routine
-WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \
--e 'print "WARNING: I have found an old package in\n";' \
--e 'print "\t$$ARGV[0].\n";' \
--e 'print "Please make sure the two installations are not conflicting\n";'
-
-UNINST=0
-VERBINST=1
-
-MOD_INSTALL = $(PERL) -I$(INST_LIB) -I$(PERL_LIB) -MExtUtils::Install \
--e "install({@ARGV},'$(VERBINST)',0,'$(UNINST)');"
-
-DOC_INSTALL = $(PERL) -e '$$\="\n\n";' \
--e 'print "=head2 ", scalar(localtime), ": C<", shift, ">", " L<", shift, ">";' \
--e 'print "=over 4";' \
--e 'while (defined($$key = shift) and defined($$val = shift)){print "=item *";print "C<$$key: $$val>";}' \
--e 'print "=back";'
-
-UNINSTALL =   $(PERL) -MExtUtils::Install \
--e 'uninstall($$ARGV[0],1,1); print "\nUninstall is deprecated. Please check the";' \
--e 'print " packlist above carefully.\n  There may be errors. Remove the";' \
--e 'print " appropriate files manually.\n  Sorry for the inconveniences.\n"'
-
-
-# --- MakeMaker dist section:
-
-DISTVNAME = $(DISTNAME)-$(VERSION)
-TAR  = tar
-TARFLAGS = cvf
-ZIP  = zip
-ZIPFLAGS = -r
-COMPRESS = gzip --best
-SUFFIX = .gz
-SHAR = shar
-PREOP = @$(NOOP)
-POSTOP = @$(NOOP)
-TO_UNIX = @$(NOOP)
-CI = ci -u
-RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
-DIST_CP = best
-DIST_DEFAULT = tardist
-
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS = -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
-OPTIMIZE = -O2 -m486 -fno-strength-reduce -fomit-frame-pointer -pipe
-PERLTYPE = 
-LARGE = 
-SPLIT = 
-MPOLLUTE = 
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Authen::SolarisRBAC might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-EXTRALIBS = -lnsl -lintl
-LDLOADLIBS = -lnsl -lintl
-BSLOADLIBS = 
-LD_RUN_PATH = /lib:/usr/lib
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(INC) $(CCFLAGS) $(OPTIMIZE) \
-	$(PERLTYPE) $(LARGE) $(SPLIT) $(MPOLLUTE) $(DEFINE_VERSION) \
-	$(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIB="$(LIB)"\
-	LIBPERL_A="$(LIBPERL_A)"\
-	LINKTYPE="$(LINKTYPE)"\
-	PREFIX="$(PREFIX)"\
-	OPTIMIZE="$(OPTIMIZE)"
-
-
-# --- MakeMaker c_o section:
-
-.c$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
-
-.C$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.C
-
-.cpp$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
-	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cc
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-
-#all ::	config $(INST_PM) subdirs linkext manifypods
-
-all :: pure_all htmlifypods manifypods
-	@$(NOOP)
-
-pure_all :: config pm_to_blib subdirs linkext
-	@$(NOOP)
-
-subdirs :: $(MYEXTLIB)
-	@$(NOOP)
-
-config :: Makefile $(INST_LIBDIR)/.exists
-	@$(NOOP)
-
-config :: $(INST_ARCHAUTODIR)/.exists
-	@$(NOOP)
-
-config :: $(INST_AUTODIR)/.exists
-	@$(NOOP)
-
-$(INST_AUTODIR)/.exists :: /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h
-	@$(MKPATH) $(INST_AUTODIR)
-	@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h $(INST_AUTODIR)/.exists
-
-	-@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR)
-
-$(INST_LIBDIR)/.exists :: /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h
-	@$(MKPATH) $(INST_LIBDIR)
-	@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h $(INST_LIBDIR)/.exists
-
-	-@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR)
-
-$(INST_ARCHAUTODIR)/.exists :: /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h
-	@$(MKPATH) $(INST_ARCHAUTODIR)
-	@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h $(INST_ARCHAUTODIR)/.exists
-
-	-@$(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR)
-
-config :: $(INST_MAN3DIR)/.exists
-	@$(NOOP)
-
-
-$(INST_MAN3DIR)/.exists :: /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h
-	@$(MKPATH) $(INST_MAN3DIR)
-	@$(EQUALIZE_TIMESTAMP) /usr/lib/perl5/5.6.0/i386-linux/CORE/perl.h $(INST_MAN3DIR)/.exists
-
-	-@$(CHMOD) $(PERM_RWX) $(INST_MAN3DIR)
-
-help:
-	perldoc ExtUtils::MakeMaker
-
-Version_check:
-	@$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
-		-MExtUtils::MakeMaker=Version_check \
-		-e "Version_check('$(MM_VERSION)')"
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
-	@$(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-## $(INST_PM) has been moved to the all: target.
-## It remains here for awhile to allow for old usage: "make dynamic"
-#dynamic :: Makefile $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM)
-dynamic :: Makefile $(INST_DYNAMIC) $(INST_BOOT)
-	@$(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-
-BOOTSTRAP = SolarisRBAC.bs
-
-# As Mkbootstrap might not write a file (if none is required)
-# we use touch to prevent make continually trying to remake it.
-# The DynaLoader only reads a non-empty file.
-$(BOOTSTRAP): Makefile  $(INST_ARCHAUTODIR)/.exists
-	@echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
-	@$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \
-		-MExtUtils::Mkbootstrap \
-		-e "Mkbootstrap('$(BASEEXT)','$(BSLOADLIBS)');"
-	@$(TOUCH) $(BOOTSTRAP)
-	$(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists
-	@rm -rf $(INST_BOOT)
-	-cp $(BOOTSTRAP) $(INST_BOOT)
-	$(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS = 
-INST_DYNAMIC_DEP = 
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
-	LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@  $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST)
-	$(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(INST_PM) has been moved to the all: target.
-## It remains here for awhile to allow for old usage: "make static"
-#static :: Makefile $(INST_STATIC) $(INST_PM)
-static :: Makefile $(INST_STATIC)
-	@$(NOOP)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists
-	$(RM_RF) $@
-	$(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
-	$(CHMOD) $(PERM_RWX) $@
-	@echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-
-# --- MakeMaker htmlifypods section:
-
-htmlifypods : pure_all
-	@$(NOOP)
-
-
-# --- MakeMaker manifypods section:
-POD2MAN_EXE = /usr/bin/pod2man
-POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \
--e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
--e 'print "Manifying $$m{$$_}\n";' \
--e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
--e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
-
-manifypods : pure_all SolarisRBAC.pm
-	@$(POD2MAN) \
-	SolarisRBAC.pm \
-	$(INST_MAN3DIR)/Authen::SolarisRBAC.$(MAN3EXT)
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean section:
-
-# Delete temporary files but do not touch installed files. We don't delete
-# the Makefile here so a later make realclean still has a makefile to use.
-
-clean ::
-	-rm -rf SolarisRBAC.c ./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all perlmain.c mon.out core core.*perl.*.? *perl.core so_locations pm_to_blib *~ */*~ */*/*~ *$(OBJ_EXT) *$(LIB_EXT) perl.exe $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def $(BASEEXT).exp
-	-mv Makefile Makefile.old $(DEV_NULL)
-
-
-# --- MakeMaker realclean section:
-
-# Delete temporary files (via clean) and also delete installed files
-realclean purge ::  clean
-	rm -rf $(INST_AUTODIR) $(INST_ARCHAUTODIR)
-	rm -f $(INST_DYNAMIC) $(INST_BOOT)
-	rm -f $(INST_STATIC)
-	rm -f $(INST_LIBDIR)/SolarisRBAC.pm
-	rm -rf Makefile Makefile.old
-
-
-# --- MakeMaker dist_basics section:
-
-distclean :: realclean distcheck
-
-distcheck :
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=fullcheck \
-		-e fullcheck
-
-skipcheck :
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=skipcheck \
-		-e skipcheck
-
-manifest :
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=mkmanifest \
-		-e mkmanifest
-
-
-# --- MakeMaker dist_core section:
-
-dist : $(DIST_DEFAULT)
-	@$(PERL) -le 'print "Warning: Makefile possibly out of date with $$vf" if ' \
-	    -e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "Makefile";'
-
-tardist : $(DISTVNAME).tar$(SUFFIX)
-
-zipdist : $(DISTVNAME).zip
-
-$(DISTVNAME).tar$(SUFFIX) : distdir
-	$(PREOP)
-	$(TO_UNIX)
-	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
-	$(RM_RF) $(DISTVNAME)
-	$(COMPRESS) $(DISTVNAME).tar
-	$(POSTOP)
-
-$(DISTVNAME).zip : distdir
-	$(PREOP)
-	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
-	$(RM_RF) $(DISTVNAME)
-	$(POSTOP)
-
-uutardist : $(DISTVNAME).tar$(SUFFIX)
-	uuencode $(DISTVNAME).tar$(SUFFIX) \
-		$(DISTVNAME).tar$(SUFFIX) > \
-		$(DISTVNAME).tar$(SUFFIX)_uu
-
-shdist : distdir
-	$(PREOP)
-	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
-	$(RM_RF) $(DISTVNAME)
-	$(POSTOP)
-
-
-# --- MakeMaker dist_dir section:
-
-distdir :
-	$(RM_RF) $(DISTVNAME)
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=manicopy,maniread \
-		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
-
-
-# --- MakeMaker dist_test section:
-
-disttest : distdir
-	cd $(DISTVNAME) && $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) Makefile.PL
-	cd $(DISTVNAME) && $(MAKE)
-	cd $(DISTVNAME) && $(MAKE) test
-
-
-# --- MakeMaker dist_ci section:
-
-ci :
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=maniread \
-		-e "@all = keys %{ maniread() };" \
-		-e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \
-		-e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");'
-
-
-# --- MakeMaker install section:
-
-install :: all pure_install doc_install
-
-install_perl :: all pure_perl_install doc_perl_install
-
-install_site :: all pure_site_install doc_site_install
-
-install_ :: install_site
-	@echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-pure_install :: pure_$(INSTALLDIRS)_install
-
-doc_install :: doc_$(INSTALLDIRS)_install
-	@echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
-
-pure__install : pure_site_install
-	@echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-doc__install : doc_site_install
-	@echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-pure_perl_install ::
-	@$(MOD_INSTALL) \
-		read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
-		write $(INSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(INSTALLPRIVLIB) \
-		$(INST_ARCHLIB) $(INSTALLARCHLIB) \
-		$(INST_BIN) $(INSTALLBIN) \
-		$(INST_SCRIPT) $(INSTALLSCRIPT) \
-		$(INST_HTMLLIBDIR) $(INSTALLHTMLPRIVLIBDIR) \
-		$(INST_HTMLSCRIPTDIR) $(INSTALLHTMLSCRIPTDIR) \
-		$(INST_MAN1DIR) $(INSTALLMAN1DIR) \
-		$(INST_MAN3DIR) $(INSTALLMAN3DIR)
-	@$(WARN_IF_OLD_PACKLIST) \
-		$(SITEARCHEXP)/auto/$(FULLEXT)
-
-
-pure_site_install ::
-	@$(MOD_INSTALL) \
-		read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \
-		write $(INSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(INSTALLSITELIB) \
-		$(INST_ARCHLIB) $(INSTALLSITEARCH) \
-		$(INST_BIN) $(INSTALLBIN) \
-		$(INST_SCRIPT) $(INSTALLSCRIPT) \
-		$(INST_HTMLLIBDIR) $(INSTALLHTMLSITELIBDIR) \
-		$(INST_HTMLSCRIPTDIR) $(INSTALLHTMLSCRIPTDIR) \
-		$(INST_MAN1DIR) $(INSTALLMAN1DIR) \
-		$(INST_MAN3DIR) $(INSTALLMAN3DIR)
-	@$(WARN_IF_OLD_PACKLIST) \
-		$(PERL_ARCHLIB)/auto/$(FULLEXT)
-
-doc_perl_install ::
-	-@$(MKPATH) $(INSTALLARCHLIB)
-	-@$(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLPRIVLIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(INSTALLARCHLIB)/perllocal.pod
-
-doc_site_install ::
-	-@$(MKPATH) $(INSTALLARCHLIB)
-	-@$(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLSITELIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(INSTALLARCHLIB)/perllocal.pod
-
-
-uninstall :: uninstall_from_$(INSTALLDIRS)dirs
-
-uninstall_from_perldirs ::
-	@$(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist
-
-uninstall_from_sitedirs ::
-	@$(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist
-
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE:
-	@$(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
-	$(PERL_INC)/EXTERN.h		\
-	$(PERL_INC)/INTERN.h		\
-	$(PERL_INC)/XSUB.h		\
-	$(PERL_INC)/av.h		\
-	$(PERL_INC)/cc_runtime.h	\
-	$(PERL_INC)/config.h		\
-	$(PERL_INC)/cop.h		\
-	$(PERL_INC)/cv.h		\
-	$(PERL_INC)/dosish.h		\
-	$(PERL_INC)/embed.h		\
-	$(PERL_INC)/embedvar.h		\
-	$(PERL_INC)/fakethr.h		\
-	$(PERL_INC)/form.h		\
-	$(PERL_INC)/gv.h		\
-	$(PERL_INC)/handy.h		\
-	$(PERL_INC)/hv.h		\
-	$(PERL_INC)/intrpvar.h		\
-	$(PERL_INC)/iperlsys.h		\
-	$(PERL_INC)/keywords.h		\
-	$(PERL_INC)/mg.h		\
-	$(PERL_INC)/nostdio.h		\
-	$(PERL_INC)/objXSUB.h		\
-	$(PERL_INC)/op.h		\
-	$(PERL_INC)/opcode.h		\
-	$(PERL_INC)/opnames.h		\
-	$(PERL_INC)/patchlevel.h	\
-	$(PERL_INC)/perl.h		\
-	$(PERL_INC)/perlapi.h		\
-	$(PERL_INC)/perlio.h		\
-	$(PERL_INC)/perlsdio.h		\
-	$(PERL_INC)/perlsfio.h		\
-	$(PERL_INC)/perlvars.h		\
-	$(PERL_INC)/perly.h		\
-	$(PERL_INC)/pp.h		\
-	$(PERL_INC)/pp_proto.h		\
-	$(PERL_INC)/proto.h		\
-	$(PERL_INC)/regcomp.h		\
-	$(PERL_INC)/regexp.h		\
-	$(PERL_INC)/regnodes.h		\
-	$(PERL_INC)/scope.h		\
-	$(PERL_INC)/sv.h		\
-	$(PERL_INC)/thrdvar.h		\
-	$(PERL_INC)/thread.h		\
-	$(PERL_INC)/unixish.h		\
-	$(PERL_INC)/utf8.h		\
-	$(PERL_INC)/util.h		\
-	$(PERL_INC)/warnings.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-SolarisRBAC.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# We take a very conservative approach here, but it\'s worth it.
-# We move Makefile to Makefile.old here to avoid gnu make looping.
-Makefile : Makefile.PL $(CONFIGDEP)
-	@echo "Makefile out-of-date with respect to $?"
-	@echo "Cleaning current config before rebuilding Makefile..."
-	-@$(RM_F) Makefile.old
-	-@$(MV) Makefile Makefile.old
-	-$(MAKE) -f Makefile.old clean $(DEV_NULL) || $(NOOP)
-	$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" Makefile.PL 
-	@echo "==> Your Makefile has been rebuilt. <=="
-	@echo "==> Please rerun the make command.  <=="
-	false
-
-# To change behavior to :: would be nice, but would break Tk b9.02
-# so you find such a warning below the dist target.
-#Makefile :: $(VERSION_FROM)
-#	@echo "Warning: Makefile possibly out of date with $(VERSION_FROM)"
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET    = perl
-FULLPERL      = /usr/local/bin/perl
-
-$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
-	$(MAKE) -f $(MAKE_APERL_FILE) $@
-
-$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
-	@echo Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
-	@$(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
-		Makefile.PL DIR= \
-		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
-		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES = 
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE)
-
-test_dynamic :: pure_all
-	PERL_DL_NONLAZY=1 $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE)
-
-testdb_dynamic :: pure_all
-	PERL_DL_NONLAZY=1 $(FULLPERL) $(TESTDB_SW) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-	PERL_DL_NONLAZY=1 ./$(MAP_TARGET) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE)
-
-testdb_static :: pure_all $(MAP_TARGET)
-	PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd:
-	@$(PERL) -e "print qq{<SOFTPKG NAME=\"Authen-SolarisRBAC\" VERSION=\"0,1,0,0\">\n}. qq{\t<TITLE>Authen-SolarisRBAC</TITLE>\n}. qq{\t<ABSTRACT></ABSTRACT>\n}. qq{\t<AUTHOR></AUTHOR>\n}. qq{\t<IMPLEMENTATION>\n}. qq{\t\t<OS NAME=\"$(OSNAME)\" />\n}. qq{\t\t<ARCHITECTURE NAME=\"i386-linux\" />\n}. qq{\t\t<CODEBASE HREF=\"\" />\n}. qq{\t</IMPLEMENTATION>\n}. qq{</SOFTPKG>\n}" > Authen-SolarisRBAC.ppd
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib: $(TO_INST_PM)
-	@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
-	"-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
-        -e "pm_to_blib({qw{$(PM_TO_BLIB)}},'$(INST_LIB)/auto')"
-	@$(TOUCH) $@
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-
-
-# End.

acl/Authen-SolarisRBAC-0.1/SolarisRBAC.c

@@ -1,50 +0,0 @@
-/*
- * This file was generated automatically by xsubpp version 1.9508 from the
- * contents of SolarisRBAC.xs. Do not edit this file, edit SolarisRBAC.xs instead.
- *
- *	ANY CHANGES MADE HERE WILL BE LOST!
- *
- */
-
-#line 1 "SolarisRBAC.xs"
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include <auth_attr.h>
-#include <secdb.h>
-
-#line 17 "SolarisRBAC.c"
-XS(XS_Authen__SolarisRBAC_chkauth); /* prototype to pass -Wmissing-prototypes */
-XS(XS_Authen__SolarisRBAC_chkauth)
-{
-    dXSARGS;
-    if (items != 2)
-	Perl_croak(aTHX_ "Usage: Authen::SolarisRBAC::chkauth(authname, username)");
-    {
-	char *	authname = (char *)SvPV_nolen(ST(0));
-	char *	username = (char *)SvPV_nolen(ST(1));
-	int	RETVAL;
-	dXSTARG;
-#line 14 "SolarisRBAC.xs"
-		RETVAL = chkauthattr(authname, username);
-#line 31 "SolarisRBAC.c"
-	XSprePUSH; PUSHi((IV)RETVAL);
-    }
-    XSRETURN(1);
-}
-
-#ifdef __cplusplus
-extern "C"
-#endif
-XS(boot_Authen__SolarisRBAC); /* prototype to pass -Wmissing-prototypes */
-XS(boot_Authen__SolarisRBAC)
-{
-    dXSARGS;
-    char* file = __FILE__;
-
-    XS_VERSION_BOOTCHECK ;
-
-        newXS("Authen::SolarisRBAC::chkauth", XS_Authen__SolarisRBAC_chkauth, file);
-    XSRETURN_YES;
-}
-

acl/Authen-SolarisRBAC-0.1/SolarisRBAC.pm

@@ -1,64 +0,0 @@
-package Authen::SolarisRBAC;
-
-require 5.005_62;
-use strict;
-use warnings;
-
-require Exporter;
-require DynaLoader;
-
-our @ISA = qw(Exporter DynaLoader);
-
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-
-# This allows declaration	use Authen::SolarisRBAC ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-	
-) ] );
-
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
-
-our @EXPORT = qw(
-	
-);
-our $VERSION = '0.1';
-
-bootstrap Authen::SolarisRBAC $VERSION;
-
-# Preloaded methods go here.
-
-1;
-__END__
-# Below is stub documentation for your module. You better edit it!
-
-=head1 NAME
-
-Authen::SolarisRBAC - Perl extension for Solaris RBAC
-
-=head1 SYNOPSIS
-
-  use Authen::SolarisRBAC;
-  $ok = Authen::SolarisRBAC::chkauth("solaris.admin.dcmgr.admin", "fred");
-
-=head1 DESCRIPTION
-
-Provides wrappers for the Solaris RBAC functions.
-
-=head2 EXPORT
-
-None by default.
-
-
-=head1 AUTHOR
-
-Jamie Cameron, jcameron@webmin.com
-
-=head1 SEE ALSO
-
-rbac(5).
-
-=cut

acl/Authen-SolarisRBAC-0.1/SolarisRBAC.xs

@@ -1,18 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include <auth_attr.h>
-#include <secdb.h>
-
-MODULE = Authen::SolarisRBAC		PACKAGE = Authen::SolarisRBAC		
-
-int
-chkauth(authname, username)
-	char *authname
-	char *username
-	CODE:
-		RETVAL = chkauthattr(authname, username);
-	OUTPUT:
-		RETVAL
-
-

acl/Authen-SolarisRBAC-0.1/blib/lib/Authen/SolarisRBAC.pm

@@ -1,64 +0,0 @@
-package Authen::SolarisRBAC;
-
-require 5.005_62;
-use strict;
-use warnings;
-
-require Exporter;
-require DynaLoader;
-
-our @ISA = qw(Exporter DynaLoader);
-
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-
-# This allows declaration	use Authen::SolarisRBAC ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-	
-) ] );
-
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
-
-our @EXPORT = qw(
-	
-);
-our $VERSION = '0.1';
-
-bootstrap Authen::SolarisRBAC $VERSION;
-
-# Preloaded methods go here.
-
-1;
-__END__
-# Below is stub documentation for your module. You better edit it!
-
-=head1 NAME
-
-Authen::SolarisRBAC - Perl extension for Solaris RBAC
-
-=head1 SYNOPSIS
-
-  use Authen::SolarisRBAC;
-  $ok = Authen::SolarisRBAC::chkauth("solaris.admin.dcmgr.admin", "fred");
-
-=head1 DESCRIPTION
-
-Provides wrappers for the Solaris RBAC functions.
-
-=head2 EXPORT
-
-None by default.
-
-
-=head1 AUTHOR
-
-Jamie Cameron, jcameron@webmin.com
-
-=head1 SEE ALSO
-
-rbac(5).
-
-=cut

acl/Authen-SolarisRBAC-0.1/blib/man3/Authen::SolarisRBAC.3

@@ -1,152 +0,0 @@
-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.14
-.\"
-.\" Standard preamble:
-.\" ========================================================================
-.de Sh \" Subsection heading
-.br
-.if t .Sp
-.ne 5
-.PP
-\fB\\$1\fR
-.PP
-..
-.de Sp \" Vertical space (when we can't use .PP)
-.if t .sp .5v
-.if n .sp
-..
-.de Vb \" Begin verbatim text
-.ft CW
-.nf
-.ne \\$1
-..
-.de Ve \" End verbatim text
-.ft R
-.fi
-..
-.\" Set up some character translations and predefined strings.  \*(-- will
-.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
-.\" double quote, and \*(R" will give a right double quote.  | will give a
-.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
-.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
-.\" expand to `' in nroff, nothing in troff, for use with C<>.
-.tr \(*W-|\(bv\*(Tr
-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
-.ie n \{\
-.    ds -- \(*W-
-.    ds PI pi
-.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
-.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
-.    ds L" ""
-.    ds R" ""
-.    ds C` ""
-.    ds C' ""
-'br\}
-.el\{\
-.    ds -- \|\(em\|
-.    ds PI \(*p
-.    ds L" ``
-.    ds R" ''
-'br\}
-.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
-.\" entries marked with X<> in POD.  Of course, you'll have to process the
-.\" output yourself in some meaningful fashion.
-.if \nF \{\
-.    de IX
-.    tm Index:\\$1\t\\n%\t"\\$2"
-..
-.    nr % 0
-.    rr F
-.\}
-.\"
-.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
-.\" way too many mistakes in technical documents.
-.hy 0
-.if n .na
-.\"
-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
-.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
-.    \" fudge factors for nroff and troff
-.if n \{\
-.    ds #H 0
-.    ds #V .8m
-.    ds #F .3m
-.    ds #[ \f1
-.    ds #] \fP
-.\}
-.if t \{\
-.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
-.    ds #V .6m
-.    ds #F 0
-.    ds #[ \&
-.    ds #] \&
-.\}
-.    \" simple accents for nroff and troff
-.if n \{\
-.    ds ' \&
-.    ds ` \&
-.    ds ^ \&
-.    ds , \&
-.    ds ~ ~
-.    ds /
-.\}
-.if t \{\
-.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
-.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
-.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
-.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
-.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
-.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
-.\}
-.    \" troff and (daisy-wheel) nroff accents
-.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
-.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
-.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
-.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
-.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
-.ds ae a\h'-(\w'a'u*4/10)'e
-.ds Ae A\h'-(\w'A'u*4/10)'E
-.    \" corrections for vroff
-.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
-.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
-.    \" for low resolution devices (crt and lpr)
-.if \n(.H>23 .if \n(.V>19 \
-\{\
-.    ds : e
-.    ds 8 ss
-.    ds o a
-.    ds d- d\h'-1'\(ga
-.    ds D- D\h'-1'\(hy
-.    ds th \o'bp'
-.    ds Th \o'LP'
-.    ds ae ae
-.    ds Ae AE
-.\}
-.rm #[ #] #H #V #F C
-.\" ========================================================================
-.\"
-.IX Title "SolarisRBAC 3"
-.TH SolarisRBAC 3 "2005-04-19" "perl v5.8.4" "User Contributed Perl Documentation"
-.SH "NAME"
-Authen::SolarisRBAC \- Perl extension for Solaris RBAC
-.SH "SYNOPSIS"
-.IX Header "SYNOPSIS"
-.Vb 2
-\&  use Authen::SolarisRBAC;
-\&  $ok = Authen::SolarisRBAC::chkauth("solaris.admin.dcmgr.admin", "fred");
-.Ve
-.SH "DESCRIPTION"
-.IX Header "DESCRIPTION"
-Provides wrappers for the Solaris \s-1RBAC\s0 functions.
-.Sh "\s-1EXPORT\s0"
-.IX Subsection "EXPORT"
-None by default.
-.SH "AUTHOR"
-.IX Header "AUTHOR"
-Jamie Cameron, jcameron@webmin.com
-.SH "SEE ALSO"
-.IX Header "SEE ALSO"
-\&\fIrbac\fR\|(5).

acl/Authen-SolarisRBAC-0.1/test.pl

@@ -1,20 +0,0 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-######################### We start with some black magic to print on failure.
-
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Authen::SolarisRBAC;
-$loaded = 1;
-print "ok 1\n";
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
-

acl/acl-lib.pl

@@ -362,6 +362,7 @@ sub create_user
 my ($user, $clone) = @_;
 my %miniserv;
 my @mods = &list_modules();
+$user->{'name'} eq "webmin" && &error("Invalid username webmin for new user");
 
 &get_miniserv_config(\%miniserv);
 
@@ -520,7 +521,7 @@ if ($clone) {
 
 =head2 modify_user(old-name, &details)
 
-Updates an existing Webmin user, identified by the old-name paramter. The
+Updates an existing Webmin user, identified by the old-name parameter. The
 details hash must be in the same format as returned by list_users or passed
 to create_user.
 
@@ -530,6 +531,8 @@ sub modify_user
 my ($username, $user) = @_;
 my (%miniserv, @pwfile, @acl, @mods, $m);
 &get_miniserv_config(\%miniserv);
+$user->{'name'} eq "webmin" &&
+	&error("Invalid username webmin for modified user");
 
 if ($user->{'proto'}) {
 	# In users and groups DB
@@ -822,8 +825,11 @@ foreach my $l (@acl) {
 delete($gconfig{"lang_".$username});
 delete($gconfig{"notabs_".$username});
 delete($gconfig{"ownmods_".$username});
+delete($gconfig{"rbacdeny_".$username});
 delete($gconfig{"theme_".$username});
+delete($gconfig{"overlay_".$username});
 delete($gconfig{"readonly_".$username});
+delete($gconfig{"realname_".$username});
 &write_file("$config_directory/config", \%gconfig);
 
 # Delete all module .acl files
@@ -1341,9 +1347,11 @@ my ($miniserv, $username) = @_;
 return 1 if (&is_readonly_mode());
 &open_session_db($miniserv);
 foreach my $s (keys %sessiondb) {
-	my ($u, $t) = split(/\s+/, $sessiondb{$s});
-	if ($u eq $username) {
-		delete($sessiondb{$s});
+	if ($sessiondb{$s}) {
+		my ($u, $t) = split(/\s+/, $sessiondb{$s});
+		if ($u eq $username) {
+			delete($sessiondb{$s});
+			}
 		}
 	}
 dbmclose(%sessiondb);
@@ -1648,11 +1656,14 @@ is not given, a salt will be selected randomly.
 sub encrypt_password
 {
 my ($pass, $salt) = @_;
-if ($gconfig{'md5pass'}) {
+if ($gconfig{'md5pass'} == 1) {
 	# Use MD5 encryption
-	$salt ||= '$1$'.substr(time(), -8).'$xxxxxxxxxxxxxxxxxxxxxx';
 	return &encrypt_md5($pass, $salt);
 	}
+elsif ($gconfig{'md5pass'} == 2) {
+	# Use SHA512 encryption
+	return &encrypt_sha512($pass, $salt);
+	}
 else {
 	# Use Unix DES
 	&seed_random();
@@ -1669,8 +1680,9 @@ authenticate as, as array references.
 =cut
 sub get_unixauth
 {
+my ($miniserv) = @_;
 my @rv;
-my @ua = split(/\s+/, $_[0]->{'unixauth'});
+my @ua = $miniserv->{'unixauth'} ? split(/\s+/, $miniserv->{'unixauth'}) : ( );
 foreach my $ua (@ua) {
 	if ($ua =~ /^(\S+)=(\S+)$/) {
 		push(@rv, [ $1, $2 ]);
@@ -1770,32 +1782,7 @@ if ($miniserv{'pass_nouser'}) {
 	$pass =~ /\Q$name\E/i && return $text{'cpass_name'};
 	}
 if ($miniserv{'pass_nodict'}) {
-	my $temp = &transname();
-	my $fh = "TEMP";
-	&open_tempfile($fh, ">$temp", 0, 1);
-	&print_tempfile($fh, $pass,"\n");
-	&close_tempfile($fh);
-	my $unknown;
-	if (&has_command("ispell")) {
-		open(SPELL, "ispell -a <$temp |");
-		while(<SPELL>) {
-			if (/^(#|\&|\?)/) {
-				$unknown++;
-				}
-			}
-		close(SPELL);
-		}
-	elsif (&has_command("spell")) {
-		open(SPELL, "spell <$temp |");
-		my $line = <SPELL>;
-		$unknown++ if ($line);
-		close(SPELL);
-		}
-	else {
-		return &text('cpass_spellcmd', "<tt>ispell</tt>",
-					       "<tt>spell</tt>");
-		}
-	$unknown || return $text{'cpass_dict'};
+	&is_dictionary_word($pass) && return $text{'cpass_dict'};
 	}
 if ($miniserv{'pass_oldblock'} && $user) {
 	my $c = 0;
@@ -1839,6 +1826,7 @@ sub hash_md5_session
 {
 my ($passwd) = @_;
 my $use_md5 = &md5_perl_module();
+$use_md5 || &error("No Perl MD5 hashing module found!");
 
 # Add the password
 my $ctx = eval "new $use_md5";
@@ -1934,7 +1922,7 @@ my ($path, $mod) = @_;
 # Find out what users and paths we grant access to currently
 my %miniserv;
 &get_miniserv_config(\%miniserv);
-my @anon = split(/\s+/, $miniserv{'anonymous'});
+my @anon = split(/\s+/, $miniserv{'anonymous'} || "");
 my $found = 0;
 my $user;
 foreach my $a (@anon) {
@@ -2163,5 +2151,21 @@ elsif ($str =~ /^postgresql:/) {
 	}
 }
 
+# used_for_anonymous(username)
+# Returns a list of modules this user has an anonymous grant to
+sub used_for_anonymous
+{
+my ($user) = @_;
+my @rv;
+my %miniserv;
+&get_miniserv_config(\%miniserv);
+foreach $a (split(/\s+/, $miniserv{'anonymous'})) {
+        if ($a =~ /^([^=]+)=(\S+)$/ && $2 eq $user) {
+		push(@rv, $1);
+		}
+	}
+return @rv;
+}
+
 1;
 

acl/backup_config.pl

@@ -83,17 +83,18 @@ foreach my $k (keys %aclbackup) {
 	}
 &write_file("$config_directory/config", \%gconfig);
 
-# Splice miniserv.conf entries for users into real config
+# 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_)/);
+	delete($miniserv{$k}) if ($k =~ /^(preroot_|pass_)/);
 	}
 foreach my $k (keys %aclbackup) {
-	$miniserv{$k} = $aclbackup{$k} if ($k =~ /^(preroot_)/);
+	$miniserv{$k} = $aclbackup{$k} if ($k =~ /^(preroot_|pass_)/);
 	}
 &put_miniserv_config(\%miniserv);
 

acl/config-ALL-linux

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

acl/config-freebsd

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

acl/config-macos

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

acl/config-netbsd

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

acl/config-openbsd

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

acl/config-solaris-10-*

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

acl/config-solaris-10-ALL

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

acl/config.info

@@ -1,6 +1,5 @@
 line1=Configurable options,11
 display=User and group display mode,1,1-Names only,0-Names and modules
-select=Display user modules in,1,0-Table,1-Pulldown menu
 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

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

acl/config.info.bg

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

acl/config.info.ca

@@ -1,6 +1,5 @@
 line1=Opcions configurables,11
 display=Forma de mostrar els usuaris i els grups,1,1-Només els noms,0-Noms i mòduls
-select=Mostra els mòduls d'usuaris amb,1,0-Taula,1-Menú desplegable
 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.cz

@@ -1,6 +1,5 @@
 line1=Možnosti konfigurace,11
 display=Mód pro zobrazení uživatele a skupiny,1,1-Pouze jména,0-Jména a moduly
-select=Zobrazit moduly uživatele v,1,0-tabulce,1-rozbalovací nabídce
 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,6 +1,5 @@
 line1=Konfigurerbare indstillinger,11
 display=Bruger og gruppe visnings mode,1,1-Kun navne,0-Navne og moduler
-select=Vis brugermoduler i,1.0-Tabel,1-Pulldown menu
 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,6 +1,5 @@
 line1=Konfigurierbare Optionen,11
 display=Benutzer- und Gruppenanzeige,1,1-Nur Namen,0-Namen und Module
-select=Zeige Benutzermodule als,1,0-Tabelle,1-Auswahlliste
 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,6 +1,5 @@
 line1=Opciones Configurables,11
 display=Modo de mostrar usuario y grupo,1,1-Sólo nombres,0-Nombres y módulos
-select=Mostrar módulos de usuario en,1,0-Tabla,1-Menú desplegable
 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,6 +1,5 @@
 line1=Konfiguragarri diren aukerak, 11
 display=Erabiltzaile eta taldea erakusteko modua, 1,1-Izenak soilik, 0-Izenak eta moduluak
-select=Erabiltzaile moduluak erakutsi,1,0-Taulan, 1-
 Display user modules in,1,0-Table,1-Pulldown menu
 order=Ordenatu erabiltzaile eta taldeak,1,0-Fitxategian ordenatu,1-Izena
 line2=Sistemaren konfigurazioa,11

acl/config.info.fa

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

acl/config.info.fr

@@ -1,6 +1,5 @@
 line1=Options configurables,11
 display=Mode d'affichage des utilisateurs et des groupes,1,1-Noms seulement,0-Noms et modules
-select=Afficher les modules utilisateur par,1,0-Table,1-Menu déroulant
 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,6 +1,5 @@
 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
-select=A modulok megjelenítsi módja,1,0-Táblázat,1-Menü
 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,6 +1,5 @@
 line1=Opzioni configurabili,11
 display=Modalità di visualizzazione di utenti e gruppi,1,1-Solo i nomi,0-Nomi e moduli
-select=Mostra i moduli utente in,1,0-una tabella,1-un menu a tendina
 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