Changeset 3402

Timestamp:

2002-08-26T16:26:56+12:00 (22 years ago)

Author:

sjboddie

Message:

import.pl now tells user where the fail.log lives

Location:

trunk/gsdl

Files:

• bin/script/import.pl (modified) (2 diffs)
• perllib/plugin.pm (modified) (2 diffs)

trunk/gsdl/bin/script/import.pl

@@ -144 +144 @@
     }
     open (FAILLOG, ">$faillog") || die "Couldn't open fail log $faillog\n";
+    my $faillogname = $faillog;
     $faillog = 'import::FAILLOG';
     $faillog->autoflush(1);
@@ -304 +305 @@
     print $out "*********************************************\n";
 
-    &plugin::write_stats($pluginfo, $statsfile);
+    &plugin::write_stats($pluginfo, $statsfile, $faillogname);
     if ($close_stats) {
     close STATS;

trunk/gsdl/perllib/plugin.pm

@@ -117 +117 @@
 # are only output after import.pl -
 sub write_stats {
-    my ($pluginfo, $statshandle) = @_;
+    my ($pluginfo, $statshandle, $faillog) = @_;
 
     foreach $plugobj (@$pluginfo) {
@@ -148 +148 @@
         print $statshandle "* " . $stats->{'num_not_processed'} . " were rejected.";
     } 
-    print $statshandle " See the fail log for a list of rejected documents\n";
+    print $statshandle " See $faillog for a list of rejected documents\n";
     }
 }