egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2012-05-29T13:38:54-04:00 https://forum.eggheads.org/app.php/feed/topic/18985 2012-05-28T11:07:21-04:00 2012-05-28T11:07:21-04:00 https://forum.eggheads.org/viewtopic.php?p=99477#p99477 <![CDATA[[SOLVED] bit.ly or another one]]>

Code: 

#######################################################    dd0.in URL Shortener by Danneh/GrimReaper    #########################################################                 Initial Setup                   #######################################################set dd0char "."#######################################################                    End Setup                    #######################################################proc dd0url {nick host hand chan search} {  if {[lsearch -exact [channel info $chan] +dd0url] != -1} {    set dd0logo "\00312DD0 URL:\003"    set dd0site "dd0.in"    if {$search == ""} {      putserv "PRIVMSG $chan :$dd0logo, Please enter a URL to shorten.."    } else {      set dd0srcurl "/api.php?action=shorturl&url=${search}&output=xml"      if {[catch {set dd0srcsock [socket -async $dd0site 80]} sockerr]} {        return 0      } else {        puts $dd0srcsock "GET $dd0srcurl HTTP/1.0"        puts $dd0srcsock "Host: $dd0site"        puts $dd0srcsock "User-Agent: Opera 9.6"        puts $dd0srcsock ""        flush $dd0srcsock        while {![eof $dd0srcsock]} {          set dd0status " [gets $dd0srcsock] "          if {[regexp -all {<shorturl>(.*?)</shorturl>} $dd0status match dd0link]} {            putserv "PRIVMSG $chan :$dd0logo ${dd0link}"            close $dd0srcsock            return 0          }        }        close $dd0srcsock        return 0      }    }  }}bind pub - ${dd0char}dd0 dd0urlsetudef flag dd0urlputlog "dd0.in URL Shortener by Danneh/GrimReaper"
Use it like that;

.chanset #yourchannel +dd0url

Statistics: Posted by Regex — Mon May 28, 2012 11:07 am

]]> 2012-05-29T13:38:54-04:00 2012-05-27T20:04:37-04:00 https://forum.eggheads.org/viewtopic.php?p=99475#p99475 <![CDATA[[SOLVED] bit.ly or another one]]>
Is it possible to get tcl script todo:

Is it possible when my bot see a url like http://some.url.here.com then the tc lscript should do : store the new url like a bit.ly url instead...

Statistics: Posted by Fire-Fox — Sun May 27, 2012 8:04 pm

]]>