sabahın bu saatlerinde , AlphaTech (New-York'lu jeff adında bir genç delikanlı) isteği üzerine yaptığım küçük scriptlerden birinide kullanmak isteyen çıkabilir diyerek buraya atayım dedim...
(aslında dün geceden beri 5-6 tane script yaptım aynı çocuğa ama içlerinde başkalarınında işine yarayabilecek hemen hemen bir tek bu var..)
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}
yaptığı iş kanala yazılanlardan, atılan URL'leri yakalayıp is.gd linkiyle kısaltılmış hale getirmesi. yukarıdaki bu işi oto yapar ..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alttaki ise komutla istenen uzun URL'nin kısaltılmış şeklini verir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}