| 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 | redirect(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 | ?> |