From e5fcb734ac2f85e5ff4928ee0dd0672783829ad9 Mon Sep 17 00:00:00 2001 From: lookshe Date: Tue, 30 Aug 2011 15:29:37 +0200 Subject: decision.tcl adjusted to save answers for 60 minutes lastseen.pl messages changed --- lastseen.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lastseen.pl') diff --git a/lastseen.pl b/lastseen.pl index c70d1d0..196e5d7 100644 --- a/lastseen.pl +++ b/lastseen.pl @@ -43,16 +43,16 @@ while ($line=$log->readline()){ ($reason=$by)=~s/.*: (.*)\n/$1/; $by=~s/:.*\n//i; - print "$nick kicked by $by on $date at $time reason: $reason\n"; + print "$nick was kicked by $by on $date at $time reason: $reason\n"; } elsif ($lastaction=~m/$nick \(.*\) left irc: /i){ ($message=$lastaction)=~s/^.* $nick \(.*\) left irc: (.*)\n/$1/i; - print "$nick quits on $date at $time saying: $message\n"; + print "$nick has quit on $date at $time saying: $message\n"; } else { if ($lastaction=~m/\)\.$/) { ($message=$lastaction)=~s/^.* $nick \(.*\) left #[a-zA-Z0-9]* \((.*)\)\.\n/$1/i; - print "$nick parts on $date at $time saying: $message\n"; + print "$nick has left on $date at $time saying: $message\n"; } else { - print "$nick parts on $date at $time\n"; + print "$nick has left on $date at $time\n"; } } exit 0; -- cgit v1.2.3