3 require_once('www/include/squal_pre.php');
4 require_once('common/mail/MailingList.class.php');
5 require_once('common/include/Group.class.php');
8 // Set up this script to run as the site admin
11 $res = db_query("SELECT user_id FROM user_group WHERE admin_flags='A' AND group_id='1'");
18 if (db_numrows($res) == 0) {
19 // There are no Admins yet, aborting without failing
24 $id=db_result($res,0,0);
27 $res = db_query("SELECT group_id, unix_group_name
29 WHERE STATUS='A' ORDER BY group_id");
36 for ($i=0; $i<db_numrows($res); $i++) {
37 $group_id = db_result($res,$i,'group_id');
38 $group_name = db_result($res,$i,'unix_group_name');
40 $res2 = db_query("SELECT * FROM mail_group_list
41 WHERE group_id = '".$group_id."'
42 AND list_name = '".$group_name."-commits'");
44 if (db_numrows($res2) < 1) {
45 $group = new Group($group_id);
46 if (!$group || !is_object($group)) {
48 echo "Could Not Get Group Object for $group_name";
49 } elseif ($group->isError()) {
51 echo "Could Not Get Group Object for $group_name: ".$group->getErrorMessage();
54 $res_aux2 = db_query("SELECT user_id FROM user_group
55 WHERE admin_flags = 'A'
56 AND group_id = '".$group_id."'");
58 $group_admin = db_result($res_aux2,0,'user_id');
60 echo "Will create mailing list for <b>".$group_name."-commits</b><br>\n";
61 $mailing_list = new MailingList($group);
62 if (!$mailing_list || !is_object($mailing_list)) {
64 echo "Could Not Get MailingList Object for $group_name";
65 } elseif ($mailing_list->isError()) {
67 echo "Could Not Get MailingList Object for $group_name: ".$mailing_list->getErrorMessage();
69 if (!$mailing_list->create('commits', 'cvs commits', 1,$group_admin)) {
71 echo "Could Not Create New Mailing List for $group_name: ".$mailing_list->getErrorMessage();
73 if ($mailing_list->isError()) {
75 echo $mailing_list->getErrorMessage();