Index: ossp-pkg/tabea/tabea.cgi RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v rcsdiff -q -kk '-r1.35' '-r1.36' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null --- tabea.cgi 2002/07/09 15:08:02 1.35 +++ tabea.cgi 2002/07/10 13:53:44 1.36 @@ -258,7 +258,7 @@ " " . "" ; - &logging("Starting program"); + &logging("Starting Tabea"); return $text; } @@ -608,7 +608,7 @@ goto NEXTFORM; } else { $text .= "Cannot write file. File exists

\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"; } -# } + } } ########################################################################################