Forums Scripts & Popups Socket's website connection

alias check {
  sockclose x
  sockopen x eawedat.zxq.net 80
}
on *:sockopen:x:{ 
  sockwrite -n x GET / HTTP/1.1 
  sockwrite -n x Host: eawedat.zxq.net
  sockwrite -n x
}
on *:sockread:x:{
  if ($sockerr) {
    echo -a Error
  }
  else {
    var %temptext
    sockread %temptext
    if ($regex(%temptext,/<title>(.+)<\/title>|$&
      $+ <a href="\S+">(.+)<\/a><\/font>|(.+\d{4} &copy;)/)) {
      echo -a $remove($replace($regml(1),&copy;,$chr(169)),$chr(9))
    }
  }
}