On Thu, Jul 27, 2000 at 09:55:48AM -0500, Ahn, Chang
([log in to unmask]) said:
> Is there anyway to query for the owner of a list.  I have new user who has
> replaced a previous list owner, but does not know what lists the old owner
> maintained.  I need to get a listing of all the lists where the old owner is
> either the owner or quiet owner.

I use the following quick and dirty perl script.  It might find more
than you want, but shouldn't find too much more.

You'll have to adjust the path to your system, of course.

--
Jim Toth
[log in to unmask]



#!/usr/bin/perl -w

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

chdir "/usr/local/lib/listserv/home";
opendir(DIR,".") or die "Can't open listserv directory: $!";
@files=grep (/.*\.list$/,readdir(DIR));
closedir(DIR);

foreach $filename ( @files ) {
  open (CUR,$filename) or
    die "You probably need to be running as root or listserv:$!";
  while ( <CUR> ) {
    (/Owner=[^*]*$ARGV[0]/o)
      and print "Found in list $filename\n";
  }
  close CUR;
}