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 |