#!/afs/athena/contrib/perl/p

$list = `olist`;

@lines = split("\n", $list);

for $l (@lines){
    next unless $l=~/\@/;

    @f = split(' ', $l);
    ($user, $host) = split("\@", $f[0]);
#    print("Checking user $user\n");
    $question = `oreplay $user`;

    if($question=~/.*www.*/i || 
       $question=~/.*web.*/i || 
       $question=~/.*mosaic.*/i ||
       $question=~/.*url.*/i ||
       $question=~/.*html.*/i ||
       $question=~/.*http.*/i
       ){

	print("\n****** ${user}'s question matched\n-----\n$&\n-----\n");
    }


}
