mail_aliases.pl

来自「GForge 3.0 协作开发平台 支持CVS, mailing lists, 」· PL 代码 · 共 47 行

#!/usr/bin/perl
#
# $Id: mail_aliases.pl,v 1.3 2000/10/11 19:55:39 tperdue Exp $
#
use DBI;

require("../include.pl");  # Include all the predefined functions

$admin_list = ("precision,fusion94,dtype,bigdisk");

&db_connect;

@alias_array = open_array_file("aliases.zone");

push @alias_array, "\n\n### Begin Mailing List Aliases ###\n\n";

$query = "SELECT list_name from mail_group_list";
$c = $dbh->prepare($query);
$c->execute();
while(my ($list_name) = $c->fetchrow()) {
		$list_name =~ tr/A-Z/a-z/;
		$list_name =~ s/ //g;

		push @alias_array, sprintf("%-50s%-10s","$list_name\@lists.sourceforge.net:", "\"|/usr/local/mailman/mail/wrapper post $list_name\"\n");
		push @alias_array, sprintf("%-50s%-10s","$list_name-admin\@lists.sourceforge.net:", "\"|/usr/local/mailman/mail/wrapper mailowner $list_name\"\n");
		push @alias_array, sprintf("%-50s%-10s","$list_name-request\@lists.sourceforge.net:", "\"|/usr/local/mailman/mail/wrapper mailcmd $list_name\"\n");
}




#push @alias_array, "\n\n### Begin User Aliases ###\n\n";

#$query = "SELECT user_name,email FROM users WHERE status = \"A\"";

#$c = $dbh->prepare($query);
#$c->execute();
#while(($username, $email) = $c->fetchrow()) {
#	if ($email) {
#		if (!($admin_list =~ /.*$username*./)) {
#			push @alias_array, sprintf("%-50s%-10s","$username\@users.sourceforge.net:", "$email\n");
#		}
#	}
#}

write_array_file("/home/dummy/dumps/aliases", @alias_array);