Index: validator/httpd/cgi-bin/check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.243
diff -u -r1.243 check
--- check	2002/10/10 05:22:45	1.243
+++ check	2002/10/16 00:39:49
@@ -2286,7 +2286,7 @@
   my $errs  = ($File->{'Is Valid'} ? '0' : scalar @{$File->{Errors}});
 
   print <<".EOF.";
-Content-Type: application/xml; charset=UTF-8
+Content-Type: application/rdf+xml; charset=UTF-8
 X-W3C-Validator-Status: $valid
 X-W3C-Validator-Errors: $errs
 
@@ -2298,10 +2298,23 @@
 
   <Assertor rdf:about="http://validator.w3.org/">
     <name>W3 Validator</name>
+    <contactInfo rdf:resource="http://validator.w3.org/about.html"/>
+    <testMode rdf:resource="http://www.w3.org/2001/03/earl/1.00#Auto" />
 
 .EOF.
 
   unless ($File->{'Is Valid'}) {
+    printf <<".EOF.", &ent($File->{URI});
+  <asserts>
+   <Assertion>
+    <subject rdf:resource="%s" />
+    <result rdf:resource="http://www.w3.org/2001/03/earl/1.00#fails" />
+    <testCase rdf:resource="http://www.w3.org/HTML/" />
+    <note>Invalid!</note>
+   </Assertion>
+  </asserts>
+.EOF.
+
     foreach my $err (@{$File->{Errors}}) {
       # Strip curlies from lq-nsgmls output.
       $err->{msg} =~ s/[{}]//g;
@@ -2322,32 +2335,28 @@
 		     $File->{Offsets}->[$err->{line} - 1]->[1] + $err->{char} + $err->{line}
 		    );
       printf <<".EOF.", &ent($File->{URI}), &ent($err->{msg});
-    <asserts rdf:parseType="Resource">
-      <rdf:subject rdf:parseType="Resource">
-        <testSubject rdf:resource="%s" />
-        <val:line>$err->{line}</val:line>
-        <val:column>$err->{char}</val:column>
-        <val:offset>@offsets</val:offset>
-      </rdf:subject>
-      <rdf:predicate rdf:resource="http://www.w3.org/2001/03/earl/1.00#fails" />
-      <rdf:object rdf:parseType="Resource">
-        <testCriteria rdf:parseType="Resource"><id rdf:resource="http://www.w3.org/HTML/" /></testCriteria>
-        <note>%s</note>
-      </rdf:object>
-      <testMode rdf:resource="http://www.w3.org/2001/03/earl/1.00#Auto" />
+    <asserts>
+      <Assertion rdf:about="%s">
+        <subject rdf:parseType="Resource">
+          <val:line>$err->{line}</val:line>
+          <val:column>$err->{char}</val:column>
+          <val:offset>@offsets</val:offset>
+        </subject>
+        <result rdf:resource="http://www.w3.org/2003/03/earl/1.00#fails" />
+        <testCase>%s</testCase>
+      </Assertion>
     </asserts>
 .EOF.
     }
   } else {
     printf <<".EOF.", &ent($File->{URI});
-  <asserts rdf:parseType="Resource">
-    <rdf:subject rdf:parseType="Resource"><testSubject rdf:resource="%s" /></rdf:subject>
-    <rdf:predicate rdf:resource="http://www.w3.org/2001/03/earl/1.00#passes" />
-    <rdf:object rdf:parseType="Resource">
-      <testCriteria rdf:parseType="Resource"><id rdf:resource="http://www.w3.org/HTML/" /></testCriteria>
-      <note>Valid!</note>
-    </rdf:object>
-    <testMode rdf:resource="http://www.w3.org/2001/03/earl/1.00#Auto" />
+  <asserts>
+   <Assertion>
+    <subject rdf:resource="%s" />
+    <result rdf:resource="http://www.w3.org/2001/03/earl/1.00#passes" />
+    <testCase rdf:resource="http://www.w3.org/HTML/" />
+    <note>Valid!</note>
+   </Assertion>
   </asserts>
 .EOF.
   }