From 8afd70d7a49f12bffebba040b626b3947434f922 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Thu, 26 May 2011 22:42:39 +0200 Subject: Write username/password for egg repo --- pseudo-meta-egg-info.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/pseudo-meta-egg-info.scm b/pseudo-meta-egg-info.scm index f104e47..d82af51 100644 --- a/pseudo-meta-egg-info.scm +++ b/pseudo-meta-egg-info.scm @@ -44,16 +44,18 @@ (egg-name (alist-ref 'egg params)) (egg-release (alist-ref 'release params)) (files-dir (update-uri (uri-reference "") - path: (list egg-name "tags" egg-release))) + path: (list egg-name "tags" egg-release ""))) (repo-uri (uri-reference (egg-repo))) - (files-uri (update-uri (uri-relative-to files-dir repo-uri) - username: #f password: #f))) - (or (and-let* ((files (svn-ls (uri->string files-uri) '() ;; Needs recursion! + (files-uri (update-uri (uri-relative-to files-dir repo-uri)))) + (or (and-let* ((files (svn-ls (uri->string files-uri (constantly "")) '() ;; Needs recursion! (uri-username repo-uri) (uri-password repo-uri)))) (with-headers '((content-type "text/plain")) (lambda () (write-logged-response) + (display (uri->string files-uri + (lambda (u p) (conc u ":" p))) port) + (newline port) (for-each (lambda (f) (display (car f) port) (newline port)) files) (close-output-port port)))) (send-status 500 -- cgit v1.2.3