From 0fd98bf8673276501d63b34bed738386e96d03df Mon Sep 17 00:00:00 2001 From: Kevin Layer Date: Fri, 24 Jul 2009 17:35:22 -0700 Subject: [PATCH] 1.2.60 --- ChangeLog | 7 +++++++ decode.cl | 4 +++- main.cl | 2 +- packages.cl | 5 +++-- 4 files changed, 14 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 83f842ad..65f86e10 100644 --- a/ChangeLog +++ b/ChangeLog @@ -4,6 +4,13 @@ ** Please leave this at the top of the file. Thanks. ******************************************************************************* +2009-07-24 Kevin Layer +1.2.60 + * decode.cl: uriencode-string: use uppercase hex chars for + EC2. Amazon's EC2 requires that uppercase characters (A-F) + be used, otherwise the signing of EC2 requests via the REST + API won't match. + 2009-07-01 * makefile: dribble test output to "test.out" (mainly for windows) diff --git a/decode.cl b/decode.cl index c568701d..ff923382 100644 --- a/decode.cl +++ b/decode.cl @@ -151,7 +151,9 @@ then (+ ,code #.(char-code #\0)) else (+ (- ,code 10) - #.(char-code #\a))))) +;;;; Amazon's EC2 requires that an uppercase character be used here, +;;;; otherwise the signing of EC2 requests via the REST API don't match. + #.(char-code #\A))))) (let* ((upcode (logand #xf (ash code -4))) (downcode (logand #xf code))) (setf (aref newmbvec (+ j 1)) diff --git a/main.cl b/main.cl index 91604771..cfefa8c0 100644 --- a/main.cl +++ b/main.cl @@ -38,7 +38,7 @@ (in-package :net.aserve) -(defparameter *aserve-version* '(1 2 59)) +(defparameter *aserve-version* '(1 2 60)) (eval-when (eval load) (require :sock) diff --git a/packages.cl b/packages.cl index 1b0cc367..de0bd749 100644 --- a/packages.cl +++ b/packages.cl @@ -1,9 +1,10 @@ #+(version= 8 1) -(sys:defpatch "aserve" 2 +(sys:defpatch "aserve" 3 "v1: version 1.2.56, large request body & multipart content type & more; v2: version 1.2.58, fix problem introduced in 1.2.56 where the response date is always the zero universal time & correctly send out the comment after - the result code." + the result code; +v3: version 1.2.60: uriencode-string: use uppercase hex chars for EC2." :type :system :post-loadable t)