Re: probleme d'auth en creant un script CGI d'inscription

[Jerome ALET <adresse@cachée>]

Samuel Torton wrote:
> Jerome ALET wrote:
> > je viens de creer un formulaire d'inscription pour nos listes. Dans le
> > ...
> > Sympa me refuse le ADD en disant que je ne suis pas le proprietaire de

>
> Tu as fabrique ton cgi toi-meme ?
> 
> Pourquoi n'utilises-tu pas le package de Sympa, prevu pour ca ?
> Il marche tres bien ! Il s'agit du package WWSympa :
> http://listes.cru.fr/sympa/distribution/contrib/

bin parceque je n'ai pas besoin d'une usine a gaz. et que j'ai besoin
d'un script similaire pour gerer des abonnements sur un serveur que je
ne gere pas.

voici le script en question:

#! /usr/bin/perl -w

use CGI;
use Net::SMTP;

my $query = new CGI;
my $ok = 0;
if ($query->param)
{
        my $redirect = $query->param('redirect');
        my $liste = $query->param('liste');
        my $nom = $query->param('nom');
        my $prenom = $query->param('prenom');
        my $email = $query->param('email');

        if (($nom ne '') && ($prenom ne '') && ($email ne ''))
        {
                # tester sur noe avec 'cortex' !!!
                $smtp = Net::SMTP->new('localhost');

                $smtp->mail("listmaster\@cortex.unice.fr");
                $smtp->to("sympa\@cortex.unice.fr");

                $smtp->data();
                $smtp->datasend("From: listmaster\@cortex.unice.fr\n");
                $smtp->datasend("To: sympa\@cortex.unice.fr\n");
                $smtp->datasend("Subject: Inscription  la liste " .
$liste . "\n");
                $smtp->datasend("\n");
                $smtp->datasend("ADD " . $liste . " " . $email . " " .
$prenom . " " . $nom . "\n");
                $smtp->datasend("END\n");
                $smtp->dataend();

                $smtp->quit;

                print $query->redirect($redirect);

                $ok = 1;
        }
}

if ($ok == 0)
{
        print $query->header('text/plain','204 No response');

        print "Erreur lors de la saisie: tous les champs sont
obligatoires\n";
        print "En plus votre navigateur ne reconnait pas le code 204
!!!\n";
        print "Merci de bien vouloir recommencer\n";
}

-- 
Jerome ALET - adresse@cachée - http://cortex.unice.fr/~jerome
Faculte de Medecine de Nice - http://noe.unice.fr - Tel: 04 93 37 76 30 
28 Avenue de Valombrose - 06107 NICE Cedex 2 - FRANCE