Forums Développement Langage Perl

reCaptcha cgi recuperer les arguments pour validation code captcha

Le dimanche 15 Juin 2008 à 12:15

swilting

#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
##use FileHandle;
use Captcha::reCAPTCHA;
use CGI::Safe;
use CGI::Simple;
use constant PUBLIC_KEY => '6Le***************1rq03wAyR';
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN ';

$|++;
my $c;
my $cgi;
my $key;
my $q;
my %etats;
my $ecran_actuel;
my @options;
my $error = undef;
##my $errortest;
##my $resulttest;

$cgi = new CGI;
$c = Captcha::reCAPTCHA->new;
$q = CGI::Simple->new;
%etats = (
'defaut' =>\&saisie_commande,
'validation_code' =>\&validation_code,
'annulation' =>\&annulation,
);
$ecran_actuel = param(".Etat") || "defaut";
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel};

## engendre le document courant
en_tete_standard();
while ( my ($nom_ecran,$fonction) = each %etats){
$fonction->($nom_ecran eq $ecran_actuel);
}

pied_de_page_standard();

########################################################################
## fonctions d en tete , de pied de page ,de menu ################
########################################################################

sub en_tete_standard {
print header(),
start_html(-Title => "commande" , -BGCOLOR=>"White");
print start_form();
}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

}

print $c->get_html(PUBLIC_KEY);
my $result = $c->check_answer(
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response);
if ( $result->{is_valid} ) {
print "ok";validation_code();
}
else {
my $error = $result->{error};annulation();
}
menu_boutique(@options);
}

sub validation_code {
my($actif) = @_;
return unless $actif;
my $nom = param ('nom');
my $adresse = param ('adresse');
my $ville = param ('ville');
my $code_postal = param ('code_postal');
my $pays = param ('pays');
my $mail = param ('mail');
my @gadgets = qw(nom adresse ville code_postal pays mail);
unless ( $actif ) {
print map { hidden($_) } @gadgets;
return;
}
print p("code verifier");

}

sub annulation {
my($actif) = @_;
return unless $actif;
print p ("vous etes une mauvaise personne ou un robot spammeur :");

}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

}

je n arrive pas à recuperer les parametres du code recaptcha
le script fonctionne le plugin recaptcha est bien afficher

mais quand je clicke sur validation_code
j ai cette sortie

<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xht...">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>commande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body bgcolor="White">
<form method="post" action="/cgi-bin/vente.cgi"
enctype="multipart/form-data">
</form>
</body>
</html>

meme pas le print p("");

je suis un peu troubler car je ne comprends pas

question serveur je viens de commander un rps chez ovh avec un centos

et j aurais les depots remi actif
et un yum -v install perl*

et le plugin captcha

Questions / Réponses high-tech

problemes pour recuperer tout les parmetres depuisun cgi

Poser une question

Vidéos High-Tech et Jeu Vidéo

HUD pour Ubuntu
Présentation du concept Head-Up Display pour Ubuntu dont l'objectif est de remplacer...
Diablo : rétrospective pour ses 15 ans
A l'occasion des 15 bougies de sa franchise Diablo, Blizzard livre une rétrospective...

Plus de vidéos

Téléchargements

Sécurité

AVG Rescue CD : récupérer des données d'un simple clic
Découvrez un programme de restauration de données vraiment spectaculaire au travers du...
Multimédia

Video2Photo : récupérer les images d’une vidéo
Il est toujours intéressant de posséder un logiciel pour retravailler des séquences...

Plus de téléchargements

Suivez GNT

Vos réponses

Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !

Trier par : date / pertinence

swilting

Le 16/06/2008 à 00:37 #7013941

swilting wrote:

#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
##use FileHandle;
use Captcha::reCAPTCHA;
use CGI::Safe;
use CGI::Simple;
use constant PUBLIC_KEY => '6Le***************1rq03wAyR';
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN ';

$|++;
my $c;
my $cgi;
my $key;
my $q;
my %etats;
my $ecran_actuel;
my @options;
my $error = undef;
##my $errortest;
##my $resulttest;

$cgi = new CGI;
$c = Captcha::reCAPTCHA->new;
$q = CGI::Simple->new;
%etats = (
'defaut' =>&saisie_commande,
'validation_code' =>&validation_code,
'annulation' =>&annulation,
);
$ecran_actuel = param(".Etat") || "defaut";
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel};

## engendre le document courant
en_tete_standard();
while ( my ($nom_ecran,$fonction) = each %etats){
$fonction->($nom_ecran eq $ecran_actuel);
}

pied_de_page_standard();

########################################################################
## fonctions d en tete , de pied de page ,de menu ################
########################################################################

sub en_tete_standard {
print header(),
start_html(-Title => "commande" , -BGCOLOR=>"White");
print start_form();
}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

}

..................
eval {

########################################eval { my $eval = fonc();}
plugin captcha
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire une
fonction qui prends comme argument fonction(@donnees,$eval)

my $result = $c->check_answer(
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response);
if ( $result->{is_valid} ) {
print "ok";validation_code();
}
else {
my $error = $result->{error};annulation();
}
menu_boutique(@options);
}

}

sub validation_code {
my($actif) = @_;
return unless $actif;
my $nom = param ('nom');
my $adresse = param ('adresse');
my $ville = param ('ville');
my $code_postal = param ('code_postal');
my $pays = param ('pays');
my $mail = param ('mail');
my @gadgets = qw(nom adresse ville code_postal pays mail);
unless ( $actif ) {
print map { hidden($_) } @gadgets;
return;
}
print p("code verifier");

}

sub annulation {
my($actif) = @_;
return unless $actif;
print p ("vous etes une mauvaise personne ou un robot spammeur :");

}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

ya pas un endroit ou ils disent comment l utiliser

ai fait des tres jolis eval { captcha } cet aprem

ça y est j ai l acces chez ovh centos 5.1
http://www.renelacroute.fr

je n arrive pas à recuperer les parametres du code recaptcha
le script fonctionne le plugin recaptcha est bien afficher

mais quand je clicke sur validation_code
j ai cette sortie

<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xht...">
<head>
<title>commande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body bgcolor="White">
enctype="multipart/form-data">
</form>
</body>
</html>

meme pas le print p("");

je suis un peu troubler car je ne comprends pas

question serveur je viens de commander un rps chez ovh avec un centos

et j aurais les depots remi actif
et un yum -v install perl*

et le plugin captcha

-1 Répondre en citant

swilting

Le 16/06/2008 à 19:08 #7019951

swilting wrote: 
 
<blockquote class="block0"> 
swilting wrote: 
 
<blockquote class="block1"> 
#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6Le***************1rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'defaut' =>&saisie_commande, 
'validation_code' =>&validation_code, 
'annulation' =>&annulation, 
); 
$ecran_actuel = param(".Etat") || "defaut"; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]), 
vers_doc($options[1])); 
 
} 
 
 
.................. 
eval { 
</blockquote> 
<blockquote class="block1"> 
########################################eval { my $eval = fonc();} 
plugin captcha 
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire 
une 
fonction qui prends comme argument fonction(@donnees,$eval) 
</blockquote> 
<blockquote class="block1"> 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); 
if ( $result->{is_valid} ) { 
print "ok";validation_code(); 
} 
else { 
my $error = $result->{error};annulation(); 
} 
menu_boutique(@options); 
} 
 
} 
</blockquote> 
<blockquote class="block1"> 
sub validation_code { 
my($actif) = @_; 
return unless $actif; 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
print p("code verifier"); 
 
} 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]), 
vers_doc($options[1])); 
 
 
 
</blockquote> 
ya pas un endroit ou ils disent comment l utiliser 
 
ai fait des tres jolis eval { captcha } cet aprem 
 
ça y est j ai l acces chez ovh centos 5.1 
http://www.renelacroute.fr 
 
<blockquote class="block1"> 
je n arrive pas à recuperer les parametres du code recaptcha 
le script fonctionne le plugin recaptcha est bien afficher 
 
 
mais quand je clicke sur validation_code 
j ai cette sortie 
 
<!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xht...;gt; 
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> 
<head> 
<title>commande</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" 
/> </head> 
<body bgcolor="White"> 
<form method="post" action="/cgi-bin/vente.cgi" 
enctype="multipart/form-data"> 
</form> 
</body> 
</html> 
 
meme pas le print p(""); 
 
je suis un peu troubler car je ne comprends pas 
 
question serveur je viens de commander un rps chez ovh avec un centos 
 
et j aurais les depots remi actif 
et un yum -v install perl* 
 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui

-1 Répondre en citant

swilting

Le 16/06/2008 à 19:14 #7019941

#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6LeEMAIAAAAAAL1w3ZJ5QQw9O_REAx81rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMAIAAAAAAH3xcSzErhpevcxFl6ajrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my @verifications; 
my $captcha; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'annulation' =>&annulation, 
'defaut' =>&saisie_commande, 
'validation' =>&validation, 
'mail_envoye' => &mail_envoye, 
); 
$ecran_actuel = param(".Etat") || 'defaut'; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]),vers_doc($options[1])); 
} 
 
 
 
sub saisie_commande { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("saisie_commande"); 
print p("Tous les champs sont obligatoires"); 
print p("un code de securite vous seras demandé dans la prochaine 
page"); 
print pre ( p ("Nom: ",textfield("nom")), 
p ("Adresse: ",textfield("adresse")), 
p ("Ville: ",textfield("ville")), 
p ("Code Postal: ",textfield("code_postal")), 
p ("Pays: ",textfield("pays")), 
p ("e-mail: ",textfield("mail"))); 
print p("commentaires"); 
print textarea('commentaire','','10','50'); 
print p("upload de fichier"); 
print filefield('upload','',50,80); 
print p ( "Selectionner validation_code pour continuern", 
"autrement selectionner Annulationn"); 
 
$options[0] = "annulation"; 
$options[1] = "validation"; 
 
menu_boutique(@options); 
} 
sub validation { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("validation"); 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
eval { captcha() }; 
if ( $@ ) { die "vous etes un robot spammeur ou une mauvaise personne : 
$@" } 
sub captcha { print $c->get_html(PUBLIC_KEY); 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); if ( 
$result->{is_valid} ) { print "ok";mail_envoye();}else {my $error $result->{error};warn;}print submit;} 
 
} 
 
sub mail_envoye { 
my($actif) = @_; 
return unless $actif; 
print p("nnnnnnnnnnn"); 
} 
 
## mail($numero_commande,$nom,$adresse,$ville,$code_postal 
$pays,###$telephone,$mail,$image); 
## cpandrename($image); 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
 
sub pied_de_page_standard{ print end_form(),end_html() } 
 
 
 
 
sub vers_doc { submit (-NAME => ".Etat", -VALUE => shift) } 
 
 
<blockquote class="block0"> 
<blockquote class="block1"> 
<blockquote class="block0"> 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui 
 
</blockquote>

-1 Répondre en citant

swilting

Le 16/06/2008 à 19:16 #7019931

swilting wrote: 
bon j ai fait une conneries 
effacer le thread precedent il contient mes cles capcha 
je me suis fache tout seul 
<blockquote class="block0"> 
#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6LeEMAIAAAAQQw9O_REAx81rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMAIAAAAAAH3xcSzajrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my @verifications; 
my $captcha; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'annulation' =>&annulation, 
'defaut' =>&saisie_commande, 
'validation' =>&validation, 
'mail_envoye' => &mail_envoye, 
); 
$ecran_actuel = param(".Etat") || 'defaut'; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]),vers_doc($options[1])); 
} 
 
 
 
sub saisie_commande { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("saisie_commande"); 
print p("Tous les champs sont obligatoires"); 
print p("un code de securite vous seras demandé dans la prochaine 
page"); 
print pre ( p ("Nom: ",textfield("nom")), 
p ("Adresse: ",textfield("adresse")), 
p ("Ville: ",textfield("ville")), 
p ("Code Postal: ",textfield("code_postal")), 
p ("Pays: ",textfield("pays")), 
p ("e-mail: ",textfield("mail"))); 
print p("commentaires"); 
print textarea('commentaire','','10','50'); 
print p("upload de fichier"); 
print filefield('upload','',50,80); 
print p ( "Selectionner validation_code pour continuern", 
"autrement selectionner Annulationn"); 
 
$options[0] = "annulation"; 
$options[1] = "validation"; 
 
menu_boutique(@options); 
} 
sub validation { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("validation"); 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
eval { captcha() }; 
if ( $@ ) { die "vous etes un robot spammeur ou une mauvaise personne 
: 
$@" } 
sub captcha { print $c->get_html(PUBLIC_KEY); 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); if ( 
$result->{is_valid} ) { print "ok";mail_envoye();}else {my $error > $result->{error};warn;}print submit;} 
 
} 
 
sub mail_envoye { 
my($actif) = @_; 
return unless $actif; 
print p("nnnnnnnnnnn"); 
} 
 
## mail($numero_commande,$nom,$adresse,$ville,$code_postal 
$pays,###$telephone,$mail,$image); 
## cpandrename($image); 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
 
sub pied_de_page_standard{ print end_form(),end_html() } 
 
 
 
 
sub vers_doc { submit (-NAME => ".Etat", -VALUE => shift) } 
 
 
<blockquote class="block1"> 
<blockquote class="block0"> 
<blockquote class="block1"> 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui 
 
</blockquote> 
</blockquote>

-1 Répondre en citant

Publicité

Suivre les réponses

Poster une réponse