PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
set dosyayolu "sozler.txt"
bind pub - !sozekle sozler
proc sozler {n u h c a} {
global dosyayolu
if { $a != "" } {
set soz [open $dosyayolu a]
puts $soz $a
close $soz
putserv "notice $n :Yolladığınız söz , sözler listemize eklenmiştir.. Teşekkür ederiz.."
} else {
putserv "notice $n :\002Kullanım şekli :\002 !sozekle (söz)"
}
}