;; 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* "$")
"<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)
(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)
(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*))))
(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))))))