Moving to GitHub.

[platal.git] / include / mailinglist.inc.php

diff --git a/include/mailinglist.inc.php b/include/mailinglist.inc.php
index c1bd630..292266b 100644 (file)
--- a/include/mailinglist.inc.php
+++ b/include/mailinglist.inc.php
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2011 Polytechnique.org                              *
+ *  Copyright (C) 2003-2014 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -77,6 +77,18 @@ class MailingList
         return $this->mmclient->subscribe($this->mbox);
     }
 
+    public static function subscribeTo($mbox, $domain, $user=null)
+    {
+        $mlist = new MailingList($mbox, $domain, $user);
+        return $mlist->subscribe();
+    }
+
+    public static function subscribePromo($promo, $user=null)
+    {
+        $mlist = MailingList::promo($promo, $user);
+        return $mlist->subscribe();
+    }
+
     /** Subscribe a batch of users to the list
      */
     public function subscribeBulk($members)
@@ -177,10 +189,12 @@ class MailingList
 
     /** Create a list
      */
-    public function create($description, $advertise,
-        $moderation_level, $subscription_level, $owners, $members)
+    public static function create($mbox, $domain, $user, $description,
+        $advertise, $moderation_level, $subscription_level,
+        $owners, $members)
     {
-        return $this->mmclient->create_list($this->mbox, utf8_decode($description),
+        $mlist = new MailingList($mbox, $domain, $user);
+        return $mlist->mmclient->create_list($mlist->mbox, utf8_decode($description),
             $advertise, $moderation_level, $subscription_level,
             $owners, $members);
     }
@@ -196,7 +210,7 @@ class MailingList
      */
     public function setBogoLevel($level)
     {
-        return $this->mmclient->set_bogo_level($this->mbox);
+        return $this->mmclient->set_bogo_level($this->mbox, $level);
     }
 
     /** Get antispam level.
@@ -269,5 +283,5 @@ class MailingList
 
 // }}}
 
-// vim:set et sw=4 sts=4 sws=4 enc=utf-8:
+// vim:set et sw=4 sts=4 sws=4 fenc=utf-8:
 ?>