Handle hostnames with upper-case letters

[webmin.git] / index.cgi

diff --git a/index.cgi b/index.cgi
index f19ec9b..3c1a766 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -1,8 +1,11 @@
 #!/usr/local/bin/perl
 # Display all Webmin modules visible to the current user
 
-require './web-lib.pl';
+BEGIN { push(@INC, ".."); };
+use WebminCore;
+
 &init_config();
+&ReadParse();
 $hostname = &get_display_hostname();
 $ver = &get_webmin_version();
 &get_miniserv_config(\%miniserv);
@@ -180,20 +183,9 @@ else {
        }
 
 # Check for incorrect OS
-if (&foreign_available("webmin")) {
+if (&foreign_check("webmin")) {
        &foreign_require("webmin", "webmin-lib.pl");
-       %realos = &webmin::detect_operating_system(undef, 1);
-       if ($realos{'os_version'} ne $gconfig{'os_version'} ||
-           $realos{'os_type'} ne $gconfig{'os_type'}) {
-               print "<form action=webmin/fix_os.cgi>\n";
-               print "<p><center>",&webmin::text('os_incorrect',
-                       $realos{'real_os_type'},
-                       $realos{'real_os_version'}),"<p>\n";
-               print "<input type=submit ",
-                     "value='$webmin::text{'os_fix'}'>\n";
-               print "</center>\n";
-               print "</form>\n";
-               }
+       &webmin::show_webmin_notifications();
        }
 
 if ($miniserv{'logout'} && !$gconfig{'alt_startpage'} &&