All pastes #389924 Raw Edit

Someone

public text v1 · immutable
·published 2007-03-11 01:25 UTC
rendered paste body
on $*:text:/^[!@.](rsnews|runenews|runescapenews)/Si:#:{ 
  /INC %ID 1
  set $+(%,output.rsnews.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
  sockopen $+(rsnews.,%ID) www.xbot.frosthost.net 80
} 
ON *:SOCKOPEN:rsnews.*:{
  var %price.id = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /parsers/rsnews.php HTTP/1.1
  sockwrite -nt $sockname Host: www.xbot.frosthost.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsnews.*:{
  var %price.id = $gettok($sockname,2,46)
  if ($sockerr) {
    echo -a Error in RSNews lookup
    sockclose $sockname
    halt
  }
  else {
    var %read
    sockread %read
    if (*[RSNEWS]* iswm %read) { $($+(%,output.RSNEWS.,%ID),2) $c1(RuneScape News) $+ $c2($($+(%,RNEWS.,%ID),2) $+ :) $c2($remove(%read,[RSNEWS])) }
  } 
} 

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