5 Cent tip for today [ check online | offline website ]

[newdep]

;

; checks if a list of websites is online | offline.

;



(set 'urls '(

        "newlisp.org"

        "http://www.gnu.org">www.gnu.org"

        "wiki.tcl.tk"

        "riki.raki.ro" ))



(define (online? www)

 (if (setq checkup (net-connect www 80 ))

        (begin (net-close checkup ) "Online ") "Offline"))



(dolist (url urls) ( println (online? url) ": " url))



(exit)

[Ryon]

Hey! This is handy. Thanks!