last5commits.pl

#!/usr/bin/perl
#
# Copyright (C) 2010-2014, Daniel Stenberg, <daniel@haxx.se>

#
# commit d4cd5411a66d6814adccdfc81ff1d8a80e8c58af
# Author: Daniel Stenberg <daniel@haxx.se>
# Date:   Mon Mar 22 22:00:55 2010 +0100
#
#     Thomas Lopatic fixed the alarm()-based DNS timeout
#
# :100644 100644 02d7b27... 8d81272... M  CHANGES
# :100644 100644 29ad85b... 072ad7e... M  RELEASE-NOTES
#
my @lines=`cd curl && git log --raw -100`;

sub header {
    print "<table cellspacing=0 cellpadding=0>\n<tr><th>Description</th><th>Author</th></tr>\n";
}

sub footer {
    print "</table>\n";
}

sub showc {
    $cl = $counter++&1?"odd":"even";
    if($c{'commit'}) {
        my $auth = $c{'Author:'};
        my $desc = $c{'desc'};
        my $date = $c{'Date:'};

        $auth =~ s/<.*//g;

        $desc =~ s/&/&amp;/g;
        $desc =~ s/\</&lt;/g;
        $desc =~ s/\>/&gt;/g;

        # convert the begining of a "C comment" to a html code to prevent the
        # cpp to barf
        $desc =~ s/\/\*/&\#47;*/g;

        # convert ^#
        $desc =~ s:^ *\#:&\#35:;

        $fl = $desc;
        if($desc =~ s/^([^\n]*)//) {
            $fl = $1;
        }
        $desc =~ s/\n\n/<p>/g;

#        printf("<tr class=\"$cl\"><td><a href=\"%s/%s\">%s</a></td><td>%s</td></tr><tr class=\"$cl\"><td>%s</td><td><pre>%s</pre></td></tr>\n",
#               "http://github.com/bagder/curl/commit",
#               $c{'commit'},
#               $fl,
#               $auth,
#               $desc,
#               $c{'files'});

        printf("<tr class=\"$cl\"><td><a href=\"%s/%s\">%s</a></td><td>%s</td></tr>\n",
               "http://github.com/bagder/curl/commit",
               $c{'commit'},
               $fl, $auth);
        

    }
    undef %c;
}

sub showlines {

    for my $l (@lines) {
        if($l =~ /^(commit|Author:|Date:) *(.*)/) {
            my ($k, $v)=($1, $2);
            if($k eq "commit") {
                showc();
            }
            $c{$k}=$v;
        }
        elsif($l =~ /^    (.*)/) {
            my $d=$1;
            $c{'desc'}.= "$d\n";
        }
        elsif($l =~ /^:.*(.)\t(.*)/) {
            $c{'files'} .= "$1 $2\n";
        }
    }
    showc();

}

header();
showlines();
footer();