summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKent Fredric <kentfredric@gmail.com>2012-03-01 01:15:15 +1300
committerKent Fredric <kentfredric@gmail.com>2012-03-01 01:15:15 +1300
commitb2b4a679093ef53090421d89ac5458435a93eed5 (patch)
treec390d4c7e2a41c3830e09d0eff04caab43cfa66c /scripts/package_log.pl
parent[metadata] update aggregate map (diff)
downloadperl-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-xscripts/package_log.pl16
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 = [];