AntiGuide:LogsmPhp

20110703:
oooops, ce code était caché depuis trois ans, le voici:

ce code est utilisé pour émettre un mail à réception d'une requête http.
(colatéralement, évite la nécessité d'un abonnement "mail" (trafic SMTP, port 25))
le nom de site logsm.fr est faux, c'est .net
<?php
// à faire donne IP dans une X entete
// deduire site du nom de serveur

// $site="http://antiguide.free.fr/logsm/java";
// $site="http://www.logsm.fr";
$site="http://" . $_SERVER['SERVER_NAME'] . $_SERVER['SCRIPT_FILENAME'];
$datemaj="20100405-1414";
$lastmaj=$site . " " .  $datemaj;
$next="";    // utilisé si pas modifié  par 00000000.php
$email="antiguide@free.fr"; // destinataire DEBUG si pas donné dans le Post

$test=0; // 1 pour réponse riche au mobile (en cas de test!)

$version="5.7";  // peu exploité
$auteur="flavigny@free.fr";
$ip=$_SERVER['REMOTE_ADDR'];

$numtel=$_REQUEST['numtel'];
$sujet=$_REQUEST['sujet'];
$text=$_REQUEST['text'];
$lf=$_REQUEST['lf'];
$type=$_REQUEST['type'];
$test1=$_REQUEST['test'];
if ($test1) $test=$test1;

$tomail=$_REQUEST['tomail'];
if ("$tomail" == "" ) {$tomail=$email;}


$nl="";
if  ("$lf" == "none") { $nl="\n";}
if  ("$lf" == "html") { $nl="<br>";}
if  ("$lf" == "crlf") { $nl="\r\n";}

     $date = date("Y-m-d");
     $heure = date("H:i:s");

if (file_exists  ($numtel . ".php"  )) {include("$numtel.php");}
    else {include("0000000000.php");}

if ("$tomail" == "")  $type="X" . $type;

$emis=false;

// mail immediat pour debug 
$reponse="SECOURS: " .$site . " faut envoyer le mail à $tomail |" . $next . "?.";
mail( "antiguide@free.fr", $version."_DEBUG_". $type . " " . $sujet . " " . $date . " " . $heure ,  
    "type=$type=\nnumtel=$numtel\ntomail=$tomail\nsujet=$sujet\nnext=$next\ntype=$type\ntext=$text ");


if ("$type" == "0") {  // zero
$reponse="<body/>";
$entete="";
$headers="";
$envoi_mail = mail($tomail, $version."_ZERO_". $sujet . " " . $date . " " . $heure ,  "Content-Type: text/plain; charset=ISO-8859-1; format=flowed\nContent-transfer-Encoding: 8bit\n\n" . $text , $headers);
Print ($reponse);
$emis=true;
   ;}



if ("$type" == "T") {
$text=str_replace("\\\"", "\"", $text);
$text=str_replace("?", "+", $text);
$reponse="REPONSE (TOUT): " .$site . " a envoye le mail à $tomail |" . $next . "?.";
$entete="";
$headers="MIME-Version: 1.0\nContent-Type: multipart/mixed" . ';' ."\n boundary=\"----123456789\"";
$envoi_mail = mail($tomail, $version."_FICHIER(S)_". $sujet . " " . $date . " " . $heure ,  "This is a multi-part message in MIME format.\n------123456789\nContent-Type: text/plain; charset=ISO-8859-1; format=flowed\nContent-transfer-Encoding: 7bit\n\n" . $text , $headers);
Print ($reponse);
$emis=true;
   ;}

if ("$type" == "L") {
$reponse="REPONSE (LISTE): " .$site . " a envoye le mail à $tomail |" . $next . "?.";
$entete="";
$envoi_mail = mail($tomail, $version."_LISTE_". $sujet . " " . $date . " " . $heure ,  $text );
Print ($reponse);
$emis=true;
   ;}


if ("$type" == "R") {
$headers="Content-Type: text/plain; charset=ISO-8859-1; format=flowed\nContent-Transfer-Encoding: 8bit";
//Print ($headers);
//$text=str_replace("\\\"", "\"", $text);
//$text=str_replace("\\\'", "\'", $text);
$text=str_replace("\\", "", $text);

$reponse="REPONSE: " .$site . " a envoye le mail à $tomail |" . $next . "?.";
$entete="PAR: $lastmaj  \n ";
$envoi_mail = mail("$tomail", $version."_RAPPORT_" .$sujet . " " . $date . " " . $heure , $entete . "\n". $text . "\n" . $reponse, $headers);
Print ($reponse);

$emis=true;
   ;}

if (!$emis)  {
//  
$reponse="ERREUR: " .$site . " pas envoye le mail à $tomail |" . $next . "?.";
mail( "antiguide@free.fr", $version."_DEBUG_". $type . $sujet . " " . $date . " " . $heure ,  
    "type=$type \nnumtel= $numtel \ntext=$text \n");
// erreur si email vide
   }




?>
AntiGuide: LogsmPhp
