学步园

#!/usr/bin/newlisp

(set 'folder-name (date (date-value) 0 "%Y-%m-%d"))
(set 'base-path "/opt/backup")
(set 'mongo-host "192.168.1.51")
(set 'save-dir (format "%s/%s" base-path folder-name))
(set 'del-cmd (format "rm -rf %s" save-dir))
(if (file? save-dir) (exec del-cmd))
(make-dir save-dir)
(set 'back-cmd (format "mongodump --host %s -d test_db -o %s/%s" mongo-host base-path folder-name))
(exec back-cmd)
(set 'del-dir (date (date-value) -2880 "%Y-%m-%d"))
(set 'del-cmd (format "rm -rf %s" del-dir))
(if (file? save-dir) (exec del-cmd))
(exit)

每次都会删除前天的备份数据。