--- doc/loncapafiles/html_parser_check.piml	2004/12/06 20:27:38	1.1
+++ doc/loncapafiles/html_parser_check.piml	2024/07/08 22:06:15	1.4
@@ -1,9 +1,9 @@
 <!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 
 	"http://lpml.sourceforge.net/DTD/piml.dtd">
-<!-- ntpcheck.piml -->
+<!-- html_parser_check.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: html_parser_check.piml,v 1.1 2004/12/06 20:27:38 matthew Exp $ -->
+<!-- $Id: html_parser_check.piml,v 1.4 2024/07/08 22:06:15 raeburn Exp $ -->
 
 <!--
 
@@ -35,7 +35,7 @@ http://www.lon-capa.org/
 <file>
 <target dist="default">/home/httpd/lonUsers</target>
 <perlscript mode="fg">
-#use the directory
+
 use strict;
 use HTML::Parser;
 
@@ -45,23 +45,23 @@ my $version = $HTML::Parser::VERSION;
 ## First test
 ##
 my $text='';
-my $p = HTML::Parser->new(api_version => 3);
-$p->handler(start =>
+my $p = HTML::Parser-&gt;new(api_version =&gt; 3);
+$p-&gt;handler(start =&gt;
 	    sub {
 		 my($tag, $attr) = @_;
 		 $text .= "S[$tag";
 		 for my $k (sort keys %$attr) {
-		     my $v =  $attr->{$k};
+		     my $v =  $attr-&gt;{$k};
 		     $text .= " key $k= value $v";
 		 }
 		 $text .= "]";
 	     }, "tagname,attr");
-$p->handler(text =>
+$p-&gt;handler(text =&gt;
 	     sub {
 		 $text .= 'T{'.shift().'}';
 	     }, "text");
 $text='';
-$p->parse('<img a="b" "=\'"\' c=d />')->eof;
+$p-&gt;parse('&lt;img a="b" "=\'"\' c=d /&gt;')-&gt;eof;
 
 my $first_test_result = $text;
 my $first_expected_result = 
@@ -69,35 +69,31 @@ my $first_expected_result =
 if (! $first_test_result) {
     print "Unable to run first HTML::Parser test\n";
 } elsif ($first_test_result ne $first_expected_result) {
-    print <<"END";
-**** WARNING: HTML::Parser is not working properly.
+    print &lt;&lt;"END";
+**** ERROR: HTML::Parser is not working properly.
               You are using version $version.  For test 1 it returned
               "$first_test_result"
 END
-} else {
-    print "First HTML::Parser test looks good.\n";
 }
 
 
 ##
 ## Second test
 ##
-$p->xml_mode(1);
+$p-&gt;xml_mode(1);
 $text='';
-$p->parse('<img a="b" "=\'"\' c=d />')->eof;
+$p-&gt;parse('&lt;img a="b" "=\'"\' c=d /&gt;')-&gt;eof;
 my $second_test_result = $text;
 my $second_expected_result = 
     q{S[img key "= value " key a= value b key c= value d]};
 if (! $second_test_result) {
     print "Unable to run second HTML::Parser test\n";
 } elsif ($second_test_result ne $second_expected_result) {
-    print <<"END";
-**** WARNING: HTML::Parser is not working properly.
+    print &lt;&lt;"END";
+**** ERROR: HTML::Parser is not working properly.
               You are using version $version.  For test 2 it returned
               "$second_test_result"
 END
-} else {
-    print "Second HTML::Parser test looks good.\n";
 }
 
 </perlscript>