Don't create -crop.thm when ot cropping!

This commit is contained in:
Bob Buxton 2020-03-02 17:10:28 +00:00
parent 22559c1127
commit c1abf0db10

View File

@ -107,6 +107,7 @@ proc ::detectads::delete_orphans {} {
set bname [file rootname $file] set bname [file rootname $file]
file delete -force $bname.hmt file delete -force $bname.hmt
file delete -force $bname.nts file delete -force $bname.nts
file delete -force $bname.thm
file delete -force $file file delete -force $file
log "Deleted orphan file $file" log "Deleted orphan file $file"
} }
@ -1010,11 +1011,13 @@ proc ::detectads::chaserun {ts {Qid 0} {retrynumb 0}} {
} else { } else {
log "Thumbnail created at offset $offset in $(($thmend-$thmstart)/1000) seconds" 0 log "Thumbnail created at offset $offset in $(($thmend-$thmstart)/1000) seconds" 0
file copy "$tpath/$tname.thm" "$bpath/$bname.thm" file copy "$tpath/$tname.thm" "$bpath/$bname.thm"
if {$crop} {
file copy "$tpath/$tname.thm" "$cpath/$cname.thm" file copy "$tpath/$tname.thm" "$cpath/$cname.thm"
} }
} }
} }
} }
}
# is it a heartbeat line? # is it a heartbeat line?
if {[regexp {^status@= HtBeat[^(] *([0-9]+)- *([0-9]+) \( *([0-9]+):([0-9]{2})- *([0-9]+):([0-9]{2})} $line \ if {[regexp {^status@= HtBeat[^(] *([0-9]+)- *([0-9]+) \( *([0-9]+):([0-9]{2})- *([0-9]+):([0-9]{2})} $line \
wholeMatch \ wholeMatch \