1 files changed, 155 insertions, 0 deletions
diff --git a/helpers/git-hist b/helpers/git-hist
new file mode 100755
index 0000000..8feed74
--- /dev/null
+++ b/helpers/git-hist
@@ -0,0 +1,155 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Cwd;
+
+my (@data, @authors, @repos, @changed) = ((), (), (), ());
+# Syntax: git-hist [author (default: whoami)] [number of weeks (default 10 / all 0)]";
+my $author = `whoami`;
+my $weeks = 10;
+my $rootdir = getcwd;
+my $totalcommits = 0;
+if (scalar @ARGV) {
+  foreach my $arg (@ARGV) {
+    if ($arg =~ /^\d+$/) {
+      $weeks = $arg;
+    } else {
+      $author = $arg;
+    }
+  }
+}
+chomp($author);
+
+# Make sure there are repositories to use
+if (-d ".git") {
+  push @repos, ".";
+} else {
+  opendir(my $dh, ".") || die "can't open local dir: $!";
+  @repos = grep { /^[^\.]/ && -d "$_/.git" } readdir($dh);
+  closedir $dh;
+}
+die "Directory (or subs) not git repo\n" unless (scalar @repos);
+&main();
+exit;
+
+#####################################################
+sub main() {
+  # Each week
+  my $week = 0;
+  while ($week <= $weeks) {
+    # Adjust for non-zero week list
+    $week++ if ($weeks != 0 and $week == 0);
+    print "\rParsing week: $week" if $week;
+    my $commits = 0;
+    # For each repo
+    for my $repo (@repos) {
+      #print "REPO: $repo\n";
+      my $log = &get_weeklog($repo, $author, $week);
+      #print "LOG: [$log]\n";
+      my $this = &get_commits($log);
+      #print "COMMITS: $this\n";
+      if ($this and ! &find($repo, \@changed)) {
+        #print "ADDING REPO\n";
+        push @changed, $repo;
+      }
+      &get_authors($log);
+      $commits += $this;
+    }
+    push @data, $commits;
+    last if ($weeks == 0);
+    $week++;
+  }
+  print "\n\n";
+
+  # Log
+  &print_report();
+}
+
+######################
+sub print_report() {
+  return if ($weeks > 0 && scalar @data != $weeks);
+
+  # Weekly histogram
+  for my $week (0..$weeks-1) {
+    printf("%02d week [%02d]: ", $week, $data[$week]);
+    for (1..$data[$week]) {
+      print "*";
+    }
+    print "\n";
+  }
+
+  # Summary
+  print "\nTotal commits: ";
+  printf("%3d", $totalcommits);
+  print "\n Repositories: ";
+  printf("%3d ", scalar @changed);
+  &dump(\@changed);
+  print "\n      Authors: ";
+  printf("%3d ", scalar @authors);
+  &dump(\@authors);
+  print "\n";
+}
+
+######################
+sub get_weeklog() {
+  my ($repo, $author, $week) = @_;
+  # Author
+  my $cmd = "git shortlog -s -n ".
+            "--author='$author' ";
+  # And week (if available)
+  if ($week) {
+    my $prev = $week-1;
+    $cmd .= "--since='$week.week' ".
+            "--until='$prev.week'";
+  }
+  # Run command
+  chdir($repo);
+  my $log = `$cmd`;
+  chdir($rootdir);
+  return $log;
+}
+
+######################
+sub get_commits() {
+  my ($log) = @_;
+  my $commits = 0;
+  foreach my $line (split(/\n/, $log)) {
+    my ($this) = ($line =~ /(\d+)/);
+    $commits += $this;
+  }
+  $totalcommits += $commits;
+  return $commits;
+}
+
+######################
+sub get_authors() {
+  my ($log) = @_;
+  foreach my $line (split(/\n/, $log)) {
+    my ($author) = ($line =~ /\d+\s+(\w.*)/);
+    if (!&find($author, \@authors)) {
+      push @authors, $author;
+    }
+  }
+}
+
+######################
+sub find() {
+  my ($elm, $array) = @_;
+  foreach my $e (@$array) {
+    return 1 if ($e eq $elm);
+  }
+  return 0;
+}
+
+######################
+sub dump() {
+  my ($array) = @_;
+  return if (!scalar @{$array});
+  my $out = "";
+  foreach my $i (@$array) {
+    $out .= "$i, ";
+  }
+  $out =~ s/, $//;
+  print $out;
+}