[bknr-cvs] manuel changed trunk/thirdparty/cl-paypal/

BKNR Commits bknr at bknr.net
Fri Sep 17 14:31:09 UTC 2010 

Revision: 4613
Author: manuel
URL: http://bknr.net/trac/changeset/4613

updated cl-paypal
U   trunk/thirdparty/cl-paypal/.git/index
U   trunk/thirdparty/cl-paypal/.git/logs/HEAD
U   trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop
U   trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop
A   trunk/thirdparty/cl-paypal/.git/objects/13/
A   trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290
A   trunk/thirdparty/cl-paypal/.git/objects/3a/
A   trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f
A   trunk/thirdparty/cl-paypal/.git/objects/b2/
A   trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988
U   trunk/thirdparty/cl-paypal/.git/refs/heads/develop
U   trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop
U   trunk/thirdparty/cl-paypal/cl-paypal.lisp

Modified: trunk/thirdparty/cl-paypal/.git/index
===================================================================
(Binary files differ)

Modified: trunk/thirdparty/cl-paypal/.git/logs/HEAD
===================================================================
--- trunk/thirdparty/cl-paypal/.git/logs/HEAD	2010-09-16 20:03:53 UTC (rev 4612)
+++ trunk/thirdparty/cl-paypal/.git/logs/HEAD	2010-09-17 14:31:09 UTC (rev 4613)
@@ -6,3 +6,4 @@
 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl <wesen at ruinwesen.com> 1284654667 +0200	commit: Added helper functions to handle running transactions
 f01f64981f2de889caf5127e8f21166c4c1ef164 7f1d6daa2bddd891225cca488fd1aff6737681cf Manuel Odendahl <wesen at ruinwesen.com> 1284667389 +0200	commit: Adapt to VERSION 63.0
 7f1d6daa2bddd891225cca488fd1aff6737681cf 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl <wesen at ruinwesen.com> 1284667395 +0200	commit: Run test server on localhost
+6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl <wesen at ruinwesen.com> 1284729628 +0200	commit: Parse answer of 63.0 requests

Modified: trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop
===================================================================
--- trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop	2010-09-16 20:03:53 UTC (rev 4612)
+++ trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop	2010-09-17 14:31:09 UTC (rev 4613)
@@ -5,3 +5,4 @@
 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl <wesen at ruinwesen.com> 1284654667 +0200	commit: Added helper functions to handle running transactions
 f01f64981f2de889caf5127e8f21166c4c1ef164 7f1d6daa2bddd891225cca488fd1aff6737681cf Manuel Odendahl <wesen at ruinwesen.com> 1284667389 +0200	commit: Adapt to VERSION 63.0
 7f1d6daa2bddd891225cca488fd1aff6737681cf 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl <wesen at ruinwesen.com> 1284667395 +0200	commit: Run test server on localhost
+6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl <wesen at ruinwesen.com> 1284729628 +0200	commit: Parse answer of 63.0 requests

Modified: trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop
===================================================================
--- trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop	2010-09-16 20:03:53 UTC (rev 4612)
+++ trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop	2010-09-17 14:31:09 UTC (rev 4613)
@@ -3,3 +3,4 @@
 98fc0087b8ef92c9fc00f76c53e72622b7724b5e 09d8a07cd56070f899e46edf79e714981f527ce2 Manuel Odendahl <wesen at ruinwesen.com> 1284540047 +0200	update by push
 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl <wesen at ruinwesen.com> 1284654694 +0200	update by push
 f01f64981f2de889caf5127e8f21166c4c1ef164 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl <wesen at ruinwesen.com> 1284667406 +0200	update by push
+6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl <wesen at ruinwesen.com> 1284729642 +0200	update by push

Added: trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290
===================================================================
(Binary files differ)


Property changes on: trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream

Added: trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f
===================================================================
--- trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f	                        (rev 0)
+++ trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f	2010-09-17 14:31:09 UTC (rev 4613)
@@ -0,0 +1,20 @@
+xíZ[oÜÆî«ô+L#sUS–ÝÔh6p!R\‰­JvŠ¢hYrVKˆK²äÐ’^ôÛû3¹Üµl÷ÑÛ˘˜ËwΙõ¢¨âûçß=ýCœ—I-Óky¥Ä<-p}WËb¶¿gj™—*I«2Ëu^•Â¼JTÓTˆùk¶/D<›\ݨÿvªÕnyH¼ƒj¥u|Œ4æU­–ºkÅ</s-›+1ž’7ª­«²UI«›¼Ä
+¿tôf¶m–Þnyc^‚˜Ë4UmÃxÖL„½’yùAyÃ7r­´j‚•ï 'ö5oT]5ZÄ…\/2)âÞGØ©’kæØO\(,ŽkXA'…*¯ôêP<;fnnÇ˪YK-]Xíçâþ2
+:Ú›—Cn±¥ndÙÊ”)‘”Ìî(´–y³V™g,sÏ{užéJ‘©´ÊToQo}Zò[!m˜z?Ð^àüÇâf•§+‘·âÝůB•Ä+²ÌIJ*Šê<Š¼Õæ
+EKÓª=âBé®)[¡W
+¼­“Z!ñGÔDr‘SŒW²]‰x-¯UB—‰–‹‰¥‘	â2©e­gË‹U©›;ø¹W§š·`ªEtù-x?!'±›.…BÐ0YäÐ>ö:¹0G<uj¶ÉñE„Í‘¬y‘¯!âÙl/n•^öÛ²,ö÷LTôJ5êJÝÂôu!S%¢ó“þvöúíÅÙßߝ]¾}ü>Úà!¢z¡€W¯y³ƒ»‹ÝxÝ:¯•ðÞ­aÈp84‡TÓ,’Ê2Ñ•Ýn+¢ÿüú>>:üiÿë8ùþßšýqsCaRÅùR0{x>üP"Õ¼OðÂKËF-{eÄñL̯ÕÝMÕdÞ½!'\ƒ4S·ì``ñ¹:Œ=u5¢}ݨyÕµÆ*"¾Ršã³×Žn‰~oÏe>"¯}b³GàÊhƒbkYâŽ-Ž÷÷ßF`³×û+—†ÁX©UW¦+ÄeUéy׉ÉrËvÞéeòW£ L¿°Z“Ê´a챺*í
+n9œ·m”ôc¢ÉÜ&‚ô Ì­Ù½}i=Ø{Œ¨®Š´¤9bƒ€wLevd‰Y;Sm
+ÁªÂ¸PlX…ÁVwÁ¦3š|Ô4¤¼¬kP;É ÕÃÌæD~Ü{lÇ
+aC‚È`ÍG2]òmÊ¥žàèãçd³à¢ªjF€¡X(ªT'ûñ¨Õ’ozœHQmTª‰`ó¡\bg“ÓvW(€¶/B}A"W™8€—µ@ïÓŠ"8TÈ’
+4	IçÂx®ªê¨VŽ^W¬ä9·zâõïçâäü*Ýogoÿöæ”J$íÁ
+ÑÔìZõXÈÌ4‚² å	¹Hv·Fò¢6TÛ–jjÛ°baàad¸jÊ5s¶]è:Ø·uä﬑×ki:>·«CÛžÉ:O $‡½uÉSÃÏÜnn^W­Þ¹Ð‡rØ&‡‰ZjºP8ŒÍ"k­°F%î¼³¼~?»¸|õæu$¢ç>:Ž¾ŒÙ»Ë³‹H8£ÀÍá—1<ÿÇiϏ\Mð…</_½|}òöÝÅYϹͯJ4ök *c*Œ÷ɺÇ>5M56e&0ÈpÆ,îÄ7Ò,kv¹‹×\¿ÅíÝzQI‰þÝDþ'+»!‡ŒØt®µÕü3ôÜ`kXý_8¡ÎåeÚ7QVKtÀe÷¥ïÙñ±˜Jc[éøÕp臹TøçàaN¸iÇÝK Æhxpo,§t ¶±~ÂM»ˆ.;ð0¡‹¢F΍u˜­LÞ4ùÍ’<=þîé_@Jtm#*Þ9 ½`&·yÈ´ä-á•	ÃÎÌçb£‹ðŠ»‹^ðÉþ?ˆ·oN߈vUuE)á½Îâ43]¥¨T(x¾AÝ²)îˆLm…QŠ&Œ²[/в¢v˜ôʼ]¡<è[àfÇyMÅA~¨òŒé´†-Ѩ‹e^TI»ZT]#VJÖG|ñ–<¤!òƒJµh¹§G®oÌÌUÃCtžÁôa’× -swށ‹:`ã
+D³î`!¦ýsvƒäš*5ÐÄÏãTŒÑ¬aâ@ØÁ0
+½üUYᛞ®‘³ñ‰ë”´Ü°žÍ¦÷g3ªDç
+)¿:ì
+Ö¬²E}è˜BÁÌ4î…m´iÚŒ›Ž)
+]]+k]u¥i×4¨ï(žáUÐbg7hêû‘ìŸôÝ›‰üèDkµ®5E†Ó>áó¡nÑvs‹Õ&ˆ›=µay™K—‘Ç—²YÐá–Ålœ?°z”§?¢)çN£Ç´™i}!]ËÛd*]îŤO0û'9Æ?©éĬT·8ã	|ZˆÇeS»¶LµF6ÀxÌïÙ:Lly ^K胃}¼Î¸êG'ì°¤+‘`M+‘	ÈwDñi+ó¨çLk…¸¯øP<?X‰}’”«Èö¼B¯0L´¨Îσ˜Ä…ˆXä¼e\à8ÜÈbsÆbid»AòW¸ª ë}Ûba2;BÁ6ô\ÒäÐäzuÞ÷+À>¥1[ƒ2e8˜íÊDRaKþM:‘-Iˆ”Þbò˜E“ŒJ6&éˆ#þQüÀ²KíY¯78l°µÇcÖu8…æ<ĹiqŒ®;ù{°B‘ÉBwCMªƒª¦“GL.Æá¨<†½o×ÝÉNa&ˆ-¾Q-ŒËJ;Dc€@Šm¨oQíg*¢å#Ò‚ žxv4âè„•¯lš¸Šà7Ç%NÝb6oÛg&éuÕiu àˆ­T#{úß¼æ®Zã{€”³—,˜·K$ƒ<Y™Æ»Ã)ZªŠÁ²þ‘íß±Œ†sôëÓ²Ô/”'6|è³vzkæiÜÂ'‹ê~€9â@nÜ	c,éèB
+¢›››#Kzd`ç(­Ö4á~ʇÙä3ýLŽõþø˜JÁ#úI€à]1ï} 潡‘Xaž;;͝	lÜQÊ-ÍŒÄ Œm¸cM¹Fóc"@×$¢ûÇÏ~‰,‘¾üʍWn4.•>3û³[>,´æ±ÊS$÷Û Í»÷fCô¾ßZøV£S+Ƥ(þî\3°Fx³“ÊŠ²á]ÊB…[¡ÑÒÂ$µïûr„Dô+y¢­24¤|¨·TLĸ5q5ðMPíüÉ“û“'7jѦÍOé:{ñ~,àÅýÉA¸ÃØÒ.ìm<>3?šX²‹zF6Ý€Na­¤&c5p–½¬,4ŒÁ¿ŠèåFœœ*-󢍬ý<Bºö4«6؇œíy<fî¸8sSûï¼ÀRc`òÒÔï-ÓM/F³5ÓÛy¨¥
+¡É%Ç¿V~–9Øá?8ô¸C×e*t8¯Úç,!ü`æïÓj”¶ç&Ó‚m&àÃ¼EC‡×s§°ý~ 	
+›”è(©ƒ|¡ËÔdÂDŒœ8ëÙYƒÞd¨’¿#ݦ †•è¹I>PwpóYì¬zPštpkN1’Ú.m?Þ †È)NùJ¨JG#¾¦ò|Gêoëî-‰
+¬ÙŠ¾8H„¹D' §“É„·òÅX£CÄÐ!Õh’üO}">Äÿ(3Ùd‰yg›
+—…ÐG’ý1°ˆxý¶éÉþ@€ÁʯíöWˆ	—.ÕÆ=ÌWˆ±GIŸ1¡™¹Ç÷&0¯Š1§8Næ¶ÖÛ¯a=€í°Øñ5¹)§Ãéw(ÈáSÔk¼þeæDu
\ No newline at end of file

Added: trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988
===================================================================
(Binary files differ)


Property changes on: trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream

Modified: trunk/thirdparty/cl-paypal/.git/refs/heads/develop
===================================================================
--- trunk/thirdparty/cl-paypal/.git/refs/heads/develop	2010-09-16 20:03:53 UTC (rev 4612)
+++ trunk/thirdparty/cl-paypal/.git/refs/heads/develop	2010-09-17 14:31:09 UTC (rev 4613)
@@ -1 +1 @@
-6bddc89a7a42e3a67a9bb915f89d3225c588a381
+130c568d3db006611c3f633f04b6b51ef959b290

Modified: trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop
===================================================================
--- trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop	2010-09-16 20:03:53 UTC (rev 4612)
+++ trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop	2010-09-17 14:31:09 UTC (rev 4613)
@@ -1 +1 @@
-6bddc89a7a42e3a67a9bb915f89d3225c588a381
+130c568d3db006611c3f633f04b6b51ef959b290

Modified: trunk/thirdparty/cl-paypal/cl-paypal.lisp
===================================================================
--- trunk/thirdparty/cl-paypal/cl-paypal.lisp	2010-09-16 20:03:53 UTC (rev 4612)
+++ trunk/thirdparty/cl-paypal/cl-paypal.lisp	2010-09-17 14:31:09 UTC (rev 4613)
@@ -28,6 +28,8 @@
       (destructuring-bind (parameter-string value) (cl-ppcre:split "=" entry :limit 2)
 	(setf parameter-string
 	      (cl-ppcre:regex-replace "PAYMENTREQUEST_0_" parameter-string ""))
+	(setf parameter-string
+	      (cl-ppcre:regex-replace "PAYMENTINFO_0_" parameter-string ""))
         (multiple-value-bind (match registers) (cl-ppcre:scan-to-strings "^L_(.*?)([0-9]+)$" parameter-string)
           (if match
               (let* ((parameter (intern (aref registers 0) :keyword))
@@ -156,9 +158,10 @@
 	 (token (getf res :token)))
     (register-transaction token amt currencycode ip)
     (values
-     (format nil "https://~A/webscr?cmd=_express-checkout&token=~A"
+     (format nil "https://~A/webscr?cmd=_express-checkout&token=~A&useraction=~A"
 	     hostname
-	     (hunchentoot:url-encode token))
+	     (hunchentoot:url-encode token)
+	     useraction)
      res)))
 
 (defun get-express-checkout-info (token)

More information about the Bknr-cvs mailing list