Handle hostnames with upper-case letters

[webmin.git] / index.cgi

diff --git a/index.cgi b/index.cgi
index 05f647b..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);