';
$l=' | ';
$fdb=$pri.'ofpierre';
if(open(FDB,'>'.$fdb)){
if(flock(FDB,2)){
use SDBM_File;
if(tie(%fdb,'SDBM_File',$fdb,0666,0666)){
pool: $f=sprintf("%02d%02d%02d%02d%02d%02d",($year%100),($mon+1),$mday,$hour,$min,$sec);
if(exists$fdb{$f}){
$sec++;
goto pool;
}
$fdb{$f}='cen='.$cen.'&zip='.$zip.'&rcs='.$rcs.'&nam='.$nam.'&ad1='.$ad1.'&tel='.$tel.'&ema='.$ema.'&rcs='.$rcs.$nip;
untie(%fdb);
}else{
err('tie',$fdb);
}
}else{
err('lock',$fdb);
}
close(FDB);
}else{
err('write',$fdb);
}
$txt="$k Nom$l$nam$k Adresse$l$ad1";
$xtx="Nom $nam Adresse $ad1";
if(length($ad2)>0){
$txt.="$k$l$ad2";
$xtx.=" $ad2";
}
$txt.="$k Code postal$l$zip";
$xtx.=" Code postal $zip";
if($rcs eq"Y"){
$txt.="$k RCS demandée";
$xtx.=" RCS demandee";
}
$txt.="$k Téléphone$l$tel";
$xtx.=" Telephone $tel";
$txt.="$k Adresse électronique$l$ema";
$xtx.=" Adresse electronique $ema";
for($i=0;$i<@qty;$i++){
if($qty[$i]>0.5){
@prd=split(/=/,$pro[$i]);
$txt.="$k$prd[1]$l$qty[$i] x $prd[3]";
$xtx.=" $prd[1] $qty[$i] x $prd[3]";
}
}
$txt.="$k Facture$l$f$k Montant$l$eur $cty[1] ";
$xtx.=" Facture $f Montant $eur $cty[1]";
$mai='/usr/lib/sendmail';
if(-e$mai){
open(MAJ,"|$mai -t");
print MAJ"To: font.vie\@gmail.com\n";
# print MAJ"Cc: $ema\n"if(/\@/,$ema);
print MAJ"From: sales\@vitafons.co.uk\n";
print MAJ"Subject: VITAFONS achat $f proposé\n";
print MAJ"MIME-Version: 1.0\n";
print MAJ"Content-Type: text/html;\n\n";
print MAJ"$txt\n\n";
close(MAJ);
}
$xtx=~s/ /\+/g;
$rue=$eur;
$rue=~s/,/./;
$can="http://www.vitafons.co.uk/cgi-bin/okpierre.pl";
$prm="$can?inf=$xtx";
$suc="$can?YES=OK&inf=$xtx";
print<
On vous redirige maintenant vers une interface de paiement sécurisé pour la saisie des données cartes au travers d´un lien crypté SSL 128 bits.
END
goto ende;
}else{
for($j=0;$j<$i;$j++){$pos=$pch[$j]if!($tot<$lim[$j]);}
print' | Vous commandez des produits pour une valeur de ';
print' | '.$usd.' '.$cty[1].' | | ';
if($rcs eq"Y"){
print' | remise contre signature | ';
print" 0,90 $cty[1] | TTC dont 0,18 $cty[1] de TVA (19,6%)";
}
if($pos>0){
$sop=$pos*0.196;
print' | affranchissement | ';
printf("%2d,%02d",$pos,(100*($pos+.005))%100);
print" $cty[1] | TTC dont ";
printf("%2d,%02d",$sop,(100*($sop+.005))%100);
print" $cty[1] de TVA (19,6%)";
}
$ttl=$tot+$pos;
for($a=(@dis-1);$a>-1;$a--){
($b,$c)=split(/=/,$dis[$a],2);
if($ttl>=$b){
$dis=($c*$ttl)/100;
last;
}
}
if($dis>0){
$sid=$dis*0.196;
print' | remises | ';
printf("%2d,%02d",$dis,(100*($dis+.005))%100);
print" $cty[1] | TTC dont ";
printf("%2d,%02d",$sid,(100*($sid+.005))%100);
print" $cty[1] de TVA (19,6%)";
$ttl=$ttl-$dis;
}
$cen=sprintf("%4d,%02d",$ttl,(100*($ttl+.005))%100);
$cen=~s/ //g;
$a=$cen;
$cen=~s/,//;
print' | ';
print' ';
}
}
print'";
if(@dis>0){
print" Remises de : ";
for($a=0;$a<@dis;$a++){
($b,$c)=split(/=/,$dis[$a],2);
print"$c% pour $b$cty[1]. ";
}
}
print"© Vita Fons II Limited, 2000, 2004
|