ºñÁî´Ï½º :: GestPaycrypt.

Business :: GestPaycrypt´Â ÀÌÅ»¸®¾Æ ¿Â¶óÀÎ ÁöºÒ ½Ã½ºÅÛ GestPayÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ºñÁî´Ï½º :: GestPaycrypt. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

XML :: ±ÔÄ¢

XML :: ±ÔÄ¢Àº ÀÙ¿¡¼­ ½ÃÀÛÇÏ´Â ±ÔÄ¢¿¡ µû¶ó XML ¹× ÇÁ·Î¼¼½º ű׸¦ ±¸¹® ºÐ¼® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

182

´Ù¿î·Îµå

svggraph.

SVGGraph´Â SVG ±×·¡ÇÁ / ´ÙÀ̾î±×·¥ / Â÷Æ® / Ç÷ÔÀ» »ý¼ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ...

146

´Ù¿î·Îµå