|
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