<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/afs/athena/contrib/perl/p

$/ = '&lt;&lt;&lt;';
open(ZT, "tail -f /usr/tmp/ztrans|");
while(&lt;ZT&gt;){
    $_=~/([^&gt;]+)&gt;&gt;&gt;:(.*)/;
    $name = $1;
    $when = $2;
    $body = $';
    $body =~ s/&lt;&lt;&lt;//;
    if($name=~/$ARGV[0]/i){
	$zephyrs[$#zephyrs+1] = "---------------\n".$name." $when\n---------------";
	$zephyrs[$#zephyrs] .= $body;
    }
}
close(ZT);

$ARGV[1] = $#zephyrs unless $ARGV[1];

print($#zephyrs+1, " zephyrs matching\n");
$zs = $#zephyrs-$ARGV[1]+1;
for $n ($zs..$#zephyrs){
    print("$zephyrs[$n]");
}
</pre></body></html>