#!/usr/bin/perl -w

$gaim_system_log = "/home/sohmc/.gaim/logs/system";
$tail_cmd = "/usr/bin/tail -1f $gaim_system_log";


open (LOGTAIL, "$tail_cmd |") or die "Couldn't open log pupe '$tail_cmd': $!\n";

while (<LOGTAIL>) {
  if (/^---- (.*) reported that (.*) \@ (.+) ----$/) {
    my $account = $1;
    my $screen_name = $2;
    my $time = $3;

    print "$account:  $time\n";
    print " $2\n\n";
  }
}