set time 15
set a "$botnick"
set a [string tolower "$nick"]
if {![info exists ald]} {
set ald 1
timer $time go
}
proc go {} {
global a channel time text
putlog "SendePlan Restarting !!!"
set url http://www.scooter-ibb.de/sound/
catch {set t [::http::geturl http://www.scooter-ibb.de/sound/ -timeout 3000]} err; if {$err=="couldn't open socket: host is unreachable" || [string match {Unsupported URL: *} $err match]} {return "error1"}; if {$err=="couldn't open socket: connection refused"|| [::http::status $t]=="timeout"} {return "error2"}; ::http::cleanup $
putlog "SendePlan Restarted !!!"
timer $time go
}