Statistics: Posted by holycrap — Thu Dec 16, 2010 5:19 am

           if {[regexp -nocase -- {calc_img.+?nowrap.*?>(.+?)<tr><td>} $html - convert(answer)]} { 

            if {[regexp -nocase -- {calc_img.+?nowrap.*?>(.+?)<td>} $html - convert(answer)]} {                regexp -nocase -- {<h2 class=r style="font-size:138%"><b>(.+?)</b></h2>} $convert(answer) - convert(answer)

Statistics: Posted by devilkin — Tue Jun 08, 2010 2:34 pm

Statistics: Posted by holycrap — Sun Jun 06, 2010 3:01 am

Statistics: Posted by devilkin — Sat Jun 05, 2010 4:23 pm

Statistics: Posted by Luminous — Sat Jun 05, 2010 3:26 pm

Statistics: Posted by shadrach — Wed May 19, 2010 4:59 pm

       if {[string match "*</div><div id=res class=med>*" $html]==1} {              if {[regexp -nocase -- {</div><div id=res class=med><p>(.+?)<a href=.*?>(.+?)</a>} $html {} item did_you_mean]} { 

       if {[string match "*<div id=center_col><div id=res class=med role=main>*" $html]==1} {              if {[regexp -nocase -- {<div id=center_col><div id=res class=med role=main><p class=ssp><span class=spell style="color:#cc0000">(.+?)<a href=.*?>(.+?)</a>} $html {} item did_you_mean]} { 

if {![regexp -- {</div><div id=res class=med>(?!<)(.+?)<p style} $html - no_search]} { 

 if {![regexp -- {<div id=center_col><div id=res class=med role=main><table class=std>(.+?)<div style} $html - no_search]} { 

Statistics: Posted by devilkin — Wed May 19, 2010 11:28 am

[18:24:58] [@********] !convert 800 litas to euro[18:24:59] [@*****] Found calculator template but cannot parse within.

Statistics: Posted by shadrach — Thu May 06, 2010 2:57 am

Statistics: Posted by holycrap — Tue Aug 11, 2009 7:29 pm

Code:

##############################################  gconvert.tcl v4.0       by speechles     ## -Parsers/Encoders from Unofficial google- ############################################################# OLD INFO   ###############################################  gconvert.tcl v2.0       by AkiraX        ##                    <#AnimeFiends@EFNet>   ##################################################### DESCRIPTION ########################## Uses the google calculator to perform# conversions and mathematics#################################################### USAGE ################################ .chanset #yourchan +gconvert# !convert <quantity> to <quantity> : perform conversions# !math [.country.code] <equation> : perform mathematics# !calc [.country.code] <equation> : perform calculations# !spell [.country.code] <something> : perform spell checks## all 4 of the above commands are identical, each can perform the# actions of the other depending on the template detected when# querying google and receiving html. If you wish to use only 1# command to do everything, this is 100% possible and you# can remove any binds you wish above to do so.#################################################### CHANGELOG ############################ v4.0 : Adapted tempates to fit googles new calculator.# v3.1 : Adapted script to fit Google's new redesign.# v3.0 : fixed functionality, added .chanset #yourchan +gconvert#        added multilanguage, added spell check, added dynamic#        messages, added custom static messages, removed#        redundant socket attempts, condensed procedures to#        one for everything.# v2.1 : fixed functionality, repaired by Scott Glover# v2.0 : allow convert code to perform math# v1.0 : support for google conversions#################################################### LICENSE ############################## This program is free software; you can redistribute it and/or# modify it under the terms of the GNU General Public License# as published by the Free Software Foundation; either version 2# of the License, or (at your option) any later version.## This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, U#################################################### CONFIG ############################## this is where you can configure default behavior.# select your default regional google server# google.* - it can be any valid domain TLD for google.variable ConvertCountry "com"# select your default results not found messagevariable ConvertMsg1 "Unable to parse anything meaningful."variable ConvertMsg2 "Found calculator template but cannot parse within."############################################package require httpsetudef flag gconvertbind pub -|- !math gconvert:runbind pub -|- !calc gconvert:runbind pub -|- !convert gconvert:runbind pub -|- !spell gconvert:runproc gconvert:run { nick host handle chan text } {   if {[lsearch -exact [channel info $chan] +gconvert] == -1} {return}   set convert(nick) $nick   set convert(input) $text      regexp -nocase -- {^\.(.+?)\s(.+?)$} $convert(input) - convert(country) convert(input)      if {![info exists convert(country)]} {            set convert(country)  "$::ConvertCountry"      }      # create google URL      set token [http::config -useragent "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e"]      set convert(url) "http://www.google.$convert(country)/search?q=[gconvert:webstring $convert(input)]&safe=off&btnG=Search&lr=lang_all&num=10"      # grab the info from google      catch {set token [http::geturl $convert(url) -timeout 15000]} error      if {[string match -nocase "*couldn't open socket*" $error]} {            puthelp "PRIVMSG $chan :Sorry, cannot create a socket to \"$convert(url)\"."            return 0      } elseif {[::http::status $token] == "timeout"} {            puthelp "PRIVMSG $chan :Sorry, your request to \"$convert(url)\" has timed out."            return 0      }      set html [gconvert:clean [http::data $token]]      http::cleanup $token      # find the answer      set convert(answer) ""      if {[string match "*</div><div id=res class=med>*" $html]==1} {            if {[regexp -nocase -- {</div><div id=res class=med><p>(.+?)<a href=.*?>(.+?)</a>} $html {} item did_you_mean]} {            set convert(answer) "${item}${did_you_mean}"                if {[string match "*<img src=/images/calc_img*" $item] == 1} {                     regexp -nocase -- {calc_img.+?nowrap.*?>(.+?)</} $item - item                     set convert(answer) "${item}"                  }            }            regexp -- {(.+?)</td></tr>} $convert(answer) -> convert(answer)            regsub -all -- {<(.+?)>} $convert(answer) "" convert(answer)      } elseif {[regexp {src=/images/calc_img.gif} $html]} {            if {[regexp -nocase -- {calc_img.+?nowrap.*?>(.+?)<tr><td>} $html - convert(answer)]} {                  regsub -all {<.*?>} $convert(answer) "" convert(answer)            } else {                  set convert(answer) $::ConvertMsg2            }      }      if { $convert(answer) == "" } {            if {![regexp -- {</div><div id=res class=med>(?!<)(.+?)<p style} $html - no_search]} {                  set convert(answer) $::ConvertMsg1            } else {                  regexp -- {^(.+?)</td></tr>} $no_search - no_search                  regsub -- {</a>} $no_search "? " no_search                  regsub -all -- {<(.+?)>} $no_search { } no_search                  while {[string match "*  *" $no_search]} {                        regsub -all -- {  } $no_search " " no_search                  }                  set convert(answer) [string trim $no_search]            }      }      puthelp "PRIVMSG $chan :[descdecode $convert(answer)]"      return 1}proc gconvert:clean { input } {      regsub -all {(?:\t|\n|\r|\v)} $input "" input      regsub -all "(?:<b>|</b>)" $input "\002" input      regsub -all "(?:\x91|\x92|')" $input {'} input      regsub -all "(?:\x93|\x94|")" $input {"} input      regsub -all " " $input "" input      regsub -all "&" $input {\&} input      regsub -all -nocase {<sup>(.+?)</sup>} $input {^\1} input      regsub -all -nocase {<font.*?>} $input "" input      regsub -all -nocase {</font>} $input "" input      regsub -all -nocase {<span.*?>} $input "" input      regsub -all -nocase {</span>} $input "" input      regsub -all -nocase {<input.*?>} $input "" input      regsub -all -nocase {(?:<i>|</i>)} $input "" input      return $input}   proc descdecode {text} {      # code below is neccessary to prevent numerous html markups      # from appearing in the output (ie, ", ?, etc)      # stolen (borrowed is a better term) from perplexa's urban      # dictionary script..       if {![string match *&* $text]} {return $text}      set escapes {          \x20 " \x22 & \x26 &apos; \x27 – \x2D        < \x3C > \x3E ˜ \x7E € \x80 ¡ \xA1        ¢ \xA2 £ \xA3 ¤ \xA4 ¥ \xA5 ¦ \xA6        § \xA7 ¨ \xA8 © \xA9 ª \xAA « \xAB        ¬ \xAC ­ \xAD ® \xAE &hibar; \xAF ° \xB0        ± \xB1 ² \xB2 ³ \xB3 ´ \xB4 µ \xB5        ¶ \xB6 · \xB7 ¸ \xB8 ¹ \xB9 º \xBA        » \xBB ¼ \xBC ½ \xBD ¾ \xBE ¿ \xBF        À \xC0 Á \xC1 Â \xC2 Ã \xC3 Ä \xC4        Å \xC5 Æ \xC6 Ç \xC7 È \xC8 É \xC9        Ê \xCA Ë \xCB Ì \xCC Í \xCD Î \xCE        Ï \xCF Ð \xD0 Ñ \xD1 Ò \xD2 Ó \xD3        Ô \xD4 Õ \xD5 Ö \xD6 × \xD7 Ø \xD8        Ù \xD9 Ú \xDA Û \xDB Ü \xDC Ý \xDD        Þ \xDE ß \xDF à \xE0 á \xE1 â \xE2        ã \xE3 ä \xE4 å \xE5 æ \xE6 ç \xE7        è \xE8 é \xE9 ê \xEA ë \xEB ì \xEC        í \xED î \xEE ï \xEF ð \xF0 ñ \xF1        ò \xF2 ó \xF3 ô \xF4 õ \xF5 ö \xF6        ÷ \xF7 ø \xF8 ù \xF9 ú \xFA û \xFB        ü \xFC ý \xFD þ \xFE ÿ \xFF      }      set text [string map $escapes $text]      # tcl filter required because we are using SUBST command below      # this will escape any sequence which could potentially trigger      # the interpreter..        regsub -all -- \\\\ $text \\\\\\\\ text        regsub -all -- \\\[ $text \\\\\[ text        regsub -all -- \\\] $text \\\\\] text        regsub -all -- \\\} $text \\\\\} text        regsub -all -- \\\{ $text \\\\\{ text        regsub -all -- \\\" $text \\\\\" text        regsub -all -- \\\$ $text \\\\\$ text      # end tcl filter      regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text      regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text      regsub -all -- {&#?[[:alnum:]]{2,7};} $text "?" text      return [subst $text]}proc gconvert:webstring { input } {      set url ""      foreach byte [split [encoding convertto utf-8 $input] ""] {            scan $byte %c i            if {$i < 65 || $i > 122} {                  append url [format %%%02X $i]            } else {                  append url $byte            }      }      return [string map {%3A : %2D - %2E . %2F / %30 0 %31 1 %32 2 %33 3 %34 4 %35 5 %36 6 %37 7 %38 8 %39 9 \[ %5B \\ %5C \] %5D \^ %5E \_ %5F \` %60} $url]}putlog "gconvert.tcl v4.0 by speechles (based upon v2.0 by AkiraX <#AnimeFiends@EFnet>) loaded!"

Statistics: Posted by speechles — Sat Aug 08, 2009 12:43 pm

It still doesn't work. I did used the new version.

Thanks much for your time, speechles!

Statistics: Posted by speechles — Fri Oct 10, 2008 11:27 pm

<user>!calc 1/0<bot> Search Results 1/0 -- Yeah, just the comic these days. Nothing new. Just the comic.? Well, that's it for 1/0 . Hope you enjoyed it. There will be a CD archive (with various special features) available as soon as I get around to making it. ... oneoverzero.comicgenesis.com/ - 6k - Cached - Similar pages 1/0 Archives... comic -by Tailsteak Next comic · Today's comic " 1/0 " is hosted on Keenspace, a free webhosting and site automation service for webcomics.

Statistics: Posted by holycrap — Thu Oct 09, 2008 10:16 pm

Hi,

If I input:

!convert asdasd8723234324234
or
!calc 1/0

or anything it can't compute. The bot will give me a half screen of garbage info. Can you fix this?

Thank You!

Statistics: Posted by speechles — Thu Oct 09, 2008 8:59 pm