Code:

proc obstats.online {min hour day month year} {global obtempcheck## Open socketset url "/URL/bot.php"set nick nickname   if {[catch {set obsock [socket -async <IP ADDRESS> 80]} sockerr]} {      puthelp "NOTICE $nick :$sockerr"      puthelp "NOTICE $nick :Try again later, look out the window till then!"      close $obsock      return 0   }   puts $obsock "GET $url"   flush $obsock   set i 0   set j 1      set obout [gets $obsock]    putlog "OB: checking if Site is online $url"    if { $obtempcheck != $obout } {  if { $obout == 000 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 04OFF <> 07#chan  - 04OFF ::.." }  if { $obout == 001 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 04OFF <> 07#chan  - 04OFF ::.." }  if { $obout == 010 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 04OFF <> 07#chan  - 04OFF ::.." }  if { $obout == 011 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 04OFF <> 07#chan  - 04OFF ::.." }  if { $obout == 100 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 09ON <> 07#chan  - 09ON ::.." }  if { $obout == 101 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 09ON <> 07#chan  - 09ON ::.." }  if { $obout == 110 } { putserv "TOPIC #chan : ..::: 07Velkommen til #chan <> Site - 09ON <> 07#chan  - 09ON ::.." }      set obtempcheck $obout      }}      putlog "topic test"