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

Timestamp:

2006-09-01T11:05:08+12:00 (18 years ago)

Author:

mdewsnip

Message:

Now returns valid XML instead of an error when -listall and -describeall is specified and the directory doesn't exist (usually collection-specific).

File:

• trunk/gsdl/bin/script/pluginfo.pl (modified) (1 diff)

trunk/gsdl/bin/script/pluginfo.pl

@@ -161 +161 @@
 
     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";
-    }
-    else {
-        my @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
+    my $plugins_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "perllib", "plugins");
+    my @plugin_list = ();
+    if (opendir (INDIR, $plugins_dir)) {
+        @plugin_list = grep (/Plug\.pm$/, readdir (INDIR));
         closedir (INDIR);
-
-        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);
-        }
+    }
+
+    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);
         }
-        print STDERR "</PluginList>\n";
-    }
+        else {
+        $plugobj->print_xml_usage(0, 1);
+        }
+    }
+    print STDERR "</PluginList>\n";
     }
     else {