Miscellany

ON $*:TEXT:/^[!@.](worldnews|news)/Si:#:{ 
  set %return $iif($left($1,1) == @, msg $chan, notice $nick)
  /sockopen news www.o-ss.net 80
}
on *:SOCKOPEN:news: {
  sockwrite -nt $sockname GET /parsers/news.php HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:news: {
  if ($sockerr) {
    echo -a error
    halt
  }
  var %read
  sockread %read
  if (*news* iswm %read) { 
    /tokenize 32 $htmlfree(%read)
    %return 7[Global-news]:12 $+ $1- $+($chr(91),$chr(94),$chr(107),$chr(121),$chr(108),$chr(101),$chr(94),$chr(115),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose $sockname
    /unset %return
  }
}