Commit | Line | Data |
---|---|---|
ee68ddc1 | 1 | #!/usr/bin/php5 -q |
dee55344 | 2 | <?php |
08d7cc45 FB |
3 | |
4 | require_once(dirname(__FILE__) . '/connect.db.inc.php'); | |
dee55344 | 5 | require_once('validations.inc.php'); |
6 | ||
032b244e SJ |
7 | global $globals; |
8 | ||
dee55344 | 9 | $opt = getopt('p:o:h'); |
10 | ||
11 | if(empty($opt['p']) || empty($opt['o']) || isset($opt['h'])) { | |
12 | echo <<<EOF | |
13 | usage: lists.create_promo.php -p promo -o owner | |
14 | create mailing list for promo "promo" with initial owner "owner" | |
15 | ||
16 | EOF; | |
17 | exit; | |
18 | } | |
19 | ||
5daf68f6 | 20 | // Retrieves list parameters. |
dee55344 | 21 | $promo = intval($opt['p']); |
22 | $owner = $opt['o']; | |
23 | ||
5daf68f6 VZ |
24 | $owner_user = User::getSilent($owner); |
25 | if (!$owner_user) { | |
26 | echo "Supplied owner is not valid, aborting.\n"; | |
b6b26381 | 27 | exit(1); |
5daf68f6 VZ |
28 | } |
29 | ||
30 | // Creates the list. | |
31 | $req = new ListeReq($owner_user, false, "promo$promo", $globals->mail->domain, "Liste de la promotion $promo", | |
4d4c2cdf | 32 | 1 /*private*/, 2 /*moderate*/, 0 /*free subscription*/, |
33 | array($owner), array()); | |
dee55344 | 34 | $req->submit(); |
a7de4ef7 | 35 | // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: |
dee55344 | 36 | ?> |