3 require_once dirname(__FILE__).'/../www/env.inc.php';
4 require_once $gfcommon.'include/pre.php';
5 require_once $gfcommon.'mail/MailingList.class.php';
6 require_once $gfcommon.'include/Group.class.php';
9 // Set up this script to run as the site admin
12 $res = db_query_params ('SELECT user_id FROM user_group WHERE admin_flags=$1 AND group_id=$2',
22 if (db_numrows($res) == 0) {
23 // There are no Admins yet, aborting without failing
28 $id=db_result($res,0,0);
31 $res = db_query_params ('SELECT group_id, unix_group_name
33 WHERE STATUS=$1 ORDER BY group_id',
42 for ($i=0; $i<db_numrows($res); $i++) {
43 $group_id = db_result($res,$i,'group_id');
44 $group_name = db_result($res,$i,'unix_group_name');
46 $res2 = db_query_params ('SELECT * FROM mail_group_list WHERE group_id = $1 AND list_name = $2',
48 $group_name."-commits'")) ;
50 if (db_numrows($res2) < 1) {
51 $group = new Group($group_id);
52 if (!$group || !is_object($group)) {
54 echo "Could Not Get Group Object for $group_name";
55 } elseif ($group->isError()) {
57 echo "Could Not Get Group Object for $group_name: ".$group->getErrorMessage();
60 $res_aux2 = db_query_params ('SELECT user_id FROM user_group WHERE admin_flags = $1 AND group_id = $2',
64 $group_admin = db_result($res_aux2,0,'user_id');
66 echo "Will create mailing list for <b>".$group_name."-commits</b><br>\n";
67 $mailing_list = new MailingList($group);
68 if (!$mailing_list || !is_object($mailing_list)) {
70 echo "Could Not Get MailingList Object for $group_name";
71 } elseif ($mailing_list->isError()) {
73 echo "Could Not Get MailingList Object for $group_name: ".$mailing_list->getErrorMessage();
75 if (!$mailing_list->create('commits', 'cvs commits', 1,$group_admin)) {
77 echo "Could Not Create New Mailing List for $group_name: ".$mailing_list->getErrorMessage();
79 if ($mailing_list->isError()) {
81 echo $mailing_list->getErrorMessage();
99 // c-file-style: "bsd"