Posted to tcl by funa at Wed Dec 11 09:56:04 GMT 2019view pretty
#!/usr/local/st/expect -f DATE=`date +%Y-%m-%d` swan /usr/local/archive.sh archive $DATE /backup/archive/ expect "Archive all revisions received until $DATE? (yes/no):\r" send -- "no" expect eof