ccf3cc1888
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1442 2a923420-c742-0410-a762-8d5b09965624
10 lines
143 B
Plaintext
10 lines
143 B
Plaintext
|
|
if {![exists -proc cat]} {
|
|
proc cat {file} {
|
|
if {[catch {set fp [open $file r}]} { return }
|
|
puts -nonewline [read $fp]
|
|
close $fp
|
|
}
|
|
}
|
|
|