[Mailman-Users] A script for changing subscriber/owner email domains

[Ben Ostrowsky]

I didn't know any other way to do this, so I wrote a script.  Hope it's
not politically incorrect around here to have used Perl. ;)

Share and enjoy!

Ben


#!/usr/bin/perl -w

# Change all Mailman email addresses from one domain to another.
# Example: change_subscriber_domain tblc.lib.fl.us tblc.org

my $from  = $ARGV[0];
my $to    = $ARGV[1];

print "Old domain name: $from\n";
print "New domain name: $to\n\n";

open FH, "/usr/lib/mailman/bin/find_member --owners $from\$ |";

while (<FH>) {

  if (/^([EMAIL PROTECTED]).(.*) found in:/) {

    my $old = "[EMAIL PROTECTED]";
    my $new = "[EMAIL PROTECTED]";

    print "$old\n\t=> $new\n";

    $old =~ s/(['"])/\\$1/g;
    $new =~ s/(['"])/\\$1/g;

    system "/usr/lib/mailman/bin/clone_member --remove --admin --quiet
$old $new\n";
    print "--------------------\n";

  }

}
------------------------------------------------------
Mailman-Users mailing list
Mailman-Users@python.org
http://mail.python.org/mailman/listinfo/mailman-users
Mailman FAQ: http://www.python.org/cgi-bin/faqw-mm.py
Searchable Archives: http://www.mail-archive.com/mailman-users%40python.org/
Unsubscribe: 
http://mail.python.org/mailman/options/mailman-users/archive%40jab.org

Security Policy: 
http://www.python.org/cgi-bin/faqw-mm.py?req=show&amp;file=faq01.027.htp