#!/usr/local/bin/perl5 -w

$count = @ARGV;

if ( $count != 1 ) {
        print STDOUT "$0 cancelled - missing or invalid argument: @ARGV\n";
        print STDOUT "Correct syntax: $0 listowner-email-address";
        exit;
}

($#ARGV < 0 ) and die "Usage: $0 <email-address-of-owner-to-find-in-lists>\n";

$home_dir="/usr/products/listserv/home";

chdir $home_dir;

opendir(DIR,".") or die "Unable to open listserv directory: $!";

@files=grep (/.*\.list$/,readdir(DIR));

closedir(DIR);

print "Searching for lists owned by $ARGV[0]\n";

foreach $filename ( @files ) {
        open (CUR,$filename) or
                die "Unable to open $home_dir/$filename\n";
        while ( <CUR> ) {
                (/Owner=[^*]*$ARGV[0]/io)
                and print "$filename\n";
        }
        close CUR;
}

exit;