#!/usr/bin/perl -w -I/usr/sausalito/perl -I. -I/usr/sausalito/handlers/base/maillist
# $Id: listmod_config,v 1.3 2001/12/06 07:34:43 pbaltz Exp $
#
# depends on:
#		name
#		moderator
#     	      	postPolicy subPolicy
#		_CREATE

use MailList; # should be a local file
use CCE;
my $cce = new CCE;
$cce->connectfd();

my $oid = $cce->event_oid();
my $obj = $cce->event_object();

# hack to make spoofing a membership to a private list harder
# make sure the moderator email is of the form user@fqdn
MailList::munge_members($cce, $obj);

# create subscriber list:
MailList::rewrite_config($obj);

$cce->bye('SUCCESS');
exit(0);

