--- Misc.old Mon Jan 17 18:52:52 2000 +++ Misc.pl Mon Jan 17 18:53:44 2000 @@ -2,6 +2,7 @@ # infobot :: Kevin Lenzo & Patrick Cole (c) 1997 use Socket; +use POSIX qw(strftime); # send info to devnull sub devnull { @@ -127,23 +128,19 @@ } sub log_line { - my($line) = @_; - my($logwrite) = 0; - - my $s = time(); - - if ($param{'logfile'} ne '') { - $line =~ s/\n*$/\n/; - - open(TRACK, ">>$param{logfile}"); - - $loglines++; - $total_loglines++; - print TRACK "$s $line"; - - close(TRACK); # if (TRACK); - } + my($line) = @_; + my($logwrite) = 0; + my $s = time(); + if ($param{'logfile'} ne '') { + $line =~ s/\n*$/\n/; + open(TRACK, ">>$param{logfile}"); + $loglines++; + $total_loglines++; + print TRACK "$s $line"; + close(TRACK); # if (TRACK); + } } + sub getAllKeys { @myIsKeys = getDBMKeys("is");