Index: debian.chrome/scripts/misc/retag |
diff --git a/debian.chrome/scripts/misc/retag b/debian.chrome/scripts/misc/retag |
new file mode 100755 |
index 0000000000000000000000000000000000000000..94cf169a07690213fa01e3a50e338831dd2f243b |
--- /dev/null |
+++ b/debian.chrome/scripts/misc/retag |
@@ -0,0 +1,34 @@ |
+#!/usr/bin/perl -w |
+ |
+open(TAGS, "git tag -l |") or die "Could not get list of tags"; |
+@tags = <TAGS>; |
+close(TAGS); |
+ |
+open(LOGS, "git log --pretty=short |") or die "ERROR: Calling git log"; |
+my $commit = ""; |
+ |
+while (<LOGS>) { |
+ my $origtag; |
+ |
+ if (m|^commit (.*)$|) { |
+ $commit = $1; |
+ next; |
+ } |
+ |
+ m|\s*UBUNTU: (Ubuntu-2\.6\..*)| or next; |
+ |
+ $tag = $1; |
+ |
+ ($origtag) = grep(/^$tag.orig$/, @tags); |
+ |
+ if (!defined($origtag)) { |
+ print "I: Adding original tag for $tag\n"; |
+ system("git tag -m $tag $tag.orig $tag"); |
+ } |
+ |
+ print "I: Tagging $tag => $commit\n"; |
+ |
+ system("git tag -f -m $tag $tag $commit"); |
+} |
+ |
+close(LOGS); |