| ºñÁî´Ï½º :: GestPaycrypt. Business :: GestPaycrypt´Â ÀÌÅ»¸®¾Æ ¿Â¶óÀÎ ÁöºÒ ½Ã½ºÅÛ GestPayÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ºñÁî´Ï½º :: GestPaycrypt. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Marco Gazerro
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~gazerro/Business-GestPayCrypt-0.41/lib/Business/GestPayCrypt.pm
ºñÁî´Ï½º :: GestPaycrypt. ű×
ºñÁî´Ï½º :: GestPaycrypt. ¼³¸í
Business :: GestPaycrypt´Â ÀÌÅ»¸®¾Æ ¿Â¶óÀÎ ÁöºÒ ½Ã½ºÅÛ GestPayÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. Business :: GestPaycrypt´Â ÀÌÅ»¸®¾Æ ¿Â¶óÀÎ ÁöºÒ ½Ã½ºÅÛ¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. Synopsis # # request # ºñÁî´Ï½º »ç¿ë :: GestPaycrypt; MY $ OBJ = »õ·Î¿î ºñÁî´Ï½º :: GestPaycrypt; $ obj-> setshoplogin ($ shoplogin); $ obj-> setcurrency ($ currency); $ obj-> setAmount ($ ±Ý¾×); $ obj-> setshoptransactionId ($ shopTransationId); $ obj-> setlanguage ($ ¾ð¾î); $ obj-> ¾ÏÈ£È (); if ($ obj-> getErrorCode ()) {print '¿À·ù :', $ obj-> getErrorCode (), '', $ objcrypt-> getErrorDescription (); } else {my $ a = $ obj-> getShoplogin (); ³» $ b = $ obj-> getEncryptedString (); QQ Àμâ ~ ~; } # # ÀÀ´ä # ºñÁî´Ï½º »ç¿ë :: GestPaycrypt; MY $ OBJ = »õ·Î¿î ºñÁî´Ï½º :: GestPaycrypt; $ obj-> setshoplogin ($ shoplogin); $ obj-> setEncryptedString ($ b); $ obj-> decrypt (); if ($ objcrypt-> getErrorCode ()) {print '¿À·ù :', $ obj-> getErrorCode (), '', $ objcrypt-> getErrordescription (); } else {print 'shoplogin :', $ obj-> getShoplogin (), "n"; Àμâ 'ÅëÈ :', $ obj-> getCurrency (), "n"; '±Ý¾× :', $ obj-> getAmount (), "n"; 'ShopTransactionId :', $ obj-> getShopTransactionId (), "n"; 'buyername :', $ obj-> getBuyerName (), "n"À» ÀμâÇϽʽÿÀ; 'BuyerEmail :', $ obj-> getBuyerEmail (), "n"; 'transactionResult :', $ obj-> getTransactionResult (), "n"; 'AuthorizationCode :', $ obj-> getAuthorizationCode (), "n"; 'banktransactionId :', $ obj-> getBankTransactionId (), "n"; 'errorcode :', $ obj-> getErrorCode (), "n"À» ÀμâÇϽʽÿÀ. 'errordescription :', $ obj-> getErrordescription (), "n"; 'alertcode :', $ obj-> getAlertCode (), "n"À» ÀμâÇϽʽÿÀ. Àμâ 'AlertDescription :', $ obj-> getAlertDescription (), "n"; 'CustomInfo¸¦'Àμâ, $¸¦ OBJ> GetCustomInfo (), "N"; } ¿ä±¸ »çÇ× : ¡¤ Perl.
ºñÁî´Ï½º :: GestPaycrypt. °ü·Ã ¼ÒÇÁÆ®¿þ¾î