$user="mariage.net";>
$forum="degaproduction";>
if (!$forum);>
Liste des forums
Liste des Forums de discussion
$forums = maillist("%");
if ($forums[0]);
$i = 0;
while ($forums[$i]);
echo "";
$i++;
endwhile;
endif;>
else;
if ($from);
$subj = strtok($sujet,"<");
$dest = "$forum@$user";
if ($userfile == "none");
$res = smtpsend($from,$nom,$dest,$subj,$texte," ");
else;
$attach = "$userfile;$userfile_name;$userfile_type";
$res = smtpsend($from,$nom,$dest,$subj,$texte,$attach);
unlink($userfile);
endif;
endif;
if ($body);
$array = mail_open($forum);
if ($ion);
$header = mail_header($body);
$section = $ion;
$hea = 2 + ($section * 2);
$content = "Content-type: $header[$hea]";
header($content);
$texte = mail_body($section,$body);
mail_close();
if ($texte);
echo "$texte";
endif;
exit;
else;>
Forum
$section = "1";
$header = mail_header($body);
$texte = mail_body($section,$body);
mail_close();
$from = $header[0];
$who = $header[1];
$subject = $header[2];
$date = $header[3];
echo "$subject
";
echo "
Répondre a ce message
";
echo "Posté par ";
if ($who);
echo "$who";
else;
echo "$from";
endif;
echo " le $date.
";
$i = 5;
$suc = 2;
while ($header[$i]);
echo "piece jointe : $header[$i]
";
$i++;
$i++;
$suc++;
endwhile;
echo "";
echo $texte;
echo "
";
endif;
else;>
Forum
echo "Forum $forum
";
echo "
Envoyer un message
";
$array = mail_open($forum);
$messages = $array[0];
$recent = $array[1];
$pas = 80;
if ($array[0] != -1);
if ($num);
if ($num > $messages);
$i = $messages;
elseif ($num < 0);
$i = $pas;
else;
$i = $num;
endif;
else;
$i = $messages;
endif;
$limit = $i - $pas;
if ($limit < 0);
$limit = 0;
endif;
while ($i > $limit);
$header = mail_header($i);
$from = $header[0];
$who = $header[1];
$subject = $header[2];
$date = $header[3];
echo "- $subject";
if (! $who);
$who = $from;
endif;
echo " - $who ($date)
";
$i--;
endwhile;
mail_close();
echo "
";
if ($i);
echo "Suivants";
endif;
if (($i + $pas) < $messages);
$next = $i + $pas + $pas;
if ($next > $messages);
$next = $messages;
endif;
if ($i);
echo " ";
endif;
echo "Précédents";
endif;
endif;
endif;>
if ($body);>
Répondre a ce message
else;>
Envoyer un message
endif;>