alias sitecheck sockopen %sitecheck %sitecheck 80
on *:sockread:*: {
  if ($sockname == %sitecheck) {
    if ($sockerr) {
      msg $active Could not retrieve the $sockname because  $+ $chr(91) $+  $sock($sockname).wsmsg  $+ $chr(93) $+ 
      unset %sitecheck
      unset %sockvalve
      halt
    }
    else {
      msg $active The site $sockname is ONLINE
      unset %sitecheck
      unset %sockvalve
      halt
    }
  }
}

on *:sockopen:*: {
  if ($sockname == %sitecheck) {
    if ($sockerr) {
      msg $active Could not retrieve the $sockname because  $+ $chr(91) $+  $sock($sockname).wsmsg  $+ $chr(93) $+ 
      unset %sitecheck
      unset %sockvalve
      halt
    }
    else {
      sockwrite -n $sockname GET / HTTP/1.1 $+ $crlf
      sockwrite -n $sockname Host: %sitecheck $+ $crlf $+ $crlf
    }
  }
}

on *:TEXT:^sitecheck*:#: {
  if ($2) {
    if ($left($2,4) != www.) && (*http* !iswm $2) {
      if (*.* iswm $2) {
        set %sitecheck $2 $+ $3 {
          sitecheck $2 $+ $3
        }
      }
    }
  }
}

on *:INPUT:*: {
  if ($1 == ^sitecheck) {
    if ($2) {
      if ($left($2,4) != www.) && (*http* !iswm $2) {
        if (*.* iswm $2) {
          set %sitecheck $2 $+ $3 {
            sitecheck $2 $+ $3
          }
        }
      }
    }
  }
}