| Negocios :: GestpayCrypt Business :: GestpayCrypt es una interfaz Perl para el sistema de pago en línea italiano Gestpay. |
Descargar ahora |
Negocios :: GestpayCrypt Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Marco Gazerro
- Sitio web del editor:
- http://search.cpan.org/~gazerro/Business-GestPayCrypt-0.41/lib/Business/GestPayCrypt.pm
Negocios :: GestpayCrypt Etiquetas
Negocios :: GestpayCrypt Descripción
Negocio :: GestpayCrypt es una interfaz Perl al sistema de pago en línea italiano Gestpay. Negocio :: GestpayCrypt es una interfaz Perl para el sistema de pago en línea italiano Gestpay.Synopsis # # Solicitud # Use Business :: GestpayCrypt; My $ obj = New Business :: GestpayCrypt; $ obj-> setshoplogin ($ shoplogin); $ obj-> setCurrency ($ moneda); $ obj-> setamount ($ cantidad); $ obj-> setshoptransactionid ($ shoptransationid); $ obj-> setlanguage ($ idioma); $ obj-> cifrado (); if ($ obj-> geterrorcode ()) {impresión 'error:', $ obj-> geterrorcode (), '', $ objcrypt-> geterrordescripción (); } else {My $ A = $ obj-> getshoplogin (); My $ b = $ obj-> getencryptedstring (); imprimir qq ~ ~; } # # Respuesta # Usa el negocio :: GestpayCrypt; My $ obj = New Business :: GestpayCrypt; $ obj-> setshoplogin ($ shoplogin); $ obj-> sedencryptedstring ($ b); $ obj-> descifrar (); if ($ objcrypt-> getErrorCode ()) {Imprimir 'Error:', $ obj-> getErrorCode (), '', $ objcrypt-> geterrordescripción (); } else {imprimir 'ShopLogin:', $ obj-> getshoplogin (), "n"; Imprimir 'Moneda:', $ obj-> getcurrency (), "n"; imprimir 'cantidad:', $ obj-> getamount (), "n"; Imprimir 'ShopTransActionID:', $ obj-> getshoptransactionid (), "n"; Imprimir 'Nombre de compra:', $ obj-> getbuyname (), "n"; Imprimir 'BuyerEmail:', $ obj-> getBuyeremail (), "n"; Imprimir 'TransactionResult:', $ obj-> GetTransActionResult (), "N"; Imprimir 'Autorización Code:', $ obj-> getAuthorizationCode (), "N"; Imprimir 'BankTransActionId:', $ obj-> getbanktransactionid (), "n"; Imprimir 'error de error:', $ obj-> getErrorCode (), "N"; Imprimir 'Errordescripción:', $ obj-> geterrordescripción (), "n"; Imprimir 'AlertCode:', $ obj-> getalertcode (), "n"; Imprimir 'alertaDescripción:', $ obj-> getalertdescripción (), "n"; Imprimir 'personalinfo:', $ obj-> getcustominfo (), "n"; } Requisitos: · Perl
Negocios :: GestpayCrypt Software relacionado