Wed, 21 Jan 2004 17:01:29 -0500
|
Listserv Manager wrote:
> Listserv 1.8d (soon to be 1.8e) A user asked why she no longer got a drop
> down list of lists she owned when she logs into the list management page.
> A bit of empirical research seems to suggest that the dropdown disappears
> at 50? Which leads to another question: how can an owner find out, without
> asking the listserv administrator, what lists they own?
The following perl script will generate a list of lists on which the specified
address is listed as an owner. By default, output is displayed, however, it can
be redirected to a file. You will undoubtedly need to change the $home_dir
variable. Your mileage may vary; no warranties express or implied; yada-yada.
--
Paul Russell
Senior Systems Administrator
University of Notre Dame
----- begin -----
#!/bin/perl -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 listowner-email-address\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;
----- end -----
|
|
|