[perl5.git] / Porting / make_dot_patch.pl

#!/usr/bin/perl
use strict;
use warnings;

# This is a quickie script which I wrote to generate the .patch file for
# an arbitrary commit. It takes on sha1 as an argument, or saving that
# uses the sha1 associated to HEAD.
# It tries to find which of our primary branches the sha1 can be found on,
# and then prints to standard out something similar to what our rsync feed
# would produce for that situation. The main difference being, in that case
# we KNOW what branch we are on, and in this one we don't, and in that case
# the $tstamp field holds the time the snapshot was generated (so that multiple
# fetches will always have an increasing tstamp field), however in this case
# we use the commit date of the sha1.
#
# This is more or less intended to be used as a utility to generated .patch
# files for other processes, like gitweb and snapshots.
#
# The script assumes it is being run from a git WD.
#
# Yves

use lib "Porting";
use GitUtils qw(gen_dot_patch);
print gen_dot_patch(@ARGV), -t STDOUT ? "\n" : "";
Commit	Line	Data
919d72bf	1	#!/usr/bin/perl
031cefa0 YO	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
730ad6b9	11	# we KNOW what branch we are on, and in this one we don't, and in that case
031cefa0 YO	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
ed34cb0d YO	23	use lib "Porting";
	24	use GitUtils qw(gen_dot_patch);
	25	print gen_dot_patch(@ARGV), -t STDOUT ? "\n" : "";
031cefa0	26
031cefa0	27