available-url

available-url.scm

#!/usr/local/bin/gosh

(use rfc.http)
(use srfi-1)

(define (main args)
  (let ((urls (remove (pa$ equal? "")
                      (string-split (port->string (current-input-port)) "\n"))))
    (for-each print
              (filter-map (^u (guard (ex (else (print u)))
                                (receive (status header body)
                                    (http-get u "/")
                                  (rlet1 ret (and (equal? status "200") u)
                                         (with-output-to-port (current-error-port)
                                           (^ _ (display (boolean ret))
                                              (display ":")
                                              (print u)))))))
                          urls))))