Changeset 12625 for trunk/gsdl

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.

Location:

trunk/gsdl/bin/script

Files:

• classinfo.pl (modified) (4 diffs)
• downloadinfo.pl (modified) (4 diffs)
• pluginfo.pl (modified) (3 diffs)
• plugoutinfo.pl (modified) (3 diffs)

trunk/gsdl/bin/script/classinfo.pl

@@ -142 +142 @@
     if ($listall) {
     my $class_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","classify");
-    
     if (!opendir (INDIR, $class_dir)) {
         print STDERR "classinfo.pl: could not open directory $class_dir\n";
-    } else {
+    }
+    else {
         my @class_list = grep (/\.pm$/, readdir (INDIR));
         closedir (INDIR);
@@ -153 +153 @@
 
         print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-        print STDERR "<!DOCTYPE ClassifyList [\n";
-        print STDERR "  <!ELEMENT ClassifyList (ClassifyName*)>\n";
-        print STDERR "  <!ELEMENT ClassifyName (#PCDATA)>\n";
-        print STDERR "  <!ATTLIST ClassifyList\n";
-        print STDERR "            length CDATA #REQUIRED>\n";
-        print STDERR "]>\n";
-
         print STDERR "<ClassifyList length=\"$num_class\">\n";
         map { print STDERR "  <ClassifyName>$_</ClassifyName>\n"; } @class_list;
         print STDERR "</ClassifyList>\n";
-
         }
         else {
@@ -169 +161 @@
         }
     }
-
     }
     elsif ($describeall) {
@@ -176 +167 @@
     if (!opendir (INDIR, $class_dir)) {
         print STDERR "classinfo.pl: could not open directory $class_dir\n";
-    } else {
+    }
+    else {
         @class_list = grep (/\.pm$/, readdir (INDIR));
         closedir (INDIR);

trunk/gsdl/bin/script/downloadinfo.pl

@@ -160 +160 @@
     if ($listall) {
     my $download_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","downloaders");
-    
     if (!opendir (INDIR, $download_dir)) {
         print STDERR "downloadinfo.pl: could not open directory $download_dir\n";
-    } 
+    }
     else {
         my @download_list = grep (/Download\.pm$/, readdir (INDIR));
@@ -172 +171 @@
         
         print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-        print STDERR "<!DOCTYPE DownloadList [\n";
-        print STDERR "  <!ELEMENT DownloadList (DownloadName*)>\n";
-        print STDERR "  <!ELEMENT DownloadName   (#PCDATA)>\n";
-        print STDERR "  <!ATTLIST DownloadList\n";
-        print STDERR "            length CDATA #REQUIRED>\n";
-            print STDERR "]>\n";
-        
         print STDERR "<DownloadList length=\"$intNumDownloads\">\n";
         map { print STDERR "  <DownloadName>$_</DownloadName>\n"; } @download_list;
@@ -188 +180 @@
     }
     }
-
     elsif ($describeall) {
     my $download_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","downloaders");
@@ -194 +185 @@
     if (!opendir (INDIR, $download_dir)) {
         print STDERR "downloadinfo.pl: could not open directory $download_dir\n";
-    } else {
+    }
+    else {
         @download_list = grep (/Download\.pm$/, readdir (INDIR));
         closedir (INDIR);

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);

trunk/gsdl/bin/script/plugoutinfo.pl

@@ -164 +164 @@
     if ($listall) {
     my $plugout_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","plugouts");
-    
     if (!opendir (INDIR, $plugout_dir)) {
         print STDERR "plugoutinfo.pl: could not open directory $plugout_dir\n";
-    } else {
+    }
+    else {
         my @plugout_list = grep (/Plugout\.pm$/, readdir (INDIR));
         closedir (INDIR);
 
-
         if ($xml) {
         my $num_plugouts = scalar(@plugout_list);
 
         print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-        print STDERR "<!DOCTYPE PlugoutList [\n";
-        print STDERR "  <!ELEMENT PlugoutList (PlugoutName*)>\n";
-        print STDERR "  <!ELEMENT PlugoutName   (#PCDATA)>\n";
-        print STDERR "  <!ATTLIST PlugoutList\n";
-        print STDERR "            length CDATA #REQUIRED>\n";
-        print STDERR "]>\n";
-
         print STDERR "<PlugoutList length=\"$num_plugouts\">\n";
         map { print STDERR "  <PlugoutName>$_</PlugoutName>\n"; } @plugout_list;
         print STDERR "</PlugoutList>\n";
-
         }
         else {
@@ -192 +183 @@
         }
     }
-
     }
     elsif ($describeall) {
@@ -199 +189 @@
     if (!opendir (INDIR, $plugout_dir)) {
         print STDERR "plugoutinfo.pl: could not open directory $plugout_dir\n";
-    } else {
+    }
+    else {
         @plugout_list = grep (/Plugout\.pm$/, readdir (INDIR));
         closedir (INDIR);