#!/usr/bin/perl
# La ligne precedente doit obligatoirement se trouver sur la premiere ligne du programme
# Elle indique le chemin du module interpreteur Perl

	#=================================================================#
	#								  #
	#	call_request : 	Appel du module d appel a paiement	  #
	#								  #
	#	(langage Perl, environnement UNIX, V4 Plug-in)		  #
	#								  #
	#=================================================================#

# utilisation du module CGI.pm standard (lecture des parametres d'entree)
use CGI qw(:standard);
use DBI;

require "cgi-lib.pl";

	# recuperation des donnees du formulaire
&ReadParse(*query);
$ID_client_el = $query{'ID_client_el'};
$nocmde = $query{'nocomde'};

$prom05_code = "prom05";
$prom05 = 5;
$prom10_code = "prom10";
$prom10 = 10;
$prom15_code = "prom15";
$prom15 = 15;
$prom20_code = "prom20";
$prom20 = 20;


# On fixe le numero de commerce dans une variable
# Pour l'instant, c'est le numero de test
$id_commercant="029800266211111";


# initialisation variables
# Chemin d'acces aux modules a parametrer (UNIX)
# NOUVEAU CHEMIN DU REPERTOIRE bin
$dir_bin="/ctt/usr/fela/Proj_Site_Marchand/citelis_tar/apipayment/bin";

#chemin des fichiers transactions
$dir_transactions = "/ctt/usr/fela/Proj_Site_Marchand/Site_Pages/Version2/transactions";

# affichage du debut du code HTML
print  "Content-type: text/html\n\n";
print  "<HTML><HEAD>";
print  "<TITLE>Choix de la carte de paiement</TITLE>";
print  "</HEAD>";
print  "<BODY  BGCOLOR=#FFFFFF text=#000000>";
print  "identifiant du client : $ID_client_el\n";

$message = "";

# recuperation des donnees relatives a la commande

	# reprendre le calepin final
	
	# se connecter a la base
$dbh = DBI->connect("dbi:Pg:dbname=s_marchand", postgres, ) or die $DBI::errstr;

	# recuperer les produits selectionnes par le client concerne
$cursor = $dbh->prepare( 	"SELECT pa.code_famille, pa.code_produit, pr.denomination, pa.qte, pr.prix_ht " .
				"FROM produits pr, panier pa " .
				"WHERE pa.id_client_el like '$ID_client_el' " .
				"AND pa.code_famille = pr.code_famille " .
				"AND pa.code_produit= pr.code_produit" );
				
$cursor->execute;
	
@lgcom = $cursor->fetchrow;
if ($lgcom[0] ne ""){
	$item1_nb = $lgcom[3];
	$item1_label = $lgcom[2];
	$item1_price = $lgcom[4];
}

@lgcom = $cursor->fetchrow;
if ($lgcom[0] ne ""){
	$item2_nb = $lgcom[3];
	$item2_label = $lgcom[2];
	$item2_price = $lgcom[4];
}

@lgcom = $cursor->fetchrow;
if ($lgcom[0] ne ""){
	$item3_nb = $lgcom[3];
	$item3_label = $lgcom[3];
	$item3_price = $lgcom[4];
}

$cursor->finish;

	# retrouver le client qui effectue la commande
$client = $dbh->prepare(	"SELECT bc.email, bc.nom, bc.prenom, bc.societe , bc.adr1, bc.adr2, bc.tel, bc.cpt, bc.ville" .
				"FROM base_clients bc, client_en_ligne cl " .
				"WHERE cl.id_client_el = '$ID_client_el' " .
				"AND cl.num_client = bc.num_client " );
$client->execute;

@coordonnees = $client->fetchrow;

($email,$nom,$prenom,$societe,$adr1,$adr2,$telephone,$codepostal,$ville) = @coordonnees;

$client->finish;

	# se deconnecter de la base
$dbh->disconnect;

$adresse = "$adr1" . " , " . "$adr2";
$pays = 'France';

$flaglivraison = 'non' ; #param('flaglivraison');
$livraison = '' ; #param('livraison');

$paiement = $query{'paiement'};
if ($paiement eq "cheque"){
	$paiementcheque = 'oui';
}else{
	$paiementcheque = 'non';
}

$langage = 'fr' ; #param('langage');
$promo = '' ;#param('promo');

# langue (permet d'afficher la page en francais ou anglais)
if ($langage eq "fr") {
   $phrase1 = "a";
   $phrase2 = "Commande";
   $phrase3 = "frais de livraison";
   $phrase4 = "<font size=\"\+2\"><b>paiement par carte:</b></font><br> veuillez selectionner votre carte de paiement:";
   $phrase5 = "<font size=\"\+2\"><b>Paiement par cheque:</b></font><br> veuillez envoyer votre cheque &agrave; l'ordre d'AIRTRIA &agrave; l'adresse suivante:";
   }
else {
   $langage = "en";
   $phrase1 = "at";
   $phrase2 = "BILL";
   $phrase3 = "shipment";
   $phrase4 = "<font size=\"\+2\"><b>Pay with card:</b></font><br> please select your credit card:";
   $phrase5 = "<font size=\"\+2\"><b>Pay with cheque:</b></font><br> please send your cheque ordered to AIRTRIA to:";
   }

# calcul du prix de livraison
$nb_article = $item1_nb + $item2_nb + $item3_nb + $item4_nb + $item5_nb + $item6_nb + $item7_nb;
$livraison_tot = $livraison * $nb_article;
if ($flaglivraison eq 'non'){
   $livraison_tot = 0;
   }

$montant2 = $item1_nb * $item1_price;
$montant2 = $montant2 + $item2_nb * $item2_price;
$montant2 = $montant2 + $item3_nb * $item3_price;
$montant2 = $montant2 + $item4_nb * $item4_price;
$montant2 = $montant2 + $item5_nb * $item5_price;
$montant2 = $montant2 + $item6_nb * $item6_price;
$montant2 = $montant2 + $item7_nb * $item7_price;

$montant2 = $montant2 + $livraison_tot;

# calcul des promotions
if ($promo ne "")
   {
   if ($promo eq $prom05_code) {
      $promo = $prom05;
      }
   if ($promo eq $prom10_code) {
      $promo = $prom10;
      }
   if ($promo eq $prom15_code) {
      $promo = $prom15;
      }
   if ($promo eq $prom20_code) {
      $promo = $prom20;
      }
   $montantprom = $montant2 * $promo / 100;
   $montantprom = sprintf("%.2f",$montantprom);
   $montant2 = $montant2 - $montantprom;
   }
 
# calcul du montant en centime;
$montant = $montant2 * 100;

$numero = sprintf("%04d%#02d%#02d-%#02d%#02d%#02d",(localtime)[5]+1900,(localtime)[4]+1,(localtime)[3],(localtime)[2],(localtime)[1],(localtime)[0]);

$fichier_transactions="$dir_transactions/transac.$numero";
open(FILE,">> $fichier_transactions") || print "Pb d'ouverture";

print FILE "prenom...........: $prenom \n";
print FILE "nom..............: $nom\n";
print FILE "email............: $email\n";
print FILE "societe..........: $societe\n";
print FILE "adresse..........: $adresse\n";
print FILE "codepostal.......: $codepostal\n";
print FILE "ville............: $ville\n";
print FILE "pays.............: $pays\n";
print FILE "telephone........: $telephone\n\n";

print FILE "----------- COMMANDE ----------------\n";
print FILE "$item1_nb $item1_label a $item1_price \n";
print FILE "$item2_nb $item2_label a $item2_price \n";
print FILE "$item3_nb $item3_label a $item3_price \n";
print FILE "$item4_nb $item4_label a $item4_price \n";
print FILE "$item5_nb $item5_label a $item5_price \n";
print FILE "$item6_nb $item6_label a $item6_price \n";
print FILE "$item7_nb $item7_label a $item7_price \n";
print FILE "---------------------------------------\n";
print FILE "Frais de port..........: $livraison_tot\n";
print FILE "montant total..........: $montant2\n";
print FILE "\n\n";
close (FILE);

print  "<CENTER><font size=\"\+2\"><b>$phrase2</b></font><br><BR>\n";


if ($item1_label ne "") {
	print  "$item1_nb $item1_label $phrase1 $item1_price euros<BR>";
}
if ($item2_label ne "") {
	print  "$item2_nb $item2_label $phrase2 $item2_price euros<BR>";
}
if ($item3_label ne "") {
	print  "$item3_nb $item3_label $phrase3 $item3_price euros<BR>";
}

if ($promo ne "")
   {
   print  "promotion de $promo pour cent soit $montantprom euros<BR>";
   }
#print  "$phrase3: $livraison euros x $nb_article = $livraison_tot euros<BR>";
print  "<br>";
print  " TOTAL: $montant2 euros<br>";
print  "<hr>";
print  "prenom...........: $prenom <br>";
print  "nom..............: $nom<br>";
print  "email............: $email<br>";
print  "societe..........: $societe<br>";
print  "adresse..........: $adresse<br>";
print  "codepostal.......: $codepostal<br>";
print  "ville............: $ville<br>";
print  "pays.............: $pays<br>";
print  "telephone........: $telephone<br><br>";
print  "</CENTER><BR><hr>";

print  "$phrase4<br>";
#Appel du module sips_request avec les parametres :
#sips_request <merchant_id> <montant> <currency_code> <language_code> 
#	      	   <return_context> <receip_complement> <caddie> <data>
#
# Seulement 2 parametres obligatoires  : <merchant_id> et <amount>
# Pour les parametres optionnels, si non renseignes placer la valeur NULL

$sips_result=`$dir_bin/sips_request $id_commercant $montant NULL $langage $numero NULL NULL NULL`;

# Lecture des parametres de sortie :
# On decoupe sips_result (fonction split, le separateur entre chaque champ etant un !)
# puis on place chaque partie dans un tableau @param
# Consulter la doc pour connaitre la place des parametres de sortie de sips_request

@param=split(/!/, $sips_result);
$sips_code=$param[1];
$sips_error=$param[2];
$sips_page=$param[3];

# En cas d erreur, affichage du message d erreur dans la page HTML
if ("$sips_code" == "-1") {
	print  "<br><hr><br>";
	print  "<center><b><h3>";
	print  "Erreur d appel ";
	print  "<br><br>";
	print  "Message d Erreur : $sips_error";
	print  "</h3></b></center>";
	#exit;
}

# Affichage de la page html (sips_page)
print  "<br>";
print  "$sips_page";
#print  "$sips_code";
#print  "$sips_erreur";

if ($paiementcheque eq "oui") {
   print  "<hr>$phrase5<br>";
   print  "<center><br>7, avenue Fulgence Bienvenue<br>22300 LANNION<br>FRANCE</center>";
   }
# Affichage de la fin de page de paiement 
print  "</BODY>";
print  "</HTML>";

# End of file