#!/usr/bin/tclsh
#
# This file is used to backup my homepage
#
set backupfile $env(HOME)
append backupfile "\\My Documents"
append backupfile "\\Homepage-"
append backupfile [clock format [clock seconds] -format %Y%m%d]
append backupfile ".7z"
set backupdir $env(HOME)
append backupdir "\\My Documents"
append backupdir "\\public_html"
set fileExist [file exists $backupfile]
if {$fileExist > 0} {
puts "Now try to remove old backup file."
file delete $backupfile
}
set var [list 7z a $backupfile $backupdir]
exec {*}$var
puts "Done."
exit
因為在 Windows XP 上也有需要網頁的備份，所以把之前在 Linux 上用的稍微改寫以後就搬過來了。要注意的是，我已經把 7-ZIP 加進去 PATH 環境變數裡了，所以就不用寫絕對路徑，只要寫 7z 就可以了。
