Forums Scripts & Popups Sockets

alias testjee { sockopen test miyako.lhosting.info 80 }

on *:sockopen:test: {
 if ($sockerr) { return }
  sockwrite -n $sockname GET /n00b/readme.htm HTTP/1.1
  sockwrite -n $sockname Host: http://miyako.lhosting.info
  sockwrite -n $sockname $crlf
}

on *:sockread:test: {
 if ($sockerr) { return }
  sockread %t
  echo -a %t
}

on *:SOCKREAD:test:{
  if ($sockerr) {
    if (!$window(@READ)) { window -z @READ }
    aline -h @READ Socket Error - $sock($sockname).wmsg ( $+ $v1 $+ ) 
  }
  else {
    var %t 
    sockread %t
    aline -hp @READ %t $crlf
  }
}