Changed time to a readable stamp similar to timestamp.pl

cgi-bin/htlog/htlog.cgi

@@ -21,12 +21,22 @@ use CGI;
 my $LOG_FILE = 'htlog.log';
 open my $fh, ">>", $LOG_FILE or die "cannot open log file for appending: $!";
 
+sub stamp {
+    my $unixtime = ($_[0] ? $_[0] : time );
+    my ($sec, $min, $hour, $mday, $mon, $year) = localtime $unixtime;
+    return sprintf (
+        "%04i-%02i-%02i %02i:%02i:%02i", 
+        $year + 1900,   $mon + 1,   $mday,  
+        $hour,          $min,       $sec
+    );
+}
+
 my $q = CGI->new;
 my $msg = ( defined $q->param('msg')    ? $q->param('msg')  : '' );
 my $tag = ( defined $q->param('tag')    ? $q->param('tag')  : '-none-' );
 
-my $message = sprintf("Time: %s, Origin: %s, Tag: %s, Message: %s\n",
-    time,
+my $message = sprintf("Time: %s; Origin: %s; Tag: %s; Message: %s\n",
+    &stamp(time),
     $ENV{'REMOTE_ADDR'},
     $tag,
     $msg