Commit b070a681 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix syncing systems with slashes in the name

parent a77f4e22
......@@ -8,6 +8,7 @@
#:clpm/client
#:clpm/deps)
(:import-from #:deploy)
(:import-from #:puri)
#+clpm-winhttp
(:import-from #:winhttp
#:winhttp)
......@@ -24,6 +25,12 @@
(deploy:define-library winhttp
:dont-deploy t)
(uiop:register-image-restore-hook
(lambda ()
;; Fix PURI's URL encoding to always use uppercase letters:
(setf puri::*escaped-encoding*
(vector #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\A #\B #\C #\D #\E #\F))))
(uiop:register-image-restore-hook
(lambda ()
;; Silence Deploy
......
......@@ -200,7 +200,7 @@
(with-forms-from-stream (s form)
(destructuring-bind (system-name &rest args) form
(declare (ignore args))
(let ((url (puri:merge-uris (uiop:strcat "systems/" system-name "/releases")
(let ((url (puri:merge-uris (uiop:strcat "systems/" (urlencode (urlencode system-name)) "/releases")
base-url))
(pn (merge-pathnames "releases"
(ff-source-repo-system-pathname source system-name))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment