;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;;; Remember ongoing GNUnet downloads so as to be able to resume them
;;; later. Typical usage is to define the following alias in your
;; 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))))))