bin/lists.create_promo.php

   1 #!/usr/bin/php5 -q
   2 <?php
   3
   4 require_once(dirname(__FILE__) . '/connect.db.inc.php');
   5 require_once('validations.inc.php');
   6
   7 global $globals;
   8
   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
  20 // Retrieves list parameters.
  21 $promo = intval($opt['p']);
  22 $owner = $opt['o'];
  23
  24 $owner_user = User::getSilent($owner);
  25 if (!$owner_user) {
  26     echo "Supplied owner is not valid, aborting.\n";
  27     exit 1;
  28 }
  29
  30 // Creates the list.
  31 $req = new ListeReq($owner_user, false, "promo$promo", $globals->mail->domain, "Liste de la promotion $promo",
  32                     1 /*private*/, 2 /*moderate*/, 0 /*free subscription*/,
  33                     array($owner), array());
  34 $req->submit();
  35 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
  36 ?>