--- tabea.cgi 2002/07/09 15:08:02 1.35
+++ tabea.cgi 2002/07/10 13:53:44 1.36
@@ -258,7 +258,7 @@
" </tr>" .
"</table>" ;
- &logging("Starting program");
+ &logging("Starting Tabea");
return $text;
}
@@ -608,7 +608,7 @@
goto NEXTFORM;
} else {
$text .= "<font color=red>Cannot write file. File exists<br><br>\n";
- &logging("Cannot write $newpath File exists");
+ &logging("Cannot write $newpath. File exists");
}
$text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
@@ -1600,15 +1600,16 @@
my $logout;
my $entry;
-# if ( $cfghash{'Logging'} =~ /^[Yy}[Ee][Ss]$/ ) {
+ if ( $cfghash{'Logging'} =~ /^[yY][eE][sS]$/) {
+
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
my $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [($mon)];
my $Year = $year + 1900;
my $Day = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [($wday)];
- $entry = "[" . $Day . " " . $month . " " .
- $mday . " " . $hour . ":".$min. ":" . $sec . " " . $Year . "] ";
+ $entry = sprintf("[%s %s %s %02i:%02i:%02i %s] ",$Day,$month,$mday,$hour,$min,$sec,$Year);
+
$entry .= $logtext . "\n";
@@ -1619,6 +1620,6 @@
die "Cannot open log file $logfile";
}
-# }
+ }
}
########################################################################################
|
