Francois Gouget : winetest: Refresh errors.html separately from the main index.
Alexandre Julliard
julliard at winehq.org
Wed May 17 11:56:25 CDT 2017
Module: tools
Branch: master
Commit: 3430c7d94bba4789aea9766170a528b3f7b681c7
URL: http://source.winehq.org/git/tools.git/?a=commit;h=3430c7d94bba4789aea9766170a528b3f7b681c7
Author: Francois Gouget <fgouget at codeweavers.com>
Date: Wed May 17 11:27:01 2017 +0200
winetest: Refresh errors.html separately from the main index.
The two operations are quite independent.
Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>
---
winetest/build-errors | 87 ++++++++++++++++++++++++++++++++++++++++++++++++++
winetest/build-index | 41 ------------------------
winetest/winetest.cron | 1 +
3 files changed, 88 insertions(+), 41 deletions(-)
diff --git a/winetest/build-errors b/winetest/build-errors
new file mode 100755
index 0000000..a719fb5
--- /dev/null
+++ b/winetest/build-errors
@@ -0,0 +1,87 @@
+#!/usr/bin/perl
+#
+# Copyright 2008 Alexandre Julliard <julliard at winehq.org>
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library 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
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# This program creates the global index of rejected reports.
+
+use strict;
+use warnings;
+use open ':utf8';
+use CGI qw(:standard);
+
+sub BEGIN
+{
+ if ($0 !~ m=^/=)
+ {
+ # Turn $0 into an absolute path so it can safely be used in @INC
+ require Cwd;
+ $0 = Cwd::cwd() . "/$0";
+ }
+ unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
+}
+use vars qw/$workdir/;
+require "winetest.conf";
+
+
+use POSIX qw(locale_h strftime);
+setlocale(LC_ALL, "C");
+
+sub long_date($)
+{
+ my ($date) = @_;
+ return strftime("%b %d %H:%M:%S", gmtime($date));
+}
+
+
+# generate a table of the errors encountered during processing
+
+chdir($workdir) or die "could not chdir to the work directory: $!";
+
+my @errors;
+
+opendir DIR, "queue" or die "cannot open 'queue'";
+foreach my $dir (readdir DIR)
+{
+ next unless $dir =~ /^err.....$/;
+ open ERR, "queue/$dir/error" or next;
+ my $msg = <ERR>;
+ chomp $msg;
+ my $date = (stat ERR)[9];
+ close ERR;
+ push @errors, { msg => $msg, date => $date, url => "../queue/$dir/report" };
+}
+closedir DIR;
+
+open OUT, ">data/errors.html.new" or die "cannot create 'data/errors.html.new'";
+
+print OUT start_html( -title => "Errors caught during Wine test report processing",
+ -style => {src => "/summary.css"},
+ -encoding => "utf-8" );
+print OUT "<div class=\"main\"><h2>Errors caught during Wine test report processing</h2>\n";
+print OUT "<table class=\"report\"><thead><tr><th class=\"date\">Date</th><th class=\"commitlink\">Error</th></thread>\n";
+
+foreach my $err (sort { $b->{date} <=> $a->{date}; } @errors)
+{
+ printf OUT "<tr><td class=\"date\">%s</td>\n", long_date($err->{date});
+ printf OUT "<td class=\"commitlink\"><a href=\"%s\">%s</a></td></tr>\n", $err->{url}, escapeHTML($err->{msg});
+}
+print OUT "</table>", end_html();
+close OUT;
+
+rename "data/errors.html.new", "data/errors.html" or unlink "data/errors.html.new";
+
+exit 0;
diff --git a/winetest/build-index b/winetest/build-index
index d30fbbb..d301f98 100755
--- a/winetest/build-index
+++ b/winetest/build-index
@@ -69,12 +69,6 @@ sub short_date($)
return strftime("%b %d", gmtime($date));
}
-sub long_date($)
-{
- my ($date) = @_;
- return strftime("%b %d %H:%M:%S", gmtime($date));
-}
-
my %w95 = (name => "Win95");
my %w98 = (name => "Win98");
@@ -335,39 +329,4 @@ close OUT;
rename "data/index.html.new", "data/index.html" or unlink "data/index.html.new";
-# generate a table of the errors encountered during processing
-
-my @errors;
-
-opendir DIR, "queue" or die "cannot open 'queue'";
-foreach my $dir (readdir DIR)
-{
- next unless $dir =~ /^err.....$/;
- open ERR, "queue/$dir/error" or next;
- my $msg = <ERR>;
- chomp $msg;
- my $date = (stat ERR)[9];
- close ERR;
- push @errors, { msg => $msg, date => $date, url => "../queue/$dir/report" };
-}
-closedir DIR;
-
-open OUT, ">data/errors.html.new" or die "cannot create 'data/errors.html.new'";
-
-print OUT start_html( -title => "Errors caught during Wine test report processing",
- -style => {src => "/summary.css"},
- -encoding => "utf-8" );
-print OUT "<div class=\"main\"><h2>Errors caught during Wine test report processing</h2>\n";
-print OUT "<table class=\"report\"><thead><tr><th class=\"date\">Date</th><th class=\"commitlink\">Error</th></thread>\n";
-
-foreach my $err (sort { $b->{date} <=> $a->{date}; } @errors)
-{
- printf OUT "<tr><td class=\"date\">%s</td>\n", long_date($err->{date});
- printf OUT "<td class=\"commitlink\"><a href=\"%s\">%s</a></td></tr>\n", $err->{url}, escapeHTML($err->{msg});
-}
-print OUT "</table>", end_html();
-close OUT;
-
-rename "data/errors.html.new", "data/errors.html" or unlink "data/errors.html.new";
-
exit 0;
diff --git a/winetest/winetest.cron b/winetest/winetest.cron
index 4fbd5a2..45581e2 100755
--- a/winetest/winetest.cron
+++ b/winetest/winetest.cron
@@ -46,6 +46,7 @@ if [ ! -f $lock ]; then
then
mkdir -p data/tests old-data
$tools/build-index
+ $tools/build-errors
fi
# archive old results
More information about the wine-cvs
mailing list