Script envoi données formulaire vers email

**vigiepresse** · 15/03/2011, 11h48

Bonjour,

Le script ci-dessous affiche dans mon navigateur les données laissées
dans mes formulaires.

Est-il possible de modifier simplement ce script pour qu'il n'affiche plus
ces données dans mon navigateur mais qu'il les envoie vers ma boîte mels ?

Merci d'avance pour votre aide.

ALAIN

------------------------------------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl
 
print "Content-type: text/html\n\n";
 
print "<html>\n<head>\n<title>decodage</title>\n</head>\n";
print "<body>\n";
 
read(STDIN, $donnees, $ENV{CONTENT_LENGTH});
 
@tab = split("&", $donnees);
%commande = ();
 
foreach $i (@tab){
($nom, $valeur) = split("=", $i);
$nom =~ s/%(..)/pack("c", hex($1))/ge;
$valeur =~ s/%(..)/pack("c", hex($1))/ge;
$valeur =~ s/\+/ /g;
$commande{"$nom"} = $valeur;
}
 
print "<H1>Votre commande</H1><HR>";
print "$commande{'nourriture'}<BR>";
print "pour $commande{'nombre_personnes'} personnes <BR>";
print "livr&eacute; &agrave; $commande{'heure_livraison'} heures<BR>";
print "&agrave; l'adresse : <BR> $commande{'adresse'}<BR>";
 
print "</body></html>";

----------------------------------------------------

**Dimitry.e** · 15/03/2011, 12h08

Alors, de tête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
use Email::Valid;
my $sendmail = "/usr/sbin/sendmail -t"; 
my $subject  = "Subject: Votre commande\n";
my $to = "To: lui@example.com";
my $from = "From: moi@example.com";
my $content = ""$commande{'nourriture'}\nPour 
commande{'nombre_personnes'} personnes\nLivre a; $commande{'heure_livraison'} heures \n A l'adresse : \n$commande{'adresse'}\n";
 
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $subject;
print SENDMAIL $to;
print SENDMAIL $from;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content; close(SENDMAIL);

**vigiepresse** · 16/03/2011, 12h52

Bonjour,

Merci pour ta réponse, mais :

>>> ce script, je le mets dans quelle page ?

>>> "lui.example.com" et "moi.example.com", je les laisse tels quels ???

A+

Script envoi données formulaire vers email

Langage Perl

Discussions similaires

Partager

Partager