#!/usr/bin/perl

if($ARGV[0] eq "-b") {
    $usetype="Bugs";
    $urlroot="http://sourceforge.net/tracker/index.php?func=detail&group_id=44306&atid=439118&aid=";
    $class="bugs";
}
elsif($ARGV[0] eq "-p") {
    $usetype="Patches";
    $urlroot="http://sourceforge.net/tracker/index.php?func=detail&atid=439120&group_id=44306&aid=";
    $class="patches";
}
else {
    $usetype="Feature Requests";
    $urlroot="http://sourceforge.net/tracker/index.php?func=detail&group_id=44306&atid=439121&aid=";
    $class="requests";
}

$userlink="http://sourceforge.net/users";
$usestatus="Open";
$hideres="Fixed";

while(<STDIN>) {
    if($_ =~ /^<artifact>/) {
        $a=1;
    }
    elsif($_ =~ /^<\/artifact>/) {
        if($a &&
           ($type eq $usetype) &&
           ($status eq $usestatus)) {
    #       ($res ne $hideres)) {
            push @ids, $id;

            $summary =~ s/\&amp;quot;/\"/g;
            $summary =~ s/\&amp;gt;/\>/g;
            $summary =~ s/\&amp;lt;/\</g;

            $item{$id,'res'}=$res;
            $item{$id,'prio'}=$prio;
            $item{$id,'user'}=$assignuser;
            $item{$id,'sum'}=$summary;
            $item{$id,'groupid'}=$groupid;
            $item{$id,'id'}=$id;
            $item{$id,'cat'}=$cat;
            $item{$id,'date'}=$date;

            $categories{$cat}=$cat;
        }
        $a=0;

        undef $assignid;
        undef $assignuser;
    }

    if($a) {
        if($_ =~ /<field name=\"artifact_id\">(\d+)<\/field>/) {
            $id = $1;
        }
        elsif($_ =~ /<field user_id=\"(\d+)\" name=\"assigned_to\">([^<]+)<\/field>/) {
            $assignid = $1;
            $assignuser = $2;
        } 
        elsif($_ =~ /<field name=\"priority\">(\d+)<\/field>/) {
            $prio = $1;
        }
        elsif($_ =~ /<field name=\"status\">([^<]+)<\/field>/) {
            $status = $1;
        } 
        elsif($_ =~ /<field name=\"resolution\">([^<]+)<\/field>/) {
            $res = $1;
        }
        elsif($_ =~ /<field name=\"summary\">([^<]+)<\/field>/) {
            $summary = $1;
        }
        elsif($_ =~ /<field name=\"open_date\">(\d+)<\/field>/) {
            $date = $1;
        }
        elsif($_ =~ /<field name=\"artifact_type\">([^<]+)<\/field>/) {
            $type = $1;
        }
        elsif($_ =~ /<field name=\"category\">([^<]+)<\/field>/) {
            $cat = $1;
        }
        elsif($_ =~ /<field name=\"artifact_group_id\">([^<]+)<\/field>/) {
            $groupid = $1;
        }
   }
}

sub tabletop {
    my $data;
    $data = join("",
                 "<table class=\"$class\">\n",
                 "<tr>",
                 "<th>id</th>",
                 "<th>resolution</th>",
                 "<th>prio</th>",
                 "<th>assigned</th>",
                 "<th>summary</th>",   
                 "<th>submitted</th>",   
                 "</tr>");
    return $data;
}

my %reslookup=('Works For Me' => 4,
               'None' => 10,
               'Accepted' => 10,
               'Later' => 8,
               'Rejected' => 1,
               'Wont Fix' => 0,
               'Invalid' => 0,
               'Duplicate' => 3,
               'Fixed' => 6);

my %classlookup=('Works For Me' => 'bad',
 #                'None' => 'none',
                 'Wont Fix' => 'bad',
                 'Duplicate' => 'bad',
                 'Rejected' => 'bad',
                 'Invalid' => 'bad',
                 'Out of Date' => 'bad',
                 'Fixed' => 'fixed');

my $fixed;
my $open;

sub sortthem {
    my $ares, $bres;

    $ares = $reslookup{$item{$a, 'res'}};
    $bres = $reslookup{$item{$b, 'res'}};

    if($bres == $ares) {
        if($item{$b, 'prio'} == $item{$a, 'prio'}) {
            return $item{$a, 'id'} <=> $item{$b, 'id'};
        }
        return $item{$b, 'prio'} <=> $item{$a, 'prio'};
    }
    return $bres <=> $ares;
}

my @s = sort sortthem @ids;

my @scats = sort keys %categories;

my $total;

for(@scats) {
    my $showcat = $_;
    my @out;
    my $entries;

    push @out, tabletop();

    $entries=0;

    for(@s) {
        my $id = $_;

        if($item{$id,'showsn'}) {
            # already displayed
            next;
        }

        if($item{$id,'cat'} ne $showcat) {
            # wrong category
            next;
        }
        $item{$id, 'shown'}=1;

        $entries++;
        $total++;

        my $res = $item{$id, 'res'};
        my $prio = $item{$id, 'prio'};
        my $assignuser = $item{$id, 'user'};
        my $summary = $item{$id, 'sum'};

        my $href=$assignuser ne "nobody"?
            "<a href=\"$userlink/$assignuser/\">$assignuser</a>":
                "$assignuser";

        $cl="";
        if( $classlookup{$res} ) {
            $cl = "class=\"".$classlookup{$res}."\"";
        }
        if($res eq "Fixed") {
            $fixed++;
        }
        elsif($res eq "None") {
            $open++;
        }

        $date = $item{$id, 'date'};
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
            localtime($date);
        $date = sprintf("%04d-%02d-%02d %02d:%02d",
                        $year+1900, $mon+1, $mday, $hour, $min);
        
        push @out, "<tr $cl>",
        "<td><a href=\"$urlroot$id\">$id</a></td>",
        "<td nowrap>$res</td><td>$prio</td>",
        "<td>$href</td>",
        "<td>$summary</td>",
        "<td nowrap>$date</td>",
        "</tr>\n";
        
    }
    print "<a name=\"$showcat\"></a><h2 class=\"featcat\">$showcat</h2> ($entries $class)";

    print @out;
    
    print "</table>\n";
}

printf("<p>Totally $total $class ($fixed marked as fixed, $open open and %d bad)",
       $total-$open-$fixed);