--- trunk/irc-logger.pl 2006/06/25 17:40:59 37 +++ trunk/irc-logger.pl 2006/06/25 19:16:12 39 @@ -363,9 +363,10 @@ sub save_message { my $a = {@_}; $a->{me} ||= 0; + $a->{time} ||= strftime($TIMESTAMP,localtime()); print - $a->{time} ? $a->{time} . " " : strftime($TIMESTAMP,localtime()), + $a->{time}, " ", $a->{channel}, " ", $a->{me} ? "***" . $a->{nick} : "<" . $a->{nick} . ">", " " . $a->{msg} . "\n"; @@ -486,7 +487,7 @@ $res .= join(" | ", @users); } elsif ($msg =~ m/^last.*?\s*(\d*)/i) { - foreach my $res (get_from_log( limit => $1 )) { + foreach my $res (get_from_log( limit => ($1 || 100) )) { print "last: $res\n"; from_to($res, $ENCODING, 'UTF-8'); $_[KERNEL]->post( $IRC_ALIAS => privmsg => $nick, $res );