X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Flists.php;h=fa3232baeee394ecca37c9bec53f6a53a8ddac0f;hb=0001ba7a34dc3b535407cb1b961781c3c69c0ccd;hp=a3224ea38a4a6f1bbb893cac69f2499b89630082;hpb=5daf68f6846682e439570b5245a6109ada8d9304;p=platal.git
diff --git a/modules/lists.php b/modules/lists.php
index a3224ea..fa3232b 100644
--- a/modules/lists.php
+++ b/modules/lists.php
@@ -1,6 +1,6 @@
$this->make_hook('create', AUTH_MDP),
'lists/members' => $this->make_hook('members', AUTH_COOKIE),
+ 'lists/csv' => $this->make_hook('csv', AUTH_COOKIE),
'lists/annu' => $this->make_hook('annu', AUTH_COOKIE),
'lists/archives' => $this->make_hook('archives', AUTH_COOKIE),
'lists/archives/rss' => $this->make_hook('rss', AUTH_PUBLIC, 'user', NO_HTTPS),
@@ -46,19 +47,16 @@ class ListsModule extends PLModule
);
}
- function on_subscribe($forlife, $uid, $promo, $password)
- {
- $this->prepare_client(null);
- $this->client->subscribe("promo$promo");
- }
-
- function prepare_client(&$page)
+ function prepare_client(&$page, $user = null)
{
global $globals;
$this->load('lists.inc.php');
+ if (is_null($user)) {
+ $user = S::user();
+ }
- $this->client = new MMList(S::v('uid'), S::v('password'));
+ $this->client = new MMList($user);
return $globals->mail->domain;
}
@@ -343,6 +341,25 @@ class ListsModule extends PLModule
}
}
+ function handler_csv(PlPage &$page, $liste = null)
+ {
+ if (is_null($liste)) {
+ return PL_NOT_FOUND;
+ }
+ $this->prepare_client($page);
+ $members = $this->client->get_members($liste);
+ $list = list_fetch_names(list_extract_members($members[1]));
+ header('Content-Type: text/x-csv; charset=utf-8;');
+ header('Pragma: ');
+ header('Cache-Control: ');
+
+ echo "email,nom,prenom,promo\n";
+ foreach ($list as $member) {
+ echo @$member['email'] . ',' . @$member['nom'] . ',' . @$member['prenom'] . ',' . @$member['promo'] . "\n";
+ }
+ exit;
+ }
+
function handler_annu(&$page, $liste = null, $action = null, $subaction = null)
{
if (is_null($liste)) {
@@ -422,27 +439,22 @@ class ListsModule extends PLModule
function handler_rss(&$page, $liste = null, $alias = null, $hash = null)
{
- require_once('rss.inc.php');
- $uid = init_rss(null, $alias, $hash);
- if (!$uid || !$liste) {
- exit;
+ if (!$liste) {
+ return PL_NOT_FOUND;
+ }
+ $user = Platal::session()->tokenAuth($alias, $hash);
+ if (is_null($user)) {
+ return PL_FORBIDDEN;
}
- $res = XDB::query("SELECT user_id AS uid, password, alias AS forlife
- FROM auth_user_md5 AS u
- INNER JOIN aliases AS a ON (a.id = u.user_id AND a.type = 'a_vie')
- WHERE u.user_id = {?}", $uid);
- $row = $res->fetchOneAssoc();
- $_SESSION = array_merge($row, $_SESSION);
-
- $domain = $this->prepare_client($page);
+ $domain = $this->prepare_client($page, $user);
if (list($det) = $this->client->get_members($liste)) {
if (substr($liste,0,5) != 'promo' && ($det['ins'] || $det['priv'])
&& !$det['own'] && ($det['sub'] < 2)) {
exit;
}
require_once('banana/ml.inc.php');
- $banana = new MLBanana(S::user(), Array('listname' => $liste, 'domain' => $domain, 'action' => 'rss2'));
+ $banana = new MLBanana($user, Array('listname' => $liste, 'domain' => $domain, 'action' => 'rss2'));
$banana->run();
}
exit;
@@ -812,12 +824,16 @@ class ListsModule extends PLModule
$type, $liste.$app.$domain);
}
$page->assign('deleted', true);
+ $page->trigSuccess('La liste a été détruite !');
} else {
$page->kill('Une erreur est survenue lors de la suppression de la liste.
'
. 'Contact les administrateurs du site pour régler le problème : '
. 'support@polytechnique.org');
}
} elseif (list($details,$options) = $this->client->get_owner_options($liste)) {
+ if (!$details['own']) {
+ $page->trigWarning('Tu n\'es pas administrateur de la liste, mais du site.');
+ }
$page->assign_by_ref('details', $details);
$page->assign_by_ref('options', $options);
$page->assign('bogo_level', $this->client->get_bogo_level($liste));
@@ -878,12 +894,13 @@ class ListsModule extends PLModule
}
}
- function handler_admin_all(&$page) {
+ function handler_admin_all(&$page)
+ {
$page->changeTpl('lists/admin_all.tpl');
$page->setTitle('Administration - Mailing lists');
- $client = new MMList(S::v('uid'), S::v('password'));
- $listes = $client->get_all_lists();
+ $this->prepare_client($page);
+ $listes = $this->client->get_all_lists();
$page->assign_by_ref('listes', $listes);
}
}