Changeset 3186 for trunk/protemix/perllib/plugins/ProtemixPlug.pm

Timestamp:

2002-06-25T23:05:43+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/perllib/plugins/ProtemixPlug.pm (modified) (2 diffs)

trunk/protemix/perllib/plugins/ProtemixPlug.pm

@@ -58 +58 @@
     $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
 
-    return 0 if $filename =~ /\.(pdf|html?|jpe?g)$/i;
+    my $basename = File::Basename::basename($filename);
+    return 0 if $basename =~ /^\d+(-(all|\d+))?\.(html?|pdf)/;
     return undef unless $filename =~ /meta\.xml$/;
     
@@ -76 +77 @@
 
     my $dir = File::Basename::dirname($filename);
+
+    my $outhandle = $self->{'outhandle'};
+    print $outhandle "ProtemixPlug: processing $dir\n";
+
 
     # associate article level pdf file