Richard Suchenwirth 2002-08-16 - This little script checks periodically for the existance of a file at well-specified location ("todo"), and if it exists,
Very simple, but seems to work also with non-trivial tasks...
proc every {ms body} {eval $body; after $ms [info level 0]} set filename /home/suchenwi/todo every 5000 { if [file exists $::filename] { catch {exec sh $::filename} res set fp [open /home/suchenwi/done w] puts $fp $res close $fp file delete $::filename } }