Changeset 6332 for trunk/gsdl/perllib/plugin.pm

Timestamp:

2003-12-19T15:16:29+13:00 (20 years ago)

Author:

jmt12

Message:

When -gli argument is provided to calling script these modules will now output gli specific, non-language nor verbosity specific, messages

File:

• trunk/gsdl/perllib/plugin.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugin.pm

@@ -92 +92 @@
 
 sub read {
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $aux) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli, $aux) = @_;
 
     $maxdocs = -1 unless defined $maxdocs && $maxdocs =~ /\d/;
+    $gli = 0 unless defined $gli;
+
     my $rv = 0;
+
+    # Announce to GLI that we are handling a file
+    print STDERR "<File n='$file'>\n" if $gli;
 
     # the .kill file is a handy (if not very elegant) way of aborting 
@@ -109 +114 @@
     foreach $plugobj (@$pluginfo) {
     $rv = $plugobj->read($pluginfo, $base_dir, $file, 
-                 $metadata, $processor, $maxdocs, $aux);
+                 $metadata, $processor, $maxdocs, $gli, $aux);
     return $rv if defined $rv;
     }
@@ -130 +135 @@
 # are only output after import.pl -
 sub write_stats {
-    my ($pluginfo, $statshandle, $faillog) = @_;
+    my ($pluginfo, $statshandle, $faillog, $gli) = @_;
+
+    $gli = 0 unless defined $gli;
 
     foreach $plugobj (@$pluginfo) {
@@ -138 +145 @@
     my $total = $stats->{'num_processed'} + $stats->{'num_blocked'} + 
     $stats->{'num_not_processed'};
+
+    print STDERR "<ImportComplete c='$stats->{'num_processed'}' p='$stats->{'num_processed'}'>\n" if $gli;
 
     if ($total == 1) {