2 require_once 'xnet.inc.php';
3 require_once 'lists.inc.php';
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());
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());
12 if (Post
::has('send')) {
13 $from = Post
::get('from');
14 $sujet = Post
::get('sujet');
15 $body = Post
::get('body');
17 $mls = array_keys(Env
::getMixed('ml', array()));
18 $als = array_keys(Env
::getMixed('al', array()));
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
);