MymsMan/webif
1
0
Fork 0
forked from hummypkg/webif
Code Pull Requests Activity

Sanity check Recording start/end fields

Browse Source
This commit is contained in:
prpr 2023-07-01 12:36:52 +01:00
parent 90b69d0d21
commit 9c5b1a5641
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
webif/lib/auto/plugin/expire/auto.hook
View File

@ -61,6 +61,10 @@ proc ::expire::directory {dir} {
} }
if {$ax(days) > 0} { if {$ax(days) > 0} {
# Calculate age in days # Calculate age in days
if {[$getter $ts] < [$ts get start]} {
log " End before start, skipping."
continue
}
set age $(($now - [$getter $ts]) / 86400.0) set age $(($now - [$getter $ts]) / 86400.0)
log " $age days (cf. $ax(days))" log " $age days (cf. $ax(days))"
if {$age < $ax(days)} { if {$age < $ax(days)} {

2
webif/lib/ts.class
View File

@ -49,7 +49,7 @@ ts method dir {} {
} }
ts method duration {{raw 0}} { ts method duration {{raw 0}} {
set d [expr {$end - $start}] set d $(($end && $start && $end > $start) ? $end - $start : 0)
if {!$raw} { set d $($d / 60) } if {!$raw} { set d $($d / 60) }
return $d return $d
} }