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