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

require '/mit/mkgray/perl/chat2.pl';

&chat'open_port('ssa.mit.edu', 25);
$wait = &listen(1);
&chat'print("expn $ARGV[0]\n");
$people= &listen(5);
$people =~ s/\r//g;
@people = split("\n", $people);
&chat'print("quit\n");
for $p (@people){
    if($p=~/250-<(.+)\@[^\.]*PO[^\.]*\.LOCAL>/){
	print("$1\n");
    }	
    else{
	print("# $p isn't local...\n");
    }
}

sub listen {
        local($secs) = @_;
        local($return,$tmp) = "";
        while (length($tmp = &chat'expect($secs, '(.|\n)+', '$&'))) {
                print $tmp if $trace;
                $return .= $tmp;
        }
        $return;
}