diff options
| author | Peter Bex <peter@more-magic.net> | 2011-05-26 22:42:39 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2011-05-26 22:42:39 +0200 |
| commit | 8afd70d7a49f12bffebba040b626b3947434f922 (patch) | |
| tree | cc3001da80cdd5a4ef9afdd975af64b526d5ac4a | |
| parent | 09cbaef2bb8ad31c9b381c61825623aae71ffc03 (diff) | |
| download | pseudo-meta-egg-info-8afd70d7a49f12bffebba040b626b3947434f922.tar.gz | |
Write username/password for egg repo
| -rw-r--r-- | pseudo-meta-egg-info.scm | 10 |
1 files 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 |