use sesion_write_close before redirects ... should solve some login problems user...
[platal.git] / htdocs.net / admin.php
CommitLineData
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'));
fa36e526 42 redirect(Post::get('diminutif').'/edit.php');
0337d704 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?>