[SOLVED] bit.ly or another one

[Fire-Fox]

Hey!

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...

[Regex]

Code: Select all

#####################################################
##    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 dd0url
setudef flag dd0url
putlog "dd0.in URL Shortener by Danneh/GrimReaper"

Use it like that;

.chanset #yourchannel +dd0url