Use core with fixed date formatting
[platal.git] / bin / lists.create_promo.php
CommitLineData
ee68ddc1 1#!/usr/bin/php5 -q
dee55344 2<?php
08d7cc45
FB
3
4require_once(dirname(__FILE__) . '/connect.db.inc.php');
dee55344 5require_once('validations.inc.php');
6
032b244e
SJ
7global $globals;
8
dee55344 9$opt = getopt('p:o:h');
10
11if(empty($opt['p']) || empty($opt['o']) || isset($opt['h'])) {
12 echo <<<EOF
13usage: lists.create_promo.php -p promo -o owner
14 create mailing list for promo "promo" with initial owner "owner"
15
16EOF;
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);
25if (!$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?>