Porting/make_dot_patch.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 # This is a quickie script which I wrote to generate the .patch file for
   6 # an arbitrary commit. It takes on sha1 as an argument, or saving that
   7 # uses the sha1 associated to HEAD.
   8 # It tries to find which of our primary branches the sha1 can be found on,
   9 # and then prints to standard out something similar to what our rsync feed
  10 # would produce for that situation. The main difference being, in that case
  11 # we KNOW what branch we are on, and in this one we don't, and in that case
  12 # the $tstamp field holds the time the snapshot was generated (so that multiple
  13 # fetches will always have an increasing tstamp field), however in this case
  14 # we use the commit date of the sha1.
  15 #
  16 # This is more or less intended to be used as a utility to generated .patch
  17 # files for other processes, like gitweb and snapshots.
  18 #
  19 # The script assumes it is being run from a git WD.
  20 #
  21 # Yves
  22
  23 use lib "Porting";
  24 use GitUtils qw(gen_dot_patch);
  25 print gen_dot_patch(@ARGV), -t STDOUT ? "\n" : "";
  26
  27