- nice patch from Phil Edwards <pme@devphil.com>. Thanks!

[infobot.git] / src / logger.pl

diff --git a/src/logger.pl b/src/logger.pl
index f262884d89b0343240b11196ee7fcbe33e5b801c..c7593a7ba064bf374fa87d15ca32ffb8b725fd67 100644 (file)
--- a/src/logger.pl
+++ b/src/logger.pl
@@ -91,7 +91,7 @@ sub openLog {
     }
 
     if (&IsParam("logType") and $param{'logType'} =~ /DAILY/i) {
-       my ($day,$month,$year) = (localtime time())[3,4,5];
+       my ($day,$month,$year) = (gmtime time())[3,4,5];
        $logDate = sprintf("%04d%02d%02d",$year+1900,$month+1,$day);
        $file{log} .= "-".$logDate;
     }
@@ -347,6 +347,7 @@ sub status {
 
     # remove control characters from logging to LOGFILE.
     for ($input) {
+       last if (&IsParam("logColors"));
        s/\e\[[0-9;]+m//g;      # escape codes.
        s/[\cA-\c_]//g;         # control chars.
     }
@@ -354,9 +355,9 @@ sub status {
 
     my $date;
     if (&IsParam("logType") and $param{'logType'} =~ /DAILY/i) {
-       $date = sprintf("%02d:%02d.%02d", (localtime $time)[2,1,0]);
+       $date = sprintf("%02d:%02d.%02d", (gmtime $time)[2,1,0]);
 
-       my ($day,$month,$year) = (localtime $time)[3,4,5];
+       my ($day,$month,$year) = (gmtime $time)[3,4,5];
        my $newlogDate = sprintf("%04d%02d%02d",$year+1900,$month+1,$day);
        if (defined $logDate and $newlogDate != $logDate) {
            &closeLog();