Changeset 12629 for trunk/gsdl/bin/script/plugoutinfo.pl

Timestamp:

2006-08-31T14:08:40+12:00 (18 years ago)

Author:

mdewsnip

Message:

Merged the "-listall" and "-describeall" code, and made both always produce XML. The format of the XML has changed slightly too.

File:

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

trunk/gsdl/bin/script/plugoutinfo.pl

@@ -162 +162 @@
     }
 
-    if ($listall) {
-    my $plugout_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","plugouts");
+    if ($listall || $describeall) {
+    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";
@@ -171 +171 @@
         closedir (INDIR);
 
-        if ($xml) {
-        my $num_plugouts = scalar(@plugout_list);
-
-        print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-        print STDERR "<PlugoutList length=\"$num_plugouts\">\n";
-        map { print STDERR "  <PlugoutName>$_</PlugoutName>\n"; } @plugout_list;
-        print STDERR "</PlugoutList>\n";
+        print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
+        print STDERR "<PlugoutList length=\"" . scalar(@plugout_list) . "\">\n";
+        foreach my $plugout (@plugout_list) {
+        $plugout =~ s/\.pm$//;
+        my $plugoutobj = &plugout::load_plugout ($plugout);
+        if ($describeall) {
+            $plugoutobj->print_xml_usage(0);
+        }
+        else {
+            $plugoutobj->print_xml_usage(0, 1);
+        }
         }
-        else {
-        print STDERR join(" ",@plugout_list), "\n";
-        }
-    }
-    }
-    elsif ($describeall) {
-    my $plugout_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","plugouts");
-    my @plugout_list;
-    if (!opendir (INDIR, $plugout_dir)) {
-        print STDERR "plugoutinfo.pl: could not open directory $plugout_dir\n";
-    }
-    else {
-        @plugout_list = grep (/Plugout\.pm$/, readdir (INDIR));
-        closedir (INDIR);
-    }
-    #sort (@plugout_list);
-    if ($xml) {
-        my $num_plugout = scalar(@plugout_list);
-        &PrintUsage::print_xml_header("plugout", 1);
-        print STDERR "<PlugoutInfoList length=\"$num_plugout\">\n";
-    }
-    foreach my $pl (@plugout_list) {
-        $pl =~ s/\.pm$//;
-        &print_single_plugout($pl, $xml, 0);
-    }
-    if ($xml) {
-        print STDERR "</PlugoutInfoList>\n";
+        print STDERR "</PlugoutList>\n";
     }
     }
@@ -212 +190 @@
     }
 }
+
 
 sub print_single_plugout {