#!/usr/bin/guile -s
!#

(use-modules (dolcon ui))

(exit (let ((resp #f))
	(dc-c&l #f "" #t)
	(let* ((url (cadr (command-line)))
	       (hubname (if (equal? (and (> (string-length url) 8)
					 (substring url 0 8))
				    "dchub://")
			    (substring url 8)
			    (error "illegal hub url"))))
	  (set! resp (dc-ecmd "cnct" "dc" hubname)))
	(dc-disconnect)
	
	(if (= (cdr (assoc 'code (dc-extract resp))) 200) 0 1)))