Changeset 12625 for trunk/gsdl/bin/script/pluginfo.pl

Timestamp:

2006-08-31T13:32:27+12:00 (18 years ago)

Author:

mdewsnip

Message:

Removed the DTD stuff from the top of the XML output... it's just one more unnecessary thing to maintain.

File:

• trunk/gsdl/bin/script/pluginfo.pl (modified) (3 diffs)

trunk/gsdl/bin/script/pluginfo.pl

@@ -162 +162 @@
     if ($listall) {
     my $plugin_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","plugins");
-    
     if (!opendir (INDIR, $plugin_dir)) {
         print STDERR "pluginfo.pl: could not open directory $plugin_dir\n";
-    } else {
+    }
+    else {
         my @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
         closedir (INDIR);
 
-
         if ($xml) {
         my $num_plugins = scalar(@plugin_list);
 
         print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-        print STDERR "<!DOCTYPE PluginList [\n";
-        print STDERR "  <!ELEMENT PluginList (PluginName*)>\n";
-        print STDERR "  <!ELEMENT PluginName   (#PCDATA)>\n";
-        print STDERR "  <!ATTLIST PluginList\n";
-        print STDERR "            length CDATA #REQUIRED>\n";
-        print STDERR "]>\n";
-
         print STDERR "<PluginList length=\"$num_plugins\">\n";
         map { print STDERR "  <PluginName>$_</PluginName>\n"; } @plugin_list;
         print STDERR "</PluginList>\n";
-
         }
         else {
@@ -190 +181 @@
         }
     }
-
     }
     elsif ($describeall) {
@@ -197 +187 @@
     if (!opendir (INDIR, $plugin_dir)) {
         print STDERR "pluginfo.pl: could not open directory $plugin_dir\n";
-    } else {
+    }
+    else {
         @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
         closedir (INDIR);