Changeset 7952

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.

Location:

trunk/gsdl/bin/script

Files:

• classinfo.pl (modified) (5 diffs)
• pluginfo.pl (modified) (5 diffs)

trunk/gsdl/bin/script/classinfo.pl

@@ -52 +52 @@
     'type' => "flag",
     'reqd' => "no" },
+      { 'name' => "listall",
+    'desc' => "{scripts.listall}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "language",
     'desc' => "{scripts.language}",
@@ -88 +92 @@
     my $collect = "";
     my $xml = 0;
+    my $listall = 0;
 
     # Parse command line
@@ -93 +98 @@
              q^collect/.*/^, \$collect,
              q^xml^, \$xml,
+             q^listall^, \$listall,
              q^language/.*/^, \$language))
     {
@@ -107 +113 @@
     # Get classifier
     my $classifier = shift (@ARGV);
-    if (!defined $classifier || $classifier eq "") {
+    if (($listall == 0) && (!defined $classifier || $classifier eq "")) {
     &gsprintf(STDERR, "{classinfo.no_classifier_name}\n\n");
     &PrintUsage::print_txt_usage($options, "{classinfo.params}", 1);
@@ -120 +126 @@
     }
  
-    #my $classinfo = &classify::load_classifiers ([[$classifier]]);
-    #my $classobj = shift @$classinfo;
-    my $classobj = &classify::load_classifier_for_info ($classifier);
-    if ($xml) {
-        $classobj->print_xml_usage();
+    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 {
+        my @class_list = grep (/\.pm$/, readdir (INDIR));
+        closedir (INDIR);
+
+        if ($xml) {
+        my $num_class = scalar(@class_list);
+
+        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 {
+        print STDERR join(" ",@class_list), "\n";
+        }
+    }
+
     }
     else {
-    &gsprintf(STDERR, "\n{classinfo.passing_options}\n\n");
-    &gsprintf(STDERR, "{classinfo.option_types}:\n\n");
-    &gsprintf(STDERR, "{classinfo.specific_options}\n\n");
-    &gsprintf(STDERR, "{classinfo.general_options}\n\n");
-    &gsprintf(STDERR, "$classifier {classinfo.info}:\n\n");
-
-    $classobj->print_txt_usage();
+    my $classobj = &classify::load_classifier_for_info ($classifier);
+    if ($xml) {
+        $classobj->print_xml_usage();
+    }
+    else {
+        &gsprintf(STDERR, "\n{classinfo.passing_options}\n\n");
+        &gsprintf(STDERR, "{classinfo.option_types}:\n\n");
+        &gsprintf(STDERR, "{classinfo.specific_options}\n\n");
+        &gsprintf(STDERR, "{classinfo.general_options}\n\n");
+        &gsprintf(STDERR, "$classifier {classinfo.info}:\n\n");
+        
+        $classobj->print_txt_usage();
+    }
     }
 }

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();
+    }
     }
 }