#!/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 de reponse normale	 #
	#								 #
	#	(langage Perl, environnement UNIX, V4 Plug-in)		 #
	#								 #
	#================================================================#

# Chemin d'acces aux modules a parametrer
# NOUVEAU CHEMIN DU REPERTOIRE bin
$dir_bin="/ctt/usr/fela/Proj_Site_Marchand/citelis_tar/apipayment/bin";
$URL_OK = "http://o2000/marchand/merci.html";
$URL_NOK = "http://o2000/marchand/nok.html";

# Appel du module sips_response : 
# sips_response <sips_response_message> 
# si pas de reponse, sips_response_message renseigne par le mot-cle NULL

$sips_result=`$dir_bin/sips_response NULL`;

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

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

#############################################################
# Analyse du code retour a autorisation et du code erreur   #
# 			A MODIFIER POUR CHAQUE SITE	    #
#############################################################
# -----------------------------------------------------------
# SI aucun probleme : acces au formulaire complet
if (("$sips_code" == "0")&&($sips_response_code eq "00")) {
	print "Location: $URL_OK\n\n";
}
# -----------------------------------------------------------
# SINON affichage d'une page HTML
else {
	print "Location: $URL_NOK\n\n";
}
# End of file