Nathan Panike panike

## log2html.pl
sub new_hl {
        my @l = ();
        return \@l;
}

@args = @ARGV;
shift @args;
print "<html><body><pre>\n";
open REVLIST, "git log " . join(' ',@args) . " --cc --parents --topo-order|" || die "Cannot get log";
while(<REVLIST>){
	sub new_hl {
	my @l = ();
	return \@l;
	}

	@args = @ARGV;
	shift @args;
	print "<html><body><pre>\n";
	open REVLIST, "git log " . join(' ',@args) . " --cc --parents --topo-order\|" \|\| die "Cannot get log";
	while(<REVLIST>){