#!/usr/bin/perl -w
# Modified from the original script to only list commit we care about..

open(LOGS, "git-log --pretty=short Ubuntu-2.6.27-0.0.. |") or die "ERROR: Calling git-log";
my $commit = "";

while (<LOGS>) {
	if (m|^commit (.*)$|) {
		$commit = $1;
		next;
	}

	m|\s*UBUNTU: SAUCE: (Ubuntu-2\.6\..*)| or next;

	print "I: Tagging $1 => $commit\n";

	system("git-tag -f -s -m $1 $1 $commit");
}

close(LOGS);
