#!/usr/bin/perl ############################################################################################# # DŽfinition des librairie systme utilisŽ par le script. # use CGI; # use CGI::Carp qw(fatalsToBrowser); # use DBI; # ############################################################################################# # DŽfinition des librairie dŽfinit pour le projet utilisŽ par le script. # require "./look.pm"; # require "./data.pm"; # ############################################################################################# $query = new CGI; # ############################################################################################# # Connection ˆ la base de donnŽes. # $dbh = DBI->connect( $main::db_base , $main::db_user, $main::db_pass ) || die $DBI::errstr; # ############################################################################################# # RŽcupŽration des variables passŽes par le CGI. # @pairs = split( /&/, $query->query_string ); # foreach $pair(@pairs) # { # my($name,$value) = split( /=/, $pair ); # $name =~ tr/+/ /; # $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # $value =~ tr/+/ /; # # $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # # my($param,$code) = split( /-/, $name ); # if ($param eq "cod") # { # push @codes, $value; # push @commandes, 0; # } # if ($param eq "qty") # { # push @quantites, $value; # } # if ($param eq "com") # { # pop @commandes; # push @commandes, 1; # } # } # ############################################################################################# # CrŽation de la requte pour la rŽcupŽration des informations dans la base de donnŽes. # $QUERY_GETDATA = "select Echelle, Type, Fabricant, Marque, Description, Prix from Produits " ; # $QUERY_GETDATA .= "where CodeProduit=?" ; # $sth = $dbh->prepare( $QUERY_GETDATA ) || die $dbh->errstr; # ############################################################################################# # DŽbut de la page html. # &html_begin; # print << "EOT"; #

Vous voulez commander les produits suivants :

You want to order the items below:

EOT ############################################################################################# # Traitement des donnŽes. # $total = 0; # $i = 0; # while (@codes) # { # $cod = shift(@codes); # $com = shift(@commandes); # $qty = shift(@quantites); # if ($com) # { # $qty = &data_normalize_qty($qty); # $rv = $sth->execute( $cod ) || die $dbh->errstr; # ($Echelle, $Type, $Fabricant, $Marque, $Description, $Prix) = $sth->fetchrow_array; # $PrixFF = sprintf "%2.2f FRF", $Prix; # $PrixEU = sprintf "%2.2f EU", $Prix/$main::euro; # $SousTotalFF = sprintf "%2.2f FRF", $Prix*$qty; # Sous total HT en FRF. # $SousTotalEU = sprintf "%2.2f EU", $Prix*$qty/$main::euro; # Sous total HT en EU. # $Echelle = sprintf "1/%2d eme", $Echelle; # Formatage du champ echelle. # print << "EOT"; # EOT $total += $Prix*$qty; $i++; } } $totalPrixFFHT = sprintf "%2.2f FRF", $total ; $totalPrixEUHT = sprintf "%2.2f EU", $total/$main::euro; # $tvaFF = sprintf "%2.2f FRF", $total*0.206 ; # $tvaEU = sprintf "%2.2f EU", $total*0.206/$main::euro ; # $totalPrixFFTTC = sprintf "%2.2f FRF", $total*1.206 ; # $totalPrixEUTTC = sprintf "%2.2f EU", $total*1.206/$main::euro; print << "EOT";
Code
Code 		Echelle
Scale 		Type
Type 		Fabricant
Manufacturer 		Marque
Model 		Description
Description 		Prix unitaires (FRF)
Unit prices (FRF) 		Prix unitaires (EU)
Unit prices (EU) 		Qté
Qty 		Sous total (FRF)
Sub total (FRF) 		Sous total (EU)
Sub total (EU)
$cod $Echelle $Type $Fabricant $Marque $Description $PrixFF $PrixEU $qty $SousTotalFF $SousTotalEU
Prix Total
Total Price 		$totalPrixFFHT $totalPrixEUHT
Entrez vos références/ Enter your reference
Votre nom/Your Name :
Adresse de livraison/Delivery Address :
Ville/City :
Code postal/Zip code :
Pays/Country :
E-mail :
Informations Carte de crédit (seulement VISA ou EUROCARD / MASTERCARD)
 Credit card information : (Only VISA or EUROCARD / MASTERCARD)
N° Carte de credit (8 premiers chiffres)
Credit  card NĦ (first eight digits only)
N° Carte de crédit (autres chiffres)
Credit card N° (remaining digits)
Date d'expiration (MM / AA)
Expiry date (MM/YY)
EOT &html_end; $dbh->disconnect; exit; LL2H Monaco“$Ì“ à˙˙˙˙Á­p"H'³˙ü(Q(Qµë³LL2‘ŞV2MPSR í˙˙;´