shorten ( link kısaltma ) Tcl - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

10Beğeni(ler)

3 Post By saywhat
1 Post By saywhat
1 Post By saywhat
3 Post By saywhat
1 Post By saywhat
1 Post By saywhat

Yeni Konu aç

Cevapla

Alt

25 Temmuz 2014, 06:56

#1

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

shorten ( link kısaltma ) Tcl

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
}

Alıntı ile Cevapla

IRCForumlari.NET Reklamlar

Alt

25 Temmuz 2014, 13:19

#2

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: shorten ( link kısaltma ) Tcl

kendi botumda kullanmak için daha gelişmiş bir versionunu yaptım ..bu haliyle atılan linki kısa hale çevirmekle birlikte linkin başlığını da yansıtıyor. ayrıca hem aktif edildiği kanalda hemde bot özelinde de aynı işi yapabiliyor...
( bunu kullanmak için tcl sürümü 8.5.x ve yukarısı olmalı ...8.4 ise boşa denemeyin....hata atar..)

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {[info tclversion] < 8.5} { 
   putloglev o * "Bu scripti kullanmak icin en az, Tcl8.5.x ve ustu Tcl surumlerinden biri kurulu olmali. Algilanan surum : $tcl_patchLevel"
   } else {
   putloglev o * "Algilanan Tcl surumu : $tcl_patchLevel shorten.tcl yuklendi.kanal ustunde aktif etmek icin : .chanset #kanal +shorten"
   }
   
package require Tcl 8.5

namespace eval isgd {

package require http

setudef flag shorten

bind pubm - "*" ::isgd::is_gd:pubm
bind msgm - "*" ::isgd::is_gd:msgm

proc is_gd:msgm {nick uhost hand text} { 
    ::isgd::is_gd:main $nick $uhost $hand $nick $text
    return 0
    }

proc is_gd:pubm {nick uhost hand chan text} { 
     if {![channel get $chan shorten]} { return 0 }
    ::isgd::is_gd:main $nick $uhost $hand $chan $text
    return 0
    }
    
proc is_gd:main {nick uhost hand chan text} { 
         set veri [::isgd::check_txt $text]    
         #putlog "$nick -> $veri"
         set isurl "http://is.gd/api.php?longurl=$veri"
         set url [::http::geturl "$isurl" -timeout [expr {4*1000}]]
         set data [split [::http::data $url] \n] 
         ::http::cleanup $url
         regexp {(.*)} $data "" output 
         set titleurl "http://$veri"
         set turl [::http::geturl "$titleurl" -timeout [expr {4*1000}]]
         set tdata [split [::http::data $turl] \n]
         ::http::cleanup $turl
         regexp {<title>(.*?)</title>} $tdata "" title
      if {![info exists title]} {
         set title "bilgi yok.."
         } elseif {[string match -nocase "error*" $output]} { 
         set output "hata oluştu..";}
         lappend cikti $output {*}$title
         puthelp "privmsg $chan :$nick -> $cikti"
        return 0
    }
    
proc check_txt {text} {
        set t [stripcodes bcruag $text]
        foreach _ [split $t] {
     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]} {
          return $out
         }
     }
}         
    
    putlog "ok..."
}

Alıntı ile Cevapla

Alt

25 Temmuz 2014, 23:38

#3

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: shorten ( link kısaltma ) Tcl

uykumu aldıktan,yemek yiyip, ciğara & kolamı içtikten sonra gelen zihin açıklığıyla gördüm ki; bir güncellemeye daha ihtiyaç var-mışşş...

şöyle ki "kimi sitelerden" alınan </title> başlık, bir takım html kod artıklarını da barındırabildiği ( • ,   vs vs gibi ) görüldüğünden ;

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bunları ayıklamak/çözümlemek adına orjinali tcllib htmlparse paketinden olmakla beraber en bilinen kullanımı rus perplexa'nın yıllar evvelki artık çalışmayan ud.tcl scriptinde bu iş için kullandığı prosedür'den faydalanmak , artık "kaçınılmaz bir zorunluluk" olmuştu. (ki kendisinden ,bu tür scriptlerimde, birazda zorunluluk ve yenisini kendim yazmanın ,onca karakteri tek tek bulup tırmalamanın hem zahmetli hemde "gereksiz" olacağını düşünerek,hemde ecnebilerin bu gibi durumlarda kullanmayı sevdiği "tekerleği yeniden icad etmeye uğraşmanın anlamı yok !.. yapılmışı varsa , O'nu kullanacaksın" deyişine uygun olarak kullandığım prosedür) . ki bu InşAllah "son" güncellemeyle ,alınan sonuç istenen/beklenen şekilde oldu...

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
gazamız mübarek olsun...

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {[info tclversion] < 8.5} { 
   putloglev o * "Bu scripti kullanmak icin en az, Tcl8.5.x ve ustu Tcl surumlerinden biri kurulu olmali. Algilanan surum : $tcl_patchLevel"
   } else {
   putloglev o * "Algilanan Tcl surumu : $tcl_patchLevel shorten.tcl yuklendi.kanal ustunde aktif etmek icin : .chanset #kanal +shorten"
   }
   
package require Tcl 8.5

namespace eval isgd {

package require http

setudef flag shorten
}

bind pubm - "*" ::isgd::is_gd:pubm
bind msgm - "*" ::isgd::is_gd:msgm

proc ::isgd::is_gd:msgm {nick uhost hand text} { 
    ::isgd::is_gd:main $nick $uhost $hand $nick $text
    return 0
    }

proc ::isgd::is_gd:pubm {nick uhost hand chan text} { 
     if {![channel get $chan shorten]} { return 0 }
    ::isgd::is_gd:main $nick $uhost $hand $chan $text
    return 0
    }
    
proc ::isgd::is_gd:main {nick uhost hand chan text} { 
         set veri [::isgd::check_txt $text]    
         #putlog "$nick -> $veri"
         set isurl "http://is.gd/api.php?longurl=$veri"
         set url [::http::geturl "$isurl" -timeout [expr {6*1000}]]
         set data [split [::http::data $url] \n] 
         ::http::cleanup $url
         regexp {(.*)} $data "" output
         
         set titleurl "http://$veri"
         set turl [::http::geturl "$titleurl" -timeout [expr {6*1000}]]
         set tdata [split [::http::data $turl] \n]
         ::http::cleanup $turl
         regexp {<title>(.*?)</title>} $tdata "" title
         
      if {![info exists title]} {
         set title "bilgi yok.."
         } elseif {[string match -nocase "*Error*Sorry*" $output]} { 
         set output "hata oluştu.."
         putlog "$title - $output"
         return 0
         } else {
         set cikti ""
         lappend cikti \037\00314$output\003\037 \00304->\003 \002 {*}[::isgd::entityToChar $title] \002
         puthelp "privmsg $chan :$nick -> $cikti"
        return 0
        }
  }
    
proc ::isgd::check_txt {text} {
        set t [stripcodes bcruag $text]
        foreach _ [split $t] {
     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]} {
          return $out
         }
     }
}         
    
# perplexa'nın ud.tcl scriptinde kullandığı ,aslı tcllib htmlparse'den alınma,
# html kodları/artıklarını ayıklamakta kullanılan prosedür.
    
proc ::isgd::entityToChar {text {char utf-8}} {
    if {![string match *&* $text]} {return $text}
    
    set escapes {
        &nbsp; \xa0 &iexcl; \xa1 &cent; \xa2 &pound; \xa3 &curren; \xa4
        &yen; \xa5 &brvbar; \xa6 &sect; \xa7 &uml; \xa8 &copy; \xa9
        &ordf; \xaa &laquo; \xab &not; \xac * \xad &reg; \xae
        &macr; \xaf &deg; \xb0 &plusmn; \xb1 ² \xb2 ³ \xb3
        &acute; \xb4 &micro; \xb5 &para; \xb6 &middot; \xb7 &cedil; \xb8
        ¹ \xb9 &ordm; \xba &raquo; \xbb ¼ \xbc ½ \xbd
        ¾ \xbe &iquest; \xbf &Agrave; \xc0 &Aacute; \xc1 &Acirc; \xc2
        &Atilde; \xc3 &Auml; \xc4 &Aring; \xc5 &AElig; \xc6 &Ccedil; \xc7
        &Egrave; \xc8 &Eacute; \xc9 &Ecirc; \xca &Euml; \xcb &Igrave; \xcc
        &Iacute; \xcd &Icirc; \xce &Iuml; \xcf &ETH; \xd0 &Ntilde; \xd1
        &Ograve; \xd2 &Oacute; \xd3 &Ocirc; \xd4 &Otilde; \xd5 &Ouml; \xd6
        &times; \xd7 &Oslash; \xd8 &Ugrave; \xd9 &Uacute; \xda &Ucirc; \xdb
        &Uuml; \xdc &Yacute; \xdd &THORN; \xde &szlig; \xdf &agrave; \xe0
        &aacute; \xe1 &acirc; \xe2 &atilde; \xe3 &auml; \xe4 &aring; \xe5
        &aelig; \xe6 &ccedil; \xe7 &egrave; \xe8 &eacute; \xe9 &ecirc; \xea
        &euml; \xeb &igrave; \xec &iacute; \xed &icirc; \xee &iuml; \xef
        &eth; \xf0 &ntilde; \xf1 &ograve; \xf2 &oacute; \xf3 &ocirc; \xf4
        &otilde; \xf5 &ouml; \xf6 &divide; \xf7 &oslash; \xf8 &ugrave; \xf9
        &uacute; \xfa &ucirc; \xfb &uuml; \xfc &yacute; \xfd &thorn; \xfe
        &yuml; \xff &fnof; \u192 &Alpha; \u391 &Beta; \u392 &Gamma; \u393 &Delta; \u394
        &Epsilon; \u395 &Zeta; \u396 &Eta; \u397 &Theta; \u398 &Iota; \u399
        &Kappa; \u39A &Lambda; \u39B &Mu; \u39C &Nu; \u39D &Xi; \u39E
        &Omicron; \u39F &Pi; \u3A0 &Rho; \u3A1 &Sigma; \u3A3 &Tau; \u3A4
        &Upsilon; \u3A5 &Phi; \u3A6 &Chi; \u3A7 &Psi; \u3A8 &Omega; \u3A9
        &alpha; \u3B1 &beta; \u3B2 &gamma; \u3B3 &delta; \u3B4 &epsilon; \u3B5
        &zeta; \u3B6 &eta; \u3B7 &theta; \u3B8 &iota; \u3B9 &kappa; \u3BA
        &lambda; \u3BB &mu; \u3BC &nu; \u3BD &xi; \u3BE &omicron; \u3BF
        &pi; \u3C0 &rho; \u3C1 &sigmaf; \u3C2 &sigma; \u3C3 &tau; \u3C4
        &upsilon; \u3C5 &phi; \u3C6 &chi; \u3C7 &psi; \u3C8 &omega; \u3C9
        &thetasym; \u3D1 &upsih; \u3D2 &piv; \u3D6 &bull; \u2022
        &hellip; \u2026 &prime; \u2032 &Prime; \u2033 &oline; \u203E
        &frasl; \u2044 &weierp; \u2118 &image; \u2111 &real; \u211C
        &trade; \u2122 &alefsym; \u2135 &larr; \u2190 &uarr; \u2191
        &rarr; \u2192 &darr; \u2193 &harr; \u2194 &crarr; \u21B5
        &lArr; \u21D0 &uArr; \u21D1 &rArr; \u21D2 &dArr; \u21D3 &hArr; \u21D4
        &forall; \u2200 &part; \u2202 &exist; \u2203 &empty; \u2205
        &nabla; \u2207 &isin; \u2208 &notin; \u2209 &ni; \u220B &prod; \u220F
        &sum; \u2211 &minus; \u2212 &lowast; \u2217 &radic; \u221A
        &prop; \u221D &infin; \u221E &ang; \u2220 &and; \u2227 &or; \u2228
        &cap; \u2229 &cup; \u222A &int; \u222B &there4; \u2234 &sim; \u223C
        &cong; \u2245 &asymp; \u2248 &ne; \u2260 &equiv; \u2261 &le; \u2264
        &ge; \u2265 &sub; \u2282 &sup; \u2283 &nsub; \u2284 &sube; \u2286
        &supe; \u2287 &oplus; \u2295 &otimes; \u2297 &perp; \u22A5
        &sdot; \u22C5 &lceil; \u2308 &rceil; \u2309 &lfloor; \u230A
        &rfloor; \u230B &lang; \u2329 &rang; \u232A &loz; \u25CA
        &spades; \u2660 &clubs; \u2663 &hearts; \u2665 &diams; \u2666
        &quot; \x22 &amp; \x26 &lt; \x3C &gt; \x3E O&Elig; \u152 &oelig; \u153
        &Scaron; \u160 &scaron; \u161 &Yuml; \u178 &circ; \u2C6
        &tilde; \u2DC &ensp; \u2002 &emsp; \u2003 &thinsp; \u2009
        &zwnj; \u200C &zwj; \u200D &lrm; \u200E &rlm; \u200F &ndash; \u2013
        &mdash; \u2014 &lsquo; \u2018 &rsquo; \u2019 &sbquo; \u201A
        &ldquo; \u201C &rdquo; \u201D &bdquo; \u201E &dagger; \u2020
        &Dagger; \u2021 &permil; \u2030 &lsaquo; \u2039 &rsaquo; \u203A
        &euro; \u20AC &apos; \u0027 &lrm; "" &rlm; "" ‬ "" * ""
        * ""
    };
    
    set text [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]]
    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
    return [subst "$text"]
   }    
    
    putlog "ok..."

Alıntı ile Cevapla

Alt

28 Temmuz 2014, 14:04

#4

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: shorten ( link kısaltma ) Tcl

güncelleme :

Tls paketi aracılığıyla, https link desteği sağlandı..

Tls nedir,ne işe yarar bilgi için -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] && [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Tcl-Tls ayrı bir pakettir. ayrıca kurulması/derlenmesi gerekir.

kurulumu:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

wget http://garr.dl.sourceforge.net/project/tls/tls/1.6/tls1.6-src.tar.gz
tar -zxf tls1.6-src.tar.gz
cd tls1.6
./configure --prefix=/Tcl'nin/kurulduğu/dizin
make install

script kullanım şekli:

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {[info tclversion] < 8.5} { 
   putloglev o * "Bu scripti kullanmak icin en az, Tcl8.5.x ve ustu Tcl surumlerinden biri kurulu olmali. Algilanan surum : $tcl_patchLevel"
   } else {
   putloglev o * "Algilanan Tcl surumu : $tcl_patchLevel shorten.tcl yuklendi.kanal ustunde aktif etmek icin : .chanset #kanal +shorten"
   }
   
package require Tcl 8.5

namespace eval isgd {
}

package require http

if {![catch {package require tls}]} {
        ::http::register https 443 [list ::tls::socket -require 0 -request 1]
        set var 1
        putlog "Tls bulundu, https desteği var..."
    } else {
        set var 0
        putlog "Tls algilanamadi, https desteği olmayacak."
    }

setudef flag shorten

bind pubm - "*" ::isgd::is_gd:pubm
bind msgm - "*" ::isgd::is_gd:msgm

proc ::isgd::is_gd:msgm {nick uhost hand text} { 
    ::isgd::is_gd:main $nick $uhost $hand $nick $text
    }

proc ::isgd::is_gd:pubm {nick uhost hand chan text} { 
     if {![channel get $chan shorten]} { return 0 }
    ::isgd::is_gd:main $nick $uhost $hand $chan $text
    }
    
proc ::isgd::is_gd:main {nick uhost hand chan text} { 
         set veri [::isgd::check_txt $text]    
         putlog "$nick -> $veri"
         set isurl "http://is.gd/api.php?longurl=$veri"
         ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
         set url [::http::geturl "$isurl" -timeout [expr {6*1000}]]
         set data [split [::http::data $url] \n] 
         ::http::cleanup $url
         regexp {(.*)} $data "" output
         
     if {![info exists output]} {
         set output "hata oluştu..."
         putlog "$output"
         return
         }
         
         set title [::isgd::is_gd:title $text]
         set cikti ""
         lappend cikti \037\00314$output\003\037 \00304->\003 \002 {*}[::isgd::entityToChar $title] \002
         puthelp "privmsg $chan :\00312$nick\003 \00304->\003 $cikti"
        return 0
  }
    
proc ::isgd::is_gd:title {text} {
         set veri [::isgd::check_txt $text]    
         ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"         
         set turl [::http::geturl $veri -timeout [expr {6*1000}]]
         set tdata [split [::http::data $turl] \n]
         ::http::cleanup $turl
         regexp {<title>(.*?)</title>} $tdata "" title
         
    if {![info exists title]} {
         set title "hata...bulunamadı..."
         return $title
         } else {
         return $title
         }
}
    
proc ::isgd::check_txt {text} {
        set t [stripcodes bcruag $text]
        foreach _ [split $t] {
     if {[regexp -nocase -- {(http|ftp|https|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
out]} {
          return [lindex $out 0]
         }
     }
}         
    
# perplexa'nın ud.tcl scriptinde kullandığı ,aslı tcllib htmlparse'den alınma,
# html kodları/artıklarını ayıklamakta kullanılan prosedür.
    
proc ::isgd::entityToChar {text {char utf-8}} {
    if {![string match *&* $text]} {return $text}
    
    set escapes {
        &nbsp; \xa0 &iexcl; \xa1 &cent; \xa2 &pound; \xa3 &curren; \xa4
        &yen; \xa5 &brvbar; \xa6 &sect; \xa7 &uml; \xa8 &copy; \xa9
        &ordf; \xaa &laquo; \xab &not; \xac * \xad &reg; \xae
        &macr; \xaf &deg; \xb0 &plusmn; \xb1 ² \xb2 ³ \xb3
        &acute; \xb4 &micro; \xb5 &para; \xb6 &middot; \xb7 &cedil; \xb8
        ¹ \xb9 &ordm; \xba &raquo; \xbb ¼ \xbc ½ \xbd
        ¾ \xbe &iquest; \xbf &Agrave; \xc0 &Aacute; \xc1 &Acirc; \xc2
        &Atilde; \xc3 &Auml; \xc4 &Aring; \xc5 &AElig; \xc6 &Ccedil; \xc7
        &Egrave; \xc8 &Eacute; \xc9 &Ecirc; \xca &Euml; \xcb &Igrave; \xcc
        &Iacute; \xcd &Icirc; \xce &Iuml; \xcf &ETH; \xd0 &Ntilde; \xd1
        &Ograve; \xd2 &Oacute; \xd3 &Ocirc; \xd4 &Otilde; \xd5 &Ouml; \xd6
        &times; \xd7 &Oslash; \xd8 &Ugrave; \xd9 &Uacute; \xda &Ucirc; \xdb
        &Uuml; \xdc &Yacute; \xdd &THORN; \xde &szlig; \xdf &agrave; \xe0
        &aacute; \xe1 &acirc; \xe2 &atilde; \xe3 &auml; \xe4 &aring; \xe5
        &aelig; \xe6 &ccedil; \xe7 &egrave; \xe8 &eacute; \xe9 &ecirc; \xea
        &euml; \xeb &igrave; \xec &iacute; \xed &icirc; \xee &iuml; \xef
        &eth; \xf0 &ntilde; \xf1 &ograve; \xf2 &oacute; \xf3 &ocirc; \xf4
        &otilde; \xf5 &ouml; \xf6 &divide; \xf7 &oslash; \xf8 &ugrave; \xf9
        &uacute; \xfa &ucirc; \xfb &uuml; \xfc &yacute; \xfd &thorn; \xfe
        &yuml; \xff &fnof; \u192 &Alpha; \u391 &Beta; \u392 &Gamma; \u393 &Delta; \u394
        &Epsilon; \u395 &Zeta; \u396 &Eta; \u397 &Theta; \u398 &Iota; \u399
        &Kappa; \u39A &Lambda; \u39B &Mu; \u39C &Nu; \u39D &Xi; \u39E
        &Omicron; \u39F &Pi; \u3A0 &Rho; \u3A1 &Sigma; \u3A3 &Tau; \u3A4
        &Upsilon; \u3A5 &Phi; \u3A6 &Chi; \u3A7 &Psi; \u3A8 &Omega; \u3A9
        &alpha; \u3B1 &beta; \u3B2 &gamma; \u3B3 &delta; \u3B4 &epsilon; \u3B5
        &zeta; \u3B6 &eta; \u3B7 &theta; \u3B8 &iota; \u3B9 &kappa; \u3BA
        &lambda; \u3BB &mu; \u3BC &nu; \u3BD &xi; \u3BE &omicron; \u3BF
        &pi; \u3C0 &rho; \u3C1 &sigmaf; \u3C2 &sigma; \u3C3 &tau; \u3C4
        &upsilon; \u3C5 &phi; \u3C6 &chi; \u3C7 &psi; \u3C8 &omega; \u3C9
        &thetasym; \u3D1 &upsih; \u3D2 &piv; \u3D6 &bull; \u2022
        &hellip; \u2026 &prime; \u2032 &Prime; \u2033 &oline; \u203E
        &frasl; \u2044 &weierp; \u2118 &image; \u2111 &real; \u211C
        &trade; \u2122 &alefsym; \u2135 &larr; \u2190 &uarr; \u2191
        &rarr; \u2192 &darr; \u2193 &harr; \u2194 &crarr; \u21B5
        &lArr; \u21D0 &uArr; \u21D1 &rArr; \u21D2 &dArr; \u21D3 &hArr; \u21D4
        &forall; \u2200 &part; \u2202 &exist; \u2203 &empty; \u2205
        &nabla; \u2207 &isin; \u2208 &notin; \u2209 &ni; \u220B &prod; \u220F
        &sum; \u2211 &minus; \u2212 &lowast; \u2217 &radic; \u221A
        &prop; \u221D &infin; \u221E &ang; \u2220 &and; \u2227 &or; \u2228
        &cap; \u2229 &cup; \u222A &int; \u222B &there4; \u2234 &sim; \u223C
        &cong; \u2245 &asymp; \u2248 &ne; \u2260 &equiv; \u2261 &le; \u2264
        &ge; \u2265 &sub; \u2282 &sup; \u2283 &nsub; \u2284 &sube; \u2286
        &supe; \u2287 &oplus; \u2295 &otimes; \u2297 &perp; \u22A5
        &sdot; \u22C5 &lceil; \u2308 &rceil; \u2309 &lfloor; \u230A
        &rfloor; \u230B &lang; \u2329 &rang; \u232A &loz; \u25CA
        &spades; \u2660 &clubs; \u2663 &hearts; \u2665 &diams; \u2666
        &quot; \x22 &amp; \x26 &lt; \x3C &gt; \x3E O&Elig; \u152 &oelig; \u153
        &Scaron; \u160 &scaron; \u161 &Yuml; \u178 &circ; \u2C6
        &tilde; \u2DC &ensp; \u2002 &emsp; \u2003 &thinsp; \u2009
        &zwnj; \u200C &zwj; \u200D &lrm; \u200E &rlm; \u200F &ndash; \u2013
        &mdash; \u2014 &lsquo; \u2018 &rsquo; \u2019 &sbquo; \u201A
        &ldquo; \u201C &rdquo; \u201D &bdquo; \u201E &dagger; \u2020
        &Dagger; \u2021 &permil; \u2030 &lsaquo; \u2039 &rsaquo; \u203A
        &euro; \u20AC &apos; \u0027 &lrm; ""
    };
    
    set text [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]]
    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
    return [subst "$text"]
   }

Alıntı ile Cevapla

Alt

13 Ekim 2014, 08:57

#5

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: shorten ( link kısaltma ) Tcl

güncelleme yapıldı. önceki yazımlarda görülen sorunlar giderildi...

( Tcl8.5.x ve üstü sürüm gerektirir. tcllib http ve htmlparse paketi gerektirir. https linkleri için tcl-tls paketi kurulmuş olması gerekir. )

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {[info tclversion] < 8.5} { 
   putloglev o * "\00312Bu scripti kullanmak icin en az, Tcl8.5.x ve ustu Tcl surumlerinden biri kurulu olmali. Algilanan surum : $tcl_patchLevel\00312"
   } else {
   putloglev o * "\00312Algilanan Tcl surumu : $tcl_patchLevel shorten.tcl yuklendi. \
   kanal ustunde aktif etmek icin :\003\00306 .chanset #kanal +shorten\003"
   }
   
package require Tcl 8.5

namespace eval isgd {
}

package require http

package require htmlparse

if {![catch {package require tls}]} {
        ::http::register https 443 [list ::tls::socket -require 0 -request 1]
        set vartls "1"
        putlog "\00304Tls algilandi, https destegi olacak.\003"
    } else {
        set vartls "0"
        putlog "\00304Tls bulunamadi. https destegi olmayacak.\003"
    }

setudef flag shorten

bind pubm - "*" ::isgd::is_gd:pubm
bind msgm - "*" ::isgd::is_gd:msgm

proc ::isgd::is_gd:msgm {nick uhost hand text} { 
    ::isgd::is_gd:main $nick $uhost $hand $nick $text
    }

proc ::isgd::is_gd:pubm {nick uhost hand chan text} { 
     if {![channel get $chan shorten]} { return 0 }
    ::isgd::is_gd:main $nick $uhost $hand $chan $text
    }
    
proc ::isgd::is_gd:main {nick uhost hand chan text} { 
         set output [::isgd::is_gd:output $text]
         set title [::isgd::is_gd:title $text]
         set cikti ""
         
         lappend cikti \00314 {*}$output \003\00304:\003\00306 {*}[::htmlparse::mapEscapes $title] \003
     if {![info exists cikti] || [llength $output] < 1} { return }    
           puthelp "privmsg $chan :\00309$nick\003 \00304->\003[filter $cikti]"
           return 0
  }

proc ::isgd::is_gd:output {text} {
         set veri [::isgd::check_txt $text]
     if {![info exists veri] || [llength $veri] < 1} { return }         
         putlog " -> $veri"
         set isurl "http://is.gd/api.php?longurl=$veri"
         
         ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
         set url [::http::geturl "$isurl" -timeout [expr {6*1000}]]
         set data [split [::http::data $url] \n] 
         ::http::cleanup $url
         regexp {(.*)} $data "" output
         
     if {![info exists output] || [string match -nocase "*Error*Sorry*" $output]} {
         set output "hata oluştu..."
         return $output
         } else {
         return $output
         }
}
  
proc ::isgd::is_gd:title {text} {
         set veri [::isgd::check_txt $text]
    if {![info exists veri] || [llength $veri] < 1} { return }    
         ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"         
         set turl [::http::geturl $veri -timeout [expr {6*1000}]]
         set tdata [split [::http::data $turl] \n]
         ::http::cleanup $turl
         regexp {<title>(.*?)</title>} $tdata "" title
         
    if {![info exists title]} {
         set title "hata...bulunamadı..."
         return $title
         } else {
         return $title
         }
}
    
proc ::isgd::check_txt {text} {
        set t [stripcodes bcruag $text]
        foreach _ [split $t] {
     if {[regexp -nocase -- {(http|ftp|https|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
out]} {
          return [lindex $out 0]
         }
     }
}     
    
proc filter {text} {
   set text [string map {"\\" "\\\\" "\[" "\\\[" "\]" "\\\]" "\{" "\\\{" "\}" "\\\}" "\$" "\\\$" "\"" "\\\""} $text] 
   return [subst $text]
}

Alıntı ile Cevapla

Alt

17 Ekim 2014, 08:24

#6

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: shorten ( link kısaltma ) Tcl

geçenlerde -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ssl 3.0 güvenlik açığı sorununun "keşf" edilmesiyle birlikte https kullanan pek çok büyük site (twitter , yahoo , paypal vs vs ..) düzenlemeye gitti..

buda bu siteler üzerinde çalışması için yazılmış/pek çok scriptte "soruna" yol açtı. (pek çok script bu sitelere bağlantı isteğine yanıt alamadığından, sock hatası atıp, işlemez hale geldi)

yukarıdaki paylaştığım script içinde :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

::http::register https 443 [list ::tls::socket -require 0 -request 1]

satırını :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

tls::init -tls1 1
::http::register https 443 tls::socket

olarak değişmeniz halinde bu tür siteler için bağlantı , bilgi alımı yeniden mümkün olacaktır...

(bu tür siteler için yazılmış kullandığınız scriptler var ise "tls desteğiyle işleyen", (yaklaşık 3 gündür çalışmıyor olmalılar) onlarıda bu şekilde "onarmanız,yeniden işler hale getirmeniz mümkün olacaktır....)

Alıntı ile Cevapla

Cevapla

eggdrop, is.gd, kısaltma, link, shorten, tcl

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı Trackbacks are Kapalı Pingbacks are Açık Refbacks are Açık Forum Rules

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yolculukta Namazları Kısaltma Ve Birleştirme	Elysian	Genel İslami Konular	0	06 Mayıs 2014 17:57
Kısaltma sorunu :S	TİGeR	mIRC Scripting Sorunları	1	07 Aralık 2010 08:51
Tiny URL v2.0 Link kısaltma scripti	Loft	PHP	0	13 Ocak 2008 04:26

Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

İletişim Arşiv Gizlilik Sözleşmesi Yukarı git

yavru köpek sohbet sohbet teması yetişkin sohbet

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO

Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org