| Negócios :: GESTPAYCRYPTHS. Business :: GESTPAYCRYPTHS é uma interface Perl para o sistema de pagamento on-line italiano Gestpay. |
Baixe Agora |
Negócios :: GESTPAYCRYPTHS. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Marco Gazerro
- Site do editor:
- http://search.cpan.org/~gazerro/Business-GestPayCrypt-0.41/lib/Business/GestPayCrypt.pm
Negócios :: GESTPAYCRYPTHS. Tag
Negócios :: GESTPAYCRYPTHS. Descrição
Negócio :: GESTPayCryPths é uma interface Perl para o sistema de pagamento on-line italiano Gestpay. Sinopse # # Solicitar # Use Business :: GestPayCryPths; Meu $ OBJ = NEW NEGÓCIO :: GESTPAYCRYPTHS; $ OBJ-> SetShoplogin ($ Shoplogin); $ obj-> Setcurrency ($ moeda); $ obj-> Setamount (valor $); $ Obj-> SetShoptransactionID ($ ShopTransationID); $ obj-> SetLanguage ($ idioma); $ obj-> criptografar (); if ($ obj-> getErrorCode ()) {imprimir 'erro:', $ obj-> geterrorcode (), '', $ objcrypt-> geterrordescription (); } else {meu $ a = $ obj-> getshoplogin (); meu $ b = $ obj-> getencryptedstring (); Imprimir QQ ~ ~; } # # Resposta # $ OBJ-> SetShoplogin ($ Shoplogin); $ Obj-> SetencryPtedString ($ B); $ obj-> descriptografar (); if ($ objcrypt-> getErrorCode ()) {Imprimir 'erro:', $ obj-> geterrcode (), '', $ objcrypt-> geterrordescription (); } else {Imprimir 'ShopLogin:', $ obj-> getshoplogin (), "N"; Imprimir 'moeda:', $ obj-> getcurrency (), "n"; Imprimir 'quantidade:', $ obj-> getAmount (), "n"; Imprimir 'ShopTransactionID:', $ obj-> getshoptransactionid (), "n"; Imprimir 'Nome do Comprar:', $ Obj-> GetBuyername (), "N"; Imprimir 'Buyeremail:', $ Obj-> GetBuyeremail (), "N"; Imprimir 'TransactionResult:', $ Obj-> GetTransactionResult (), "N"; Imprimir 'Autorização:', $ Obj-> GetAuthorizationCode (), "N"; Imprimir 'BankTransactionID:', $ obj-> getbanktransactionID (), "N"; Imprimir 'errorCode:', $ obj-> geterrorcode (), "n"; Imprimir 'errordescription:', $ obj-> geterrordescription (), "n"; Imprimir 'Alertcode:', $ obj-> getalertcode (), "n"; Imprimir 'AlertDescription:', $ Obj-> GetalertDescription (), "N"; Imprimir 'CustomInfo:', $ obj-> getCustominfo (), "n"; } Requisitos: · Perl.
Negócios :: GESTPAYCRYPTHS. Software Relacionado