Merge pull request #646 from swelljoe/edit-cron-form

Fix form/table interleaving

.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,5 @@ 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.

README

@@ -1,4 +1,4 @@
-Webmin Version 1.780
+Webmin Version 1.860
 --------------------
 Webmin is a web-based interface for system administration for Unix. 
 Using any browser that supports tables and forms, you can setup user
@@ -49,6 +49,8 @@ commmand, the sc.exe command and the Win32::Daemon Perl module.
 
 For more information, see http://www.webmin.com/
 
+For documentation, see http://doxfer.webmin.com/
+
 Jamie Cameron
 jcameron@webmin.com
 

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/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;
-

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

@@ -1,23 +1,23 @@
-package Webmin::ConfirmPage;
-use Webmin::Page;
+package WebminUI::ConfirmPage;
+use WebminUI::Page;
 use WebminCore;
-@ISA = ( "Webmin::Page" );
+@ISA = ( "WebminUI::Page" );
 
-=head2 new Webmin::ConfirmPage(subheading, title, message, cgi, &in, [ok-message],
+=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(&Webmin::Theme::ConfirmPage::new)) {
-	return new Webmin::Theme::ConfirmPage(@_[1..$#_]);
+if (defined(&WebminUI::Theme::ConfirmPage::new)) {
+	return new WebminUI::Theme::ConfirmPage(@_[1..$#_]);
 	}
 my ($self, $subheading, $title, $message, $cgi, $in, $ok, $cancel, $help) = @_;
-$self = new Webmin::Page($subheading, $title, $help);
+$self = new WebminUI::Page($subheading, $title, $help);
 $self->{'in'} = $in;
 $self->add_message($message);
-my $form = new Webmin::Form($cgi, "get");
+my $form = new WebminUI::Form($cgi, "get");
 $form->set_input($in);
 $self->add_form($form);
 foreach my $i (keys %$in) {
@@ -25,8 +25,8 @@ foreach my $i (keys %$in) {
 		$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"));
+$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;
 }

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

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

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

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

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

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

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

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

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

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

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/acl-lib.pl

@@ -822,8 +822,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
@@ -1669,8 +1672,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 ]);
@@ -2163,5 +2167,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/config-ALL-linux

@@ -1,4 +1,3 @@
 ssleay=/usr/bin/openssl
-select=0
 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-ALL

@@ -1,4 +1,3 @@
 ssleay=/usr/sfw/bin/openssl
-select=0
 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.bg

@@ -1,5 +1,4 @@
 line1=Конфигурационни опции,11
-select=Показвай юзерските модули в,1,0-таблица,1-Падащо меню
 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.fr.UTF-8

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

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

acl/config.info.ja_JP.euc

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

acl/config.info.ko_KR.euc

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

acl/config.info.ms_MY

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

acl/config.info.nl

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

acl/config.info.no

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

acl/config.info.pl

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

acl/config.info.pt_BR

@@ -1,5 +1,4 @@
 line1=Opções configuráveis,11
-select=Exibir módulos de usuários em,1,0-Tabela,1-Menus
 order=Ordenar usuários e grupos por,1,0-Ordem no arquivo,1-Nome
 line2=Configuração do sistema,11
 ssleay=Caminho para o programa openssl ou ssleay,0

acl/config.info.ru_RU

@@ -1,4 +1,3 @@
-select=Показывать модули пользователя в виде,1,0-Таблицы,1-Выпадающего меню
 ssleay=Путь к программе openssl или ssleay,0
 order=Упорядочивать пользователей и группы по,1,0-Очередности в файле,1-Имени
 line1=Настраиваемые параметры,11

acl/config.info.ru_SU

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

acl/config.info.sk

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

acl/config.info.sv

@@ -1,2 +1 @@
 ssleay=Sökväg till openssl- eller ssleay-program,0
-select=Visa moduler i,1,0-Tabell,1-Rullgardinsmeny

acl/config.info.tr

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

acl/config.info.uk_UA

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

acl/config.info.zh_CN

@@ -1,2 +1 @@
 ssleay=Openssl 或者 Ssleay 程序的路径,0
-select=显示用户模块以,1,0-Table,1-Pulldown 菜单

acl/config.info.zh_TW.Big5

@@ -1,5 +1,4 @@
 line1=組態選項,11
-select=顯示使用者模組在,1,0-表格,1-下拉選單
 order=排序使用者和全組 依,1,0-檔案內位置,1-名稱
 line2=系統組態,11
 ssleay=openssl或ssleay程式路徑,0

acl/delete_user.cgi

@@ -10,6 +10,7 @@ our (%in, %text, %config, %access, $base_remote_user);
 &error_setup($text{'delete_err'});
 $access{'delete'} || &error($text{'delete_ecannot'});
 &can_edit_user($in{'user'}) || &error($text{'delete_euser'});
+&used_for_anonymous($in{'user'}) && &error($text{'delete_eanonuser'});
 if ($base_remote_user eq $in{'user'}) {
 	&error($text{'delete_eself'});
 	}

acl/delete_users.cgi

@@ -17,6 +17,7 @@ foreach my $user (@d) {
 	if ($base_remote_user eq $user && !$in{'joingroup'}) {
 		&error($text{'delete_eself'});
 		}
+	&used_for_anonymous($user) && &error($text{'delete_eanonuser'});
 	my $uinfo = &get_user($user);
 	$uinfo->{'readonly'} && &error($text{'udeletes_ereadonly'});
 	}
@@ -27,7 +28,8 @@ if ($in{'joingroup'}) {
 	foreach my $user (@d) {
 		my $uinfo = &get_user($user);
 		next if (!$uinfo);
-		next if (&indexof($user, @{$newgroup->{'members'}}) >= 0);
+		next if ($newgroup &&
+			 &indexof($user, @{$newgroup->{'members'}}) >= 0);
 
 		# Remove from old group, if any
 		my $oldgroup = &get_users_group($user);

acl/edit_sql.cgi

@@ -16,6 +16,7 @@ print &ui_table_start($text{'sql_header'}, undef, 2);
 
 my ($proto, $user, $pass, $host, $prefix, $args) =
 	&split_userdb_string($miniserv{'userdb'});
+$proto ||= '';
 
 # Build inputs for MySQL backend
 my @mysqlgrid = ( );
@@ -91,7 +92,7 @@ print &ui_table_row(undef,
 		  [ 'ldap', $text{'sql_ldap'}, $ldapgrid ] ]), 2);
 
 print &ui_table_row(undef,
-	&ui_radio("addto", int($miniserv{'userdb_addto'}),
+	&ui_radio("addto", int($miniserv{'userdb_addto'} || 0),
 		  [ [ 0, $text{'sql_addto0'} ],
 		    [ 1, $text{'sql_addto1'} ] ]), 2);
 

acl/edit_unix.cgi

@@ -30,7 +30,8 @@ my @webmins = map { [ $_->{'name'} ] }
 	       sort { $a->{'name'} cmp $b->{'name'} } &list_users();
 foreach my $ua (@unixauth, [ ], [ ]) {
 	$utable .= &ui_columns_row([
-		&ui_select("mode_$i", $ua->[0] eq "" ? 0 :
+		&ui_select("mode_$i", !defined($ua->[0]) ? 0 :
+				      $ua->[0] eq "" ? 0 :
 				      $ua->[0] eq "*" ? 1 :
 				      $ua->[0] =~ /^\@/ ? 2 : 3,
 			   [ [ 0, " " ],

acl/edit_user.cgi

@@ -110,7 +110,7 @@ if ($miniserv{'extauth'}) {
 	push(@opts, [ 5, $text{'edit_extauth'} ]);
 	}
 push(@opts, [ 4, $text{'edit_lock'} ]);
-my ($lockbox, $tempbox);
+my ($lockbox, $tempbox) = ("", "");
 if ($passmode == 1) {
 	$lockbox = &ui_checkbox("lock", 1, $text{'edit_templock'},
 			               $user{'pass'} =~ /^\!/ ? 1 : 0);
@@ -152,7 +152,7 @@ print &ui_table_row($text{'edit_real'},
 # Storage type
 if ($in{'user'}) {
 	print &ui_table_row($text{'edit_proto'},
-		$text{'edit_proto_'.$user{'proto'}});
+		$text{'edit_proto_'.($user{'proto'} || '')});
 	}
 
 print &ui_hidden_table_end("rights");
@@ -186,7 +186,7 @@ if ($access{'lang'}) {
 if ($access{'cats'}) {
 	# Show categorized modules?
 	print &ui_table_row($text{'edit_notabs'},
-		&ui_radio("notabs", int($user{'notabs'}),
+		&ui_radio("notabs", $user{'notabs'} || 0,
 			  [ [ 1, $text{'yes'} ],
 			    [ 2, $text{'no'} ],
 			    [ 0, $text{'default'} ] ]));
@@ -262,8 +262,8 @@ if ($access{'ips'}) {
 			    [ 1, $text{'edit_allow'}."<br>" ],
 			    [ 2, $text{'edit_deny'}."<br>" ] ]).
 		&ui_textarea("ips",
-		    join("\n", split(/\s+/, $user{'allow'} ? $user{'allow'}
-						           : $user{'deny'})),
+		    join("\n", split(/\s+/, $user{'allow'} ||
+					    $user{'deny'} || "")),
 		    4, 30));
 	}
 
@@ -277,7 +277,7 @@ if (&supports_rbac() && $access{'mode'} == 0) {
 
 if ($access{'times'}) {
 	# Show allowed days of the week
-	my %days = map { $_, 1 } split(/,/, $user{'days'});
+	my %days = map { $_, 1 } split(/,/, $user{'days'} || '');
 	my $daysels = "";
 	for(my $i=0; $i<7; $i++) {
 		$daysels .= &ui_checkbox("days", $i, $text{'day_'.$i},
@@ -290,10 +290,10 @@ if ($access{'times'}) {
 		$daysels);
 
 	# Show allow hour/minute range
-	my ($hf, $mf) = split(/\./, $user{'hoursfrom'});
-	my ($ht, $mt) = split(/\./, $user{'hoursto'});
+	my ($hf, $mf) = split(/\./, $user{'hoursfrom'} || '');
+	my ($ht, $mt) = split(/\./, $user{'hoursto'} || '');
 	print &ui_table_row($text{'edit_hours'},
-		&ui_radio("hours_def", $user{'hoursfrom'} eq '' ? 1 : 0,
+		&ui_radio("hours_def", $hf eq '' ? 1 : 0,
 			[ [ 1, $text{'edit_allhours'} ],
 		  	  [ 0, &text('edit_selhours',
 				&ui_textbox("hours_hfrom", $hf, 2),
@@ -337,14 +337,14 @@ my @mlist = grep { $access{'others'} || $has{$_->{'dir'}} ||
 		   $mcan{$_->{'dir'}} } &list_module_infos();
 my @links = ( &select_all_link("mod", 0, $text{'edit_selall'}),
 	      &select_invert_link("mod", 0, $text{'edit_invert'}) );
-my @cats = &unique(map { $_->{'category'} || "" } @mlist);
+my @cats = &unique(map { $_->{'category'} || '' } @mlist);
 my %catnames;
 &read_file("$config_directory/webmin.catnames", \%catnames);
 my $grids = "";
 foreach my $c (sort { $b cmp $a } @cats) {
-	my @cmlist = grep { $_->{'category'} eq $c } @mlist;
+	my @cmlist = grep { ($_->{'category'} || '') eq $c } @mlist;
 	$grids .= "<b>".($catnames{$c} ||
-			    $text{'category_'.$c})."</b><br>\n";
+			 $text{'category_'.$c})."</b><br>\n";
 	my @grid = ( );
 	my $sw = 0;
 	foreach my $m (@cmlist) {

acl/help/ips.fr.UTF-8.html

@@ -0,0 +1,5 @@
+<header>Contrôle d'accès IP</header>
+
+Le contrôle d'accès utilisateur par adresse IP fonctionne de la même manière que le contrôle d'accès IP global dans le module Configuration de Webmin. Seul un utilisateur ayant passé le contrôle global sera vérifié de nouveau avec ces règles.
+
+<footer>