Business::GestPayCrypt 0.41

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:	No special requirements
Platforms:	Linux
Keyword:	Businessgestpaycrypt,  Gestpay,  Gestpaycrypt,  Geterrorcode,  Geterrordescription,  Italian,  Online,  Online Payment,  Online Payment System,  Payment System,  Perl,  Print,  System
Users rating:	0/10