package require http

setudef flag shorten

bind pubm -|- "*" is_gd:pubm

proc is_gd:pubm {nick uhost hand chan text} {
    if {![channel get $chan shorten]} { return 0 }
        set text [stripcodes uacgbr $text]
        foreach _ [split $text] {
     if {[regexp -nocase -- {http://([^\s]+)} $_ -> out] || \
        [regexp -nocase -- {https://([^\s]+)} $_ -> out] || \
        [regexp -nocase -- {ftp://([^\s]+)} $_ -> out] || \
        [regexp -nocase -- {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
out]} {
         putlog "$out"
         set isurl "http://is.gd/api.php?longurl=$out"
         set url [http::geturl "$isurl" -timeout [expr {4*1000}]]
         set data [split [http::data $url] \n]; http::cleanup $url
         regexp {(.*)} $data "" output
         puthelp "privmsg $chan :$nick -> $output"
        return 0
        }
    }
    return 0
}

package require http

setudef flag isgd

bind pub -|- !isgd is_gd

proc is_gd {nick uhost hand chan text} {
    if {![channel get $chan isgd]} { return 0 }
         set query [lindex [split $text] 0]
         set check "http://*|https://*|ftp://*|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if {[llength $query] eq "0"} { puthelp "notice $nick :Kullanımı : $::lastbind <URL>"
          return 0
       } elseif {![regexp -nocase -- $check $query]} { puthelp "notice $nick :$query geçerli değil..."
          return 0
       }
       
         set isurl "http://is.gd/api.php?longurl=$query"
         set url [http::geturl "$isurl" -timeout [expr {4*1000}]]
         set data [split [http::data $url] \n]; http::cleanup $url
         regexp {(.*)} $data "" output
         puthelp "privmsg $chan :$nick -> $output"
    return 0
}