| 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 |
|
