5 Cent tip for today [ check online | offline website ]
Posted: Mon Mar 08, 2004 5:23 pm
;
; 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)
; 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)