[gentoo-commits] proj/perl-overlay:master commit in: scripts/

[Kent Fredric]

commit:     b2b4a679093ef53090421d89ac5458435a93eed5
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Wed Feb 29 12:15:15 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Wed Feb 29 12:15:15 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=b2b4a679

add --from and --to timestamp range controls

---
 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 dc1a877..89d85e5 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 = [];