Changeset 11787

Timestamp:

2006-05-09T15:00:26+12:00 (18 years ago)

Author:

kjdon

Message:

added code to print the DownloadInfo header

File:

• trunk/gsdl/perllib/printusage.pm (modified) (3 diffs)

trunk/gsdl/perllib/printusage.pm

@@ -65 +65 @@
     my $all = shift(@_);
 #    $all = 0 unless defined $all;
-    if ($type ne "classify" && $type ne "plugin" && $type ne "script") {
+    if ($type ne "classify" && $type ne "plugin" && $type ne "script" && $type ne "download") {
     return;
     }
@@ -96 +96 @@
     &gsprintf(STDERR, "  <!ELEMENT Abstract      (#PCDATA)>\n");
     &gsprintf(STDERR, "  <!ELEMENT Inherits      (#PCDATA)>\n");
+    } elsif ($type eq "download") {
+    if ($all) {
+        &gsprintf(STDERR, "<!DOCTYPE DownloadInfoList [\n");
+        &gsprintf(STDERR, "  <!ELEMENT DownloadInfoList  (DownloadInfo*)>\n");      
+        &gsprintf(STDERR, "  <!ATTLIST DownloadInfoList\n");
+        &gsprintf(STDERR, "            length CDATA #REQUIRED>\n");
+    } else {
+        &gsprintf(STDERR, "<!DOCTYPE DownloadInfo [\n");
+    }   
+    &gsprintf(STDERR, "  <!ELEMENT DownloadInfo      (Name, Desc, Abstract, Inherits, Arguments, DownloadInfo?)>\n");
+    &gsprintf(STDERR, "  <!ELEMENT Abstract      (#PCDATA)>\n");
+    &gsprintf(STDERR, "  <!ELEMENT Inherits      (#PCDATA)>\n");
+    
     } else {
     &gsprintf(STDERR, "<!DOCTYPE Info [\n");
@@ -140 +153 @@
         $displayname =~ s/</&amp;lt;/g; # doubly escaped
         $displayname =~ s/>/&amp;gt;/g;
-        &gsprintf(STDERR, "      <DisplayName>$displayname</Name>\n");
+        &gsprintf(STDERR, "      <DisplayName>$displayname</DisplayName>\n");
     }
     &gsprintf(STDERR, "      <Desc>$optiondesc</Desc>\n");