# Skor dosyasinin yazilacagi dinizi belirtiniz.
set kaoshtml "/public_html/kaos-puan.txt"

utimer 30 scorehtml
proc scorehtml {} {
global scorehtml kaoshtml KAOSScoreFile
    set scorefile [open "$kaoshtml" w]
    close $scorefile
    set kaos [open "$KAOSScoreFile" r]
    set score [split [read $kaos] \n]
    catch {close $kaos}
    foreach satir $score {
    if {$satir != ""} {
        set scorewrite [open "$kaoshtml" a]
        puts $scorewrite $satir
        flush $scorewrite
        catch {closer $scorewrite}
    }
    }
utimer 60 scorehtml
}