X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Flists.php;h=16c5016e333d24ff744ffff535b53e8c094679d8;hb=155819d9ece12a06d37df46e22b76e3c71f65fba;hp=b77ec70f2d22f5e4a330ca46af5b28f9e41eb9ef;hpb=94c63478e2e66e968a61daedbafc5fbde9442102;p=platal.git diff --git a/modules/lists.php b/modules/lists.php index b77ec70..16c5016 100644 --- a/modules/lists.php +++ b/modules/lists.php @@ -1,6 +1,6 @@ $this->make_hook('lists', AUTH_MDP), - 'lists/ajax' => $this->make_hook('ajax', AUTH_MDP, '', NO_AUTH), + 'lists/ajax' => $this->make_hook('ajax', AUTH_MDP, 'user', NO_AUTH), 'lists/create' => $this->make_hook('create', AUTH_MDP), 'lists/members' => $this->make_hook('members', AUTH_COOKIE), 'lists/trombi' => $this->make_hook('trombi', AUTH_COOKIE), 'lists/archives' => $this->make_hook('archives', AUTH_COOKIE), + 'lists/archives/rss' => $this->make_hook('rss', AUTH_PUBLIC), 'lists/moderate' => $this->make_hook('moderate', AUTH_MDP), 'lists/admin' => $this->make_hook('admin', AUTH_MDP), @@ -41,7 +42,7 @@ class ListsModule extends PLModule 'lists/soptions' => $this->make_hook('soptions', AUTH_MDP), 'lists/check' => $this->make_hook('check', AUTH_MDP), - 'admin/lists' => $this->make_hook('admin_all', AUTH_MDP, 'admin'), + 'admin/lists' => $this->make_hook('admin_all', AUTH_MDP, 'admin'), ); } @@ -61,17 +62,6 @@ class ListsModule extends PLModule return $globals->mail->domain; } - function clean_html($res) - { - $res = html_entity_decode($res); - $res = preg_replace('@]*href=["\']([^ >]+)["\'][^>]*>([^<]*)@ie', - "'\\2 [' . htmlentities('\\1') . ']'", $res); - $res = preg_replace("@<(/br|p|/div)[^>]*>(\\s*\n)?@i", "\n", $res); - $res = trim(strip_tags($res)); - $res = preg_replace("/\n(\\s*\n)+/", "\n\n", $res); - return $res; - } - function handler_lists(&$page) { function filter_owner($list) @@ -81,12 +71,12 @@ class ListsModule extends PLModule function filter_member($list) { - return $list['ins']; + return $list['sub']; } $this->prepare_client($page); - $page->changeTpl('listes/index.tpl'); + $page->changeTpl('lists/index.tpl'); $page->addJsLink('ajax.js'); $page->assign('xorg_title','Polytechnique.org - Listes de diffusion'); @@ -125,8 +115,9 @@ class ListsModule extends PLModule function handler_ajax(&$page, $list = null) { - $this->prepare_client($page); - $page->changeTpl('listes/liste.inc.tpl', NO_SKIN); + header('Content-Type: text/html; charset="UTF-8"'); + $domain = $this->prepare_client($page); + $page->changeTpl('lists/liste.inc.tpl', NO_SKIN); if (Get::has('unsubscribe')) { $this->client->unsubscribe($list); } @@ -137,7 +128,7 @@ class ListsModule extends PLModule $this->client->handle_request($list, Get::v('sadd'), 4, ''); } if (Get::has('mid')) { - $this->moderate_mail($list, Get::i('mid')); + $this->moderate_mail($domain, $list, Get::i('mid')); } list($liste, $members, $owners) = $this->client->get_members($list); @@ -152,7 +143,7 @@ class ListsModule extends PLModule function handler_create(&$page) { - $page->changeTpl('listes/create.tpl'); + $page->changeTpl('lists/create.tpl'); $owners = preg_split("/[\s]+/", Post::v('owners'), -1, PREG_SPLIT_NO_EMPTY); $members = preg_split("/[\s]+/", Post::v('members'), -1, PREG_SPLIT_NO_EMPTY); @@ -198,17 +189,17 @@ class ListsModule extends PLModule $liste = Post::v('liste'); if (empty($liste)) { - $page->trig('champs «addresse souhaitée» vide'); + $page->trig('champs «addresse souhaitée» vide'); } if (!preg_match("/^[a-zA-Z0-9\-]*$/", $liste)) { - $page->trig('le nom de la liste ne doit contenir que des lettres, chiffres et tirets'); + $page->trig('le nom de la liste ne doit contenir que des lettres non accentuées, chiffres et tirets'); } $res = XDB::query("SELECT COUNT(*) FROM aliases WHERE alias={?}", $liste); $n = $res->fetchOneCell(); if ($n) { - $page->trig('cet alias est déjà pris'); + $page->trig('cet alias est déjà pris'); } if (!Post::v(desc)) { @@ -234,6 +225,16 @@ class ListsModule extends PLModule } } + function changeTpl($tpl) + { + if (!empty($GLOBALS['IS_XNET_SITE'])) { + new_group_open_page($tpl); + } else { + global $page; + $page->changeTpl($tpl); + } + } + function handler_members(&$page, $liste = null) { if (is_null($liste)) { @@ -242,7 +243,7 @@ class ListsModule extends PLModule $this->prepare_client($page); - $page->changeTpl('listes/members.tpl'); + $this->changeTpl('lists/members.tpl'); if (Get::has('del')) { $this->client->unsubscribe($liste); @@ -267,10 +268,21 @@ class ListsModule extends PLModule $page->assign_by_ref('owners', $moderos); $page->assign('nb_m', count($mem)); } else { - $page->kill("La liste n'existe pas ou tu n'as pas le droit d'en voir les détails"); + $page->kill("La liste n'existe pas ou tu n'as pas le droit d'en voir les détails"); } } + function compare($a, $b) + { + if ($a['promo'] == $b['promo']) { + if ($a['nom'] == $b['nom']) { + return strcmp($a['prenom'], $b['prenom']); + } + return strcmp($a['nom'], $b['nom']); + } + return $a['promo'] - $b['promo']; + } + function _get_list($offset, $limit) { global $platal; @@ -283,13 +295,15 @@ class ListsModule extends PLModule promo, a.alias AS forlife FROM auth_user_md5 AS u INNER JOIN aliases AS a ON u.user_id = a.id + INNER JOIN photo AS p ON p.uid = u.user_id WHERE a.alias = {?}", $m); if ($tmp = $res->fetchOneAssoc()) { $membres[$tmp['nom']] = $tmp; } else { - $membres[$member[0]] = array('addr' => $member[0]); + $total--; } } + uasort($membres, array($this, 'compare')); return array($total, $membres); } @@ -301,15 +315,15 @@ class ListsModule extends PLModule $this->prepare_client($page); - $page->changeTpl('listes/trombi.tpl'); + $this->changeTpl('lists/trombi.tpl'); if (Get::has('del')) { $this->client->unsubscribe($liste); - pl_redirect('lists/tromi/'.$liste); + pl_redirect('lists/trombi/'.$liste); } if (Get::has('add')) { $this->client->subscribe($liste); - pl_redirect('lists/tromi/'.$liste); + pl_redirect('lists/trombi/'.$liste); } $owners = $this->client->get_owners($liste); @@ -323,11 +337,11 @@ class ListsModule extends PLModule $trombi = new Trombi(array(&$this, '_get_list')); $page->assign('trombi', $trombi); } else { - $page->kill("La liste n'existe pas ou tu n'as pas le droit d'en voir les détails"); + $page->kill("La liste n'existe pas ou tu n'as pas le droit d'en voir les détails"); } } - function handler_archives(&$page, $liste = null) + function handler_archives(&$page, $liste = null, $action = null, $artid = null) { global $globals; @@ -337,41 +351,54 @@ class ListsModule extends PLModule $domain = $this->prepare_client($page); - $page->changeTpl('listes/archives.tpl'); + $this->changeTpl('lists/archives.tpl'); - $page->addCssLink('lists.archives.css'); if (list($det) = $this->client->get_members($liste)) { if (substr($liste,0,5) != 'promo' && ($det['ins'] || $det['priv']) - && !$det['own'] && ($det['sub'] < 2)) - { + && !$det['own'] && ($det['sub'] < 2)) { $page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter"); - } elseif (Get::has('file')) { - $file = Get::v('file'); - $rep = Get::v('rep'); - if (strstr('/', $file)!==false || !preg_match(',^\d+/\d+$,', $rep)) { - $page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter"); - } else { - $page->assign('archives', $globals->lists->spool - ."/{$domain}{$globals->lists->vhost_sep}$liste/$rep/$file"); - } - } else { - $archs = Array(); - foreach (glob($globals->lists->spool - ."/{$domain}{$globals->lists->vhost_sep}$liste/*/*") as $rep) - { - if (preg_match(",/(\d*)/(\d*)$,", $rep, $matches)) { - $archs[intval($matches[1])][intval($matches[2])] = true; - } - } - $page->assign('archs', $archs); - $page->assign('range', range(1,12)); } + $get = Array('listname' => $liste, 'domain' => $domain); + if (Post::has('updateall')) { + $get['updateall'] = Post::v('updateall'); + } + require_once 'banana/ml.inc.php'; + get_banana_params($get, null, $action, $artid); + run_banana($page, 'MLBanana', $get); } else { $page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter"); } } - function moderate_mail($liste, $mid) + 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; + } + + $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); + 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(Array('listname' => $liste, 'domain' => $domain, 'action' => 'rss2')); + $banana->run(); + } + exit; + } + + function moderate_mail($domain, $liste, $mid) { $mail = $this->client->get_pending_mail($liste, $mid); $reason = ''; @@ -381,30 +408,29 @@ class ListsModule extends PLModule if (Env::has('mok')) { $action = 1; /** 2 = ACCEPT **/ - $subject = "Message accepté"; - $append .= "a été accepté par $prenom $nom.\n"; + $subject = "Message accepté"; + $append .= "a été accepté par $prenom $nom.\n"; } elseif (Env::has('mno')) { $action = 2; /** 2 = REJECT **/ - $subject = "Message refusé"; + $subject = "Message refusé"; $reason = Post::v('reason'); - $append = "a été refusé par $prenom $nom avec la raison :\n\n" + $append = "a été refusé par $prenom $nom avec la raison :\n\n" . $reason; } elseif (Env::has('mdel')) { $action = 3; /** 3 = DISCARD **/ - $subject = "Message supprimé"; - $append = "a été supprimé par $prenom $nom.\n\n" - . "Rappel: il ne faut utiliser cette opération " + $subject = "Message supprimé"; + $append = "a été supprimé par $prenom $nom.\n\n" + . "Rappel: il ne faut utiliser cette opération " . "que dans le cas de spams ou de virus !\n"; } if (isset($action) && $this->client->handle_request($liste, $mid, $action, $reason)) { $texte = "le message suivant :\n\n" ." Auteur: {$mail['sender']}\n" - ." Sujet : « {$mail['subj']} »\n" - ." Date : ".strftime("le %d %b %Y à %H:%M:%S", (int)$mail['stamp'])."\n\n" + ." Sujet : « {$mail['subj']} »\n" + ." Date : ".strftime("le %d %b %Y à %H:%M:%S", (int)$mail['stamp'])."\n\n" .$append; - require_once 'diogenes/diogenes.hermes.inc.php'; - $mailer = new HermesMailer(); + $mailer = new PlMailer(); $mailer->addTo("$liste-owner@{$domain}"); $mailer->setFrom("$liste-bounces@{$domain}"); $mailer->addHeader('Reply-To', "$liste-owner@{$domain}"); @@ -425,43 +451,47 @@ class ListsModule extends PLModule $domain = $this->prepare_client($page); - $page->changeTpl('listes/moderate.tpl'); + $this->changeTpl('lists/moderate.tpl'); - $page->register_modifier('qpd', 'quoted_printable_decode'); $page->register_modifier('hdc', 'list_header_decode'); - $page->register_modifier('clean_html', array($this, 'clean_html')); if (Env::has('sadd')) { /* 4 = SUBSCRIBE */ $this->client->handle_request($liste,Env::v('sadd'),4,''); pl_redirect('lists/moderate/'.$liste); } - if (Post::has('sdel')) { /* 2 = REJECT */ $this->client->handle_request($liste,Post::v('sdel'),2,Post::v('reason')); } - if (Env::has('mid')) { - $mail = $this->moderate_mail($liste, Env::i('mid')); + if (Post::has('moderate_mails') && Post::has('select_mails')) { + $mails = array_keys(Post::v('select_mails')); + foreach($mails as $mail) { + $this->moderate_mail($domain, $liste, $mail); + } + } elseif (Env::has('mid')) { + if (Get::has('mid') && !Env::has('mok') && !Env::has('mdel')) { + $page->changeTpl('lists/moderate_mail.tpl'); + require_once('banana/moderate.inc.php'); + $params = array('listname' => $liste, 'domain' => $domain, + 'artid' => Get::i('mid'), 'part' => Get::v('part'), 'action' => Get::v('action')); + $params['client'] = $this->client; + run_banana($page, 'ModerationBanana', $params); - if (Get::has('mid') && is_array($mail)) { $msg = file_get_contents('/etc/mailman/fr/refuse.txt'); $msg = str_replace("%(adminaddr)s", "$liste-owner@{$domain}", $msg); $msg = str_replace("%(request)s", "<< SUJET DU MAIL >>", $msg); $msg = str_replace("%(reason)s", "<< TON EXPLICATION >>", $msg); $msg = str_replace("%(listname)s", $liste, $msg); - $page->assign('msg', $msg); - - $page->changeTpl('listes/moderate_mail.tpl'); - $page->assign_by_ref('mail', $mail); return; - } - } elseif (Env::has('sid')) { + } + $mail = $this->moderate_mail($domain, $liste, Env::i('mid')); + } elseif (Env::has('sid')) { if (list($subs,$mails) = $this->client->get_pending_ops($liste)) { foreach($subs as $user) { if ($user['id'] == Env::v('sid')) { - $page->changeTpl('listes/moderate_sub.tpl'); + $this->changeTpl('lists/moderate_sub.tpl'); $page->assign('del_user', $user); return; } @@ -471,10 +501,13 @@ class ListsModule extends PLModule } if (list($subs,$mails) = $this->client->get_pending_ops($liste)) { + foreach ($mails as $key=>$mail) { + $mails[$key]['stamp'] = strftime("%Y%m%d%H%M%S", $mail['stamp']); + } $page->assign_by_ref('subs', $subs); $page->assign_by_ref('mails', $mails); } else { - $page->kill("La liste n'existe pas ou tu n'as pas le droit de la modérer"); + $page->kill("La liste n'existe pas ou tu n'as pas le droit de la modérer"); } } @@ -488,7 +521,7 @@ class ListsModule extends PLModule $this->prepare_client($page); - $page->changeTpl('listes/admin.tpl'); + $this->changeTpl('lists/admin.tpl'); if (Env::has('add_member')) { require_once('user.func.inc.php'); @@ -517,7 +550,7 @@ class ListsModule extends PLModule if ($owners) { foreach ($owners as $login) { if ($this->client->add_owner($liste, $login)) { - $page->trig($alias." ajouté aux modérateurs."); + $page->trig($alias." ajouté aux modérateurs."); } } } @@ -533,8 +566,8 @@ class ListsModule extends PLModule } if (list($det,$mem,$own) = $this->client->get_members($liste)) { - $membres = list_sort_members($mem, $tri_promo); - $moderos = list_sort_owners($own, $tri_promo); + $membres = list_sort_members($mem, @$tri_promo); + $moderos = list_sort_owners($own, @$tri_promo); $page->assign_by_ref('details', $det); $page->assign_by_ref('members', $membres); @@ -542,7 +575,9 @@ class ListsModule extends PLModule $page->assign('np_m', count($mem)); } else { - $page->kill("La liste n'existe pas ou tu n'as pas le droit de l'administrer"); + $page->kill("La liste n'existe pas ou tu n'as pas le droit de l'administrer.
" + ." Si tu penses qu'il s'agit d'une erreur, " + ."contact le support"); } } @@ -554,10 +589,11 @@ class ListsModule extends PLModule $this->prepare_client($page); - $page->changeTpl('listes/options.tpl'); + $this->changeTpl('lists/options.tpl'); if (Post::has('submit')) { $values = $_POST; + $values = array_map('utf8_decode', $values); $this->client->set_bogo_level($liste, intval($values['bogo_level'])); switch($values['moderate']) { case '0': @@ -599,23 +635,36 @@ class ListsModule extends PLModule function handler_delete(&$page, $liste = null) { + global $globals; if (is_null($liste)) { return PL_NOT_FOUND; } - $this->prepare_client($page); - - $page->changeTpl('listes/delete.tpl'); - - if (Post::v('valid') == 'OUI' - && $this->client->delete_list($liste, Post::b('del_archive'))) - { - foreach (array('', '-owner', '-admin', '-bounces') as $app) { - XDB::execute("DELETE FROM aliases - WHERE type='liste' AND alias='{?}'", - $liste.$app); + $domain = $this->prepare_client($page); + if ($domain == $globals->mail->domain || $domain == $globals->mail->domain2) { + $domain = ''; + $table = 'aliases'; + $type = 'liste'; + } else { + $domain = '@' . $domain; + $table = 'virtual'; + $type = 'list'; + } + + $this->changeTpl('lists/delete.tpl'); + if (Post::v('valid') == 'OUI') { + if ($this->client->delete_list($liste, Post::b('del_archive'))) { + foreach (array('', '-owner', '-admin', '-bounces') as $app) { + XDB::execute("DELETE FROM $table + WHERE type={?} AND alias={?}", + $type, $liste.$app.$domain); + } + $page->assign('deleted', true); + } 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'); } - $page->assign('deleted', true); } elseif (list($details,$options) = $this->client->get_owner_options($liste)) { $page->assign_by_ref('details', $details); $page->assign_by_ref('options', $options); @@ -633,10 +682,11 @@ class ListsModule extends PLModule $this->prepare_client($page); - $page->changeTpl('listes/soptions.tpl'); + $this->changeTpl('lists/soptions.tpl'); if (Post::has('submit')) { $values = $_POST; + $values = array_map('utf8_decode', $values); unset($values['submit']); $values['advertised'] = empty($values['advertised']) ? false : true; $values['archive'] = empty($values['archive']) ? false : true; @@ -659,7 +709,7 @@ class ListsModule extends PLModule $this->prepare_client($page); - $page->changeTpl('listes/check.tpl'); + $this->changeTpl('lists/check.tpl'); if (Post::has('correct')) { $this->client->check_options($liste, true); @@ -674,7 +724,7 @@ class ListsModule extends PLModule } function handler_admin_all(&$page) { - $page->changeTpl('listes/admin_all.tpl'); + $this->changeTpl('lists/admin_all.tpl'); $page->assign('xorg_title','Polytechnique.org - Administration - Mailing lists'); $client = new MMList(S::v('uid'), S::v('password')); @@ -683,4 +733,5 @@ class ListsModule extends PLModule } } +// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: ?>