Changeset 2785 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2001-10-09T17:21:29+13:00 (23 years ago)

Author:

sjboddie

Message:

The build process now creates a summary of how many files were included,
which were rejected, etc. A link to a page containing this summary is
provided from the final page of the collector (once the collection is built
successfully) and from the default "about this collection" text for
collections built by the collector.

Also did a little bit of tidying in a couple of places

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -142 +142 @@
 
     $self->{'textcat'} = new textcat();
+
+    $self->{'num_processed'} = 0;
+    $self->{'num_not_processed'} = 0;
+    $self->{'num_blocked'} = 0;
+    $self->{'num_archives'} = 0;
     
     # general options available to all plugins
@@ -175 +180 @@
 sub init {
     my $self = shift (@_);
-    my ($verbosity, $outhandle, $faillogname) = @_;
+    my ($verbosity, $outhandle, $failhandle) = @_;
 
     # verbosity is passed through from the processor
     $self->{'verbosity'} = $verbosity;
 
-    # as is the outhandle ...
+    # as are the outhandle and failhandle
     $self->{'outhandle'} = $outhandle if defined $outhandle;
-    $self->{'faillogname'} = $faillogname;
+    $self->{'failhandle'} = $failhandle;
 
     # set process_exp and block_exp to defaults unless they were
@@ -258 +263 @@
 
     my $filename = &util::filename_cat($base_dir, $file);
-    return 0 if $self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/;
+    if ($self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/) {
+    $self->{'num_blocked'} ++;
+    return 0;
+    }
     if ($filename !~ /$self->{'process_exp'}/ || !-f $filename) {
     return undef;
@@ -298 +306 @@
     if (!length ($text)) {
     print $outhandle "$plugin_name: ERROR: $file contains no text\n" if $self->{'verbosity'};
+
+    my $failhandle = $self->{'failhandle'};
+    print $failhandle "$file: " . ref($self) . ": file contains no text\n";
+    $self->{'num_not_processed'} ++;
+
     return 0;
     }
@@ -316 +329 @@
     # process the document
     $processor->process($doc_obj);
+
+    $self->{'num_processed'} ++;
 
     return 1; # processed the file
@@ -671 +686 @@
 }
 
+sub compile_stats {
+    my $self = shift(@_);
+    my ($stats) = @_;
+
+    $stats->{'num_processed'} += $self->{'num_processed'};
+    $stats->{'num_not_processed'} += $self->{'num_not_processed'};
+
+}
+
+
 1;