radyo dinleyen nickler ile ilgili - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

alphae · 08 Temmuz 2019, 22:01

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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


# 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

}

}

Heartbroken · 12 Temmuz 2019, 18:05

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!

alphae · 01 Ağustos 2019, 06:04

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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!

olmadı bilemedim.

Heartbroken · 02 Ağustos 2019, 23:46

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!

alphae · 03 Ağustos 2019, 02:42

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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!

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


#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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo dinleyen voice-devoice	Set	mIRC Scripting Hazır Kodlar	16	16 Nisan 2020 21:21
Radyo dinleyen Voice	ahmetsivas	mIRC Scripting Sorunları	4	13 Ocak 2016 16:11
Radyo dinleyen nick tcl ile ilgili.	Kombine	Eggdrop, NeoStats, BNC	15	19 Eylül 2014 21:44
Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim	gapex	Eggdrop, NeoStats, BNC	4	02 Haziran 2011 22:26
Radyo ile ilgili	Brain	Unreal IRCd	9	09 Mayıs 2007 23:25

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

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.