diff options
| author | David Barksdale <amatus.amongus@gmail.com> | 2015-11-22 16:56:15 +0000 |
|---|---|---|
| committer | David Barksdale <amatus.amongus@gmail.com> | 2015-11-22 16:56:15 +0000 |
| commit | 8630d77ce5d9e37932197bca16c9edef98fbaf8b (patch) | |
| tree | 2e334625749db7ed83ba6bd52ac62ab708b70b00 /src/fs | |
| parent | 2aba890d055fe4882b196e5a6113cae921790322 (diff) | |
| download | gnunet-8630d77ce5d9e37932197bca16c9edef98fbaf8b.tar.gz gnunet-8630d77ce5d9e37932197bca16c9edef98fbaf8b.zip | |
Invalid Gnunet URI
commit c1decf4e2eef8a3d922a07164fed8dd24e2ad80f
Author: Lehi Toskin <lehi@tosk.in>
Date: Sat Nov 21 17:07:49 2015 -0800
Diffstat (limited to 'src/fs')
| -rwxr-xr-x | src/fs/gnunet-download-manager.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/fs/gnunet-download-manager.scm b/src/fs/gnunet-download-manager.scm index e41976e34..a7cacffd9 100755 --- a/src/fs/gnunet-download-manager.scm +++ b/src/fs/gnunet-download-manager.scm | |||
| @@ -82,9 +82,9 @@ exec guile -e main -s "$0" "$@" | |||
| 82 | 82 | ||
| 83 | ;; Regexps matching GNUnet URIs | 83 | ;; Regexps matching GNUnet URIs |
| 84 | (define *uri-base* | 84 | (define *uri-base* |
| 85 | "([[:alnum:]]+)\.([[:alnum:]]+)\.([[:alnum:]]+)\.([0-9]+)") | 85 | "([[:alnum:]]+).([[:alnum:]]+).([[:alnum:]]+).([0-9]+)") |
| 86 | (define *uri-re* | 86 | (define *uri-re* |
| 87 | (make-regexp (string-append "^gnunet://afs/" *uri-base* "$") | 87 | (make-regexp (string-append "^gnunet://fs/chk/" *uri-base* "$") |
| 88 | regexp/extended)) | 88 | regexp/extended)) |
| 89 | (define *uri-status-file-re* | 89 | (define *uri-status-file-re* |
| 90 | (make-regexp (string-append "^" *uri-base* "$") | 90 | (make-regexp (string-append "^" *uri-base* "$") |
| @@ -281,7 +281,7 @@ arguments." | |||
| 281 | "<unknown>")))) | 281 | "<unknown>")))) |
| 282 | (map (lambda (file) | 282 | (map (lambda (file) |
| 283 | (uri-status *status-directory* | 283 | (uri-status *status-directory* |
| 284 | (string-append "gnunet://afs/" file))) | 284 | (string-append "gnunet://fs/chk/" file))) |
| 285 | (uri-status-files *status-directory*)))) | 285 | (uri-status-files *status-directory*)))) |
| 286 | 286 | ||
| 287 | (define (resume-command . args) | 287 | (define (resume-command . args) |
| @@ -297,7 +297,7 @@ arguments." | |||
| 297 | (exit code))))) | 297 | (exit code))))) |
| 298 | (map (lambda (file) | 298 | (map (lambda (file) |
| 299 | (uri-status *status-directory* | 299 | (uri-status *status-directory* |
| 300 | (string-append "gnunet://afs/" file))) | 300 | (string-append "gnunet://fs/chk/" file))) |
| 301 | (uri-status-files *status-directory*)))) | 301 | (uri-status-files *status-directory*)))) |
| 302 | 302 | ||
| 303 | (define (killall-command . args) | 303 | (define (killall-command . args) |
| @@ -312,7 +312,7 @@ arguments." | |||
| 312 | (kill dl-pid 15))))) | 312 | (kill dl-pid 15))))) |
| 313 | (map (lambda (file) | 313 | (map (lambda (file) |
| 314 | (uri-status *status-directory* | 314 | (uri-status *status-directory* |
| 315 | (string-append "gnunet://afs/" file))) | 315 | (string-append "gnunet://fs/chk/" file))) |
| 316 | (uri-status-files *status-directory*)))) | 316 | (uri-status-files *status-directory*)))) |
| 317 | 317 | ||
| 318 | 318 | ||
| @@ -404,4 +404,4 @@ arguments." | |||
| 404 | (if command | 404 | (if command |
| 405 | (apply command (cddr args)) | 405 | (apply command (cddr args)) |
| 406 | (and (gnunet-info "~a command not found" command-name) | 406 | (and (gnunet-info "~a command not found" command-name) |
| 407 | (exit 1)))))) \ No newline at end of file | 407 | (exit 1)))))) |