-only trigger check config if we actually need it

[oweals/gnunet.git] / src / fs / gnunet-download-manager.scm

diff --git a/src/fs/gnunet-download-manager.scm b/src/fs/gnunet-download-manager.scm
index e41976e34a90a6fc990c5e6d13f78b7ae6e35cbe..a7cacffd95572b7d5624345bb1c30879adb3633a 100755 (executable)
--- a/src/fs/gnunet-download-manager.scm
+++ b/src/fs/gnunet-download-manager.scm
@@ -82,9 +82,9 @@ exec guile -e main -s "$0" "$@"
 
 ;; 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 @@ arguments."
                                         "<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 @@ arguments."
                        (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 @@ arguments."
                         (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 @@ arguments."
        (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))))))