Changeset 1686

Timestamp:

2000-11-22T10:33:26+13:00 (23 years ago)

Author:

jrm21

Message:

HTMLPlug no longer blocks .pdf files. (also updated reference to this in
BasPlug)

Location:

trunk/gsdl/perllib/plugins

Files:

• BasPlug.pm (modified) (1 diff)
• HTMLPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -64 +64 @@
     print STDERR "                     about input files you don't care about. Each plugin may or may\n";
     print STDERR "                     not have a default block_exp. e.g. by default HTMLPlug blocks\n";
-    print STDERR "                     any files with .gif, .jpg, .jpeg, .png, .pdf, .rtf or .css\n";
+    print STDERR "                     any files with .gif, .jpg, .jpeg, .png, .rtf or .css\n";
     print STDERR "                     file extensions.\n";
     print STDERR "   -extract_acronyms Extract acronyms from within text and set as metadata\n\n";

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -65 +65 @@
     print STDERR "   -w3mir                 Set if w3mir was used to generate input file structure.\n";
     print STDERR "   -assoc_files           Perl regular expression of file extensions to associate with\n";
-    print STDERR "                          html documents. Defaults to '(?i)\.(jpe?g|gif|png|css|pdf)\$'\n";
+    print STDERR "                          html documents. Defaults to '(?i)\.(jpe?g|gif|png|css)\$'\n";
     print STDERR "   -rename_assoc_files    Renames files associated with documents (e.g. images). Also\n";
     print STDERR "                          creates much shallower directory structure (useful when creating\n";
@@ -85 +85 @@
              q^hunt_creator_metadata^, \$self->{'hunt_creator_metadata'},
              q^w3mir^, \$self->{'w3mir'},
-             q^assoc_files/.*/(?i)\.(jpe?g|gif|png|css|pdf)$^, \$self->{'assoc_files'},
+             q^assoc_files/.*/(?i)\.(jpe?g|gif|png|css)$^, \$self->{'assoc_files'},
              q^rename_assoc_files^, \$self->{'rename_assoc_files'},
              q^title_sub/.*/^, \$self->{'title_sub'},
@@ -106 +106 @@
     my $self = shift (@_);
 
-    return q^(?i)\.(gif|jpe?g|png|pdf|rtf|css)$^;
+    return q^(?i)\.(gif|jpe?g|png|rtf|css)$^;
 }
 
@@ -217 +217 @@
     
     } else {
-    # link is to some other type of file (image, pdf etc.) so we'll
+    # link is to some other type of file (eg image) so we'll
     # need to associate that file
     return $front . $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section) . $back;