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