Displays a warning to admins when an Auth-GroupeX request is denied

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

diff --git a/bin/lists.create_promo.php b/bin/lists.create_promo.php
index 34eb213..a5cbed3 100755 (executable)
--- a/bin/lists.create_promo.php
+++ b/bin/lists.create_promo.php
@@ -17,10 +17,18 @@ EOF;
     exit;
 }
 
+// Retrieves list parameters.
 $promo = intval($opt['p']);
 $owner = $opt['o'];
 
-$req = new ListeReq(0, false, "promo$promo", $globals->mail->domain, "Liste de la promotion $promo",
+$owner_user = User::getSilent($owner);
+if (!$owner_user) {
+    echo "Supplied owner is not valid, aborting.\n";
+    exit(1);
+}
+
+// Creates the list.
+$req = new ListeReq($owner_user, false, "promo$promo", $globals->mail->domain, "Liste de la promotion $promo",
                     1 /*private*/, 2 /*moderate*/, 0 /*free subscription*/,
                     array($owner), array());
 $req->submit();