Miscellany

;Koolknight_5's first socket.

on *:text:!sockettest1:*:{
  /sockopen sockettest1 www.freewebs.com 80
}
  on *:SOCKOPEN:sockettest1:{
    sockwrite -n sockettest1 GET /koolknight/Bank%20Pics.htm HTTP/1.1
    sockwrite -n $sockname Host: freewebs.com $+ $crlf$+ $crlf
}
    on *:SOCKREAD:sockettest1:{
      if ($sockerr) {
      echo -a Error. 
      halt
}
    else {
      var %socktest1
      sockread %socktest1
      if (*<body bgcolor=" $+ * $+ ">* iswm %socktest1) {
        var %socktest1stripped = $htmlfree(%socktest1)
        echo -a %socktest1stripped
        sockclose $sockname
      }
    }
  }

  alias -l htmlfree {
    var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
    return %x
  }