Business::GestPayCrypt

Business::GestPayCrypt is a Perl interface to the Italian online payment system GestPay.
Download

Business::GestPayCrypt Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Marco Gazerro
  • Publisher web site:
  • http://search.cpan.org/~gazerro/Business-GestPayCrypt-0.41/lib/Business/GestPayCrypt.pm

Business::GestPayCrypt Tags


Business::GestPayCrypt Description

Business::GestPayCrypt is a Perl interface to the Italian online payment system GestPay. Business::GestPayCrypt is a Perl interface to the Italian online payment system GestPay.SYNOPSIS # # Request # use Business::GestPayCrypt; my $obj = new Business::GestPayCrypt; $obj->SetShopLogin($ShopLogin); $obj->SetCurrency($Currency); $obj->SetAmount($Amount); $obj->SetShopTransactionID($ShopTransationID); $obj->SetLanguage($Language); $obj->Encrypt(); if ( $obj->GetErrorCode() ) { print 'Error: ', $obj->GetErrorCode(), ' ', $objCrypt->GetErrorDescription(); } else { my $a = $obj->GetShopLogin(); my $b = $obj->GetEncryptedString(); print qq~ ~; } # # Response # use Business::GestPayCrypt; my $obj = new Business::GestPayCrypt; $obj->SetShopLogin($ShopLogin); $obj->SetEncryptedString($b); $obj->Decrypt(); if ( $objCrypt->GetErrorCode() ) { print 'Error: ', $obj->GetErrorCode() , ' ', $objCrypt->GetErrorDescription(); } else { print 'ShopLogin : ', $obj->GetShopLogin(), "n"; print 'Currency :', $obj->GetCurrency(), "n"; print 'Amount : ', $obj->GetAmount(), "n"; print 'ShopTransactionID : ', $obj->GetShopTransactionID(), "n"; print 'BuyerName : ', $obj->GetBuyerName(), "n"; print 'BuyerEmail : ', $obj->GetBuyerEmail(), "n"; print 'TransactionResult : ', $obj->GetTransactionResult(), "n"; print 'AuthorizationCode : ', $obj->GetAuthorizationCode(), "n"; print 'BankTransactionID : ', $obj->GetBankTransactionID(), "n"; print 'ErrorCode : ', $obj->GetErrorCode(), "n"; print 'ErrorDescription : ', $obj->GetErrorDescription(), "n"; print 'AlertCode : ', $obj->GetAlertCode(), "n"; print 'AlertDescription : ', $obj->GetAlertDescription(), "n"; print 'CustomInfo : ', $obj->GetCustomInfo(), "n"; } Requirements: · Perl


Business::GestPayCrypt Related Software

About SoftwareSea