W3C home > Mailing lists > Public > www-validator-cvs@w3.org > July 2005

validator/httpd/cgi-bin check,1.428,1.429

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 26 Jul 2005 06:50:44 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1DxJH2-0000Dz-H4@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv731/httpd/cgi-bin

Modified Files:
	check 
Log Message:
Moving ESIS and Raw Errors output to templates, with the rest.



Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.428
retrieving revision 1.429
diff -u -d -r1.428 -r1.429
--- check	22 Jul 2005 20:12:30 -0000	1.428
+++ check	26 Jul 2005 06:50:42 -0000	1.429
@@ -823,8 +823,10 @@
     if $T->param('opt_show_source');
   $T->param(file_parsetree => &parsetree($File))
     if $T->param('opt_show_parsetree');
-  #    &show_esis($File)   if $File->{Opt}->{'Show ESIS'};
-  #    &show_errors($File) if $File->{Opt}->{'Show Errors'};
+  $T->param('opt_show_esis' => TRUE)   if $File->{Opt}->{'Show ESIS'};
+  $T->param('file_esis' => &show_esis($File))   if $T->param('opt_show_esis');
+  $T->param('opt_show_raw_errors' => TRUE) if $File->{Opt}->{'Show Errors'};
+  $T->param('file_raw_errors' =>    &show_errors($File)) if  $T->param('opt_show_raw_errors');
 
   print $T->output;
 }
@@ -1748,31 +1750,25 @@
 #
 # Print out the raw ESIS output for debugging.
 sub show_esis ($) {
-  print <<'EOF';
-  <div id="raw_esis" class="mtb">
-    <hr />
-    <h2><a name="raw_esis">Raw ESIS Output</a></h2>
-    <pre>
-EOF
+  my $file_esis = "";
   for (@{shift->{ESIS}}) {
     s/\\012//g;
     s/\\n/\n/g;
-    print ent $_;
+    
+     $file_esis .= ent $_;
+     $file_esis .= "\n";
   }
-  print "    </pre>\n  </div>";
+  return  $file_esis;  
 }
 
 #
 # Print out the raw error output for debugging.
 sub show_errors ($) {
-  print <<'EOF';
-  <div id="raw_errors" class="mtb">
-    <hr />
-    <h2><a name="raw_errors">Raw Error Output</a></h2>
-    <pre>
-EOF
-  for (@{shift->{DEBUG}->{Errors}}) {print ent $_};
-  print "    </pre>\n  </div>";
+  my $file_raw_errors = "";
+  for (@{shift->{DEBUG}->{Errors}}) {
+  $file_raw_errors .= ent $_
+  };
+  return $file_raw_errors;
 }
 
 
Received on Tuesday, 26 July 2005 06:50:48 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:48 GMT