Skip Navigational Links
LISTSERV email list manager
LISTSERV - COMMUNITY.EMAILOGY.COM
LISTSERV Menu
Log In
Log In
LISTSERV 17.5 Help - LSTOWN-L Archives
LISTSERV Archives
LISTSERV Archives
Search Archives
Search Archives
Register
Register
Log In
Log In

LSTOWN-L Archives

LISTSERV List Owners' Forum

LSTOWN-L

Menu
LISTSERV Archives LISTSERV Archives
LSTOWN-L Home LSTOWN-L Home

Log In Log In
Register Register

Subscribe or Unsubscribe Subscribe or Unsubscribe

Search Archives Search Archives
Options: Use Forum View

Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: What lists are owned?
From:
Paul Russell <[log in to unmask]>
Reply To:
LISTSERV list owners' forum <[log in to unmask]>
Date:
Wed, 21 Jan 2004 17:01:29 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines)
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 -----

ATOM RSS1 RSS2

COMMUNITY.EMAILOGY.COM CataList Email List Search Powered by LISTSERV