From: borutr Date: Sun, 9 Mar 2008 07:48:37 +0000 (+0000) Subject: * knownbugs.html: regenerated X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=9a255b2a48ec3a668b8a6c46f5eedd55909dff1b;p=fw%2Fsdcc * knownbugs.html: regenerated * 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 --- diff --git a/ChangeLog b/ChangeLog index 92785000..17479151 100644 --- 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 diff --git a/doc/knownbugs.html b/doc/knownbugs.html index 64392dcf..661041e6 100644 --- a/doc/knownbugs.html +++ b/doc/knownbugs.html @@ -801,7 +801,6 @@ This file is generated automagicaly by gen_known_bugs.pl script.

Priority Colors:

-
@@ -816,4 +815,5 @@ This file is generated automagicaly by gen_known_bugs.pl script.
1
+

Number of open bugs: 97

diff --git a/support/scripts/gen_known_bugs.pl b/support/scripts/gen_known_bugs.pl index a48c4f99..93426bea 100644 --- a/support/scripts/gen_known_bugs.pl +++ b/support/scripts/gen_known_bugs.pl @@ -1,6 +1,6 @@ # gen_known_bugs.pl - generate knownbugs.html # -# Copyright (c) 2007 Borut Razem +# Copyright (c) 2007 - 2008 Borut Razem # # This file is part of sdcc. # @@ -31,7 +31,6 @@ use HTML::TreeBuilder; my @headerList = ('Request ID', 'Summary', 'Open Date', 'Priority', 'Status', 'Assigned To', 'Submitted By'); -my $version; # check if the line is a correct header @@ -117,7 +116,7 @@ sub process_page($) $tree->parse($html); # find table with the required header - my $hasTable = 0; + my $lines = 0; foreach my $table ($tree->look_down('_tag', 'table')) { my @lines = $table->content_list(); if (is_header($lines[0])) { @@ -131,7 +130,7 @@ sub process_page($) process_line($line); # and print it print($line->as_HTML(undef, ' ')); - $hasTable = 1; + ++$lines; } } } @@ -139,13 +138,15 @@ sub process_page($) $tree->delete; - return $hasTable; + return $lines; } # print HTML header -sub print_header() +sub print_header($) { + my ($version) = @_; + print < @@ -177,12 +178,13 @@ EOF # print HTML footer -sub print_footer() +sub print_footer($) { + my ($lines) = @_; + print <

Priority Colors:

-
@@ -197,6 +199,7 @@ sub print_footer()
1
+

Number of open bugs: $lines

EOF } @@ -212,21 +215,22 @@ EOF } # get the SDCC version number from command line - $version = $ARGV[0]; + my $version = $ARGV[0]; + + my $lines = 0; # number of lines # print HTML header - print_header(); + print_header($version); # get pages from SF bug tracker for (my $i = 0; my $html = get($url . $i); $i += 50) { # and process them - if (!process_page($html)) { - last; - } + last if (!(my $myLines = process_page($html))); + $lines += $myLines; } # print HTML footer - print_footer(); + print_footer($lines); exit(0); }