Handle hostnames with upper-case letters

[webmin.git] / uptracker.cgi

diff --git a/uptracker.cgi b/uptracker.cgi
index 80a4dac..14d1ecf 100755 (executable)
--- a/uptracker.cgi
+++ b/uptracker.cgi
@@ -1,10 +1,11 @@
 #!/usr/local/bin/perl
 # Output Javascript in a loop to track an upload
 
+BEGIN { push(@INC, ".."); };
+use WebminCore;
+
 $trust_unknown_referers = 1;
-require './web-lib.pl';
 &init_config();
-do './ui-lib.pl';
 &ReadParse();
 $id = $in{'id'};
 $id || &error($text{'uptracker_eid'});
@@ -15,7 +16,7 @@ $id =~ /^[a-z0-9_]+$/i || &error($text{'uptracker_eid2'});
 $| = 1;
 
 # Output text boxes that get updated with filenames and progress
-$ff = "style='font-family: courier'";
+$ff = "style='font-family: courier,monospace'";
 print "<form>\n";
 print "<center><table>\n";
 print "<tr> <td><b>$text{'uptracker_file'}</b></td>\n";