Handle hostnames with upper-case letters

[webmin.git] / password_form.cgi

diff --git a/password_form.cgi b/password_form.cgi
index 7914de3..2994c22 100755 (executable)
--- a/password_form.cgi
+++ b/password_form.cgi
@@ -2,10 +2,12 @@
 # password_form.cgi
 # Display the form that allows users to change their passwords at login time
 
+BEGIN { push(@INC, ".."); };
+use WebminCore;
+
+$pragma_no_cache = 1;
 $ENV{'MINISERV_INTERNAL'} || die "Can only be called by miniserv.pl";
-require './web-lib.pl';
 &init_config();
-require './ui-lib.pl';
 &ReadParse();
 &header(undef, undef, undef, undef, 1, 1);
 
@@ -23,7 +25,7 @@ print &ui_form_start("$gconfig{'webprefix'}/password_change.cgi", "post");
 print &ui_hidden("user", $in{'user'});
 print &ui_hidden("pam", $in{'pam'});
 print &ui_hidden("expired", $in{'expired'});
-print &ui_table_start($text{'password_header'}, "width=50% style='width:50%'", 2);
+print &ui_table_start($text{'password_header'}, undef, 2);
 
 # Current username
 print &ui_table_row($text{'password_user'},