Require 'groupmember' perms for group NL pages.
[platal.git] / modules / xnetnl.php
CommitLineData
a0f05027 1<?php
2/***************************************************************************
c441aabe 3 * Copyright (C) 2003-2014 Polytechnique.org *
a0f05027 4 * http://opensource.polytechnique.org/ *
5 * *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
84163d58 22Platal::load('newsletter');
a0f05027 23
84163d58
RB
24class XnetNlModule extends NewsletterModule
25{
26 function handlers()
27 {
28 return array(
01c71a69
RB
29 '%grp/nl' => $this->make_hook('nl', AUTH_PASSWD, 'groupmember'),
30 '%grp/nl/show' => $this->make_hook('nl_show', AUTH_PASSWD, 'groupmember'),
31 '%grp/nl/search' => $this->make_hook('nl_search', AUTH_PASSWD, 'groupmember'),
bfe9f4c7
SJ
32 '%grp/admin/nl' => $this->make_hook('admin_nl', AUTH_PASSWD, 'groupadmin'),
33 '%grp/admin/nl/sync' => $this->make_hook('admin_nl_sync', AUTH_PASSWD, 'groupadmin'),
34 '%grp/admin/nl/enable' => $this->make_hook('admin_nl_enable', AUTH_PASSWD, 'groupadmin'),
35 '%grp/admin/nl/edit' => $this->make_hook('admin_nl_edit', AUTH_PASSWD, 'groupadmin'),
36 '%grp/admin/nl/edit/cancel' => $this->make_hook('admin_nl_cancel', AUTH_PASSWD, 'groupadmin'),
ad6cd65c 37 '%grp/admin/nl/edit/delete' => $this->make_hook('admin_nl_delete', AUTH_PASSWD, 'groupadmin'),
bfe9f4c7
SJ
38 '%grp/admin/nl/edit/valid' => $this->make_hook('admin_nl_valid', AUTH_PASSWD, 'groupadmin'),
39 '%grp/admin/nl/categories' => $this->make_hook('admin_nl_cat', AUTH_PASSWD, 'groupadmin'),
a8d1ec11 40 '%grp/stat' => $this->make_hook('stat_nl', AUTH_PASSWD, 'groupadmin')
84163d58
RB
41 );
42 }
43
44 protected function getNl()
45 {
46 global $globals;
47 $group = $globals->asso('shortname');
48 return NewsLetter::forGroup($group);
49 }
738b4620 50
be166df9
SJ
51 public function handler_admin_nl_sync($page)
52 {
53 global $globals;
54 $nl = $this->getNl();
55 if (!$nl) {
56 return PL_FORBIDDEN;
57 }
58
59 if (Env::has('add_users')) {
60 S::assert_xsrf_token();
61
e4b8520c 62 $nl->bulkSubscribe(array_keys(Env::v('add_users')));
be166df9
SJ
63
64 $page->trigSuccess('Ajouts réalisés avec succès.');
65 }
66
e4b8520c 67 // TODO(x2006barrois): remove raw SQL query.
be166df9
SJ
68 $uids = XDB::fetchColumn('SELECT DISTINCT(g.uid)
69 FROM group_members AS g
70 WHERE g.asso_id = {?} AND NOT EXISTS (SELECT ni.*
71 FROM newsletter_ins AS ni
72 INNER JOIN newsletters AS n ON (ni.nlid = n.id)
73 WHERE g.uid = ni.uid AND n.group_id = g.asso_id)',
74 $globals->asso('id'));
75
76 $users = User::getBulkUsersWithUIDs($uids);
77 usort($users, 'User::compareDirectoryName');
78
79 $page->setTitle('Synchronisation de la newsletter');
80 $page->changeTpl('newsletter/sync.tpl');
81 $page->assign('users', $users);
82 }
83
738b4620
RB
84 public function handler_admin_nl_enable($page)
85 {
86 global $globals;
87 $nl = $this->getNl();
88 if ($nl) {
89 return PL_FORBIDDEN;
90 }
91
92 if (Post::has('title')) {
93 if (!S::has_xsrf_token()) {
94 return PL_FORBIDDEN;
95 }
96
97 XDB::execute('INSERT INTO newsletters
98 SET group_id = {?}, name = {?}',
99 $globals->asso('id'), Post::s('title'));
100
101 $mailer = new PlMailer();
102 $mailer->assign('group', $globals->asso('nom'));
103 $mailer->assign('user', S::user());
104 $mailer->send();
105
106 $page->trigSuccessRedirect("La lettre d'informations du groupe " .
107 $globals->asso('nom') . " a bien été créée",
108 $globals->asso('shortname') . '/admin/nl');
109 }
110 $page->setTitle('Activation de la newsletter');
111 $page->changeTpl('newsletter/enable.tpl');
112 }
a0f05027 113}
114
448c8cdc 115// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
a0f05027 116?>