# Giren kullanicilar
bind join - * user_girdi
proc user_girdi {nick uhost hand channel} {
fyaz $nick scripts/kullanicilar.txt
}
 
# Cikan kullanicilar
bind join - * user_cikti
 
proc user_cikti {nick uhost hand channel msg} {
fsil $nick scripts/kullanicilar.txt
}
 
# nick degistirenler icin
bind nick - * yeni_nick
proc yeni_nick {nick uhost handle channel newnick} {
fsil $nick scripts/kullanicilar.txt
fyaz $newnick scripts/kullanicilar.txt
}
# Ayrilma mesajlari part bind'e yonlendirmekte sakinca yok
bind sign - * user_cikti
 
# kick uygulamasi
bind kick - * user_kick
proc user_kick {nick host hand chan target reason} {
fsil $nick scripts/kullanicilar.txt
}
 
# fyaz <veri> <dosya adi>
# Yukaridaki gibi kullanilir ve belirtilen dosyaya belirtilen verinin yazilmasini saglar
# ornek: fwrite aCoustiC kullanicilar.txt
proc fyaz {text dosya} {
set datafile $dosya
set text [split $text]
set ahand [lindex $text 0]
 
# veri kontrolu
if {$ahand == ""} {
puthelp "Hata Kullanimi: fwrite <veri>"
return
}
 
# Dosya ve veri kontrolu
if {[file exists $datafile]} {
set input [open $datafile r]
while {![eof $input]} {
set curline [gets $input];set curline [split $curline]
if {[lindex $curline 0] == $ahand} {
puthelp "HATA: $ahand zaten $datafile da mevcut"
catch {close $input}
return
}
}
catch {close $input}
}
# Ekleme islemi icin yeni satir yarat ve yaz
set output [open $datafile a]
puts $output "[join $ahand]"
flush $output
catch {close $output}
puthelp "[join $ahand] Basariyla $datafile dosyasina eklendi"
return [join $ahand]
}
 
# fdel <veri> <dosya adi>
# Yukaridaki gibi kullanilir ve dosya icerisinde belirtilmis bilgiyi siler
# Ornek fdel aCoustiC kullanicilar.txt
proc fsil {text dosya} {
set datafile $dosya
set text [split $text]
set ahand [lindex $text 0]
 
# degisken duzgun 1 sekilde yonlendiriliyormu bak
if {$ahand == ""} {
puthelp "HATA: fdel <veri> seklinde kullanin"
return
}
 
# Dosya kontrol
if {![file exists $datafile]} {
puthelp "Hata Dosya Bulunamadı"
return
}
 
# Dosya icerisinde veri araniyor ve yazma islemi gerceklesiyor
set data ""
set input [open $datafile r]
while {![eof $input]} {
set curline [gets $input];set curline [split $curline]
if {$curline != ""} {
set data [linsert $data end $curline]
}
}
catch {close $input}
 
set mark -1;set match ""
foreach line $data {
incr mark
if {[lindex $line 0] == $ahand} {
set match $mark
break
}
}
if {$match == ""} {
puthelp "HATA: $ahand dosya icerisinde bulunamadi.."
return
}
set newdata [lreplace $data $mark $mark]
set output [open $datafile w]
foreach newline $newdata {
if {$newline != ""} {
puts $output $newline
}
}
flush $output
catch {close $output}
putlog "Basarili $ahand :Basariyla silindi.."
return $ahand 
}