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) HTTP/1.1
  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..
  }
}