1#!/usr/bin/perl 2use strict; 3use 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 23use lib "Porting"; 24use GitUtils qw(gen_dot_patch); 25print gen_dot_patch(@ARGV), -t STDOUT ? "\n" : ""; 26 27 28