X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Flists.php;h=16d7de9de70d42d7f024eb21a39f70c0ceec698a;hb=59887c4a8a1f014c1f4107c43deda0d1be994f5d;hp=7111516b290d71f43b44a0612fd5313d3c668a42;hpb=1cc0afe77b0c234f12840a84b0adac52fe07c4fe;p=platal.git diff --git a/modules/lists.php b/modules/lists.php index 7111516..16d7de9 100644 --- a/modules/lists.php +++ b/modules/lists.php @@ -1,6 +1,6 @@ $this->make_hook('members', 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), + 'lists/archives/rss' => $this->make_hook('rss', AUTH_PUBLIC, 'user', NO_HTTPS), 'lists/moderate' => $this->make_hook('moderate', AUTH_MDP), 'lists/admin' => $this->make_hook('admin', AUTH_MDP), @@ -62,6 +62,22 @@ class ListsModule extends PLModule return $globals->mail->domain; } + function get_pending_ops($domain, $list) + { + list($subs,$mails) = $this->client->get_pending_ops($list); + $res = XDB::query("SELECT mid + FROM ml_moderate + WHERE ml = {?} AND domain = {?}", + $list, $domain); + $mids = $res->fetchColumn(); + foreach ($mails as $key=>$mail) { + if (in_array($mail['id'], $mids)) { + unset($mails[$key]); + } + } + return array($subs, $mails); + } + function handler_lists(&$page) { function filter_owner($list) @@ -74,7 +90,7 @@ class ListsModule extends PLModule return $list['sub']; } - $this->prepare_client($page); + $domain = $this->prepare_client($page); $page->changeTpl('lists/index.tpl'); $page->addJsLink('ajax.js'); @@ -94,7 +110,7 @@ class ListsModule extends PLModule if ($promo >= 1900 and $promo < 2100) { $this->client->subscribe("promo$promo"); } else { - $page->trig("promo incorrecte, il faut une promo sur 4 chiffres."); + $page->trigSuccess("promo incorrecte, il faut une promo sur 4 chiffres."); } } $listes = $this->client->get_lists(); @@ -103,7 +119,7 @@ class ListsModule extends PLModule $member = array_filter($listes, 'filter_member'); $listes = array_diff_key($listes, $member); foreach ($owner as $key=>$liste) { - list($subs,$mails) = $this->client->get_pending_ops($liste['list']); + list($subs,$mails) = $this->get_pending_ops($domain, $liste['list']); $owner[$key]['subscriptions'] = $subs; $owner[$key]['mails'] = $mails; } @@ -133,7 +149,7 @@ class ListsModule extends PLModule list($liste, $members, $owners) = $this->client->get_members($list); if ($liste['own']) { - list($subs,$mails) = $this->client->get_pending_ops($list); + list($subs,$mails) = $this->get_pending_ops($domain, $list); $liste['subscriptions'] = $subs; $liste['mails'] = $mails; } @@ -186,38 +202,68 @@ class ListsModule extends PLModule return; } + $asso = Post::v('asso'); $liste = Post::v('liste'); if (empty($liste)) { - $page->trig('champs «addresse souhaitée» vide'); + $page->trigError('Le champ «adresse souhaitée» est vide.'); } if (!preg_match("/^[a-zA-Z0-9\-]*$/", $liste)) { - $page->trig('le nom de la liste ne doit contenir que des lettres non accentuées, chiffres et tirets'); + $page->trigError('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 (($asso == "binet") || ($asso == "alias")) { + $promo = Post::i('promo'); + $domain = $promo . '.polytechnique.org'; + + if (($promo < 1921) || ($promo > date('Y'))) { + $page->trigError('La promotion est mal renseignée, elle doit être du type : 2004.'); + } + + $new = $liste . '@' . $domain; + $res = XDB::query('SELECT COUNT(*) FROM x4dat.virtual WHERE alias={?}', $new); + + } else { + if ($asso == "groupex") { + $groupex_name = Post::v('groupex_name'); + + $res_groupe = XDB::query('SELECT mail_domain FROM groupex.asso WHERE nom={?}', $groupex_name); + $domain = $res_groupe->fetchOneCell(); + + if (!$domain) { + $page->trigError('Il n\'y a aucun groupe de ce nom sur Polytechnique.net.'); + } + + $new = $liste . '@' . $domain; + $res = XDB::query('SELECT COUNT(*) FROM x4dat.virtual WHERE alias={?}', $new); + } else { + $res = XDB::query("SELECT COUNT(*) FROM aliases WHERE alias={?}", $liste); + $domain = "polytechnique.org"; + } + } + + $n = $res->fetchOneCell(); if ($n) { - $page->trig('cet alias est déjà pris'); + $page->trigError('Cette «adresse souhaitée» est déjà prise.'); } - if (!Post::v(desc)) { - $page->trig('le sujet est vide'); + if (!Post::v('desc')) { + $page->trigError('Le sujet est vide.'); } if (!count($owners)) { - $page->trig('pas de gestionnaire'); + $page->trigError('Il n\'y a pas de gestionnaire.'); } if (count($members)<4) { - $page->trig('pas assez de membres'); + $page->trigError('Il n\'y a pas assez de membres.'); } if (!$page->nb_errs()) { $page->assign('created', true); require_once 'validations.inc.php'; - $req = new ListeReq(S::v('uid'), $liste, + $req = new ListeReq(S::v('uid'), $asso, $liste, $domain, Post::v('desc'), Post::i('advertise'), Post::i('modlevel'), Post::i('inslevel'), $owners, $members); @@ -323,7 +369,7 @@ class ListsModule extends PLModule if (list($det) = $this->client->get_members($liste)) { if (substr($liste,0,5) != 'promo' && ($det['ins'] || $det['priv']) && !$det['own'] && ($det['sub'] < 2)) { - $page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter"); + $page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter."); } $get = Array('listname' => $liste, 'domain' => $domain); if (Post::has('updateall')) { @@ -333,7 +379,7 @@ class ListsModule extends PLModule 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"); + $page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter."); } } @@ -356,7 +402,7 @@ class ListsModule extends PLModule if (list($det) = $this->client->get_members($liste)) { if (substr($liste,0,5) != 'promo' && ($det['ins'] || $det['priv']) && !$det['own'] && ($det['sub'] < 2)) { - exit; + exit; } require_once('banana/ml.inc.php'); $banana = new MLBanana(S::v('forlife'), Array('listname' => $liste, 'domain' => $domain, 'action' => 'rss2')); @@ -367,47 +413,19 @@ class ListsModule extends PLModule function moderate_mail($domain, $liste, $mid) { - $mail = $this->client->get_pending_mail($liste, $mid); - $reason = ''; - - $prenom = S::v('prenom'); - $nom = S::v('nom'); - if (Env::has('mok')) { - $action = 1; /** 2 = ACCEPT **/ - $subject = "Message accepté"; - $append .= "a été accepté par $prenom $nom.\n"; + $action = 'accept'; } elseif (Env::has('mno')) { - $action = 2; /** 2 = REJECT **/ - $subject = "Message refusé"; - $reason = Post::v('reason'); - $append = "a été refusé par $prenom $nom avec la raison :\n\n" - . $reason; + $action = 'refuse'; } 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 " - . "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" - .$append; - $mailer = new PlMailer(); - $mailer->addTo("$liste-owner@{$domain}"); - $mailer->setFrom("$liste-bounces@{$domain}"); - $mailer->addHeader('Reply-To', "$liste-owner@{$domain}"); - $mailer->setSubject($subject); - $mailer->setTxtBody(wordwrap($texte,72)); - $mailer->send(); - Get::kill('mid'); - } - - return $mail; + $action = 'delete'; + } else { + return false; + } + Get::kill('mid'); + return XDB::execute("INSERT IGNORE INTO ml_moderate + VALUES ({?}, {?}, {?}, {?}, {?}, NOW(), {?}, NULL)", + $liste, $domain, $mid, S::i('uid'), $action, Post::v('reason')); } function handler_moderate(&$page, $liste = null) @@ -430,7 +448,7 @@ class ListsModule extends PLModule } if (Post::has('sdel')) { /* 2 = REJECT */ $sub = $this->client->get_pending_sub($liste, Env::v('sdel')); - $this->client->handle_request($liste, Post::v('sdel'), 2, Post::v('reason')); + $this->client->handle_request($liste, Post::v('sdel'), 2, utf8_decode(Post::v('reason'))); $info = "refusée"; } if ($sub) { @@ -449,7 +467,7 @@ class ListsModule extends PLModule } if (Env::has('sadd')) { pl_redirect('lists/moderate/'.$liste); - } + } } if (Post::has('moderate_mails') && Post::has('select_mails')) { @@ -477,7 +495,7 @@ class ListsModule extends PLModule $mail = $this->moderate_mail($domain, $liste, Env::i('mid')); } elseif (Env::has('sid')) { - if (list($subs,$mails) = $this->client->get_pending_ops($liste)) { + if (list($subs,$mails) = $this->get_pending_ops($domain, $liste)) { foreach($subs as $user) { if ($user['id'] == Env::v('sid')) { $page->changeTpl('lists/moderate_sub.tpl'); @@ -489,9 +507,14 @@ class ListsModule extends PLModule } - if (list($subs,$mails) = $this->client->get_pending_ops($liste)) { + if (list($subs,$mails) = $this->get_pending_ops($domain, $liste)) { foreach ($mails as $key=>$mail) { $mails[$key]['stamp'] = strftime("%Y%m%d%H%M%S", $mail['stamp']); + if ($mail['fromx']) { + $page->assign('with_fromx', true); + } else { + $page->assign('with_nonfromx', true); + } } $page->assign_by_ref('subs', $subs); $page->assign_by_ref('mails', $mails); @@ -503,16 +526,19 @@ class ListsModule extends PLModule static public function no_login_callback($login) { require_once 'user.func.inc.php'; - global $list_unregistered; + global $list_unregistered, $globals; $users = get_not_registered_user($login, true); - if ($users->total()) { + if ($users && $users->total()) { if (!isset($list_unregistered)) { $list_unregistered = array(); } $list_unregistered[$login] = $users; } else { - _default_user_callback($login); + list($name, $dom) = @explode('@', $login); + if ($dom == $globals->mail->domain || $dom == $globals->mail->domain2) { + _default_user_callback($login); + } } } @@ -560,11 +586,13 @@ class ListsModule extends PLModule if (Env::has('add_member')) { require_once('user.func.inc.php'); - $members = get_users_forlife_list(Env::v('add_member'), false, array('ListsModule', 'no_login_callback')); + $members = get_users_forlife_list(Env::v('add_member'), + false, + array('ListsModule', 'no_login_callback')); $arr = $this->client->mass_subscribe($liste, $members); if (is_array($arr)) { foreach($arr as $addr) { - $page->trig("{$addr[0]} inscrit."); + $page->trigSuccess("{$addr[0]} inscrit."); } } } @@ -585,7 +613,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->trigSuccess($alias." ajouté aux modérateurs."); } } } @@ -633,7 +661,16 @@ class ListsModule extends PLModule if (Post::has('submit')) { $values = $_POST; $values = array_map('utf8_decode', $values); - $this->client->set_bogo_level($liste, intval($values['bogo_level'])); + $spamlevel = intval($values['bogo_level']); + $unsurelevel = intval($values['unsure_level']); + if ($spamlevel == 0) { + $unsurelevel = 0; + } + if ($spamlevel > 3 || $spamlevel < 0 || $unsurelevel < 0 || $unsurelevel > 1) { + $page->trigError("Réglage de l'antispam non valide"); + } else { + $this->client->set_bogo_level($liste, ($spamlevel << 1) + $unsurelevel); + } switch($values['moderate']) { case '0': $values['generic_nonmember_action'] = 0; @@ -666,7 +703,9 @@ class ListsModule extends PLModule if (list($details,$options) = $this->client->get_owner_options($liste)) { $page->assign_by_ref('details', $details); $page->assign_by_ref('options', $options); - $page->assign('bogo_level', $this->client->get_bogo_level($liste)); + $bogo_level = intval($this->client->get_bogo_level($liste)); + $page->assign('unsure_level', $bogo_level & 1); + $page->assign('bogo_level', $bogo_level >> 1); } else { $page->kill("La liste n'existe pas ou tu n'as pas le droit de l'administrer"); } @@ -693,7 +732,7 @@ class ListsModule extends PLModule $page->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) { + foreach (array('', '-owner', '-admin', '-bounces', '-unsubscribe') as $app) { XDB::execute("DELETE FROM $table WHERE type={?} AND alias={?}", $type, $liste.$app.$domain);