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

LSTSRV-L Archives

LISTSERV Site Administrators' Forum

LSTSRV-L

Menu
LISTSERV Archives LISTSERV Archives
LSTSRV-L Home LSTSRV-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: Owner <-> Lists
From:
Paul Russell <[log in to unmask]>
Reply To:
LISTSERV give-and-take forum <[log in to unmask]>
Date:
Tue, 20 Nov 2001 12:55:23 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (55 lines)
On Mon, 19 Nov 2001, Jacob Haller <[log in to unmask]> wrote:
>>Is there a command that returns all of the lists that a particular e-mail
>>address has "Owner" privileges to?
...
>I believe that the next version of LISTSERV is expected to have a
>"LISTS OWNED BY email@address" command which would allow a site admin
>to get the list of lists owned by a given address.  However, that's
>not implemented in 1.8d.

In the interim, the following perl script might meet your needs.

--
Paul Russell
Senior System Administrator
University of Notre Dame


----- 8< cut here >8 -----
#!/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;
----- 8< cut here >8 -----

ATOM RSS1 RSS2

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