El negocio:: GestPayCrypt es una interface Perl al sistema de pago en línea italiano GestPay.

SINOPSIS

#
# Petición
#

use el Negocio:: GestPayCrypt;
mi $obj = nuevo Negocio:: GestPayCrypt;

$obj-> SetShopLogin ($ShopLogin);
$obj-> SetCurrency ($Currency);
$obj-> SetAmount ($Amount);
$obj-> SetShopTransactionID ($ShopTransationID);
$obj-> SetLanguage ($Language);

El $obj-> Cifra ();

si ($obj-> GetErrorCode ()) {
Error de letra: $obj-> GetErrorCode (),
$objCrypt-> GetErrorDescription ();
} más {
mi $a = $obj-> GetShopLogin ();
mi $b = $obj-> GetEncryptedString ();
imprima qq ~

~;
}

#
# Respuesta
#

use el Negocio:: GestPayCrypt;
mi $obj = nuevo Negocio:: GestPayCrypt;

$obj-> SetShopLogin ($ShopLogin);
$obj-> SetEncryptedString ($b);

El $obj-> Descifra ();

si ($objCrypt-> GetErrorCode ()) {
Error de letra: $obj-> GetErrorCode (),
$objCrypt-> GetErrorDescription ();
} más {
letra ShopLogin: $obj-> GetShopLogin (), "n";
Dinero de letra: $obj-> GetCurrency (), "n";
Cantidad de letra: $obj-> GetAmount (), "n";
letra ShopTransactionID: $obj-> GetShopTransactionID (), "n";
letra BuyerName: $obj-> GetBuyerName (), "n";
letra BuyerEmail: $obj-> GetBuyerEmail (), "n";
letra TransactionResult: $obj-> GetTransactionResult (), "n";
letra AuthorizationCode: $obj-> GetAuthorizationCode (), "n";
letra BankTransactionID: $obj-> GetBankTransactionID (), "n";
letra ErrorCode: $obj-> GetErrorCode (), "n";
letra ErrorDescription: $obj-> GetErrorDescription (), "n";
letra AlertCode: $obj-> GetAlertCode (), "n";
letra AlertDescription: $obj-> GetAlertDescription (), "n";
letra CustomInfo: $obj-> GetCustomInfo (), "n";
}