source: trunk/openjdk/make/scripts/jdkreport.pl

#!/usr/bin/perl -w

#
# Copyright (c) 2009, 2011, Oracle and/or its affiliates. All rights reserved.
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# This code is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 only, as
# published by the Free Software Foundation.
#
# This code is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# version 2 for more details (a copy is included in the LICENSE file that
# accompanied this code).
#
# You should have received a copy of the GNU General Public License version
# 2 along with this work; if not, write to the Free Software Foundation,
# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
#
# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
# or visit www.oracle.com if you need additional information or have any
# questions.
#

$| = 1; #set buffer flushing on, so that messages are printed immediately

if ($#ARGV != 1) {
 # print "Sampel: jdkreport.pl /p/dolphin/jdk7/TAGS/jdk7 jdk7-b42:jdk7-b43 | tee reportx.html \n";
 # print "This should contain ONLY open repos\n";
 print "Usage: $0 repo date\n";   print "Usage: $0 repo <prev-tag:curr-tag>\n";
 print "Usage: $0 repo jdk7-b40:jdk7-b41>\n";
 print "Usage: $0 repo jdk7-b50:tip>\n";
 # print "Usage: $0 media \"2008-10-29 13:00 to 2008-10-29 18:00\" \n";
 # print "or   : $0 media 2008-10-29\n";   exit;
}

$path = $ARGV[0];
chdir ("$ARGV[0]");
@list = `hg ftrees`;
chomp(@list);

sub print_bugs() {
 if($first) { #print repo line if it encounters first results in prev line
   @reponame = split '/',$i;
   if ($reponame[$#reponame] eq "jdk6") {
     $reponame[$#reponame] = "";
   }
   print "<br><br><b>http://hg.openjdk.java.net/jdk6/$reponame[$#reponame]</b>\n";
      print '<table border="1" width="100%">';
   print "<tr>";
   print "<td with=\"13%\"><b> Changeset </b></td> <td width = \"7%\"><b>Bug ID</b></td> <td><b>Synopsys</b></td>";
   print "</tr>";
   $first = 0;
 }

 print "<tr>";
 $rowspan = $#bugs + 1; #row span for changeset is number of bugs seen in desc

 if ($reponame[$#reponame] eq "jdk7") {
   $reponame[$#reponame] = "";
   $sla = "";
 } else {
   $sla = "/";
 }
 $chgseturl  = "http://hg.openjdk.java.net/jdk6/jdk6/" . $reponame[$#reponame]. $sla . "rev/$changeset";
 print "<td width=\"10%\" rowspan=$rowspan><a href =\"". $chgseturl.  "\"> $changeset</a> </td>";

 $firstbug = 1;
 foreach(@bugs) {
   ($bugid, $desc) = split ':',$_, 2; # limit the number of splits to 2
   $bugid =~ s/^\s+//;         #remove leading white spaces
   $url = "http://bugs.sun.com/bugdatabase/view_bug.do?bug_id=$bugid";

   if($firstbug) {
     $firstbug = 0;
   }
   else {
     print "<tr>"; #start new table row for 2nd bug on (1st row started above for changeset)
   }
   print "<td width =\"7%\"><a href =\"". $url. "\">$bugid</a></td> <td>$desc</td>\n";
   print "</tr>";
 }

 @bugs = (); #clear list of bugs after printing them
}

foreach $i (@list) {
 chdir("$i");
#  system("hg log -r $ARGV[1] --no-merges > /tmp/jdk7report.$$") and die "Could not run hg log for $i \n";
system("hg log -r $ARGV[1] --no-merges --template 'changeset: {node|short}\n{desc}\n' > /tmp/jdk7report.$$") and die "C
ould not run hg log for $i \n";

 open(FILE, "/tmp/jdk7report.$$") or die "Could not openfile\n";

 $first = 1;
 @bugs = ();

 while (<FILE>) {
   if(/^changeset: /) {  #check for new changeset
     $fileline = $_;

     if($#bugs >= 0) {
       print_bugs(); #print bugs for prev changeset
     }

     ($beg, $changeset) = split ' ',$fileline; # limit the number of splits to 2
     chomp($changeset); #remove end of line
   }

   if(/^\d+:/) { #match lines that start with numbers (bugids)
     push(@bugs, $_);
   }
 }

 if($first == 0) {
   if($#bugs >= 0) { #print the bugs for the last changeset in the file
     print_bugs();
   }
   print "</table>"; #close table only if first is false
 }
}

print "<br>\n";