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

Timestamp:

2004-08-16T15:55:22+12:00 (20 years ago)

Author:

davidb

Message:

Script extended to support '-listall' option which prints out all the
plugins/classifiers it knows about.

File:

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

trunk/gsdl/bin/script/pluginfo.pl

@@ -55 +55 @@
     'type' => "flag",
     'reqd' => "no" },
+      { 'name' => "listall",
+    'desc' => "{scripts.listall}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "language",
     'desc' => "{scripts.language}",
@@ -73 +77 @@
     my $collect = "";
     my $xml = 0;
+    my $listall = 0;
 
     my ($language, $encoding);
@@ -79 +84 @@
              q^collect/.*/^, \$collect,
              q^xml^, \$xml,
+             q^listall^, \$listall,
              q^language/.*/^, \$language))
     {
@@ -107 +113 @@
 
     my $plugin = shift (@ARGV);
-    if (!defined $plugin || $plugin eq "") {
+    if (($listall == 0) && (!defined $plugin || $plugin eq "")) {
     gsprintf(STDERR, "{pluginfo.no_plugin_name}\n\n");
     PrintUsage::print_txt_usage($options, "{pluginfo.params}", 1);
@@ -119 +125 @@
     }
 
-    my $pluginfo = &plugin::load_plugins ([[$plugin]]);
-    my $plugobj = shift @$pluginfo;
+    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 {
+        my @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
+        closedir (INDIR);
 
-    if ($xml) {
-        $plugobj->print_xml_usage();
+
+        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 PlugName   (#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 {
+        print STDERR join(" ",@plugin_list), "\n";
+        }
+    }
+
     }
     else {
-    gsprintf(STDERR, "\n{pluginfo.passing_options}\n\n");
-    gsprintf(STDERR, "{pluginfo.option_types}:\n\n");
-    gsprintf(STDERR, "{pluginfo.specific_options}\n\n");
-    gsprintf(STDERR, "{pluginfo.general_options}\n\n");
-    gsprintf(STDERR, "$plugin {pluginfo.info}:\n\n");
 
-    $plugobj->print_txt_usage();
+    my $pluginfo = &plugin::load_plugins ([[$plugin]]);
+    my $plugobj = shift @$pluginfo;
+    
+    if ($xml) {
+        $plugobj->print_xml_usage();
+    }
+    else {
+        gsprintf(STDERR, "\n{pluginfo.passing_options}\n\n");
+        gsprintf(STDERR, "{pluginfo.option_types}:\n\n");
+        gsprintf(STDERR, "{pluginfo.specific_options}\n\n");
+        gsprintf(STDERR, "{pluginfo.general_options}\n\n");
+        gsprintf(STDERR, "$plugin {pluginfo.info}:\n\n");
+        
+        $plugobj->print_txt_usage();
+    }
     }
 }