1) Boutique Electronique

Vente en Ligne de Pipos


Pipotech en ligne


Pipo Simple

Pipo de Luxe

The Ultimate Pipo

Pipo(s)

******************************************************************* 2) #!/usr/local/bin/perl #payment.cgi # entete d'une page html print "Content-type: text/html", "\n\n"; print "" , "\n"; print "Payment" , "\n"; print "" , "\n"; print "

Paiement des Pipos


" , "\n"; #Determine le type de passage $method = $ENV{'REQUEST_METHOD'}; if ($method eq "GET") { $query = $ENV{'QUERY_STRING'}; } elsif ($method eq "POST") { $size = $ENV{'CONTENT_LENGTH'}; read (STDIN, $query, $size); } #split le query en key=value. @key_value_pairs = split(/&/, $query); print "parameters : $query
", "\n"; #decode chaque parametre foreach $key_value (@key_value_pairs) { ($key, $value) = split(/=/, $key_value); $value =~ tr/+/ /; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; $data{$key} = $value; print "data($key) = $data{$key}", "\n"; } print "
" , "\n"; # MERCI print qq(

MERCI


\n); print qq( pipo.html
\n); #completer et fermer le fichier .html print "" , "\n"; print "" , "\n"; exit(0); ******************************************************************** 3) #Definir le Form Action print qq( ); print "parameters : $query
", "\n"; #Sauver la commande dans les variables cachees. foreach $key (keys %data) { print qq(); print qq(<INPUT TYPE=HIDDEN NAME="$key" VALUE="$data{$key}">\n
); } # enregistrer le paiement print qq(Commande : $data{"number"} $data{"product"}
\n); print qq(

Methode de Paiment

\n); print qq(\n); print qq(\n); print qq(\n); #Merci print qq(

Merci

\n); #completer et fermer le fichier .html print "" , "\n"; print "" , "\n"; exit(0); ******************************************************************** 4) #!/usr/local/bin/perl #record.cgi # entete d'une page html print "Content-type: text/html", "\n\n"; .... $dir = "/users/[**VOTRE-LOGIN**]/www/commandes"; chdir $dir or die "unable to open directory $dir"; #ouverture du fichier pour ecriture open (FILE, ">pipo-commande.html") || print "Error openening file pipo-commande.html","\n"; print FILE "Content-type: text/html", "\n\n"; print FILE "" , "\n"; print FILE "vente de pipos" , "\n"; print FILE "
" , "\n"; print FILE "who : $data{'nom'}
", "\n"; print FILE "what : $data{'product'}
", "\n"; print FILE "how-many : $data{'number'}
", "\n"; print FILE "payment: $data{'payment'}
", "\n"; if ($data{'payment'} eq "carte") { print FILE "Card Number : $data{'Card'}
", "\n"; print FILE "Expiration : $data{'exp'}
", "\n"; } print FILE "" , "\n"; print FILE "" , "\n"; close (FILE); print qq(
pipo.html
\n); #completer et fermer le fichier .html print "" , "\n"; print "" , "\n"; exit(0); Passez une commande. Regarderz le fichier Commandes/pipo-commande.html.