Changeset 24375 for main/trunk/greenstone2/bin/script/gsConvert.pl

Timestamp:

2011-08-09T17:35:09+12:00 (13 years ago)

Author:

ak19

Message:

Added in verbosity option when launching wvware.pl, so that an unnecessary message can be suppressed at lower verbosity levels.

File:

• main/trunk/greenstone2/bin/script/gsConvert.pl (modified) (3 diffs)

main/trunk/greenstone2/bin/script/gsConvert.pl

@@ -91 +91 @@
 my $faillogfile="";
 my $timeout=0;
+my $verbosity=0;
 
 sub main
@@ -131 +132 @@
     print_usage();
     }
-      
+
+    $verbosity=$verbose if defined $verbose;
+     
     # Make sure the input file exists and can be opened for reading
     if (scalar(@ARGV!=1)) {
@@ -521 +524 @@
 
     my $wvware_status = 0;
-    
+    
     # need to ensure that the path to perl is quoted (in case there's spaces in it)
-    my $launch_cmd = "\"".&util::get_perl_exec()."\" -S wvware.pl $input_filename $output_filestem $faillogfile $timeout";    
+    my $launch_cmd = "\"".&util::get_perl_exec()."\" -S wvware.pl $input_filename $output_filestem $faillogfile $verbosity $timeout";    
 
 #    print STDERR "***** wvware launch cmd = $launch_cmd\n";