Support Wanewsletter

<?
define('IN_SUBSCRIBE', true);
define('WA_ROOTDIR', '.');

require WA_ROOTDIR . '/newsletter.php';

$list_box = '';

$sql = "SELECT liste_id, liste_name, liste_format
FROM " . LISTE_TABLE . "
WHERE liste_public = " . TRUE;
if( !($result = $db->query($sql)) )
{
trigger_error('Impossible d\'obtenir la liste des listes de diffusion', ERROR);
}
else
{
$list_box = '<select id="liste" name="liste">';

if( $row = $result->fetch() )
{
do
{
if( $row['liste_format']== FORMAT_TEXTE )
{
$f = 'txt';
}
else if( $row['liste_format'] == FORMAT_HTML )
{
$f = 'html';
}
else
{
$f = 'txt &amp; html';
}

$list_box .= '<option value="' . $row['liste_id'] . '"> ' . $row['liste_name'] . ' (' . $f . ') </option>';
}
while( $row = $result->fetch() );
}
else
{
$message = 'No list found';
}

$list_box .= '</select>';
}

$output->send_headers(true);

$output->set_filenames(array(
'body' => 'subscribe_body.tpl'
));

$output->assign_vars(array(
'L_INVALID_EMAIL' => str_replace('\'', '\\\'', $lang['Message']['Invalid_email']),
'L_PAGE_LOADING' => str_replace('\'', '\\\'', $lang['Page_loading']),
'L_EMAIL' => $lang['Email_address'],
'L_FORMAT' => $lang['Format'],
'L_DIFF_LIST' => $lang['Diff_list'],
'L_SUBSCRIBE' => $lang['Subscribe'],
'L_SETFORMAT' => $lang['Setformat'],
'L_UNSUBSCRIBE' => $lang['Unsubscribe'],
'L_VALID_BUTTON' => $lang['Button']['valid'],

'LIST_BOX' => $list_box,
'MESSAGE' => $message
));

$output->pparse('body');

//
// On réactive le gestionnaire d'erreur précédent
//
@restore_error_handler();

?>