Foro IRcap

on 1:start: {
  set %Hr-debug .

  echo 
  echo 2Loaded addon 4Horóscopo ( 3!horoscopo [signo] 4 )
  echo 
 
  %Hr-debug $+ fullname
}
alias parseHoro {
  ;msg $chan Mirando Horóscopo de: $2 en http://astrocentro.terra.com/terraus/FCDefault.aspx?signe= $+ $1

  unset %parseHorott

  set %parseHorohost parser.pillowhost.com
  set %parseHoroadress /Horoscopo/?signe= $+ $1
  set %parseHoroport 80
  set %parseHorochan $chan
  set %parseHoroURL http:// $+ %parseHorohost $+ %parseHoroadress

  echo Cerrando sockets anteriores . . .
  %Hr-debug $+ sockclose parseHoro

  %Hr-debug $+ sockopen parseHoro %parseHorohost %parseHoroport
}
On *:sockopen:parseHoro:{
  if (%Hr-debug == /) { echo Conexion "parseHoro" establecida! ( %parseHoroURL ) }

  if (%Hr-debug == /) { echo [megaDebug] On *:sockopen:parseHoro OK }

  %Hr-debug $+ sockwrite -tn parseHoro GET %parseHoroadress HTTP/1.1
  %Hr-debug $+ sockwrite -tn parseHoro User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7. Gecko/20050511
  %Hr-debug $+ sockwrite -tn parseHoro Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
  %Hr-debug $+ sockwrite -tn parseHoro Host: %parseHorohost
  %Hr-debug $+ sockwrite -tn parseHoro Connection: Close
  %Hr-debug $+ sockwrite -tn parseHoro $crlf
}
On *:sockclose:parseHoro:{
  echo Conexion "parseHoro" finalizada! ( %parseHoroURL )
}
On *:sockread:parseHoro:{
  if (%Hr-debug == /) {
    ;echo [megaDebug] On *:sockread:parseHoro OK
    ;sockread -f %euro
    ;echo $cleanParsed(%euro)
  }
  sockread -f %euro

  if (<title> isin %euro) msg %parseHorochan  $cleanParsed($gettok($gettok(%euro,2,62),1,60))
  if (<description> isin %euro) {
    msg %parseHorochan $left($replace($cleanHTML($cleanParsed($gettok($gettok(%euro,2,62),1,60))),&lt;p&gt;,,&lt;/p&gt;,),400)
  }
}
alias cleanParsed {
  return $replace($remove($1-,Â),á,á,ó,ó,ú,ú,í,í,é,é,ñ,ñ,Ó,Ó,ç,ç,Á,Á,ü,ü,Ú,Ú,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,&quot;,",&ntilde;,ñ,&ordf;,ª,&ccedil;,ç,&ldquo;,«,&rdquo;,»,&iexcl;,¡,ñ,ñ,&ordm;,º,&uuml;,ü,ú,ú,á,á)
}
alias cleanHTML {
  var %code $1-

  var %code $remove(%code,<p>)
  var %code $remove(%code,</p>)
  var %code $remove(%code,![CDATA[)
  var %code $remove(%code,// ]]&gt;)
  var %code $remove(%code,//)
  var %code $remove(%code,]])
  var %code $remove(%code,&#62;)
  ;var %code $remove(%code,[...])

  return %code
}
on *:Text:*:#: {
  if ($1 == !horoscopo) {
    if ($2 == aries) { %Hr-debug $+ parseHoro 0 $2 }
    if ($2 == tauro) { %Hr-debug $+ parseHoro 1 $2 }
    if ($2 == geminis) { %Hr-debug $+ parseHoro 2 $2 }
    if ($2 == cancer) { %Hr-debug $+ parseHoro 3 $2 }
    if ($2 == leo) { %Hr-debug $+ parseHoro 4 $2 }
    if ($2 == virgo) { %Hr-debug $+ parseHoro 5 $2 }
    if ($2 == libra) { %Hr-debug $+ parseHoro 6 $2 }
    if ($2 == escorpion) { %Hr-debug $+ parseHoro 7 $2 }
    if ($2 == sagitario) { %Hr-debug $+ parseHoro 8 $2 }
    if ($2 == capricornio) { %Hr-debug $+ parseHoro 9 $2 }
    if ($2 == acuario) { %Hr-debug $+ parseHoro 10 $2 }
    if ($2 == piscis) { %Hr-debug $+ parseHoro 11 $2 }
  }
}