27 lines
527 B
Plaintext
Executable File
27 lines
527 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
# frontend edit/edit/jim to ensure file is editable
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
|
|
httpheader
|
|
|
|
set file [cgi_get file .temp]
|
|
puts "Prep file $file"
|
|
|
|
set fileok 0
|
|
if {[file exists "$file"] } {
|
|
set hand [open $file]
|
|
set data [read $hand 20]
|
|
#puts "data $data"
|
|
if {[string length $data] > 0} { set fileok 1}
|
|
close $hand
|
|
}
|
|
|
|
if {! $fileok} {
|
|
file copy -force [file tail $file] $file
|
|
puts 'Initialized $file'
|
|
}
|
|
|
|
#cd /mod/webif/html/edit
|
|
#puts [exec /mod/webif/html/edit/edit.jim]
|