Untitled

on *:text:!qbar*:#:{
  set %barchan $chan
  if (!$2) sockopen rbar webtender.com 80
  else {
    set %get $+(/cgi-bin/search?name=,$replace($2-,$chr(32),+),&ingr=&what=drink&show=10&verbose=on)
    sockopen qbar webtender.com 80
  }
}
on *:sockopen:rbar:{
  sockwrite -n $sockname GET /db/drink/rand HTTP/1.1
  sockwrite -n $sockname Host: webtender.com
  sockwrite -n $sockname $crlf
}
on *:sockread:rbar:{
  if ($sockerr) halt
  else {
    var %tmp
    sockread %tmp
    if (<H1>*<HR></H1> iswm %tmp) .msg %barchan Drink Name: $htmlfree(%tmp)
    elseif (<H3>Ingredients:*</H3> iswm %tmp) .msg %barchan $htmlfree(%tmp)
    elseif (<LI>*<A CLASS=ingr*</a> iswm %tmp) .msg %barchan $htmlfree(%tmp)
    elseif (<H3>Mixing instructions:*</H3> iswm %tmp) .msg %barchan $htmlfree(%tmp)
    elseif (<P>*</P> iswm %tmp) {
      .msg %barchan $htmlfree(%tmp)
      sockclose $sockname
    }
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}