diff options
Diffstat (limited to 'lastseen.pl')
| -rw-r--r-- | lastseen.pl | 8 |
1 files changed, 4 insertions, 4 deletions
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; |