path: root/worklog

#!/usr/bin/perl
 
use strict;
use warnings;
use Getopt::Long;
use Time::Local;
 
################################################################
 
sub seconds_in_a_week () {
	return 7 * 24 * 3600;
}
 
# Convert seconds from epoch to datestring and dow
sub seconds_to_date {
	my $time = shift;
	my @time = localtime($time);
	return (sprintf("%04d-%02d-%02d",
			$time[5]+1900, $time[4]+1, $time[3]),
		$time[6]);
}
 
sub date_to_seconds {
	my $datestring = shift;
	my ($year, $mon, $mday) = ($datestring =~ /^(\d{4})-(\d{2})-(\d{2})$/);
	unless (defined $year && defined $mon && defined $mday &&
		1 <= $mon && $mon <= 12 &&
		1 <= $mday && $mday <= 31) {
		die "Bad datestring specification: $datestring";
	}
	return timelocal(0, 0, 0, $mday, $mon - 1, $year - 1900);
}
 
sub next_date {
	my $datestring = shift;
	my $time = date_to_seconds($datestring);
	return seconds_to_date($time + 3600 * 36);
}
 
sub prev_date {
	my $datestring = shift;
	my $time = date_to_seconds($datestring);
	return seconds_to_date($time - 3600 * 12);
}
 
sub beginning_of_reporting_week {
	my ($datestring, $bow) = @_;
	my ($date, $dow) = seconds_to_date(date_to_seconds($datestring));
	do {
		($date, $dow) = prev_date($date);
	} while ($dow != $bow);
	return $date;
}
 
sub bow {
	my ($week, $bow) = @_;
	my $time;
	if (!defined $week) {
		$time = time;
	} elsif ($week =~ /^\d+$/) {
		$time = time - seconds_in_a_week * $week;
	} else {
		$time = date_to_seconds($week);
	}
	my ($datestring, $dow) = seconds_to_date($time);
	return beginning_of_reporting_week($datestring, $bow);
}
 
sub date_within {
	my ($date, $bottom, $top) = @_;
	return ($bottom le $date && $date le $top);
}
 
################################################################
 
my $verbose = 0;
my $quiet = 0;
my $reporting_date;
my $weeks;
my $bow = 0;
my $bottom_date;
 
if (!GetOptions(
	     "verbose!" => \$verbose,
	     "quiet!" => \$quiet,
	     "date=s" => \$reporting_date,
	     "weeks=i" => \$weeks,
	     "bow=i" => \$bow,
    )) {
	print STDERR "$0 [-v|-q] [-d date] [-w weeks] [-b bow]\n";
	exit 1;
}
 
if ($verbose && $quiet) {
	print STDERR "Which? Verbose, or Quiet?\n";
	exit 1;
}
 
if (!defined $reporting_date) {
	($reporting_date, my $dow) = seconds_to_date(time);
	while ($dow != $bow) {
		($reporting_date, $dow) = next_date($reporting_date);
	}
}
 
$bottom_date = beginning_of_reporting_week($reporting_date, $bow);
 
if (!defined $weeks || $weeks < 0) {
	$weeks = 0;
}
 
for (my $i = 0; $i < $weeks; $i++) {
	for (my $j = 0; $j < 7; $j++) {
		($bottom_date, undef) = prev_date($bottom_date);
	}
}
($bottom_date, undef) = next_date($bottom_date);
 
my $cull_old = "--since=" . date_to_seconds($bottom_date);
 
sub plural {
	my ($number, $singular, $plural) = @_;
	return ($number == 1) ? "$number $singular": "$number $plural";
}
 
sub fmt_join {
	my ($leader, $limit, $joiner, @ary) = @_;
	my @result = ();
	my $width = 0;
	my $wj = length($joiner);
	my $wl = length($leader);
 
	for my $item (@ary) {
		my $need_joiner;
		if ($width == 0) {
			$width += $wl;
			push @result, $leader;
			$need_joiner = 0;
		} else {
			$need_joiner = 1;
		}
		my $len = length($item);
		if (($need_joiner ? $wj : 0) + $len + $width < $limit) {
			if ($need_joiner) {
				$width += $wj;
				push @result, $joiner;
			}
			$width += $len;
			push @result, $item;
		} else {
			if ($width) {
				push @result, "\n";
				$width = 0;
			}
			$width += $wl;
			push @result, $leader;
			$width += $len;
			push @result, $item;
		}
	}
	push @result, "\n" unless ($result[-1] eq "\n");
	return join("", @result);
}
 
################################################################
# Collection
 
# Map sha1 to patch information [$sha1, $author, $subject]
# or merge information [$sha1, undef, $branch].
my %patch;
 
# $dates{"YYYY-MM-DD"} exists iff something happened
my %dates;
 
# List of $sha1 of patches applied, grouped by date
my %patch_by_date;
 
# List of $sha1 of merges, grouped by date
my %merge_by_branch_date;
 
# List of tags, grouped by date
my %tag_by_date;
 
# List of integration branches.
my @integrate = (['master', ', to include in the next release'],
		 ['next', ' for public testing'],
		 ['maint', ', to include in the maintenance release'],
);
 
# Collect individial patch application
open I, "-|", ("git", "log",
	       "--pretty=%ci %H %an <%ae>\001%s",
	       $cull_old, "--glob=refs/heads",
	       "--no-merges") or die;
 
while (<I>) {
	my ($date, $sha1, $rest) = /^([-0-9]+) [:0-9]+ [-+][0-9]{4} ([0-9a-f]+) (.*)$/;
	next unless date_within($date, $bottom_date, $reporting_date);
 
	$patch_by_date{$date} ||= [];
	push @{$patch_by_date{$date}}, $sha1;
	my ($name, $subject) = split(/\001/, $rest, 2);
	$patch{$sha1} = [$sha1, $name, $subject];
	$dates{$date}++;
}
close (I) or die;
 
for my $branch (map { $_->[0] } @integrate) {
	open I, "-|", ("git", "log", "--pretty=%ci %H %s",
		       $cull_old,
		       "--first-parent",
		       "--merges",
		       $branch) or die;
	while (<I>) {
		my ($date, $sha1, $rest) = /^([-0-9]+) [:0-9]+ [-+][0-9]{4} ([0-9a-f]+) (.*)$/;
		next unless date_within($date, $bottom_date, $reporting_date);
		my $msg = $rest;
		$msg =~ s/^Merge branch //;
		$msg =~ s/ into \Q$branch\E$//;
		$msg =~ s/^'(.*)'$/$1/;
 
		next if (grep { $_ eq $msg } map { $_->[0] } @integrate);
 
		$merge_by_branch_date{$branch} ||= {};
		$merge_by_branch_date{$branch}{$date} ||= [];
		push @{$merge_by_branch_date{$branch}{$date}}, $sha1;
		$patch{$sha1} = [$sha1, undef, $msg];
		$dates{$date}++;
	}
	close (I) or die;
}
 
open I, "-|", ("git", "for-each-ref",
	       "--format=%(refname:short) %(taggerdate:iso)",
	       "refs/tags") or die;
while (<I>) {
	my ($tagname, $tagdate) = /^(\S+) ([-0-9]+) [:0-9]+ [-+][0-9]{4}$/;
 
	if (!defined $tagdate || 
	    !date_within($tagdate, $bottom_date, $reporting_date)) {
		next;
	}
	$dates{$tagdate}++;
	$tag_by_date{$tagdate} ||= [];
	push @{$tag_by_date{$tagdate}}, $tagname;
}
 
################################################################
# Summarize
 
my $sep = ""; 
my @dates = sort keys %dates;
 
sub day_summary {
	my ($date, $total_names, $total_merges, $total_patches, $total_tags) = @_;
	return if (!exists $dates{$date});
 
	print "$sep$date\n" if (!$quiet);
	if (exists $tag_by_date{$date}) {
		for my $tagname (@{$tag_by_date{$date}}) {
			$$total_tags++;
			print "Tagged $tagname.\n" if (!$quiet);
		}
	}
 
	if (exists $patch_by_date{$date}) {
		my $count = scalar @{$patch_by_date{$date}};
		my %names = ();
		for my $patch (map { $patch{$_} } (@{$patch_by_date{$date}})) {
			my $name = $patch->[1];
			$names{$name}++;
			$total_names->{$name}++;
		}
		my $people = scalar @{[keys %names]};
		$$total_patches += $count;
 
		$count = plural($count, "patch", "patches");
		$people = plural($people, "person", "people");
		print "Queued $count from $people.\n" if (!$quiet);
		if ($verbose) {
			for my $patch (map { $patch{$_} } @{$patch_by_date{$date}}) {
				print "  $patch->[2]\n";
			}
		}
	}
 
	for my $branch_data (@integrate) {
		my ($branch, $purpose) = @{$branch_data};
		next unless (exists $merge_by_branch_date{$branch}{$date});
		my $merges = $merge_by_branch_date{$branch}{$date};
		my $count = scalar @$merges;
		next unless $count;
 
		$total_merges->{$branch} ||= 0;
		$total_merges->{$branch} += $count;
		$count = plural($count, "topic", "topics");
		print "Merged $count to '$branch' branch$purpose.\n" if (!$quiet);
		if ($verbose) {
			my @pieces = map { $patch{$_}->[2] . "," } @$merges;
			$pieces[-1] =~ s/,$/./;
			print fmt_join("  ", 72, " ", @pieces);
		}
	}
	$sep = "\n" if (!$quiet);
}
 
sub range_summary {
	my ($range, $bottom, $date, $total_n, $total_m, $total_p, $total_t) = @_;
	(my $last_date, undef) = prev_date($date);
 
	print "$sep$range $bottom..$last_date\n";
 
	if ($total_t) {
		my $count = plural($total_t, "release", "releases");
		print "Tagged $count.\n";
	}
	if ($total_p) {
		my $people = plural(scalar @{[keys %{$total_n}]}, "person", "people");
		my$count = plural($total_p, "patch", "patches");
		print "Queued $count from $people.\n";
	}
	for my $branch_data (@integrate) {
		my ($branch, $purpose) = @{$branch_data};
		next unless $total_m->{$branch};
		my $count = plural($total_m->{$branch}, "merge", "merges");
		print "Made $count to '$branch' branch$purpose.\n";
	}
	$sep = "\n";
}
 
sub weekly_summary {
	my ($bottom, $total_names, $total_merges,
	    $total_patches, $total_tags) = @_;
	my $date = $bottom;
	my $shown = 0;
 
	my ($total_p, $total_t, %total_n, %total_m) = (0, 0);
	for (my $i = 0; $i < 7; $i++) {
		day_summary($date, \%total_n, \%total_m,
			    \$total_p, \$total_t);
		($date, undef) = next_date($date);
	}
	for my $name (keys %total_n) {
		$total_names->{$name}++;
		$shown++;
	}
	for my $merge (keys %total_m) {
		$total_merges->{$merge}++;
		$shown++;
	}
	$$total_patches += $total_p;
	$$total_tags += $total_t;
	if ($shown) {
		range_summary("Week of", $bottom, $date,
			      \%total_n, \%total_m, $total_p, $total_t);
	}
	return $date;
}
 
my %total_names;
my %total_merges;
my $total_patches = 0;
my $total_tags = 0;
 
my $date;
for ($date = $bottom_date; $date le $reporting_date; ) {
	$date = weekly_summary($date, \%total_names, \%total_merges,
			       \$total_patches, \$total_tags);
}
 
if ($weeks) {
	range_summary("Between", $bottom_date, $date,
		      \%total_names, \%total_merges,
		      $total_patches, $total_tags);
}