Fisilti.tcl
 

Merhaba arkadaşlar. Bir süre önce sorunsuz çalışan kod suanda calısmamakta. Sanırım ya site güncellendi yada farklı bir sorun söz konusu. Yardımcı olabilecek arkadaşlara simdiden tsklerimi sunarım.

PHP- Kodu:

---

package require http

;# kanala gönderilecek sözlerin zaman aralığı (dakika cinsinden):
set sozaman "5"

;# kodun çalışacağı kanal:
set sozkanal "#zurna"

bind time - "*" guzel:soz

proc guzel:soz {minute hour day month year} {
    if {([scan $minute %d] + ([scan $hour %d]*60)) % $::sozaman == 0} { 
       ::http::config -useragent "UserAgent"
       set tok [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-timeout 25000]
       set data [::http::data $tok]
       ::http::cleanup $tok
     if {[regexp {<li class="guzelSozlerMetin">(.*?)</li>} $data match soz]} {
          set i 0
        foreach line [split $soz \n] {;
        regsub -all {<strong>} $line {} line
        regsub -all {</strong>} $line {} line
        regsub -all {\<\{[^\>]\}*\>} $line {} line
            regsub -all {<p>} $line {} line
        regsub -all {</p>} $line {} line
        regsub -all {<font face="Arial">} $line { } line
        regsub -all {<pre><font face="Comic Sans MS" size="3">} $line { } line
        regsub -all {<br />} $line {} line
        regsub -all {</font>} $line {} line
        regsub -all {</pre>} $line {} line
        regsub -all {</div>} $line {} line
        regsub -all {<div class="storycontent">} $line {} line
        regsub -all {</h4>} $line {} line
        regsub -all {<table cellspacing="i" width="7ii" border="i">} $line {} line
                regsub -all {<td class="style21" colspan="4">} $line {} line
        regsub -all {<span id="more-160"></span>} $line {} line
        regsub -all {<div class=".*?">} $line {} line
        regsub -all {<.*?>} $line "" line
        set line [string map -nocase {
                  ğ \u011f Ğ \u011e ı \u0131 İ \u0130 ö \u00f6 Ö \u00d6 ü \u00fc Ü \u00dc ş \u015f Ş \u015e ç \u00e7 Ç \u00c7
              &hearts; \u2764 </td> "" <tr> "" </tbody> "" </table> "" <h4> "" ? \u015f y \u0131 ? \u011f ? \u011e Y \u0130
                  &ccedİl; ç &szlİg; ş &rsquo; ' &nbsp; "" &ouml; ö &uuml; ü &quot; \" ♥ ""} $line]
             if {[llength $line] != 0} {
                 puthelp "privmsg $::sozkanal :\00304Lakırdı:\$line\"
                         incr i
            } else { return 0;}
              }
        }
      }
}

putlog "beh..." 


---

Cevap: Fisilti.tcl
 

Kodun sahibine ulaşıp ,sorun.
Ne olduğunu o bilir.
Ya clubber'dır ya nrt zaten.

Cevap: Fisilti.tcl
 

Kodun sahibini bilsem :) bu zamana kalmazdım. Sayın coderlar'dan desteklerini beklemekteyim. Saygılarımla

Cevap: Fisilti.tcl
 

Kodu yazan tahmin ettiğim gibi nrt
Burada forumda SayWhat kullanıyor ama
Ben 10+ yıldır tanırım nrt
Dün sordum o yazmış script adı Lakırdı.tcl
Fısıltı.tcl nereden çıkmışmış :)
Buradan verdiği dediğine göre
asıl kodun müsvettesi,karalamasıymış.
Haftalar önce kodu güncellemişmiş.

Dün yeniden benim söylediğim eki de
yaptı.
Diğer geçen gün o selamlama karşılama
mıydı neydi ,onuda bir daha elden geçirmiş.

Bu sizinki buradan çekebilirsiniz.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
burada da geçen günkü zımbırtının yeni hali var
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Fisilti.tcl
 

Çok teşekkür ederim harikasın. Ancak lakırdı indirme linkinde türkçe karakter problemi mevcut olduğundan dolayı hata alıyoruz.

Tekrar kontrol edersen sevinirim.

Cevap: Fisilti.tcl
 

O sayfa utf-8.
Direk indirmek için
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
diğeride
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kodları Windows'un not defteriyle
açarsanız satırları içiçe geçmiş
görürsünüz.
Tcl kodlarını desteklemez.
Notepad++ gibi bişey kullanın.
Yoksa kod bozulur.
Başka bir bilgisayardan ve
Ağdan girip denedim sorun
olmadı indirmek de kodu
açmak da.

Cevap: Fisilti.tcl
 

Yok sunucuda notepad++ yüklü ordan editledim. Ancak botu sunucuya baglarken yukarıdaki hatayi vermekte. Özel'den yahut skype ile kontak kurabilirsek sevinirim.

Cevap: Fisilti.tcl
 

Kodların sahibi nrt
Ben sadece aracıyım.
İletmemi istedi.İlettim.
Sorun varsa onunla görüşmelisiniz.
Yukardaki hata çıktısına göre
bence siz Linux makinede
çalıştırmıyorsunuz botu.
Ya windrop yada cygwin
ile Windows üzerinde kullanmaya
çalışıyorsunuz.
O komutlar Windows üzerinde
işlemez.
Her eggdrop Tcl kodu windrop ile
işletilemez.

Şimdi gördüm öyleymiş zaten
yazıyor cygwin diye.
Onunla yürümez o komutlar.
Hata verdiği satırı içinde
$::timezone geçen satırı
etkisiz kılıp deneyin.
Windows da yürümüyor o komut.
belli ki.

Cevap: Fisilti.tcl
 

Evet doğrudur windows 2008 rc sürümü win tabanlı bir vps'de kurulu yerde çalıştırmaya çalışıyorum. Haklısında belli kodlar ne yazıkki hata vermekte. Ancak sayın nrt'nin yapmış olduğu eski kod bu sistemde çalışırken sanırım site yahut başka bir veri güncellemesinden sonra aktif olmadı. Yani daha önce sistem sorunsuz çalışırken aynı kodun güncellendikten sonra çalışmaması biraz garip geldi. Yinede teşekkürler.

Cevap: Fisilti.tcl
 

Bu nrt yi nereden bulucaz :)