From 97aac913c3bc19a3f82fac7ec0effcafd41d8d5e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Christian=20W=C3=BCrdig?= Date: Mon, 21 Aug 2006 14:25:01 +0000 Subject: [PATCH] call xsltproc to create html --- ir/be/test/diffreports.pl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/ir/be/test/diffreports.pl b/ir/be/test/diffreports.pl index 40e3fead6..db0f3f0c6 100644 --- a/ir/be/test/diffreports.pl +++ b/ir/be/test/diffreports.pl @@ -4,8 +4,10 @@ use strict; use XML::Simple; use Data::Dumper; -my $old_file = $ARGV[0]; -my $new_file = $ARGV[1]; +$resfile_name = "result.xml"; + +my $old_file = $ARGV[0]."/".$resfile_name; +my $new_file = $ARGV[1]."/".$resfile_name; my $diff_file = "results_diff.xml"; $| = 1; # perform flush after each write to STDOUT @@ -116,6 +118,10 @@ print DIFF "\n"; close(DIFF); +print "processing results_diff.xml ... "; +`xsltproc --output results_diff.html makediffhtml.xslt results_diff.xml`; +print "results_diff.html created\n"; + sub emit_entry { my $href = shift; -- 2.20.1