0337d704 |
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 | ?> |