Changeset 29379 for main/trunk/greenstone2

Timestamp:

2014-10-20T10:08:50+13:00 (9 years ago)

Author:

kjdon

Message:

implementing statsfile option which is used by the depositor

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/inexport.pm

@@ -254 +254 @@
     $out->autoflush(1);
     $self->{'out'} = $out;
+
+    my $statsfile = $self->{'statsfile'};
+    if ($statsfile !~ /^(STDERR|STDOUT)$/i) {
+    open (STATSFILE, ">$statsfile") ||
+        (&gsprintf(STDERR, "{common.cannot_open_output_file}: $!\n", $statsfile) && die);
+    $statsfile = 'inexport::STATSFILE';
+    $self->{'close_stats'} = 1;
+    }
+    $statsfile->autoflush(1);
+    $self->{'statsfile'} = $statsfile;
 
     # @ARGV should be only one item, the name of the collection
@@ -1037 +1047 @@
   my $out           = $self->{'out'};
   my $faillogname   = $self->{'faillogname'};
+  my $statsfile     = $self->{'statsfile'};
   my $gli           = $self->{'gli'};
 
@@ -1044 +1055 @@
   &gsprintf($out, "*********************************************\n");
 
-  &plugin::write_stats($pluginfo, 'STDERR', $faillogname, $gli);
+  &plugin::write_stats($pluginfo, $statsfile, $faillogname, $gli);
 }
 # generate_statistics()
@@ -1057 +1068 @@
   close OUT if $self->{'close_out'};
   close FAILLOG if $self->{'close_faillog'};
+  close STATSFILE if $self->{'close_statsfile'};
 }
 # deinit()