24 lines
487 B
Tcl
Executable File
24 lines
487 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
|
|
proc TouchFile {file} {
|
|
set f [open $file w]
|
|
puts $f " "
|
|
close $f
|
|
}
|
|
|
|
set file "/tmp/.kill_mythfrontend_from_remote"
|
|
if { [file exists $file] } {
|
|
set f_date [file mtime $file]
|
|
set now [clock seconds]
|
|
if { [expr $now - $f_date < 4] } {
|
|
catch {exec /usr/bin/pkill mythfrontend} ret
|
|
# ifpkill did not work, try kill -9
|
|
if { $ret != 0 } {
|
|
catch {exec /usr/bin/pkill -9 mythfrontend} ret
|
|
}
|
|
}
|
|
TouchFile $file
|
|
} else {
|
|
TouchFile $file
|
|
}
|