#!/usr/bin/perl

use strict;
use CGI;
my($result, $LIST, $COMMENT, $path, $dir, $line, @sb, %colors, $state, $count);

$result = new CGI();
print $result->header;

$path = "/home/httpd/html/";
$dir = $result->param('dir');

$colors{"Unknown"} = "yellow";      # Unknown state
$colors{"Obsolete"} = "";
$colors{"Ready"} = "6699CC";
$colors{"Included"} = "CC33CC";
$colors{"Included Tweaking"} = "FF9900";
$colors{"Rejected"} = "red";

$colors{"LKML Waiting"} = "000066";
$colors{"LKML Tweaking"} = "FF6600";
$colors{"LKML Accepted"} = "006600";

$colors{"LJML Waiting"} = "000099";
$colors{"LJML Tweaking"} = "FF9900";
$colors{"LJML Accepted"} = "009900";

$colors{"Trivial Waiting"} = "0000CC";
$colors{"Trivial Tweaking"} = "FFCC00";
$colors{"Trivial Accepted"} = "00CC00";

$colors{"Maintainer Waiting"} = "0000FF";
$colors{"Maintainer Tweaking"} = "FFFF00";
$colors{"Maintainer Accepted"} = "00FF00";

print "This page tracks the current status of the patches I have submitted to the linux kernel. It's really for my own reference, but if you want to peruse, then so be it...<BR><BR>\n";

print "<table><tr><td>&nbsp</td><td>Waiting</td><td>Tweaking</td><td>Accepted</td></tr>\n";
print "<tr><td>LKML</td><td bgcolor=\"".$colors{"LKML Waiting"}."\">".getCount("LKML Waiting")."</td><td bgcolor=\"".$colors{"LKML Tweaking"}."\">".getCount("LKML Tweaking")."</td><td bgcolor=\"".$colors{"LKML Accepted"}."\">".getCount("LKML Accepted")."</td></tr>\n";
print "<tr><td>LJML</td><td bgcolor=\"".$colors{"LJML Waiting"}."\">".getCount("LJML Waiting")."</td><td bgcolor=\"".$colors{"LJML Tweaking"}."\">".getCount("LJML Tweaking")."</td><td bgcolor=\"".$colors{"LJML Accepted"}."\">".getCount("LJML Accepted")."</td></tr>\n";
print "<tr><td>Trivial</td><td bgcolor=\"".$colors{"Trivial Waiting"}."\">".getCount("Trivial Waiting")."</td><td bgcolor=\"".$colors{"Trivial Tweaking"}."\">".getCount("Trivial Tweaking")."</td><td bgcolor=\"".$colors{"Trivial Accepted"}."\">".getCount("Trivial Accepted")."</td></tr>\n";
print "<tr><td>Maintainer</td><td bgcolor=\"".$colors{"Maintainer Waiting"}."\">".getCount("Maintainer Waiting")."</td><td bgcolor=\"".$colors{"Maintainer Tweaking"}."\">".getCount("Maintainer Tweaking")."</td><td bgcolor=\"".$colors{"Maintainer Accepted"}."\">".getCount("Maintainer Accepted")."</td></tr>\n";
print "</table><BR><BR>\n";
print "<table><tr><td>Obsolete</td><td>Rejected</td><td>Ready</td><td>Included</td><td>Unknown</td></tr>\n";
print "<tr><td bgcolor=\"".$colors{"Obsolete"}."\">".getCount("Obsolete").
    "<td bgcolor=\"".$colors{"Rejected"}."\">".getCount("Rejected").
    "<td bgcolor=\"".$colors{"Ready"}."\">".getCount("Ready").
    "<td bgcolor=\"".$colors{"Included"}."\">".getCount("Included").
    "<td bgcolor=\"".$colors{"Unknown"}."\">&nbsp</td></tr>\n";
print "</table><BR><BR>\n";

#####################
print "<table>";
print "<tr><td><b>Patch</b></td><td><b>Modified Date</b></td><td><b>Status</b></td><td><b>Comments</b></td></tr>";
$line = 1;
$count = 0;
open LIST, "find $path/$dir -type f | sort | grep -v state | grep -v comments | grep -v mail | grep -v backup |";
while(<LIST>){
    chomp;
    s/$path\/$dir\///;
    $count++;

    # The name of the patch
    print "<tr";
    if($line == 1){
	print " bgcolor=\"CCCCCC\"";
	$line = 0;
	}
    else{
	$line++;
    }
    print "><td><a href=\"/$dir/$_\">$_</a></td>";
    
    # The creation date of the patch
    @sb = stat("$path/$dir/$_");
    print "<td>".localtime($sb[9])."</td>";

    # Status of the patch
    if(! -f "$path/$dir/$_-state"){
	print "<td bgcolor=\"".$colors{"Unknown"}."\">Unknown</td>";
    }
    else{
	$state=`cat $path/$dir/$_-state`;
	chomp $state;
	print "<td bgcolor=\"".$colors{$state}."\">$state</td>";
    }

    if(! -f "$path/$dir/$_-comments"){
	print "<td></td>";
    }
    else{
	if(`cat $path/$dir/$_-comments | wc -l | tr -d " "` > 6){
	    print "<td><a href=\"/$dir/$_-comments\">Comments</a></td>\n";
	}
	else{
	    print "<td>";
	    open COMMENT, "< $path/$dir/$_-comments";
	    while(<COMMENT>){
		s/</&lt;/g;
		s/>/&gt;/g;
		
		if(/^[ \t]*&gt;(.*)/){
		    $_ = "<BR><i>$1</i>";
		}
		
		s/@/ [at] /g;
		s/From:(.*)/<i>From:$1<\/i><BR>/g;
		s/^[ \t]*$/<BR><BR>/g;
		s/&lt;pre&gt;/<pre>/g;
		s/&lt;\/pre&gt;/<\/pre>/g;
		print $_;
	    }
	    print "<BR><BR></td>";
	    close COMMENT;
	}
    }

    print "</tr>\n";
}
print "</table>";

print "<BR><BR>($count patches)<BR><BR>";
print "<HR><BR><BR>This page is generated by <a href=\"http://www.stillhq.com/cgi-bin/getpage?area=patchtrack&page=index.htm\">patchtrack</a>. Patchtrack is copyright Michael Still (mikal\@stillhq.com) 2002, and is released under the terms of the GNU GPL.";

exit;
##################################

sub getCount(){
    my($find) = @_;
    return `find $path/$dir -type f -name "*-state" -exec grep "$find" {} \\; | wc -l`;
}