[ic] Credit Card Payement

[Idoménée <idomenee2@wanadoo.fr>]

Help me, please !
My bank gives me the below perl test code to connect my catalog with their credit card control URL.
On my system, the binary sips_request is in the directory /bin

I have copied this code on a page to test, it generates the error :

Safe : open trapped by operation mask (eval 677) line 35

Where are the errors ?

Thank you

Daniel ROULLIERE

Millau  FRANCE

[perl]

sub sips_payment_request   {

my $path_bin = "/bin";


return'
<B>SHERLOCKS - Paiement Sécurisé sur Internet</B><br>
<H1>Test du plug-in</H1><br>';




 # initialisation des parametres dynamiques de la transactions
 # si un parametre n'est pas valorise, on l'initialise a NULL
my $merchant_id =  "014295303911111";
my  $amount = "12500";
my  $currency_code = "250";
my $language = "fr";
my  $return_context = "your_orderid";
my  $receipt_complement = "NULL";
my  $caddie = "NULL";
my  $data = "NULL";

    # load module sips_request

 my $sips_parm = "$merchant_id $amount $currency_code $language $return_context $receipt_complement $caddie $data";
 return'$sips_parm';


 open(INFO,"$path_bin/sips_request $sips_parm|");

 @lines = <INFO>;
 close(INFO);

 my $result_sips_request = $lines[0];
 @result_sips_request_tab = split("!",$result_sips_request);


 # recuperation des parametres

 my $sips_return_code = $result_sips_request_tab[1];
 my $sips_error_message = $result_sips_request_tab[2];
my  $sips_html_message = $result_sips_request_tab[3];


 # analyze return code

 if ( ( $sips_return_code != 0 ) || ( $sips_return_code eq "" ) )
 	{
	return'(<br><hr><br>)';
	return'(<center><b><h3>)';
	return '(Erreur appel request)';
	return '(<br><br>)';
	return '(Error message : $sips_error_message )';
	return '(</h3></b></center>)';
	return '(<br><hr><br>)';

	return;
	};



 # Display cards logos and payement screen

 return'(<center>)';
 return'(<H3>Choisissez maintenant un type de paiement ci-dessous :</H3>)';
 return'(</center>)';
 return'(<br><hr><br>)';
 return'($sips_html_message)';
 return'(<br><br>)';
}
 return;
 [/perl]
[calc]sips_payment_request[/calc]


_______________________________________________
interchange-users mailing list
interchange-users@interchange.redhat.com
http://interchange.redhat.com/mailman/listinfo/interchange-users