Changeset 14734

Timestamp:

2007-10-26T16:28:34+13:00 (17 years ago)

Author:

shaoqun

Message:

make it use the new version of plugout.pm

File:

• gsdl/trunk/bin/script/plugoutinfo.pl (modified) (3 diffs)

gsdl/trunk/bin/script/plugoutinfo.pl

@@ -151 +151 @@
     }
 
-    my $plugout = shift (@ARGV);
-    if (defined $plugout) {
-    $plugout =~ s/\.pm$//; # allow xxxPlugout.pm as the argument
+    my $plugout_name = shift (@ARGV);
+
+    if (defined $plugout_name) {
+    $plugout_name =~ s/\.pm$//; # allow xxxPlugout.pm as the argument
     }
 
@@ -172 +173 @@
     print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
     print STDERR "<PlugoutList length=\"" . scalar(@plugout_list) . "\">\n";
-    foreach my $plugout (@plugout_list) {
-        $plugout =~ s/\.pm$//;
+    foreach my $plugout_name (@plugout_list) {
+        $plugout_name =~ s/\.pm$//;
+        my $plugout;
+        push @$plugout,$plugout_name; 
         my $plugoutobj = &plugout::load_plugout ($plugout);
         if ($describeall) {
@@ -181 +184 @@
         $plugoutobj->print_xml_usage(0, 1);
         }
+        
     }
     print STDERR "</PlugoutList>\n";
     }
     else {
-    &print_single_plugout($plugout, $xml, 1);
-    }
+    &print_single_plugout($plugout_name, $xml, 1);
+    }
+
+  
 }
 
 
 sub print_single_plugout {
-    my ($plugout, $xml, $header) = @_;
-    my $plugoutobj = &plugout::load_plugout($plugout,[]);
+    my ($plugout_name, $xml, $header) = @_;
+    my $plugout;
+
+    push @$plugout,$plugout_name;
+
+    my $plugoutobj = &plugout::load_plugout($plugout);
 
     if ($xml) {