Changeset 11683 for trunk

Timestamp:

2006-04-21T15:23:06+12:00 (18 years ago)

Author:

kjdon

Message:

added a -describeall option, so we can generate the descriptive output for all plugins/classifiers at once

Location:

trunk/gsdl/bin/script

Files:

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

trunk/gsdl/bin/script/classinfo.pl

@@ -59 +59 @@
     'type' => "flag",
     'reqd' => "no" },
+      { 'name' => "describeall",
+    'desc' => "{scripts.describeall}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "language",
     'desc' => "{scripts.language}",
@@ -77 +81 @@
     my $xml = 0;
     my $listall = 0;
+    my $describeall = 0;
     my $language;
 
@@ -106 +111 @@
     $classifier =~ s/\.pm$//; # allow xxx.pm as the argument
     }
-    if (($listall == 0) && (!defined $classifier || $classifier eq "")) {
+    if (($listall == 0 && $describeall == 0) && (!defined $classifier || $classifier eq "")) {
     &gsprintf(STDERR, "{classinfo.no_classifier_name}\n\n");
     &PrintUsage::print_txt_usage($options, "{classinfo.params}", 1);
@@ -150 +155 @@
 
     }
+    elsif ($describeall) {
+    my $class_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib","classify");
+    my @class_list;
+    if (!opendir (INDIR, $class_dir)) {
+        print STDERR "classinfo.pl: could not open directory $class_dir\n";
+    } else {
+        @class_list = grep (/\.pm$/, readdir (INDIR));
+        closedir (INDIR);
+    }
+    if ($xml) {
+        my $num_class = scalar(@class_list);
+        &PrintUsage::print_xml_header("classify", 1);
+        print STDERR "<ClassInfoList length=\"$num_class\">\n";
+    }
+    foreach my $cl (@class_list) {
+        $cl =~ s/\.pm$//;
+        &print_single_classifier($cl, $xml, 0);
+    }
+    if ($xml) {
+        print STDERR "</ClassInfoList>\n";
+    }
+    }
     else {
-    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();
-    }
-    }
+    &print_single_classifier($classifier, $xml, 1);
+    }
+}
+
+sub print_single_classifier {
+    my ($classifier, $xml, $header) = @_;
+    my $classobj = &classify::load_classifier_for_info ($classifier);
+    if ($xml) {
+    $classobj->print_xml_usage($header);
+    }
+    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

@@ -43 +43 @@
 use gsprintf;
 use printusage;
-
 use parse2;
 
@@ -59 +58 @@
     'type' => "flag",
     'reqd' => "no" },
+      { 'name' => "describeall",
+    'desc' => "{scripts.describeall}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "language",
     'desc' => "{scripts.language}",
@@ -78 +81 @@
     my $xml = 0;
     my $listall = 0;
-    
+    my $describeall = 0;
     my ($language, $encoding);
 
@@ -130 +133 @@
     $plugin =~ s/\.pm$//; # allow xxxPlug.pm as the argument
     }
-    if (($listall == 0) && (!defined $plugin || $plugin eq "")) {
+    if (($listall == 0 && $describeall ==0) && (!defined $plugin || $plugin eq "")) {
     gsprintf(STDERR, "{pluginfo.no_plugin_name}\n\n");
     PrintUsage::print_txt_usage($options, "{pluginfo.params}", 1);
@@ -174 +177 @@
 
     }
+    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";
+    }
+    }
     else {
-
-    #my $pluginfo = &plugin::load_plugins ([[$plugin]]);
-    #my $plugobj = shift @$pluginfo;
-    my $plugobj = &plugin::load_plugin_for_info ($plugin);
-    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();
-    }
-    }
+    &print_single_plugin($plugin, $xml, 1);
+    }
+}
+
+sub print_single_plugin {
+    my ($plugin, $xml, $header) = @_;
+    my $plugobj = &plugin::load_plugin_for_info ($plugin);
+    if ($xml) {
+    $plugobj->print_xml_usage($header);
+    }
+    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();
+    }
+    
 }