linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move folder tasmad

Browse Source 
r3086 | jgn | 2011-03-29 15:32:07 +1100 (Tue, 29 Mar 2011) | 1 line
This commit is contained in:
Jing Chen
2011-03-29 15:32:07 +11:00
committed by Douglas Clowes
parent e92dce3948
commit 66e3096b24
33 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
site_ansto/instrument/tas/config/tasmad/sicscommon/backup.tcl Normal file
View File

@@ -0,0 +1,32 @@
proc nextBackupTime {now period last} {
upvar $last l
set l [expr $now / $period * $period]
return [expr $l + $period]
}
proc backupCron {path {minutes 10} {days 1}} {
global next_backup
set now [clock seconds]
set minutes [expr $minutes * 60]
set days [expr $days * 24*3600]
if {! [info exists next_backup]} {
set next_backup(min) [nextBackupTime $now $minutes last]
set next_backup(day) [nextBackupTime $now $days last]
set file [clock format $now -format "$path/backupd-%m-%d.tcl"]
if {![file exists $file]} {
backup $file
}
}
if {$now > $next_backup(min)} {
set next_backup(min) [nextBackupTime $now $minutes last]
set file [clock format $last -format "$path/backup-%Hh%M.tcl"]
} else {
return 1
}
if {$now > $next_backup(day)} {
set next_backup(day) [nextBackupTime $now $days last]
set file [clock format $last -format "$path/backupd-%m-%d.tcl"]
}
backup $file
return 1
}