automated-tests/scripts/add_style.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Encode;
   5 use Getopt::Long;
   6 use Cwd;
   7
   8 my $pwd = getcwd;
   9 my $MOD_NAME = $ARGV[0];
  10 my $results_xml = "tct-$MOD_NAME-core-tests.xml";
  11 my $results_out = "results_xml.$$";
  12
  13 # Copy $results_xml, writing new stylesheet line:
  14 # Write <?xml-stylesheet type="text/xsl" href="./style/testresult.xsl"?> as second line
  15 open RESULTS, "<$results_xml" || die "Can't open $results_xml for reading:$!\n";
  16 open RESULTS_OUT, ">$results_out" || die "Can't open $results_out for writing:$!\n";
  17 my $fline = readline RESULTS;
  18 print RESULTS_OUT $fline;
  19 print RESULTS_OUT "<?xml-stylesheet type=\"text/xsl\" href=\"./style/testresult.xsl\"?>\n";
  20 while(<RESULTS>)
  21 {
  22     if( ! /xml-stylesheet/ )
  23     {
  24         print RESULTS_OUT $_;
  25     }
  26 }
  27 close RESULTS_OUT;
  28 close RESULTS;
  29 unlink $results_xml;
  30 print `mv $results_out $results_xml`;