#!/usr/bin/perl print"Content-type: text/html\n\n"; chdir'..'; use Cwd; $roo=fastcwd().'/'; $pri=$roo.'_private/'; $fdb=$pri.'france.frm'; open(COU,$fdb)||err('read',$fdb); #country_currency_address1,2_contacts1,2_description1~2_logo_ #national postage minlimit1=amount1~minlimit2=amount2_exclude department1,2_ #regional postage minlimit1=amount1~minlimit2=amount2_include department1,2_ #discounts minlimit1=percent1~minlimit2=percent2_ #products picture1=title1=description1=size1=price1~picture2=title2=description2=size2=price2 while(){ chomp; $cou.=$_; } close(COU); @cty=split(/_/,$cou); @adr=split(/,/,$cty[2]); @tel=split(/,/,$cty[3]); @dsc=split(/~/,$cty[4]); @dis=split(/~/,$cty[10]); @pro=split(/~/,$cty[11]); if($ENV{'REQUEST_METHOD'}eq"GET"){ $inp=$ENV{'QUERY_STRING'}; }elsif($ENV{'REQUEST_METHOD'}eq"POST"){ read(STDIN,$inp,$ENV{'CONTENT_LENGTH'}); } @jnp=split(/&/,$inp); foreach$jnp(@jnp){ ($key,$val)=split(/=/,$jnp,2); $val=~s/%(..)/pack("c",hex($1))/ge; $val=~s/\+/ /g; if($key eq"zip"){ $zip=$val; $z=sprintf("%05d",$zip); $dep=substr($z,0,2); if(length($zip)<6){ if(!($cty[7]=~/$dep/)){ open(COD,$roo.'www/codepost.txt')||err('read',$roo.'www/codepost.txt'); while(){ chomp; ($a,$b)=split(/\|/); push(@c,$a); push(@v,$b); } close(COD);#print"codepost $i $c[0] $v[0] $c[10] $v[10]
"; $i=@c; $k=$l=0; loop: $j=int(($k+$i)/2); if($l!=$j){ $l=$j; if($z lt$c[$j]){ $i=$j; goto loop; } if($z gt$c[$j]){ $k=$j; goto loop; } push(@vil,$v[$j]); $l=$j; oopl: if($j>0){ $j--; if($z eq$c[$j]){ push(@vil,$v[$j]); goto oopl; } } oplo: $l++; if($l<@c){ if($z eq$c[$l]){ push(@vil,$v[$l]); goto oplo; } } $zip=$z.' '.$vil[0]if(@vil<2); } } } }elsif($key eq"vle"){ $vle=$val; $zip=$z.' '.$vle; }elsif(substr($key,0,1)eq"q"){ $i=substr($key,1,2); $qty[$i]=$val; @prd=split(/=/,$pro[$i]); $vlu[$i]=$qty[$i]*$prd[4]; $tot+=$vlu[$i]; }elsif($key eq"cen"){ $cen=$val; }elsif($key eq"cad"){ $cad=$val; @cdd=split(/&/,$cad); foreach$cdd(@cdd){ ($key,$val)=split(/=/,$cdd,2); if($key eq"zip"){ $zip=$val; }elsif(substr($key,0,1)eq"q"){ $i=substr($key,1,2); $qty[$i]=$val; @prd=split(/=/,$pro[$i]); $vlu[$i]=$qty[$i]*$prd[4]; $tot+=$vlu[$i]; $nip.='&'.$cdd if($val ne"0"); } } }elsif($key eq"nam"){ $nam=$val; }elsif($key eq"ad1"){ $ad1=$val; }elsif($key eq"ad2"){ $ad2=$val; $nip.='&'.$jnp if(length($val)>0); }elsif($key eq"dep"){ $dep=$val; }elsif($key eq"tel"){ $tel=$val; }elsif($key eq"ema"){ $ema=$val; }elsif($key eq"rcs"){ $rcs=$val; $tot+=1.2 if($rcs eq"Y"); } } $usd=sprintf("%4d,%02d",$tot,(100*($tot+.005))%100); @days=('Dimanche','Lundi','Mardi','Mercredi','Jeudi','Vendredi','Samedi'); @months=('Janvier','Février','Mars','Avril','Mai','Juin','Juillet','Août','Septembre','Octobre','Novembre','Décembre'); ($sec,$min,$hour,$mday,$mon,$year,$wday)=(localtime(time))[0..6]; $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); $year+=1900; print<Vita Fons II Commande

Menu Introduction Produits Conservation Instructions Nouvelles Animaux Plantes et Sols La Fondation Elizabeth Bellhouse Conditions de Vente		Vita Fons II Commande END if(length($zip)<6){ print' '; # print"
Madame, Monsieur, Désolé de vous décevoir, mais comme tous les ans à pareille époque, l'entreprise est en congé. Ce congé - commencé le 3 août - se terminera le 26. La prochaine période de congé durera du 15 décembre 07 au 1er janvier 08. Cordialement Le gérant Pierre DUCHESNE"; if(@vil>1){ print'Choisissez votre endroit de livraison ici '; }else{ print' Entrez le code postal pour votre livraison en France ici '; } print' 1){print'cgi-bin/ofpierre.pl">recommencer';} else{print'../bondecom.pdf">Bon de Commande (pdf)';} goto ende; } print" $zip $cty[0], le $days[$wday] $mday $months[$mon] $year, en $cty[1]	"; foreach$a(@adr){print"$a ";} print" "; foreach$a(@dsc){print"$a ";} print"

Menu
Introduction
Produits
Conservation
Instructions
Nouvelles
Animaux
Plantes et Sols
La Fondation
Elizabeth Bellhouse
Conditions de Vente

Vita Fons II Commande

END if(length($zip)<6){ print'

Madame, Monsieur,
Désolé de vous décevoir, mais comme tous les ans à pareille époque, l'entreprise est en congé.
Ce congé - commencé le 3 août - se terminera le 26.
La prochaine période de congé durera du 15 décembre 07 au 1er janvier 08.
Cordialement
Le gérant
Pierre DUCHESNE"; if(@vil>1){ print'Choisissez votre endroit de livraison ici

'; }else{ print'

Entrez le code postal pour votre livraison en France ici

'; } print'

1){print'cgi-bin/ofpierre.pl">recommencer';} else{print'../bondecom.pdf">Bon de Commande (pdf)';} goto ende; } print"

$zip $cty[0],
le $days[$wday] $mday $months[$mon] $year, en $cty[1]

"; foreach$a(@adr){print"$a
";} print"
"; foreach$a(@dsc){print"$a
";} print"

"; if($cty[9]=~/$dep/){$y=$cty[8];}else{$y=$cty[6];} @pst=split(/~/,$y); $i=0; foreach$pst(@pst){ ($lim[$i],$pch[$i])=split(/=/,$pst); $i++; } if(($tot>0.005)or(length($cad)>0)){ if(length($ad1)<1){$ad1=$ad2;$ad2="";} print''; if((length($nam)>0)and((length($ad1)>0)and((length($tel)>0)and(length($ema)>0)))){ $a=length($cen)-2; $eur=substr($cen,0,$a).','.substr($cen,$a,2); $k='

'; $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: ofpierre\@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< '; print''; print''; print''; print'

Nous vous recommandons d'imprimer cette facture."; 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" 1,15 $cty[1]	TTC dont 0,19 $cty[1] de TVA (20%)"; } if($pos>0){ $sop=$pos*0.2; 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 (20%)"; } $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.2; 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 (20%)"; $ttl=$ttl-$dis; } $cen=sprintf("%4d,%02d",$ttl,(100($ttl+.005))%100); $cen=~s/ //g; $a=$cen; $cen=~s/,//; print'
Entrez vos nom et prénom obligatoire	'; print''; print'
ainsi que votre adresse de livraison obligatoire	'; print''; print'
	'; print'
	'.$zip; print'
votre téléphone obligatoire	'; print''; print'
et votre adresse électronique (e-mail) obligatoire	'; print''; print"
Cliquez ici pour un paiement par carte bancaire 100% sécurisé (SSL) de	"; print' '.$cty[1]; print"
Pour commander par écrit envoyez votre règlement (en chèque ou mandat) à : '.$cty[2]; if(@tel>0){ $j=0; print'
'; foreach$t(@tel){print"$t";$j++;print" - "if($j<@tel);} } print'
Veuillez bien contrôler cette commande, toute commande étant définitive.'; print'
recommencer

'; } } print'

'; print"'.$k.'

'; print"

Produit

Quantité

Prix

Valeur"; $j=0; $k='

'; if($tot>0.005){$l=' readonly';}else{$l='';} foreach$pro(@pro){ @prd=split(/=/,$pro); if((($prd[4]>0.005)and($tot<0.005))or($qty[$j]>0.5)){ if($prd[0]eq$p){ print'
'.$prd[3].'
'; print''; print$k.$r.'

'.sprintf("%2d,%02d",$prd[4],(100*($prd[4]+.005))%100); print$k.$s.'

'.sprintf("%4d,%02d$cty[1]",$vlu[$j],(100*($vlu[$j]+.005))%100); undef$r; }else{ print$k.$r.$k.$s if($r); print'

$prd[1] : $prd[2]

$prd[3]
"; print''; $r=sprintf("%2d,%02d",$prd[4],(100*($prd[4]+.005))%100); $s=sprintf("%4d,%02d$cty[1]",$vlu[$j],(100*($vlu[$j]+.005))%100); } $p=$prd[0]; } $j++; } print$k.$r.$k.$s if($r); if(($tot<0.005)and(length($cad)<1)){ while($i<13){print'

';$i+=3;} print'

RAZ'; if($rcs eq"Y"){$a="Y";}else{$a="";} print'

Remise contre signature : Colissimo Expert F (1,15Eu)

'.$usd.$cty[1]; } ende: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"

"; sub err{ $err="The server cannot $_[0] the file $_[1]"; print''; print"
$err
$!"; print'
Please either go back and try again or'; print'
if the message persists '; print"tell our webmaster."; exit; }

Vita Fons II Commande

Entrez le code postal pour votre livraison en France ici

$zip $cty[0],le $days[$wday] $mday $months[$mon] $year, en $cty[1]

$err

$zip $cty[0],
le $days[$wday] $mday $months[$mon] $year, en $cty[1]