3 require_once 'xnet.inc.php';
5 new_group_page('xnet/groupe/listes.tpl');
7 require_once('lists.inc.php');
8 $client =& lists_xmlrpc(Session
::getInt('uid'), Session
::get('password'), $globals->asso('mail_domain'));
12 $client->unsubscribe(Get
::get('del'));
13 redirect('listes.php');
16 $client->subscribe(Get
::get('add'));
17 redirect('listes.php');
19 if(Post
::has('promo_add')) {
20 $promo = Post
::getInt('promo_add');
21 if ($promo>=1900 and $promo<2100) {
22 $client->subscribe("promo$promo");
24 $page->trig("promo incorrecte, il faut une promo sur 4 chiffres.");
29 if (Post
::has('del_alias') && may_update()) {
30 $alias = Post
::get('del_alias');
31 // prevent group admin from erasing aliases from other groups
32 $alias = substr($alias, 0, strpos($alias, '@')).'@'.$globals->asso('mail_domain');
34 'DELETE FROM x4dat.virtual_redirect, x4dat.virtual
35 USING x4dat.virtual AS v
36 LEFT JOIN x4dat.virtual_redirect USING(vid)
37 WHERE v.alias={?}', $alias);
38 $page->trig(Post
::get('del_alias')." supprimé !");
41 $listes = $client->get_lists();
42 $page->assign('listes',$listes);
44 $alias = $globals->xdb
->iterator(
48 LIKE {?} AND type="user"
49 ORDER BY alias', '%@'.$globals->asso('mail_domain'));
50 $page->assign('alias', $alias);
52 $page->assign('may_update', may_update());