bzip2 moved

[infobot.git] / blootbot / src / logger.pl

diff --git a/blootbot/src/logger.pl b/blootbot/src/logger.pl
index a74602d42a1d9aeab2979d3b3e1cb22b331af7ea..0eaf0a8491239a8d144e32b66d50ddbccc22878e 100644 (file)
--- a/blootbot/src/logger.pl
+++ b/blootbot/src/logger.pl
@@ -43,7 +43,7 @@ use vars qw($b_black $_black $b_red $_red $b_green $_green
            $b_yellow $_yellow $b_blue $_blue $b_magenta $_magenta
            $b_cyan $_cyan $b_white $_white $_reset $_bold $ob $b);
 
-$b_black       = cl('bold black');     $_black         = cl('black');
+$b_black       = cl('bold black');     $_black         = cl('black');
 $b_red         = cl('bold red');       $_red           = cl('red');
 $b_green       = cl('bold green');     $_green         = cl('green');
 $b_yellow      = cl('bold yellow');    $_yellow        = cl('yellow');
@@ -93,7 +93,7 @@ sub openLog {
     if (&IsParam("logType") and $param{'logType'} =~ /DAILY/i) {
        my ($day,$month,$year) = (gmtime time())[3,4,5];
        $logDate = sprintf("%04d%02d%02d",$year+1900,$month+1,$day);
-       $file{log} .= "-".$logDate;
+       $file{log} .= $logDate;
     }
 
     if (open(LOG, ">>$file{log}")) {
@@ -117,7 +117,7 @@ sub closeLog {
 # Usage: &compress($file);
 sub compress {
     my ($file) = @_;
-    my @compress = ("/usr/bin/bzip2","/bin/gzip");
+    my @compress = ('/usr/bin/bzip2','/bin/bzip2','/bin/gzip');
     my $okay = 0;
 
     if (! -f $file) {
@@ -223,7 +223,7 @@ sub status {
 
     for ($input) {
        s/\n+$//;
-       s/\002|037//g;  # bold,video,underline => remove.
+       s/\002|\037//g; # bold,video,underline => remove.
     }
 
     # does this work?
@@ -376,7 +376,7 @@ sub debug_perl {
        return;
     }
 
-    # todo: better filename.
+    # TODO: better filename.
     open(OUT, ">>debug.log");
     print OUT "DEBUG: $str\n";
 
@@ -386,8 +386,8 @@ sub debug_perl {
        chop;
        $i++;
        # bleh. this tries to duplicate status().
-       # todo: statcountfix
-       # todo: rename to log_*someshit*
+       # TODO: statcountfix
+       # TODO: rename to log_*someshit*
        if ($i == $line) {
            my $msg = "$file: $i:!$_";
            printf "%s[%6d]%s %s\n", $_green, $statcount, $ob, $msg;