Changeset 12629 for trunk/gsdl/bin/script/pluginfo.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/pluginfo.pl (modified) (3 diffs)

trunk/gsdl/bin/script/pluginfo.pl

@@ -160 +160 @@
     }
 
-    if ($listall) {
-    my $plugin_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","plugins");
+    if ($listall || $describeall) {
+    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";
@@ -169 +169 @@
         closedir (INDIR);
 
-        if ($xml) {
-        my $num_plugins = scalar(@plugin_list);
-
-        print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-        print STDERR "<PluginList length=\"$num_plugins\">\n";
-        map { print STDERR "  <PluginName>$_</PluginName>\n"; } @plugin_list;
-        print STDERR "</PluginList>\n";
+        print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
+        print STDERR "<PluginList length=\"" . scalar(@plugin_list) . "\">\n";
+        foreach my $plugin (@plugin_list) {
+        $plugin =~ s/\.pm$//;
+        my $plugobj = &plugin::load_plugin_for_info ($plugin);
+        if ($describeall) {
+            $plugobj->print_xml_usage(0);
+        }
+        else {
+            $plugobj->print_xml_usage(0, 1);
+        }
         }
-        else {
-        print STDERR join(" ",@plugin_list), "\n";
-        }
-    }
-    }
-    elsif ($describeall) {
-    my $plugin_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","plugins");
-    my @plugin_list;
-    if (!opendir (INDIR, $plugin_dir)) {
-        print STDERR "pluginfo.pl: could not open directory $plugin_dir\n";
-    }
-    else {
-        @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
-        closedir (INDIR);
-    }
-    #sort (@plugin_list);
-    if ($xml) {
-        my $num_plugin = scalar(@plugin_list);
-        &PrintUsage::print_xml_header("plugin", 1);
-        print STDERR "<PlugInfoList length=\"$num_plugin\">\n";
-    }
-    foreach my $pl (@plugin_list) {
-        $pl =~ s/\.pm$//;
-        &print_single_plugin($pl, $xml, 0);
-    }
-    if ($xml) {
-        print STDERR "</PlugInfoList>\n";
+        print STDERR "</PluginList>\n";
     }
     }
@@ -210 +188 @@
     }
 }
+
 
 sub print_single_plugin {