#!/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; # ############################################################################################# # Variable contenant les emails de réception des commandes. # $MAIL_TO = q'alto@naostech.fr,commande@mafma.com'; # #$MAIL_TO = q'alto@naosnet.net'; # ############################################################################################# # Début de la page html. # &html_begin; # ############################################################################################# # Format de texte ˆ envoyé par email. # # MAIL : est le format permettant d'envoyer les coordonnées de l'acheteur. # format MAIL = Bon de commande: +---------------------------------------------------------------------------------+ Nom : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $Nom Adresse email : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $Email Adresse de livraison : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $Adresse Code postal : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $CP Ville : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $Ville Pays : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $Pays 8 premier digit CB : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $FirstDigit 8 dernier digit CB : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $LastDigit Date de validité : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $DateValidite +---------------------------------------------------------------------------------+ Référence(s) commandée(s) : +------------+---------------+----------+----------------+ | Code | Prix Unitaire | Quantité | Prix Total | +------------+---------------+----------+----------------+ . # MAIL2 : est le format permettant d'envoyer les commandes de l'acheteur. # format MAIL2 = | @<<<<<<<<< | @<<<<<<<<<<<< | @<<<<<<< | @<<<<<<<<<<<<< | $Code $PrixFF $qty $SousTotalFF +------------+---------------+----------+----------------+ . # Ouverture du fichier permettant d'envoyer le mail de commande. # open( MAIL, "|sendmail -t"); # print MAIL << "EOT"; # From:nobody Subject: Bon de commande. To: $MAIL_TO EOT ############################################################################################# # 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; # } # if ($param eq "qty") # { # push @quantites, $value; # } # # if ($param eq 'Nom') { $Nom = $value; } # if ($param eq 'Adresse') { $Adresse = $value; } # if ($param eq 'Ville') { $Ville = $value; } # if ($param eq 'CP') { $CP = $value; } # if ($param eq 'Pays') { $Pays = $value; } # if ($param eq 'Email') { $Email = $value; } # if ($param eq 'FirstDigit') { $FirstDigit = $value; } # if ($param eq 'LastDigit') { $LastDigit = $value; } # if ($param eq 'DateValidite') { $DateValidite = $value; } # } # write MAIL; # print << "EOT"; #
Vous avez commandé les produits suivants.
Vous recevrez un email qui confirmera votre commande.
You ordered the following items :
You'll receive an email to confirm your order.
EOT $QUERY_GETDATA = "select Echelle, Fabricant, Description, Prix from Produits " ; # $QUERY_GETDATA .= "where CodeProduit=?" ; # $sth = $dbh->prepare( $QUERY_GETDATA ) || die $dbh->errstr; # ########################################################################################### # Traitement des donnŽes. # $total = 0; # $i = 0; # while (@codes) # { # $Code = shift(@codes); # $qty = shift(@quantites); # $qty = &data_normalize_qty($qty); # $rv = $sth->execute( $Code ) || die $dbh->errstr; # ($Echelle, $Fabricant, $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. # select(MAIL); # Permet de renvoyer STDOUT vers le descripteur de fichier MAIL. # $~ = "MAIL2"; # On selection le formattage MAIL2 des donnŽes. # write; # On Žcrit la ligne. # select(STDOUT); # Puis on reselectionne STDOUT. # print << "EOT"; # EOT $total += $Prix*$qty; # } # $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 ; # $FraisPortCeeFF = 50 ; # $FraisPortCeeFF = sprintf "%2.2f FRF", $FraisPortCeeFF ; # $FraisPortHorsCeeFF = 90 ; # $FraisPortHorsCeeFF = sprintf "%2.2f FRF", $FraisPortHorsCeeFF ; # $FraisPortCeeEU = sprintf "%2.2f EU", $FraisPortCeeFF/$main::euro ; # $FraisPortHorsCeeEU = sprintf "%2.2f EU", $FraisPortHorsCeeFF/$main::euro ; # print MAIL << "EOT"; # Total de la command H.T. en Francs : $totalPrixFFHT Total de la command H.T. en Euro : $totalPrixEUHT TVA en Francs : $tvaFF TVA en Euro : $tvaEU Total de la command T.T.C. en Francs : $totalPrixFFTTC Total de la command T.T.C. en Euro : $totalPrixEUTTC C'est sympa non ?? -----------------:)) EOT print << "EOT"; #
Code
Code 		Echelle
Scale 		Fabricant
Manufacturer 		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)
$Code $Echelle $Fabricant $Description $PrixFF $PrixEU $qty $SousTotalFF $SousTotalEU
Prix Total
Total Price 		$totalPrixFFHT $totalPrixEUHT
Commentaires
Comments 		T.V.A. FRF
V.A.T. FRF 		T.V.A. EU
V.A.T. EU
Si vous êtes dans un pays de la C.E.E. vous devrez acquitter la T.V.A.
If you here in the E.E.C. country, you have to pay the V.A.T. 		$tvaFF $tvaEU
Frais de port FRF
Shipment fees FRF 		Frais de port. EU
Shipment fees EU
Pays de la C.E.E.
Inside the E.E.C. 		$FraisPortCeeFF $FraisPortCeeEU
Pays hors de la C.E.E.
Outside E.E.C. country 		$FraisPortHorsCeeFF $FraisPortHorsCeeEU
Si vous passez plus d'une commande dans la même journée, les frais de port ne vous serons comptabilisés qu'une seule fois.
If you place more than one order per day, you'll have to pay just one shipment fee.
EOT &html_end; # close(MAIL); # $dbh->disconnect; # exit; # ########################################################################################