[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[GNUnet-SVN] r36683 - gnunet/src/fs
From: |
gnunet |
Subject: |
[GNUnet-SVN] r36683 - gnunet/src/fs |
Date: |
Sun, 22 Nov 2015 17:56:15 +0100 |
Author: amatus
Date: 2015-11-22 17:56:15 +0100 (Sun, 22 Nov 2015)
New Revision: 36683
Modified:
gnunet/src/fs/gnunet-download-manager.scm
Log:
Invalid Gnunet URI
commit c1decf4e2eef8a3d922a07164fed8dd24e2ad80f
Author: Lehi Toskin <address@hidden>
Date: Sat Nov 21 17:07:49 2015 -0800
Modified: gnunet/src/fs/gnunet-download-manager.scm
===================================================================
--- gnunet/src/fs/gnunet-download-manager.scm 2015-11-21 19:43:06 UTC (rev
36682)
+++ gnunet/src/fs/gnunet-download-manager.scm 2015-11-22 16:56:15 UTC (rev
36683)
@@ -82,9 +82,9 @@
;; Regexps matching GNUnet URIs
(define *uri-base*
- "([[:alnum:]]+)\.([[:alnum:]]+)\.([[:alnum:]]+)\.([0-9]+)")
+ "([[:alnum:]]+).([[:alnum:]]+).([[:alnum:]]+).([0-9]+)")
(define *uri-re*
- (make-regexp (string-append "^gnunet://afs/" *uri-base* "$")
+ (make-regexp (string-append "^gnunet://fs/chk/" *uri-base* "$")
regexp/extended))
(define *uri-status-file-re*
(make-regexp (string-append "^" *uri-base* "$")
@@ -281,7 +281,7 @@
"<unknown>"))))
(map (lambda (file)
(uri-status *status-directory*
- (string-append "gnunet://afs/" file)))
+ (string-append "gnunet://fs/chk/" file)))
(uri-status-files *status-directory*))))
(define (resume-command . args)
@@ -297,7 +297,7 @@
(exit code)))))
(map (lambda (file)
(uri-status *status-directory*
- (string-append "gnunet://afs/" file)))
+ (string-append "gnunet://fs/chk/" file)))
(uri-status-files *status-directory*))))
(define (killall-command . args)
@@ -312,7 +312,7 @@
(kill dl-pid 15)))))
(map (lambda (file)
(uri-status *status-directory*
- (string-append "gnunet://afs/" file)))
+ (string-append "gnunet://fs/chk/" file)))
(uri-status-files *status-directory*))))
@@ -404,4 +404,4 @@
(if command
(apply command (cddr args))
(and (gnunet-info "~a command not found" command-name)
- (exit 1))))))
\ No newline at end of file
+ (exit 1))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [GNUnet-SVN] r36683 - gnunet/src/fs,
gnunet <=