Posted to tcl by funa at Wed Dec 11 09:56:04 GMT 2019view raw

  1. #!/usr/local/st/expect -f
  2. DATE=`date +%Y-%m-%d`
  3. swan /usr/local/archive.sh archive $DATE /backup/archive/
  4. expect "Archive all revisions received until $DATE? (yes/no):\r"
  5. send -- "no"
  6. expect eof