Handle hostnames with upper-case letters

[webmin.git] / module_chooser.cgi

diff --git a/module_chooser.cgi b/module_chooser.cgi
index 9205860..66060e6 100755 (executable)
--- a/module_chooser.cgi
+++ b/module_chooser.cgi
@@ -1,7 +1,10 @@
 #!/usr/local/bin/perl
 # This CGI generates the HTML for choosing a module or list of modules
 
-require './web-lib.pl';
+BEGIN { push(@INC, ".."); };
+use WebminCore;
+
+$trust_unknown_referers = 1;
 &init_config();
 &ReadParse(undef, undef, 2);
 %access = &get_module_acl();
@@ -17,10 +20,11 @@ if ($in{'multi'}) {
                print "sel = new Array($len);\n";
                print "selr = new Array($len);\n";
                for($i=0; $i<$len; $i++) {
-                       print "sel[$i] = \"$ul[$i]\";\n";
                        %minfo = &get_module_info($ul[$i]);
-                       if (%minfo) { print "selr[$i] = \"$minfo{'desc'}\";\n"; }
-                       else { print "selr[$i] = \"???\";\n"; }
+                       if (%minfo) {
+                               print "sel[$i] = \"$ul[$i]\";\n";
+                               print "selr[$i] = \"$minfo{'desc'}\";\n";
+                               }
                        }
                print "</script>\n";
                print "<title>$text{'modules_title1'}</title>\n";