2 require 'xnet.inc.php';
3 new_admin_page('xnet/admin.tpl');
7 $res = $globals->xdb
->query('SELECT id, nom, mail_domain FROM groupex.asso WHERE diminutif={?}', Get
::get('del'));
8 list($id, $nom, $domain) = $res->fetchOneRow();
9 $page->assign('nom', $nom);
10 if ($id && Post
::has('del')) {
11 $globals->xdb
->query('DELETE FROM groupex.membres WHERE asso_id={?}', $id);
12 $page->trig('membres supprimés');
15 $globals->xdb
->query('DELETE FROM virtual_domains WHERE domain={?}', $domain);
16 $globals->xdb
->query('DELETE FROM virtual, virtual_redirect
17 USING virtual INNER JOIN virtual_redirect USING (vid)
18 WHERE alias LIKE {?}', '%@'.$domain);
19 $page->trig('suppression des alias mails');
21 require_once('lists.inc.php');
22 $client =& lists_xmlrpc(Session
::getInt('uid'), Session
::get('password'), $domain);
23 if ($listes = $client->get_lists()) {
24 foreach ($listes as $l) {
25 $client->delete_list($l['list'], true
);
27 $page->trig('mail lists surpprimées');
31 $globals->xdb
->query('DELETE FROM groupex.asso WHERE id={?}', $id);
32 $page->trig("Groupe $nom supprimé");
40 if (Post
::has('diminutif')) {
41 $globals->xdb
->query('INSERT INTO groupex.asso (id,diminutif) VALUES(NULL,{?})', Post
::get('diminutif'));
42 header('Location: '.Post
::get('diminutif').'/edit.php');
45 $res = $globals->xdb
->query('SELECT nom,diminutif FROM groupex.asso ORDER by NOM');
46 $page->assign('assos', $res->fetchAllAssoc());