Voltar para Paste Lymas | pasteLog v. 2.0-alpha

Visualizando código



Postado por Lyma em 22/08/2017 21:59:51.
http://paste.lymas.com.br/3041

Clique AQUI para fazer download do código. Esconder número da linha

  1. ############################
  2. # TCL - Horoscopo do Terra
  3. # By Lyma - 22/08/2017
  4. ############################
  5. package require http
  6. package require tls
  7. bind pub - !signo pub:horoscopo
  8. bind pub - !horoscopo pub:horoscopo
  9. proc pub:horoscopo {nick host hand chan arg} {
  10.     set arg [lindex $arg 0]
  11.     if {$arg==""} {
  12.     putserv "PRIVMSG $chan :$nick tente usar desta forma: !signo <signo>"
  13.     return 0
  14.     }
  15.     set search [string map {_ -} $arg]
  16.     set pagina "https://www.terra.com.br/vida-e-estilo/horoscopo/signos/$search/"
  17.     set http [http::config -useragent mozilla]
  18.     set http [http::geturl $pagina -timeout [expr 1000 * 10]]
  19.     set html [http::data $http]
  20.     http::cleanup $http ;
  21.     regexp -nocase -- {<div id="article_embed_text1" class="horoscope_text">(.*?)</p>} $html horoscopo
  22.     regsub -all "<.*?>" $horoscopo "" horoscopo
  23.     set horoscopo [join $horoscopo " "]
  24.     putserv "PRIVMSG $nick :[string toupper $arg]: $horoscopo - Fonte: $pagina"
  25. }
  26. putlog "horoscopo.tcl [ OK ]"
  27. putlog "Lyma Horoscopo 1.0 - Loaded"


Colando um novo código


Seu Apelido:
Guardar o apelido em um cookie?

Linguagem:


Código: