first reimport from platal
[platal.git] / htdocs.net / groupe / mail.php
1 <?php
2 require_once 'xnet.inc.php';
3 require_once 'lists.inc.php';
4
5 new_groupadmin_page('xnet/groupe/mail.tpl');
6 $client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'), $globals->asso('mail_domain'));
7 $page->assign('listes', $client->get_lists());
8
9 $alias = $globals->xdb->query("SELECT alias FROM virtual WHERE alias LIKE {?} AND type='user' ORDER BY alias", '%@'.$globals->asso("mail_domain"));
10 $page->assign('alias', $alias->fetchColumn());
11
12 if (Post::has('send')) {
13 $from = Post::get('from');
14 $sujet = Post::get('sujet');
15 $body = Post::get('body');
16
17 $mls = array_keys(Env::getMixed('ml', array()));
18 $als = array_keys(Env::getMixed('al', array()));
19
20 require_once 'xnet/mail.inc.php';
21 $tos = get_all_redirects(Post::has('membres'), $mls, $als, $client);
22 send_xnet_mails($from, $sujet, $body, $tos);
23 $page->kill("Mail envoyé !");
24 $page->assign('sent', true);
25 }
26
27 $page->run();
28 ?>