bind time - "* * * * *" yenidinleyici
proc yenidinleyici {min hour day month year} {
 global streamip streampass streamport
 if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
  putlog "error: $sockerror"
  return 0
  } else {
  puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
  puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
  puts $sock "Host: $streamip"
  puts $sock "Connection: close"
  puts $sock ""
  flush $sock
  while {[eof $sock] != 1} {
   set bl [gets $sock]
   if { [string first "standalone" $bl] != -1 } {
    set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]
    set streamstatus "[string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]"
   }
  }
  close $sock
 }
 if {[info exists streamstatus] && $streamstatus == "1"} {
 set voicevr [temiz $voicevr]
 if {[llength $voicevr] < 1} { return 1 }
 set deger 0
 set ::rawcount 0
 set ipler ""
 bind raw -|- 352 voysver
 foreach i $voicevr {
  if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {
   incr ::rawcount
   lappend ipler "[lindex $voicevr $deger] "
  }
  incr deger
 }
 set ydeger 0
 foreach j $ipler {
  putquick "who +i [lindex $ipler $ydeger]"
  incr ydeger
 }
}
}

proc voysver {from keyword arg} {
    set x [open dinleyici1.txt a]
    puts $x [lindex $arg 5]
    close $x
}



proc temiz {veri} {
regsub -all \< $veri " " veri
regsub -all \/ $veri " " veri
regsub -all \> $veri " " veri
return $veri
}

# DJ'lere verilecek ident'i yazıyoruz.

set dj(ident) "Dj"
 
# DJ'lere verilecek hostu yazıyoruz.

set dj(host) "Dj.Domain.Com"
 
# DJ'lere verilecek fullname'yi yazıyoruz.

set dj(name) "0,4RADYO-ADI0,2Radyo DJ'i 0,4Online"

bind pub - !dj dj:login
proc dj:login {nick uhand host chan text} {
  global botnick dj
  if {[string match -nocase "#Dj" $chan]} {
    putquick "chghost $nick $dj(host)"
    putquick "chgident $nick $dj(ident)"
    putquick "chgname $nick $dj(name)"
    putquick "operserv raw svsmode $nick +Wq :1"
    putquick "operserv raw svsnick $nick Dj_$nick :1"
    putquick "privmsg $chan $nick Başarı ile dj login oldunuz."
  }
}

# DJ'lere verilecek ident'i yazıyoruz.

set dj(ident) "DJ"

# DJ'lere verilecek hostu yazıyoruz.

set dj(host) "DJ.sunucu.NET"

# DJ'lere verilecek fullname'yi yazıyoruz.

set dj(name) "irc.sunucu DJ"

bind pub - !off off
proc off {nick uhand host chan text} {
global botnick dj
if {[string match -nocase "#DJ" $chan]} {
putquick "chghost $nick $dj(host)"
putquick "chgident $nick $dj(ident)"
putquick "chgname $nick $dj(name)"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"
putquick "privmsg $chan $nick emeğinize sağlık teşekkürler."
}
}