From 13456349889422cf18ca40b4126a1d53dd7138bd Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sat, 28 May 2011 16:00:59 -0400
Subject: [PATCH] Started script: check patch signatures.

---
 bash-patch-apply.plx | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 mode change 100644 => 100755 bash-patch-apply.plx

diff --git a/bash-patch-apply.plx b/bash-patch-apply.plx
old mode 100644
new mode 100755
index fc8cf02..38cf3bb
--- a/bash-patch-apply.plx
+++ b/bash-patch-apply.plx
@@ -1,4 +1,36 @@
 #!/usr/bin/perl
+# Copyright (C) 2011, 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;
+
+foreach my $patchFile (@ARGV) {
+  if (not -r $patchFile) {
+    print STDERR "$patchFile is not readable\n";
+    exit 1;
+  }
+  if (not -r "${patchFile}.sig") {
+    print STDERR "${patchFile}.sig is not readable\n";
+    exit 1;
+  }
+  system("/usr/bin/gpg ${patchFile}.sig");
+  if ($? != 0) {
+    print STDERR "GPG signature check problem on $patchFile\n";
+    exit 1;
+  }
+}