Changeset 14734
- Timestamp:
- 2007-10-26T16:28:34+13:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/plugoutinfo.pl
r12640 r14734 151 151 } 152 152 153 my $plugout = shift (@ARGV); 154 if (defined $plugout) { 155 $plugout =~ s/\.pm$//; # allow xxxPlugout.pm as the argument 153 my $plugout_name = shift (@ARGV); 154 155 if (defined $plugout_name) { 156 $plugout_name =~ s/\.pm$//; # allow xxxPlugout.pm as the argument 156 157 } 157 158 … … 172 173 print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; 173 174 print STDERR "<PlugoutList length=\"" . scalar(@plugout_list) . "\">\n"; 174 foreach my $plugout (@plugout_list) { 175 $plugout =~ s/\.pm$//; 175 foreach my $plugout_name (@plugout_list) { 176 $plugout_name =~ s/\.pm$//; 177 my $plugout; 178 push @$plugout,$plugout_name; 176 179 my $plugoutobj = &plugout::load_plugout ($plugout); 177 180 if ($describeall) { … … 181 184 $plugoutobj->print_xml_usage(0, 1); 182 185 } 186 183 187 } 184 188 print STDERR "</PlugoutList>\n"; 185 189 } 186 190 else { 187 &print_single_plugout($plugout, $xml, 1); 188 } 191 &print_single_plugout($plugout_name, $xml, 1); 192 } 193 194 189 195 } 190 196 191 197 192 198 sub print_single_plugout { 193 my ($plugout, $xml, $header) = @_; 194 my $plugoutobj = &plugout::load_plugout($plugout,[]); 199 my ($plugout_name, $xml, $header) = @_; 200 my $plugout; 201 202 push @$plugout,$plugout_name; 203 204 my $plugoutobj = &plugout::load_plugout($plugout); 195 205 196 206 if ($xml) {
Note:
See TracChangeset
for help on using the changeset viewer.