Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

1.2.60

  • Loading branch information...
commit 0fd98bf8673276501d63b34bed738386e96d03df 1 parent b62b483
@dklayer dklayer authored
Showing with 14 additions and 4 deletions.
  1. +7 −0 ChangeLog
  2. +3 −1 decode.cl
  3. +1 −1  main.cl
  4. +3 −2 packages.cl
View
7 ChangeLog
@@ -4,6 +4,13 @@
** Please leave this at the top of the file. Thanks.
*******************************************************************************
+2009-07-24 Kevin Layer <layer@gemini.franz.com>
+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 <layer@HOBART128>
* makefile: dribble test output to "test.out" (mainly for windows)
View
4 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))
View
2  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)
View
5 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)
Please sign in to comment.
Something went wrong with that request. Please try again.