* knownbugs.html: regenerated
authorborutr <borutr@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Sun, 9 Mar 2008 07:48:37 +0000 (07:48 +0000)
committerborutr <borutr@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Sun, 9 Mar 2008 07:48:37 +0000 (07:48 +0000)
*  support/scripts/gen_known_bugs.pl: added number of open bugs

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@5082 4a8a32a2-be11-0410-ad9d-d568d2c75423

ChangeLog
doc/knownbugs.html
support/scripts/gen_known_bugs.pl

index 92785000db11762d382b39ad833aee4b0e954827..174791511e4ed940d1bd2f23dc6ac542abb2c488 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,7 @@
        * .version, sdcc.spec, doc/sdccman.lyx, doc/INSTALL.txt:
          changed sdcc version to 2.8.0
        *  knownbugs.html: regenerated
+       *  support/scripts/gen_known_bugs.pl: added number of open bugs
 
 2008-03-09 Raphael Neider <rneider AT web.de>
 
index 64392dcf260c33f95ad1d5a00cada70174f8b142..661041e6518c6ea7ff314bc84f1acf74c4139a4b 100644 (file)
@@ -801,7 +801,6 @@ This file is generated automagicaly by gen_known_bugs.pl script.
 </tr>
     </table>
     <p><b>Priority Colors:</b></p>
-    <br />
     <table border="0">
       <tr>
         <td bgcolor="#dadada">1</td>
@@ -816,4 +815,5 @@ This file is generated automagicaly by gen_known_bugs.pl script.
       </tr>
     </table>
   </body>
+<p><b>Number of open bugs: 97</b></p>
 </html>
index a48c4f9952760bcfe85ec6df4434f687c1ca42cf..93426beab1f9aeb08abe9c8f70ee3fe9a04031ed 100644 (file)
@@ -1,6 +1,6 @@
 # gen_known_bugs.pl - generate knownbugs.html\r
 #\r
-# Copyright (c) 2007 Borut Razem\r
+# Copyright (c) 2007 - 2008 Borut Razem\r
 #\r
 # This file is part of sdcc.\r
 #\r
@@ -31,7 +31,6 @@ use HTML::TreeBuilder;
 \r
 \r
 my @headerList = ('Request ID', 'Summary', 'Open Date', 'Priority', 'Status', 'Assigned To', 'Submitted By');\r
-my $version;\r
 \r
 \r
 # check if the line is a correct header\r
@@ -117,7 +116,7 @@ sub process_page($)
   $tree->parse($html);\r
 \r
   # find table with the required header\r
-  my $hasTable = 0;\r
+  my $lines = 0;\r
   foreach my $table ($tree->look_down('_tag', 'table')) {\r
     my @lines = $table->content_list();\r
     if (is_header($lines[0])) {\r
@@ -131,7 +130,7 @@ sub process_page($)
           process_line($line);\r
           # and print it\r
           print($line->as_HTML(undef, '  '));\r
-          $hasTable = 1;\r
+          ++$lines;\r
         }\r
       }\r
     }\r
@@ -139,13 +138,15 @@ sub process_page($)
 \r
   $tree->delete;\r
   \r
-  return $hasTable;\r
+  return $lines;\r
 }\r
 \r
 \r
 # print HTML header\r
-sub print_header()\r
+sub print_header($)\r
 {\r
+  my ($version) = @_;\r
+\r
   print <<EOF;\r
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"\r
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">\r
@@ -177,12 +178,13 @@ EOF
 \r
 \r
 # print HTML footer\r
-sub print_footer()\r
+sub print_footer($)\r
 {\r
+  my ($lines) = @_;\r
+\r
   print <<EOF;\r
     </table>\r
     <p><b>Priority Colors:</b></p>\r
-    <br />\r
     <table border="0">\r
       <tr>\r
         <td bgcolor="#dadada">1</td>\r
@@ -197,6 +199,7 @@ sub print_footer()
       </tr>\r
     </table>\r
   </body>\r
+<p><b>Number of open bugs: $lines</b></p>\r
 </html>\r
 EOF\r
 }\r
@@ -212,21 +215,22 @@ EOF
   }\r
 \r
   # get the SDCC version number from command line\r
-  $version = $ARGV[0];\r
+  my $version = $ARGV[0];\r
+\r
+  my $lines = 0;  # number of lines\r
 \r
   # print HTML header\r
-  print_header();\r
+  print_header($version);\r
 \r
   # get pages from SF bug tracker\r
   for (my $i = 0; my $html = get($url . $i); $i += 50) {\r
     # and process them\r
-    if (!process_page($html)) {\r
-      last;\r
-    }\r
+    last if (!(my $myLines = process_page($html)));\r
+    $lines += $myLines;\r
   }\r
 \r
   # print HTML footer\r
-  print_footer();\r
+  print_footer($lines);\r
 \r
   exit(0);\r
 }\r