diff options
author | Kent Fredric <kentfredric@gmail.com> | 2012-03-01 01:15:15 +1300 |
---|---|---|
committer | Kent Fredric <kentfredric@gmail.com> | 2012-03-01 01:15:15 +1300 |
commit | b2b4a679093ef53090421d89ac5458435a93eed5 (patch) | |
tree | c390d4c7e2a41c3830e09d0eff04caab43cfa66c /scripts/package_log.pl | |
parent | [metadata] update aggregate map (diff) | |
download | perl-overlay-b2b4a679093ef53090421d89ac5458435a93eed5.tar.gz perl-overlay-b2b4a679093ef53090421d89ac5458435a93eed5.tar.bz2 perl-overlay-b2b4a679093ef53090421d89ac5458435a93eed5.zip |
add --from and --to timestamp range controls
Diffstat (limited to 'scripts/package_log.pl')
-rwxr-xr-x | scripts/package_log.pl | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/scripts/package_log.pl b/scripts/package_log.pl index dc1a8776e..89d85e5f6 100755 --- a/scripts/package_log.pl +++ b/scripts/package_log.pl @@ -47,16 +47,24 @@ my $search = {}; my $and = []; +if ( $optparse->long_opts->{from} ) { + $oldest_date = $optparse->long_opts->{from}; +} +my @to; +if ( my $ts = $optparse->long_opts->{to} ) { + @to = ( to => $ts ); +} + if ( not $optparse->long_opts->{all} ) { - push @{$and}, { + push @{$and}, + { range => { date => { from => $oldest_date, - - #to => $newest_date, + @to, } } - }; + }; } #my $or = []; |