Merge branch 'platal-0.9.16' into platal-0.9.17
[platal.git] / bin / lists.create_promo.php
1 #!/usr/bin/php5 -q
2 <?php
3 require_once("xorg.inc.php");
4 require_once('validations.inc.php');
5
6 global $globals;
7
8 $opt = getopt('p:o:h');
9
10 if(empty($opt['p']) || empty($opt['o']) || isset($opt['h'])) {
11 echo <<<EOF
12 usage: lists.create_promo.php -p promo -o owner
13 create mailing list for promo "promo" with initial owner "owner"
14
15 EOF;
16 exit;
17 }
18
19 $promo = intval($opt['p']);
20 $owner = $opt['o'];
21
22 $req = new ListeReq(0, false, "promo$promo", $globals->mail->domain, "Liste de la promotion $promo",
23 1 /*private*/, 2 /*moderate*/, 0 /*free subscription*/,
24 array($owner), array());
25 $req->submit();
26 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
27 ?>