$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');
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}")) {
for ($input) {
s/\n+$//;
- s/\002|037//g; # bold,video,underline => remove.
+ s/\002|\037//g; # bold,video,underline => remove.
}
# does this work?
return;
}
- # todo: better filename.
+ # TODO: better filename.
open(OUT, ">>debug.log");
print OUT "DEBUG: $str\n";
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;