small-hacks/bash-patch-apply.plx

#!/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;
  }
  my $gpgData = "";
  open(GPG, "-|", "/usr/bin/gpg ${patchFile}.sig 2>&1") or die "unable to run GPG on ${patchFile}.sig: $!";
  while (my $line = <GPG>) {
    $gpgData .= $line;
    last if ($line =~ /(^|\s+)Good\s+signature/i);
  }
  if ($? != 0 or $gpgData !~ /Good\s+signature/i) {
    print STDERR "GPG signature check problem on $patchFile\n";
    exit 1;
  }
  open(PATCH, "<", $patchFile) or die "unable to read $patchFile: $!";
  my($log, $takingLog, $inPatch, $date, undef) = ("", 0, 0);
  while (my $line = <PATCH>) {
    $takingLog = 1 if ($line =~ /^Patch-ID\s*:/);
    if ($line =~ /^\s*Patch\s*(\([^\)]+\))?:\s*$/) {
      $takingLog = 0;
      $inPatch = 1;
      next;
    }
    $log .= $line if $takingLog;

    if ($inPatch and $line =~ /^\s*\-\-\-\s+(?:\S+)\s+(.+)\s*$/) {
      $date = $1;
      last;
    }
  }
  close PATCH;
  if ($? != 0) {
    print STDERR "error reading $patchFile: $!";
    exit 1;
  }
  if (not defined $date) {
    print "STDERR could not find date for $patchFile\n";
    exit 1;
  }
  if ($log eq "") {
    print "STDERR could not find log for $patchFile\n";
    exit 1;
  }

  system("/usr/bin/patch -p0 < $patchFile");
  if ($? != 0) {
    print STDERR "$patchFile did not apply clean!\n";
    exit 1;
  }
  my $basePatchFile = `/usr/bin/basename $patchFile`;
  my $basePatchFileSig = `/usr/bin/basename ${patchFile}.sig`;
  chomp $basePatchFile;
  chomp $basePatchFileSig;

  $ENV{GIT_AUTHOR_DATE} = $date;
  $ENV{GIT_COMMITTER_DATE} = $date;
  $ENV{GIT_AUTHOR_NAME} = 'Chet Ramey'; 
  $ENV{GIT_AUTHOR_EMAIL} = 'chet@cwru.edu';
  open(COMMIT, "|-", "git commit -a -F -") or die "unable to run git: $!";
  print COMMIT $log;
  print COMMIT "\nThis patch, in file $basePatchFile, was downloaded from ftp.gnu.org on 2011-05-29,\nand $basePatchFileSig was furthermore verified, yielding the following output:\n";
  print COMMIT $gpgData;
  close COMMIT;
  if ($? != 0) {
    print STDERR "$patchFile commit failed!\n";
    exit 1;
  }
###############################################################################
# Local variables:
# compile-command: "perl -c bash-patch-apply.plx"
# End:
}