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