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

[newdep]

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

(set 'urls '(
"newlisp.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!