X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Fxnetgrp.php;h=e0da41d5ef43b1982dd1eac705b3127875646ade;hb=9ed396c06e661970436bcd81ecc4d758fa647ce0;hp=5f7a8fe9121c4f2610ad87dc32fa7139c78b3c8f;hpb=8b1f8e12d444062ef63a0db3a8fa94582a9778c3;p=platal.git diff --git a/modules/xnetgrp.php b/modules/xnetgrp.php index 5f7a8fe..e0da41d 100644 --- a/modules/xnetgrp.php +++ b/modules/xnetgrp.php @@ -1,6 +1,6 @@ $this->make_hook('index', AUTH_PUBLIC), '%grp/asso.php' => $this->make_hook('index', AUTH_PUBLIC), '%grp/logo' => $this->make_hook('logo', AUTH_PUBLIC), + '%grp/site' => $this->make_hook('site', AUTH_PUBLIC), '%grp/edit' => $this->make_hook('edit', AUTH_MDP), '%grp/mail' => $this->make_hook('mail', AUTH_MDP), + '%grp/forum' => $this->make_hook('forum', AUTH_MDP), '%grp/annuaire' => $this->make_hook('annuaire', AUTH_MDP), '%grp/annuaire/vcard' => $this->make_hook('vcard', AUTH_MDP), '%grp/trombi' => $this->make_hook('trombi', AUTH_MDP), @@ -94,7 +96,7 @@ class XnetGrpModule extends PLModule '%grp/member/new' => $this->make_hook('admin_member_new', AUTH_MDP), '%grp/member/new/ajax' - => $this->make_hook('admin_member_new_ajax', AUTH_MDP, '', NO_AUTH), + => $this->make_hook('admin_member_new_ajax', AUTH_MDP, 'user', NO_AUTH), '%grp/member/del' => $this->make_hook('admin_member_del', AUTH_MDP), @@ -204,6 +206,18 @@ class XnetGrpModule extends PLModule exit; } + function handler_site(&$page) + { + global $globals; + $site = $globals->asso('site'); + if (!$site) { + $page->trig('Le groupe n\'a pas de site web'); + return $this->handler_index($page); + } + header("Location: $site"); + exit; + } + function handler_edit(&$page) { global $globals; @@ -213,7 +227,7 @@ class XnetGrpModule extends PLModule if (Post::has('submit')) { if (S::has_perms()) { if (Post::v('mail_domain') && (strstr(Post::v('mail_domain'), '.') === false)) { - $page->trig("le domaine doit être un FQDN (aucune modif effectuée) !!!"); + $page->trig("le domaine doit être un FQDN (aucune modif effectuée) !!!"); return; } XDB::execute( @@ -289,11 +303,24 @@ class XnetGrpModule extends PLModule require_once dirname(__FILE__) . '/xnetgrp/mail.inc.php'; $tos = get_all_redirects($mbr, $mls, $mmlist); send_xnet_mails($from, $sujet, $body, $tos, Post::v('replyto'), $_FILES['uploaded']); - $page->kill("Mail envoyé !"); + $page->kill("Mail envoyé !"); $page->assign('sent', true); } } + function handler_forum(&$page, $group = null, $artid = null) + { + global $globals; + new_group_page('xnetgrp/forum.tpl'); + if (!$globals->asso('forum')) { + return PL_NOT_FOUND; + } + require_once 'banana/forum.inc.php'; + $get = array(); + get_banana_params($get, $globals->asso('forum'), $group, $artid); + run_banana($page, 'ForumsBanana', $get); + } + function handler_annuaire(&$page) { global $globals; @@ -314,14 +341,14 @@ class XnetGrpModule extends PLModule IF(m.origine="X", IF(u.nom_usage<>"", u.nom_usage, u.nom),m.nom), 1, 1)) as letter, COUNT(*) FROM groupex.membres AS m - LEFT JOIN auth_user_md5 AS u ON ( u.user_id = m.uid ) - WHERE asso_id = {?} + LEFT JOIN auth_user_md5 AS u ON ( u.user_id = m.uid) + WHERE asso_id = {?} and u.perms != \'pending\' GROUP BY letter ORDER BY letter', $globals->asso('id')); } else { $res = XDB::iterRow( 'SELECT IF(m.origine="X",u.promo, - IF(m.origine="ext", "extérieur", "personne morale")) AS promo, + IF(m.origine="ext", "extérieur", "personne morale")) AS promo, COUNT(*), IF(m.origine="X",u.promo,"") AS promo_o FROM groupex.membres AS m LEFT JOIN auth_user_md5 AS u ON ( u.user_id = m.uid ) @@ -349,7 +376,7 @@ class XnetGrpModule extends PLModule $nbp = intval(($tot-1)/NB_PER_PAGE); $links = array(); if ($ofs) { - $links['précédent'] = $ofs-1; + $links['précédent'] = $ofs-1; } for ($i = 0; $i <= $nbp; $i++) { $links[(string)($i+1)] = $i; @@ -367,7 +394,7 @@ class XnetGrpModule extends PLModule IF(u.nom_usage<>"", u.nom_usage, u.nom), m.nom) LIKE "'.addslashes(Env::v('initiale')).'%"'; } elseif (Env::has('promo')) { - $ini = 'AND IF(m.origine="X", u.promo, IF(m.origine="ext", "extérieur", "personne morale")) = "' + $ini = 'AND IF(m.origine="X", u.promo, IF(m.origine="ext", "extérieur", "personne morale")) = "' .addslashes(Env::v('promo')).'"'; } elseif (Env::has('admin')) { $ini = 'AND m.perms = "admin"'; @@ -376,19 +403,21 @@ class XnetGrpModule extends PLModule $ann = XDB::iterator( "SELECT IF(m.origine='X',IF(u.nom_usage<>'', u.nom_usage, u.nom) ,m.nom) AS nom, IF(m.origine='X',u.prenom,m.prenom) AS prenom, - IF(m.origine='X', u.promo, IF(m.origine='ext', 'extérieur', 'personne morale')) AS promo, + IF(m.origine='X', u.promo, IF(m.origine='ext', 'extérieur', 'personne morale')) AS promo, IF(m.origine='X',u.promo,'') AS promo_o, IF(m.origine='X' AND u.perms != 'pending',a.alias,m.email) AS email, IF(m.origine='X',FIND_IN_SET('femme', u.flags), m.sexe) AS femme, m.perms='admin' AS admin, m.origine='X' AS x, u.perms!='pending' AS inscrit, - m.uid + m.uid, e.email AS actif FROM groupex.membres AS m LEFT JOIN auth_user_md5 AS u ON ( u.user_id = m.uid ) LEFT JOIN aliases AS a ON ( a.id = m.uid AND a.type='a_vie' ) + LEFT JOIN emails AS e ON ( e.flags = 'active' AND e.uid = m.uid) WHERE m.asso_id = {?} $ini AND (m.origine != 'X' OR u.perms != 'pending' OR m.email IS NOT NULL) + GROUP BY m.uid ORDER BY $tri LIMIT {?},{?}", $globals->asso('id'), $ofs*NB_PER_PAGE, NB_PER_PAGE); $page->assign('ann', $ann); @@ -443,7 +472,7 @@ class XnetGrpModule extends PLModule $vcard = new VCard($res->fetchColumn(), $photos == 'photos', 'Membre du groupe ' . $globals->asso('nom')); $vcard->do_page($page); } else { - return PL_NOTALLOWED; + return PL_FORBIDDEN; } } @@ -454,9 +483,9 @@ class XnetGrpModule extends PLModule new_group_open_page('xnetgrp/inscrire.tpl'); if (!$globals->asso('inscriptible')) - $page->kill("Il n'est pas possible de s'inscire en ligne à ce " - ."groupe. Essaie de joindre le contact indiqué " - ."sur la page de présentation."); + $page->kill("Il n'est pas possible de s'inscire en ligne à ce " + ."groupe. Essaie de joindre le contact indiqué " + ."sur la page de présentation."); if (!is_null($u) && may_update()) { $page->assign('u', $u); @@ -475,7 +504,7 @@ class XnetGrpModule extends PLModule $u, $globals->asso('id')); $n = $res->fetchOneCell(); if ($n) { - $page->kill("$prenom $nom est déjà membre du groupe !"); + $page->kill("$prenom $nom est déjà membre du groupe !"); return; } elseif (Env::has('accept')) @@ -490,14 +519,14 @@ class XnetGrpModule extends PLModule $mailer->setSubject('['.$globals->asso('nom').'] Demande d\'inscription'); $message = "Cher Camarade,\n" . "\n" - . " Suite à ta demande d'adhésion à ".$globals->asso('nom').",\n" - . "j'ai le plaisir de t'annoncer que ton inscription a été validée !\n" + . " Suite à ta demande d'adhésion à ".$globals->asso('nom').",\n" + . "j'ai le plaisir de t'annoncer que ton inscription a été validée !\n" . "\n" . "Bien cordialement,\n" . "{$_SESSION["prenom"]} {$_SESSION["nom"]}."; $mailer->setTxtBody($message); $mailer->send(); - $page->kill("$prenom $nom a bien été inscrit"); + $page->kill("$prenom $nom a bien été inscrit"); } elseif (Env::has('refuse')) { @@ -505,10 +534,10 @@ class XnetGrpModule extends PLModule $mailer->addTo("$u@polytechnique.org"); $mailer->setFrom('"'.S::v('prenom').' '.S::v('nom') .'" <'.S::v('forlife').'@polytechnique.org>'); - $mailer->setSubject('['.$globals->asso('nom').'] Demande d\'inscription annulée'); + $mailer->setSubject('['.$globals->asso('nom').'] Demande d\'inscription annulée'); $mailer->setTxtBody(Env::v('motif')); $mailer->send(); - $page->kill("la demande $prenom $nom a bien été refusée"); + $page->kill("la demande $prenom $nom a bien été refusée"); } else { $page->assign('show_form', true); $page->assign('prenom', $prenom); @@ -522,7 +551,7 @@ class XnetGrpModule extends PLModule } if (is_member()) { - $page->kill("tu es déjà membre !"); + $page->kill("tu es déjà membre !"); return; } @@ -540,7 +569,7 @@ class XnetGrpModule extends PLModule $append = "\n" . "-- \n" - . "Ce message a été envoyé suite à la demande d'inscription de\n" + . "Ce message a été envoyé suite à la demande d'inscription de\n" . S::v('prenom').' '.S::v('nom').' (X'.S::v('promo').")\n" . "Via le site www.polytechnique.net. Tu peux choisir de valider ou\n" . "de refuser sa demande d'inscription depuis la page :\n" @@ -548,15 +577,15 @@ class XnetGrpModule extends PLModule "http://www.polytechnique.net/".$globals->asso("diminutif")."/subscribe/" .S::v('forlife')."\n" . "\n" - . "En cas de problème, contacter l'équipe de Polytechnique.org\n" - . "à l'adresse : support@polytechnique.org\n"; + . "En cas de problème, contacter l'équipe de Polytechnique.org\n" + . "à l'adresse : support@polytechnique.org\n"; if (!$to) { $to = $globals->asso("mail").", support@polytechnique.org"; $append = "\n-- \nLe groupe ".$globals->asso("nom") - ." n'a pas d'administrateur, l'équipe de" - ." Polytechnique.org a été prévenue et va rapidement" - ." résoudre ce problème.\n"; + ." n'a pas d'administrateur, l'équipe de" + ." Polytechnique.org a été prévenue et va rapidement" + ." résoudre ce problème.\n"; } $mailer = new PlMailer(); @@ -600,7 +629,7 @@ class XnetGrpModule extends PLModule { global $globals; - require_once 'xnet/mail.inc.php'; + require_once dirname(__FILE__) . '/xnetgrp/mail.inc.php'; new_groupadmin_page('xnetgrp/annuaire-admin.tpl'); $mmlist = new MMList(S::v('uid'), S::v('password'), @@ -654,11 +683,14 @@ class XnetGrpModule extends PLModule return; } - list(,$fqdn) = explode('@', $email); - $fqdn = strtolower($fqdn); - $x = ($fqdn == 'polytechnique.org' || $fqdn == 'melix.org' || - $fqdn == 'm4x.org' || $fqdn == 'melix.net'); - + if (strpos($email, '@') === false) { + $x = true; + } else { + list(,$fqdn) = explode('@', $email, 2); + $fqdn = strtolower($fqdn); + $x = ($fqdn == 'polytechnique.org' || $fqdn == 'melix.org' || + $fqdn == 'm4x.org' || $fqdn == 'melix.net'); + } if ($x) { require_once 'user.func.inc.php'; if ($forlife = get_user_forlife($email)) { @@ -673,6 +705,7 @@ class XnetGrpModule extends PLModule $page->trig($email." n'est pas un alias polytechnique.org valide"); } } else { + require_once 'xorg.misc.inc.php'; if (isvalid_email($email)) { if (Env::v('x') && Env::has('userid') && Env::i('userid')) { $uid = Env::i('userid'); @@ -708,14 +741,14 @@ class XnetGrpModule extends PLModule pl_redirect("member/$email"); } } else { - $page->trig("« $email » n'est pas une adresse mail valide"); + $page->trig("« $email » n'est pas une adresse mail valide"); } } } function handler_admin_member_new_ajax(&$page) { - header('Content-Type: text/html; charset="iso-8859-15"'); + header('Content-Type: text/html; charset="UTF-8"'); $page->changeTpl('xnetgrp/membres-new-search.tpl', NO_SKIN); list($nom, $prenom) = str_replace(array('-', ' ', "'"), '%', array(Env::v('nom'), Env::v('prenom'))); $where = "perms = 'pending'"; @@ -795,9 +828,9 @@ class XnetGrpModule extends PLModule } if ($this->unsubscribe($user)) { - $page->trig('Vous avez été désinscrit du groupe avec succès'); + $page->trig('Vous avez été désinscrit du groupe avec succès'); } else { - $page->trig('Vous avez été désinscrit du groupe, mais des erreurs se sont produites lors des désinscriptions des alias et des mailing-lists.'); + $page->trig('Vous avez été désinscrit du groupe, mais des erreurs se sont produites lors des désinscriptions des alias et des mailing-lists.'); } $page->assign('is_member', is_member(true)); } @@ -816,9 +849,9 @@ class XnetGrpModule extends PLModule } if ($this->unsubscribe($user)) { - $page->trig("{$user['prenom']} {$user['nom']} a été désabonné du groupe !"); + $page->trig("{$user['prenom']} {$user['nom']} a été désabonné du groupe !"); } else { - $page->trig("{$user['prenom']} {$user['nom']} a été désabonné du groupe, mais des erreurs subsistent !"); + $page->trig("{$user['prenom']} {$user['nom']} a été désabonné du groupe, mais des erreurs subsistent !"); } } @@ -861,7 +894,7 @@ class XnetGrpModule extends PLModule $perms ? 'admin' : 'membre', $user['uid'], $globals->asso('id')); $user['perms'] = $perms; - $page->trig('permissions modifiées'); + $page->trig('permissions modifiées'); } foreach (Env::v('ml1', array()) as $ml => $state) { @@ -869,7 +902,7 @@ class XnetGrpModule extends PLModule if ($ask == $state) { if ($state && $email_changed) { $mmlist->replace_email($ml, $from_email, $user['email2']); - $page->trig("L'abonnement de {$user['prenom']} {$user['nom']} à $ml@ a été mis à jour"); + $page->trig("L'abonnement de {$user['prenom']} {$user['nom']} à $ml@ a été mis à jour"); } continue; } @@ -879,14 +912,14 @@ class XnetGrpModule extends PLModule ."cours sur $ml@ !!!"); } elseif ($ask) { $mmlist->mass_subscribe($ml, Array($user['email2'])); - $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml@"); + $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml@"); } else { if ($email_changed) { $mmlist->mass_unsubscribe($ml, Array($from_email)); } else { $mmlist->mass_unsubscribe($ml, Array($user['email2'])); } - $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml@"); + $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml@"); } } @@ -897,14 +930,14 @@ class XnetGrpModule extends PLModule XDB::query("INSERT INTO virtual_redirect (vid,redirect) SELECT vid,{?} FROM virtual WHERE alias={?}", $user['email'], $ml); - $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml"); + $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml"); } else { XDB::query("DELETE FROM virtual_redirect USING virtual_redirect INNER JOIN virtual USING(vid) WHERE redirect={?} AND alias={?}", $user['email'], $ml); - $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml"); + $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml"); } } } @@ -990,6 +1023,11 @@ class XnetGrpModule extends PLModule $page->trig("L'intervalle de promotions est invalide"); Post::kill('valid'); } + + if (!trim($art['titre']) || !trim($art['texte'])) { + $page->trig("L'article doit avoir un titre et un contenu"); + Post::kill('valid'); + } } if (Post::v('valid') == 'Enregistrer') { @@ -1045,7 +1083,7 @@ class XnetGrpModule extends PLModule $art = $res->fetchOneAssoc(); $art['contact_html'] = $art['contacts']; } else { - $page->kill("Aucun article correspond à l'identifiant indiqué"); + $page->kill("Aucun article correspond à l'identifiant indiqué"); } } @@ -1099,4 +1137,5 @@ class XnetGrpModule extends PLModule } } +// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: ?>