MetainfoServer

Source code:

<!--

Beware: it is (currently) mandatory to answer correct to any metainfo request.
This answer must be correct at least in the "about" attribute
and the replicates.  Otherwise replication/location is distorted.

Future version might deny service if the minimal information is not returned.

-->
<d:when xmlns:d="http://www.askemos.org/2000/NameSpaceDSSSL" test="(is-metainfo-request? msg)">
 <rdf:RDF xmlns:a="http://www.askemos.org/2000/CoreAPI" xmlns:dc="http://purl.org/dc/elements/1.0/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xml:space="default">
  <a:copy-of select="
(make element gi: &apos;Description
 attributes: `((about ,(oid-&gt;string (me &apos;get &apos;id))))
 (node-list-filter
   (lambda (p)
     (not (eq? (gi p) &apos;links)))
  (children (children (me (me &apos;get &apos;id) &apos;metainfo))))
)
"></a:copy-of>
 </rdf:RDF>
</d:when>