[GNUnet-SVN] r36683 - gnunet/src/fs

[gnunet]

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))))))