| Negócios :: OnlinePayment :: Transfirstelink Business :: OnlinePayment :: Transfirstelink é um trasfirst Elink Backend para Business :: OnlinePayment |
Baixe Agora |
Negócios :: OnlinePayment :: Transfirstelink Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Jeff Finucane
- Site do editor:
- http://search.cpan.org/~jef/Business-OnlinePayment-TransFirsteLink-0.04/TransFirsteLink.pm
Negócios :: OnlinePayment :: Transfirstelink Tag
Negócios :: OnlinePayment :: Transfirstelink Descrição
Negócios :: OnlinePayment :: Transfirstelink é um trasfirst Elink Backend para Business :: OnlinePayment Negócios :: OnlinePayment :: Transfirstelink é um trasfirst Elink Backend para Business :: OnlinePaymentsynopsis Use Business :: OnlineSeyment; Meu $ TX = Novo Negócio :: OnlinePayment ('Transfirstelink', 'MerchantCustservnum' => "8005551212",); # Consulte a documentação do módulo para obter detalhes sobre conteúdo () $ tx-> Conteúdo (tipo => 'cc', ação => 'AUTORIZAÇÃO NORMAL', descrição => 'Business :: OnlinePayment :: Transfirstelink teste', quantidade => ' 49.95 ', Invoice_number =>' 100100 ', Customer_id =>' jef ', nome =>' jeff finucane ', endereço =>' 123 Anystreet ', cidade =>' qualquer lugar ', estado =>' ga ', zip => '30004', e-mail => 'transfirst@weasellips.com', card_number => '41111111111111111', expiração => '12 / 09 ', cvv2 =>' 123 ', order_number =>' string ',); $ tx-> enviar (); if ($ tx-> is_success ()) {print ("cartão processado com sucesso:", $ TX-> AUTORIZAÇÃO, "N", "Número do pedido:", $ TX-> Order_number, "N", "N", "N", "N" ", $ tx-> cvv2_response," n "," código AVS: ", $ tx-> avs_code," n ",); } else {my $ info = ""; $ info = "(incompatibilidade cvv2)" se ($ tx-> result_code == 114); Imprimir ("Cartão foi rejeitado:", $ tx-> error_message, $ Info, "N", "Número do pedido:", $ tx-> Order_number, "n",); } Requisitos: · Perl.
Negócios :: OnlinePayment :: Transfirstelink Software Relacionado