Changeset 11090 for trunk/gsdl/perllib/plugins/FOXPlug.pm

Timestamp:

2006-01-24T10:29:34+13:00 (18 years ago)

Author:

kjdon

Message:

made all plugins that implement read() call read_block to check process_exp, block_exp, smart blocking, cover image blocking etc

File:

• trunk/gsdl/perllib/plugins/FOXPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/FOXPlug.pm

@@ -69 +69 @@
 }
 
-sub is_recursive {
-    my $self = shift (@_);
-
-    return 0; # this is not a recursive plugin
-}
-
+sub get_default_process_exp {
+    my $self = shift (@_);
+
+    return q^(?i)\.dbf$^;
+}
+
+#dbt files are processed at the same time as dbf files
+sub get_default_block_exp {
+    my $self = shift (@_);
+
+    return q^(?i)\.dbt$^;
+}
 
 # return number of files processed, undef if can't process
@@ -82 +88 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $total_count, $gli) = @_;
-    my $fullname = &util::filename_cat ($base_dir, $file);
-
-    # dbt files are processed at the same time as dbf files
-    return 0 if ($fullname =~ /\.dbt$/i);
-
-    # see if this is a foxbase database
-    return undef unless (-f $fullname && $fullname =~ /\.dbf$/i);
+ 
+    #check for associate_ext, blocking etc, are we processing this file?
+    my ($block_status,$fullname) = $self->read_block(@_);    
+    return $block_status if ((!defined $block_status) || ($block_status==0));
+
+    print STDERR "<Processing n='$file' p='FOXPlug'>\n" if ($gli);
+    print STDERR "FOXPlug: processing $file\n" if $self->{'verbosity'} > 1;
 
     my ($parent_dir) = $fullname =~ /^(.*)\/[^\/]+\.dbf$/i;
@@ -100 +106 @@
     return -1; # error in processing
     }
-
-    print STDERR "<Processing n='$file' p='FOXPlug'>\n" if ($gli);
-    
-    print STDERR "FOXPlug: processing $file\n";
 
     # read in the database header