### Dosyanın Bulunduğu Yer###
set dcm "scripts/dosya.txt"
proc join_greet {nick uhost handle channel} {
set file [open $dcm r]
set listfile [split [subst -nocommands [read $file]] "\n"]
foreach i $listfile { 
putserv "privmsg $nick $i"
} 
close $file
}
bind join - * join_greet