±ÝÀ¶ :: ÀºÇà :: SUMOMONVERKKOMAKSUT.

ÇɶõµåÀÇ Suomen VerkkomaksutÀÇ JSON API¸¦ ÅëÇÑ ÇÁ·Î¼¼½º ÁöºÒ
Áö±Ý ´Ù¿î·Îµå

±ÝÀ¶ :: ÀºÇà :: SUMOMONVERKKOMAKSUT. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Oskari Ojala
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~okko/

±ÝÀ¶ :: ÀºÇà :: SUMOMONVERKKOMAKSUT. ű×


±ÝÀ¶ :: ÀºÇà :: SUMOMONVERKKOMAKSUT. ¼³¸í

ÇɶõµåÀÇ Suomen VerkkomaksutÀÇ JSON API¸¦ ÅëÇÑ ÇÁ·Î¼¼½º ÁöºÒ ±ÝÀ¶ :: ÀºÇà :: SuomomenVerkkomaksutÀº ¿Â¶óÀÎÀ¸·Î ¸ðµç Çɶõµå ÀºÇà ¿Â¶óÀο¡¼­ ÁöºÒÀ» ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù : Nordea, Osuuspankki, Sampo, Tapiola, Aktia, Nooa, Paikallisosuuspankit, Sstpankit, Handelsbanken, S-Pankki, landsbanken, ºñÀÚ, ºñÀÚ ÀüÀÚ , Luottokunta ¹× PayPalÀ» ÅëÇÑ ¸¶½ºÅÍ Ä«µå ½Å¿ë Ä«µå, ¼öÁý°¡ ¹× klarna.synopsis¸¦ ÅëÇÑ Ã»±¸ ±ÝÀ¶ :: ÀºÇà :: Suomomenverkomaksut; # »õ·Î¿î ÁöºÒ ÀÛ¼º My $ TX = Finance :: Bank :: Suomenverkkomaksut-> New ({Merchant_ID => xxx ', Merchant_Secret =>'YYY '}); # http://docs.verkkomaksut.fi/ ÇÊµå »ç¾ç $ TX-> ÄÜÅÙÃ÷ ({orderNumber => 1, ReferenceNumber => 13, ¼³¸í => 'ÁÖ¹® 1', ÅëÈ­ => 'EUR', locale => 'fi_fi', urlset => {success => $ c-> uri_for ( '/ payment / success).'/ ', ½ÇÆÐ => $ c-> uri_for ('/ pay / painted ').' / ', º¸·ùÁßÀÎ => $ C-> URI_FOR ('/ payment / pending ').'/ ', Notification => $ C-> URI_FOR ('/ payment / notification '). /',}, orderdetails => {includevat => 1, contact => {firstname => 'first', lastname => 'last', À̸ÞÀÏ => 'first@example.com', there => '555123', ÁÖ¼Ò => {street => ' Street 123 ', Postalcode =>'00100 ', PostalOffice =>'Helsinki ', Country => fi',}}, products => ,},},] ...¿¡ # °³¹ß ÁßÀÏ ¶§ # 1·Î ¼³Á¤, »ý»ê $ TX-> TEST_TRANSACTION (1); ³» $ submit_result = $ tx-> submit (); if ($ submit_result) {print "·Î °¡½Ê½Ã¿À." $ tx-> url (). "ÁÖ¹® ¹øÈ£¸¦ ÁöºÒÇÏ´Â $ URL". $ tx-> order_number ()., °ð º¸ÀÚ. '; } else {die '´Â ÁöºÒÀ» »ý¼ºÇÏÁö ¸øÇß½À´Ï´Ù.'; } # »ç¿ëÀÚ°¡ ¹Ýȯ ÇÒ ¶§ ÁöºÒ È®ÀÎ ¶Ç´Â ¾Ë¸² ÁÖ¼Ò°¡ ¿äûÀ» ¹ÞÀ¸¸é $ TX = Finance :: Bank :: SuomenVerkkomaksut-> New ({merchant_id => xxx ', Merchant_Secret =>'YYY '})); MY $ CHECKSUM_MATCHES = $ TX-> verify_return ({order_number => $ c-> req-> params -> {order_number}, timestamp => $ c-> req-> params -> {timestamp}, pay => $ c -> req-> params -> {paid}, method => $ c-> req-> params -> {method}, return_authcode => $ c-> req-> params -> {return_authcode}}); IF ($ CHECKSUM_MATCHES) {# ¹Ýȯ ÁÖ¼Ò¿¡ µû¶ó ÁöºÒ µÈ ÁöºÒ (RETURN_ADDRESS·Î ¸®ÅÏ µÈ °æ¿ì), º¸·ùÁßÀÎ °æ¿ì (pending_address·Î ¹Ýȯ µÈ °æ¿ì) ¶Ç´Â Ãë¼Ò µÈ °æ¿ì (Ãë¼ÒµÊ¿¡ ¹Ýȯ µÈ °æ¿ì). if ($ URL eq $ reign_url) {# ship_products (); }} else {print "üũ¼¶ ºÒÀÏÄ¡, 󸮵ÇÁö ¾ÊÀ½ÀÌ ¾Æ´Ï¶ó. ÀÌ°ÍÀ» ¿À·ù¶ó°í »ý°¢ÇÏ´Â °æ¿ì °í°´ ¼­ºñ½º¿¡ ¹®ÀÇÇϽʽÿÀ."; } ¿ä±¸ »çÇ× : ¡¤ Perl.


±ÝÀ¶ :: ÀºÇà :: SUMOMONVERKKOMAKSUT. °ü·Ã ¼ÒÇÁÆ®¿þ¾î