Handle hostnames with upper-case letters

[webmin.git] / xmlrpc.cgi

diff --git a/xmlrpc.cgi b/xmlrpc.cgi
index c81c69c..8f24724 100755 (executable)
--- a/xmlrpc.cgi
+++ b/xmlrpc.cgi
@@ -17,10 +17,12 @@ if (!$ENV{'GATEWAY_INTERFACE'}) {
        $command_line = 1;
        $< == 0 || die "xmlrpc.pl must be run as root";
        }
-do './web-lib.pl';
+BEGIN { push(@INC, ".."); };
+use WebminCore;
 use POSIX;
 use Socket;
 $force_lang = $default_lang;
+$trust_unknown_referers = 1;
 &init_config();
 $main::error_must_die = 1;
 
@@ -98,19 +100,11 @@ foreach my $mc (&find_xmls("methodCall", $xml)) {
                                &error_exit(5,
                                        "Webmin module $mod does not exist");
                                }
-                       my %minfo = &get_module_info($mod);
-                       my @libs = split(/\s+/, $minfo{'library'});
-                       if (!@libs) {
-                               push(@libs, "$mod-lib.pl");
-                               }
-                       foreach my $lib (@libs) {
-                               eval { &foreign_require($mod, $lib); };
-                               if ($@) {
-                                       $xmlrv .= &make_error_xml(6,
-                                               "Failed to load library ".
-                                               "$mod/$lib : $@");
-                                       last;
-                                       }
+                       eval { &foreign_require($mod, $lib); };
+                       if ($@) {
+                               $xmlrv .= &make_error_xml(6,
+                                       "Failed to load module $mod : $@");
+                               last;
                                }
                        }
                }