Include microseconds in debug log

diff --git a/miniserv.pl b/miniserv.pl
index 8ae4f48..0d693ae 100755 (executable)
--- a/miniserv.pl
+++ b/miniserv.pl
@@ -6,6 +6,7 @@ package miniserv;
 use Socket;
 use POSIX;
 use Time::Local;
+eval "use Time::HiRes;";
 
 @itoa64 = split(//, "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz");
 

diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
index f1ddd18..d2f43eb 100755 (executable)
--- a/web-lib-funcs.pl
+++ b/web-lib-funcs.pl
@@ -5319,12 +5319,14 @@ if ($gconfig{'debug_modules'}) {
        my @dmods = split(/\s+/, $gconfig{'debug_modules'});
        return 0 if (&indexof($main::initial_module_name, @dmods) < 0);
        }
-my $now = time();
+my $now;
+eval 'use Time::HiRes qw(gettimeofday); ($now, $ms) = gettimeofday';
+$now ||= time();
 my @tm = localtime($now);
 my $line = sprintf
-       "%s [%2.2d/%s/%4.4d %2.2d:%2.2d:%2.2d] %s %s %s %s \"%s\"",
+       "%s [%2.2d/%s/%4.4d %2.2d:%2.2d:%2.2d.%6.6d] %s %s %s %s \"%s\"",
         $$, $tm[3], $text{"smonth_".($tm[4]+1)}, $tm[5]+1900,
-        $tm[2], $tm[1], $tm[0],
+        $tm[2], $tm[1], $tm[0], $ms,
        $remote_user || "-",
        $ENV{'REMOTE_HOST'} || "-",
        &get_module_name() || "-",