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
[email protected]
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&file=faq01.027.htp
