OVH Community, votre nouvel espace communautaire.

Mailing list et formulaire d'inscription php


Croco
18/05/2006, 13h16
Bonjour à tous,

Suite à une remise en ordre dans des mailing list, j'ai voulu testé la bon fonctionnement du formulaire d'inscription. Résultat, je n'est pas été déçu car j'ai constaté qu'il ne fonctionne plus du tout... C'est dingue comme des choses fonctionnels peuvent tomber en panne.

Voilà le scrit en question, est-ce que vous voyez ou est le problème ?

Code PHP:
// #########################################
// ### Script realise par Cyril Mechiche ###
// ###      [email]cyril@omega-online.net[/email]       ###
// #########################################


// ### Definition des variables #######

// Domaine par exemple toto.com
$domaine "monsite.net";

// nom de la liste
$liste "maliste";

// adresse du mailer
$mailer "/usr/sbin/sendmail ";

// e-mail de reception d'avis d'inscription
// laisser vide si vous ne voulez pas d'avis d'inscription
// envoye par defaut a [email]list-owner@mondomaine.com[/email]
$proprio "webmaster@monsite.net";
 
// adresse et nom du fichier contenant
// la charte a envoyer lors de de l'inscription
// La laisser vide si vous ne desirez pas l'envoyer
//$charte = "charte.txt";


// adresse du fichier HTML modele pour la reponse
// ce fichier doit contenir  dans le code HTML
// a l'endroit ou doit se trouver la reponse
// (Optionnel)
$Template ="../modules.php?name=Page&file=mailing2";


// ### Debut du programme ######        

$dest $liste."-".$action."@".$domaine;
$entete "From: <$email>\n";
$mailer .= "-t -f$email";

switch(
$action)
{
    case 
"subscribe":
        
$actionfr "d'inscription";
        break;
    
    case 
"unsubscribe":
        
$actionfr "de désinscription";
        break;
    
    case 
"help":
        
$actionfr "d'aide";
        break;
}

$pop =split("@"$email);
$email_user $pop[0];
$email_host $pop[1];
$email_rest $pop[2];

if ((
$email=="")||
    (
$email_user == "")||
    (
$email_host == "")||
    (
$email_rest != "")||
    (!
ereg("\.",$email_host)))
{
    
    
$reponse "L'e-mail entré ne semble pas valide.!
\n"
;
    
    
}
else
{

    
$fd popen($mailer"w");
    
fputs($fd"To: $dest\n");
    
fputs($fd"From: $email\n");
    
fputs($fd"Cc: $proprio\r\n");
    
fputs($fd"Subject: Demande $actionfr sur la liste : $liste\n");
    
pclose($fd);

    
// envoi de la charte
    
if (($action == "subscribe") && ($charte !=""))
    {
        
$msg implode(""file($charte));
         
        
$msg addslashes($msg);
        eval(
"\$msg = \"$msg\";");
        
$msg stripslashes($msg);
        
        
mail ($email"La charte de la mailing list de $liste@$domaine"$msg"From:".$liste."-owner@".$domaine);
    }

    
$reponse "

Votre demande $actionfr sur la liste $liste a été enregistrée !
"
;
    
$visu header ("location: [url]http://www.monsite.net/modules.php?name=Page&file=mailing2[/url]");

}


/*
###############################################
#### Affichage du message de confirmation #####
#############    ou d'erreur      #############
###############################################
*/

if ($Template == "")
{
    print(
"\n");
    print(
"\n");
    print(
"Inscription ml\n");
    print(
"\n");
    print(
"\n");
    print(
$reponse);
    print(
"\n");
    print(
"\n");

}else{
    
$FICHIER fopen($Template,"r");
    
$ligne fgets($FICHIER4096);
    while (
$ligne != "")
    {
        
$ligne stripslashes($ligne);
        if (
eregi(""$ligne))
        {
               
$ligne eregi_replace(""$reponse$ligne);
          }
      
          
      
          echo 
$ligne;
          
$ligne fgets($FICHIER4096);
     }
}     

?>