51 lines
1.8 KiB
Perl
Executable File
51 lines
1.8 KiB
Perl
Executable File
#!/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
|