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/gnunet-download-manager.scm | |
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/gnunet-download-manager.scm')
-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)))))) |