Changeset 32511 for main/trunk/greenstone2/perllib/plugout.pm

Timestamp:

2018-10-10T21:25:13+13:00 (6 years ago)

Author:

ak19

Message:

Running plugoutinfo.pl with describeall or listall flag would break on FedoraMETSPlugout when either FEDORA_HOME or FEDORA_VERSION aren't set (as is often the case), as there's a die statement in the BEGIN of FedoraMETSPlugout. Needed to run die if either FEDORA env var is not set only if the plugout is NOT in info_only mode in plugout constructor. However, info_only mode was never set in any of the plugouts, so had to add set up the infrastructure for it in plugoutinfo.pl and plugout.pm. Then added the info_only test to all teh plugouts, even though it's redundant in most of them for making sure future changes to any plugout's constructors does not break plugoutinfo.pl.

File:

• main/trunk/greenstone2/perllib/plugout.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugout.pm

@@ -48 +48 @@
 sub load_plugout{
     my ($plugout) = shift @_;
+    my ($info_only) = shift @_; # optional. Set to info_only if we're just printing out plugout info
     my $plugout_name = shift @$plugout;
+
     my $plugout_suffix = &FileUtils::filenameConcatenate('perllib', 'plugouts', $plugout_name . '.pm');
     my $plugout_found = 0;
@@ -148 +150 @@
     my ($plugobj);
 
+    # if just doing plugoutinfo.pl, add in -gsdlinfo to plugout object's options
+    if($info_only) {
+    unshift (@$plugout, "-gsdlinfo");
+    }
+    
     eval ("\$plugobj = new \$plugout_name([],\$plugout)");
     die "$@" if $@;