alias_setup.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# alias_setup.cgi
# Create the majordomo and majordomo-owner aliases

require './majordomo-lib.pl';
&ReadParse();
$aliases_files = &get_aliases_file();
$whatfailed = "Failed to setup aliases";
if ($in{'owner_a'}) {
	$in{'owner'} =~ /^\S+$/ || &error("Missing owner email address");
	$owner = { 'enabled' => 1,
		   'name' => $in{'owner_a'},
		   'values' => [ $in{'owner'} ] };
	&foreign_call("sendmail", "create_alias", $owner, $aliases_files);
	}
$email = { 'enabled' => 1,
	   'name' => $in{'email_a'},
	   'values' => [ "\"|$config{'program_dir'}/wrapper majordomo\"" ] };
&foreign_call("sendmail", "create_alias", $email, $aliases_files);
&redirect("");