increase to timestamp until end of day

diff --git a/lib/BackupPC/Search.pm b/lib/BackupPC/Search.pm
index 1c3007f..3783c55 100644 (file)
--- a/lib/BackupPC/Search.pm
+++ b/lib/BackupPC/Search.pm
@@ -104,6 +104,12 @@ sub dates_from_form($) {
                        $dt -= DateTime::Duration->new( days   => 1 );
                }
 
+               if ( $suffix eq 'to' ) {
+                       # to end of day
+                       $dt += DateTime::Duration->new( days => 1 );
+                       $dt -= DateTime::Duration->new( seconds => 1 );
+               }
+
                print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
                return $dt->epoch || 'NULL';
        }