Changeset 20791 for gsdl/trunk/perllib/plugins/HTMLPlugin.pm

Timestamp:

2009-10-07T15:54:37+13:00 (13 years ago)

Author:

kjdon

Message:

new option -processing_tmp_files - if set, then don't store the assicated files using associate_source_file - we don't want to store tmp files in the archivesinf databases

File:

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

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -114 +114 @@
       { 'name' => "old_style_HDL",
         'desc' => "{HTMLPlugin.old_style_HDL}",
-    'type' => "flag"}
+    'type' => "flag"},
+      {'name' => "processing_tmp_files",
+       'desc' => "{BasePlugin.processing_tmp_files}",
+       'type' => "flag",
+       'hiddengli' => "yes"}
       ];
 
@@ -147 +151 @@
 # may want to use (?i)\.(gif|jpe?g|jpe|png|css|js(?:@.*)?)$
 # if have eg <script language="javascript" src="img/lib.js@123">
+# blocking is now done by reading through the file and recording all the 
+# images and other files
 sub get_default_block_exp {
     my $self = shift (@_);
@@ -758 +764 @@
     }
     # add the original image file as a source file
-    $doc_obj->associate_source_file($filename);
+    if (!$self->{'processing_tmp_files'} ) {
+    $doc_obj->associate_source_file($filename);
+    }
     if ($self->{'rename_assoc_files'}) {
     if (defined $self->{'aux_files'}->{$href}) {