bind pub - .djon djonline

proc djonline { nick uhost hand chan arg } {
global radyoname radyohost radyolink adminchans
set djnick $nick 
set djlist [open "scripts/djliste.txt" r]
set nicks [split [read -nonewline $djlist] \n] 
close $djlist
  if {[string match -nocase $adminchans $chan]} {
    if {![llength $nicks]} { 
      set djlist [open "scripts/djliste.txt" w] 
    } else { 
      set djlist [open "scripts/djliste.txt" a] 
    }
    foreach line $nicks { 
      if {[string match -nocase $djnick $line]} { 
        putquick "privmsg $chan :$djnick Yayın Girişiniz Gerçekleştiriliyor..." 
      } 
    }
puts $djlist "$djnick" 
close $djlist
  putserv "CHGHOST $nick Dj.$radyohost"
  putserv "CHGIDENT $nick $radyoname"
  putserv "CHGNAME $nick $radyoname \00303OnLine Dj'i\003"
  putserv "Operserv raw svsnick $nick Dj|$nick 1:0"
  putserv "Operserv raw svsmode +Wq"
  putserv "privmsg $adminchans $radyoname 'e Dj Olarak Giriş Yaptınız."
  poststuff privmsg "$radyoname 'de Dj'lerimizden $nick Şu Anda OnLine Konuma Geçmiştir."
  poststuff privmsg "$radyoname 'i Winamp'tan Dinlemek Icin $radyolink"
  }
}


bind pub - .djoff djoffline

proc djoffline { nick uhost hand chan arg } {
global radyoname radyohost radyolink adminchans
set djlist [open "scripts/djliste.txt" r]
set nicks [split [read -nonewline $djlist] \n]
  if {[string match -nocase $adminchans $chan]} {
    putserv "CHGHOST $nick $nicks.$radyohost"
    putserv "CHGIDENT $nick Sohbet"
    putserv "CHGNAME $nick 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putserv "Operserv raw svsnick $nick $nicks 1:0"
    putserv "privmsg $adminchans $radyoname 'den Dj Olarak Çıkış Yaptınız."
    poststuff privmsg "$radyoname 'de Dj'lerimizden $nick Şu Anda OffLine Konuma Geçmiştir."
    poststuff privmsg "$radyoname 'i Winamp'tan Dinlemek Icin $radyolink"
close $djlist
set sil $nicks
set line [lsearch -exact $nicks "$sil" ] 
set djnick [lreplace $nicks $line $line] 
set djlist [open "scripts/nicklist.txt" w] 
puts $djlist [join $djnick "\n"] 
close $djlist
  }
}