Comment

svn path=/scripts/xml-parse-test.pl; revision=480

1 files changed, 11 insertions, 1 deletions

diff --git a/scripts/xml-parse-test.pl b/scripts/xml-parse-test.pl
index 34a0be58..39e746cd 100755
--- a/scripts/xml-parse-test.pl
+++ b/scripts/xml-parse-test.pl
@@ -1,5 +1,9 @@
-:
 # $Id$
+#
+# Test of XML::Simple as a tool for encoding and decoding
+#
+#   http://mirin.apnic.net/resourcecerts/wiki/index.php/IR-ISP_Definition
+
 eval 'exec perl -w -S $0 ${1+"$@"}'
     if 0;
 
@@ -25,6 +29,12 @@ my @xml = ('
                      cert_serial="serial"
                      cert_aki="g(aki)"
                      status="keyword" />
+        <list_class ca="ca_name"
+                     cert_url="url"
+                     cert_ski="g(ski)"
+                     cert_serial="serial"
+                     cert_aki="g(aki)"
+                     status="keyword" />
         <!-- [repeated for each active class where the ISP has resources]  -->
     </message>
 ','