| Business :: OnlinePayment :: InternetSecure. InternetSecure Backend for Business :: OnlinePayment |
Áö±Ý ´Ù¿î·Îµå |
Business :: OnlinePayment :: InternetSecure. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Frederic Briere
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~fbriere/
Business :: OnlinePayment :: InternetSecure. ű×
Business :: OnlinePayment :: InternetSecure. ¼³¸í
Business ¿ë InternetSecure ¹é¿£µå :: OnlinePayment. Business :: OnlinePayment :: InternetSecure´Â InternetSecure.see Business :: OnlinePaymentÀÇ interneTsecure.see Business :: OnlinePayment¸¦ ÅëÇØ ¿Â¶óÀÎ ½Å¿ë Ä«µå °áÁ¦¸¦ ó¸® ÇÒ ¼öÀÖ´Â Perl ±¸ÇöÀÔ´Ï´Ù. ...¿¡ $ TXN = »õ·Î¿î Business :: OnlinePayment 'InternetSecure', Merchant_ID => '0000'; $ txn-> ÄÜÅÙÃ÷ (action => 'normal authorization', type => 'ºñÀÚ', # ¼±ÅÃÀû card_number => '4111111111111111111111111111111111111111', ¸¸·á => '2004-07', cvv2 => '000', # ¼±ÅÃÀû À̸§ => "fr \ x {e9} d \ x {e9} ric bri \ x {e8} Àç", ȸ»ç => '', ÁÖ¼Ò => '123 ½ºÆ®¸®Æ®', µµ½Ã => '¸ÞÆ®·ÎÆú¸®½º', ÁÖ = > 'zz', zip => 'a1a 1a1', country => 'ca', phone => '(555) 555-1212', À̸ÞÀÏ => 'fbriere@fbriere.net', ±Ý¾× => 49.95, ÅëÈ = > 'CAD', ¼¼±Ý => 'GST PST', ¼³¸í => 'Å×½ºÆ® °Å·¡',); $ txn-> Á¦Ãâ; if ($ txn-> is_success) {print "Ä«µå°¡ ¼º°øÀûÀ¸·Î 󸮵˴ϴÙ." $ tx-> ½ÂÀÎ. "\N"; } else {print "Ä«µå°¡ °ÅºÎµÇ¾ú½À´Ï´Ù :". $ tx-> error_message. "\N"; } ¿ä±¸ »çÇ× : ¡¤ Perl.
Business :: OnlinePayment :: InternetSecure. °ü·Ã ¼ÒÇÁÆ®¿þ¾î