Socket Yayın Alana Dj Takı Eklentisi

[Toprak]

Merhabalar.

alias _radyoip return IP
alias _radyoport return PORT
alias _radminpass return Admin PASS

alias djip {
sockclose djip
sockopen djip $_radyoip $_radyoport
}
on *:sockopen:djip:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/admin.cgi?pass=,$_radminpass) [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: $+($_radyoip, :, $_radyoport)
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept-Language: tr,tr;q=0.5
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname $crlf
}
on *:sockread:djip:{
if ($sockerr) { .sockclose $sockname | return }
var %:djip | sockread -f %:djip | tokenize 32 %:djip
if $regex($1-,/Incoming interface\:(.+)/i) {
.hadd -ms DjIP #DJ $token($token($regml(1),1,58),2,62)
who +I #dj
}
}
raw 352:*:{
if ($hget(DjIP,$2) == $4) && !$regex($6,/^Dj-/Si) {
os raw svsnick $6 $+(Dj-,$6) 0:1
msg #dj $6 Sistem'e Dj olarak tanındı ve 4Dj- eki eklenmiştir..
}
}


Ayarları yaptık dan sonra /djip yazmanız yeterli olacaktır.