вьювер логов для centericq ;)

[shrikus]

сделал subj, так как задалбала читать их в самой centericq (нереально)

кому нада берём тут

Comments

[coolcold]

Ты што, наркаман штоли?:)
И хватит выдирать куски кода откуда попало -
proc readdata {file} {
    if {![file exists $file]} {
         return ""
    } else {
         set fileio [open $file r]
         set lines ""
         while {![eof $fileio]} {
              set line [gets $fileio]
              if {$line != ""} { set lines [linsert $lines end $line] }
         }
         close $fileio
         return $lines
    }
}
давным давно люди придумали lappend вместо set lines [linsert $lines end $line] :)

Но вообще аффтар жж0тт, тикля фарева! :)