Commit | Line | Data |
919d72bf |
1 | #!/usr/bin/perl |
031cefa0 |
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 dont, 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 | |
ed34cb0d |
23 | use lib "Porting"; |
24 | use GitUtils qw(gen_dot_patch); |
25 | print gen_dot_patch(@ARGV), -t STDOUT ? "\n" : ""; |
031cefa0 |
26 | |
031cefa0 |
27 | |