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";
}