Handle hostnames with upper-case letters

[webmin.git] / session_login.cgi

diff --git a/session_login.cgi b/session_login.cgi
index de7ae68..f7c2546 100755 (executable)
--- a/session_login.cgi
+++ b/session_login.cgi
@@ -2,10 +2,11 @@
 # session_login.cgi
 # Display the login form used in session login mode
 
+BEGIN { push(@INC, ".."); };
+use WebminCore;
+
 $pragma_no_cache = 1;
 #$ENV{'MINISERV_INTERNAL'} || die "Can only be called by miniserv.pl";
-require './web-lib.pl';
-require './ui-lib.pl';
 &init_config();
 &ReadParse();
 if ($gconfig{'loginbanner'} && $ENV{'HTTP_COOKIE'} !~ /banner=1/ &&
@@ -28,8 +29,11 @@ $sidname = $miniserv{'sidname'} || "sid";
 print "Set-Cookie: banner=0; path=/$sec\r\n" if ($gconfig{'loginbanner'});
 print "Set-Cookie: $sidname=x; path=/$sec\r\n" if ($in{'logout'});
 print "Set-Cookie: testing=1; path=/$sec\r\n";
-&ui_print_unbuffered_header(undef, undef, undef, undef, undef, 1, 1, undef,
-                           undef, "onLoad='document.forms[0].pass.value = \"\"; document.forms[0].user.focus()'");
+&ui_print_unbuffered_header(
+       undef, undef, undef, undef, undef, 1, 1, undef,
+       "<title>$text{'session_header'}</title>",
+       "onLoad='document.forms[0].pass.value = \"\"; ".
+       "document.forms[0].user.focus()'");
 
 if ($tconfig{'inframe'}) {
        # Framed themes lose original page