IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - radyo dinleyen nickler ile ilgili (https://www.ircforumlari.net/tcl-scriptler/828571-radyo-dinleyen-nickler-ile-ilgili.html)

radyo dinleyen nickler ile ilgili

Altaki kod çalışıyor biraz düzenledim bir sorunum var

Sorun şu .dinleyici

Yukardaki komutu kullandığımda vermiyor dinleyen nickleri ama kanala biri girdinde radyosunu açtığında veriyor yani komutu kullanıyorum 10 daka sonra biri kanala girip yayın açarsa listeyi veriyor

istiyorum ki listeyi komutu yazinca versin olmadı sebep nedir.

PHP- Kodu:

   # Radyo dinleyici eklentisi

# site: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set sc(kanal) "#dj"

#radyo portu

set sc(port) "8000"

#radyo ip

set sc(ip) "ip"

#radyo sifre

set sc(sifre) "sifre"

 
 
#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.

bind raw - 315 who_son

 bind pub - .dinleyici dinleyici

 proc dinleyici {from keyword text} {

    global nicks SayIp

    http::config -useragent "Mozilla 5.0"

    set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0]

    set httpraw [http::data $baglan]

    set nicks ""

    set ips ""

    set SayIp "0"

    http::cleanup $baglan

 
    if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {

        set listeraw $veri

        bind raw - 352 raw_oku

        regsub -all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw

        foreach strListe $listeraw {

            if { [regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } { 

                if {[regexp $ipVeri $ips] == "0"} { 

                    lappend ips $ipVeri

                    incr SayIp

                    

                }

            }

        }

    }

    foreach x $ips {

         putserv "who +i $x"

    }

}

proc raw_oku {from keyword arg} {

    global nicks

    set nick [lindex $arg 5]

    if {[regexp {$nick} $nicks] == "0"} { 

        

        lappend nicks $nick 

    }

}

proc who_son {from keyword arg} {

    global nicks SayIp

    set SayIp [expr $SayIp - 1]

    if {$SayIp == "0"} {

                putserv "PRIVMSG $::sc(kanal) :\02 .::. Radyomuzu Dinleyenler .::.\02  $nicks"

        unbind raw - 352 raw_oku

}

}

Cevap: radyo dinleyen nickler ile ilgili

Eggdrop/doc/tcl-commands.doc
Yada;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bind Types (Bind Türleri) Bölümünde,
Kullandığınız "bind pub" Bind Türünün
Kullanım Şeklini İncelemelisiniz!

Cevap: radyo dinleyen nickler ile ilgili

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1042116071)

olmadı bilemedim.

Cevap: radyo dinleyen nickler ile ilgili

Bind Pub , Bindinin Bağladığı Prosedür,
Yukarıdaki Örnekte Bu Prosedür
"Dinleyici" Olarak Adlandırılmış,
Beş (5) Argümandan Oluşmak Zorunda (En Az!)

Eggdrop-Tcl Dökümanında ;
Nick (NickName) Uhost (UserHost) Hand (Handle) Chan (Channel) Text (Arg)
Olarak Gösterilmiş!

Sizin Bind Pub'la İlişkilendirilmiş
Dinleyici Prosedürünüz İse;
Üç (3) Argümanlı;
From Keyword Text
Ki Buda Dökümana Göre;
Bind Pub'a Değil Bind Raw'a Ait!

Bind Pub'ın "Dinleyici" Prosedürünü
(Bu Haliyle) İşletmesi/Çalıştırması
Olası Değildir!

Cevap: radyo dinleyen nickler ile ilgili

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1042127800)

PHP- Kodu:

   #Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.

bind raw - 315 who_son

 bind pub - .dinleyici dinleyici

 proc dinleyici {nick host handle chan arg} {

    global nicks SayIp

    http::config -useragent "Mozilla 5.0"

    set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0]

    set httpraw [http::data $baglan]

    set nicks ""

    set ips ""

    set SayIp "0"

    http::cleanup $baglan

 
    if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {

        set listeraw $veri

        bind raw - 352 raw_oku

        regsub -all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw

        foreach strListe $listeraw {

            if { [regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } { 

                if {[regexp $ipVeri $ips] == "0"} { 

                    lappend ips $ipVeri

                    incr SayIp

                    

                }

            }

        }

    }

    foreach x $ips {

         putserv "who +i $x"

    }

}

proc raw_oku {from keyword arg} {

    global nicks

    set nick [lindex $arg 5]

    if {[regexp {$nick} $nicks] == "0"} { 

        

        lappend nicks $nick 

    }

}

proc who_son {from keyword arg} {

    global nicks SayIp

    set SayIp [expr $SayIp - 1]

    if {$SayIp == "0"} {

                putserv "PRIVMSG $::sc(kanal) :\02 .::. Radyomuzu Dinleyenler .::.\02  $nicks"

        unbind raw - 352 raw_oku

}

}

Yukardaki gibi son hali söyle bir sorun var .dinleyici yaptigimida bilgiyi vermiyor
bir kisi radyoyu açtıktan sonra veriyor..
2 sikinti ise ircd deki botlarida dinleyci die gösteriyor eggdrop