%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
-no strict 'refs';
-
sub dbg
{
my $l = shift;
if ($dbglevel{$l}) {
for (@_) {
s/\n$//og;
+ s/\a//og; # beeps
}
- my $str = atime . "@_" ;
- print "$str\n";
- $fp->writenow($str);
+ print "@_\n" if defined \*STDOUT;
+ my $t = time;
+ $fp->writeunix($t, "$t^@_");
}
}
my $entry;
foreach $entry (@_) {
- delete $dbglevel{entry};
+ delete $dbglevel{$entry};
}
}