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

Timestamp:

2005-02-16T16:26:34+13:00 (19 years ago)

Author:

kjdon

Message:

moved smart blocking stuff in htmlplug metadata_read into basplug metadata read. htmlplug now just needs to implement store_block_files. basplug smart block will block a cover image if -cover_images is on. Converttoplug store_block_files needs to call the basplug default one (do nothing) cos it doesn't want to use the html specific one. Image plug needs to implement store_cover_image to do nothing cos it doesn'tmake sense

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -69 +69 @@
     'type' => "regexp",
     'deft' => "",
+    'reqd' => "no" },
+      { 'name' => "smart_block",
+    'desc' => "{BasPlug.smart_block}",
+    'type' => "flag",
     'reqd' => "no" },
       { 'name' => "associate_ext",
@@ -428 +432 @@
 }
 
+# default implementation is to do nothing. 
+sub store_block_files
+{
+    my $self =shift (@_);
+    my ($filename) = @_;
+    return;
+}
+
+#default implementation is to block a file with same name as this, but extension jpg or JPG, if cover_images is on.
+sub block_cover_image
+{
+    my $self =shift (@_);
+    my ($filename) = @_;
+    if ($self->{'cover_image'}) {
+    my $coverfile = $filename;
+    $coverfile =~ s/\.[^\\\/\.]+$/\.jpg/;
+    if (!-e $coverfile) {
+        $coverfile =~ s/jpg$/JPG/;
+    }   
+    if (-e $coverfile) {
+        $self->{'file_blocks'}->{$coverfile} = 1;
+    }
+    }
+
+    return;
+}
+    
 sub metadata_read {
     my $self = shift (@_);  
     my ($pluginfo, $base_dir, $file, $metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;
-
     # Keep track of filenames with same root but different extensions
-    # Used to support -assoicate_ext
+    # Used to support -associate_ext
 
     my $associate_ext = $self->{'associate_ext'};
@@ -460 +490 @@
     }
     }
-
-    return undef;
+    
+    # now check whether we are actually processing this
+    my $filename = $file;
+    $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
+    if ($self->{'process_exp'} eq "" || $filename !~ /$self->{'process_exp'}/ || !-f $filename) {
+    return undef; # can't recognise
+    }
+
+    # do smart blocking if appropriate
+    if (defined $self->{'smart_block'}) {
+    $self->block_cover_image($filename);
+    $self->store_block_files($filename);
+    }
+       
+    return 1;
 }