0337d704 |
1 | <?php |
2 | require 'xnet.inc.php'; |
3 | new_admin_page('xnet/admin.tpl'); |
4 | $page->useMenu(); |
5 | |
6 | if (Get::has('del')) { |
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'); |
13 | |
14 | if ($domain) { |
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'); |
20 | |
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); |
26 | } |
27 | $page->trig('mail lists surpprimées'); |
28 | } |
29 | } |
30 | |
31 | $globals->xdb->query('DELETE FROM groupex.asso WHERE id={?}', $id); |
32 | $page->trig("Groupe $nom supprimé"); |
33 | Get::kill('del'); |
34 | } |
35 | if (!$id) { |
36 | Get::kill('del'); |
37 | } |
38 | } |
39 | |
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'); |
43 | } |
44 | |
45 | $res = $globals->xdb->query('SELECT nom,diminutif FROM groupex.asso ORDER by NOM'); |
46 | $page->assign('assos', $res->fetchAllAssoc()); |
47 | |
48 | $page->run(); |
49 | ?> |