Merge branch 'platal-0.9.16' into platal-0.9.17

[platal.git] / bin / lists.create_promo.php

#!/usr/bin/php5 -q
<?php
require_once("xorg.inc.php");
require_once('validations.inc.php');

global $globals;

$opt = getopt('p:o:h');

if(empty($opt['p']) || empty($opt['o']) || isset($opt['h'])) {
    echo <<<EOF
usage: lists.create_promo.php -p promo -o owner
       create mailing list for promo "promo" with initial owner "owner"

EOF;
    exit;
}

$promo = intval($opt['p']);
$owner = $opt['o'];

$req = new ListeReq(0, false, "promo$promo", $globals->mail->domain, "Liste de la promotion $promo",
                    1 /*private*/, 2 /*moderate*/, 0 /*free subscription*/,
                    array($owner), array());
$req->submit();
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>