From fc62d8a6bf1a302b2b1e65771315d0c143928a89 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sat, 26 Jun 2010 13:28:03 -0400
Subject: [PATCH] First hack of the git log output filtering script.

---
 filter-git-log.plx | 55 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100755 filter-git-log.plx

diff --git a/filter-git-log.plx b/filter-git-log.plx
new file mode 100755
index 0000000..406d309
--- /dev/null
+++ b/filter-git-log.plx
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# filter-git-log.plx
+
+#  I wrote this script to filter the output of git log -p to find patches
+#   that occured on certain dates.  It could probably be adapted to filter
+#   other git log output.
+
+# Copyright (C) 2010, Bradley M. Kuhn
+#
+# This program gives you software freedom; you can copy, modify, convey,
+# and/or redistribute it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 3 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program in a file called 'GPLv3'.  If not, write to the:
+#    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
+#                                    Boston, MA 02110-1301, USA.
+
+use strict;
+use warnings;
+
+if (@ARGV != 1) {
+  print STDERR "usage: $0 <GIT_COMMAND_STRING>\n";
+}
+my($GIT_CMD) = @ARGV;
+
+$GIT_CMD .= " --date=rfc" unless $GIT_CMD =~ /--date/;
+
+open(GIT_OUTPUT, "-|", $GIT_CMD) or die "unable to run \"$GIT_CMD\": $!";
+
+my $currentCommit = "";
+my $skipThisOne = 1;
+while (my $line = <GIT_OUTPUT>) {
+  if ($line =~ /^\s*commit\s+/) {
+    print $currentCommit unless $skipThisOne;
+    $skipThisOne = 0;
+    $currentCommit = "";
+  } elsif ($line = /^\s*Date:\s*(\S+)\,/) {  #Warning: assumes --date=rfc
+    my $day = $1;
+    $skipThisOne = ($day !~ /(Sat|Sun)/);
+  }
+  $currentCommit .= $line;
+}
+close GIT_OUTPUT;
+die "non-zero exit code on \"$GIT_CMD\": $!" unless $? == 0;
+###############################################################################
+# Local variables:
+# compile-command: "perl -c filter-git-log.plx"
+# End: