Changeset 17127 for gsdl/trunk/perllib

Timestamp:

2008-09-04T09:50:57+12:00 (16 years ago)

Author:

kjdon

Message:

want to block body background, so added it into tabbg_matches regex for file blocking

File:

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

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -585 +585 @@
     my @link_matches = ($$textref =~ m/<link[^>]*?href\s*=\s*($attval)[^>]*>/igs);
     my @embed_matches = ($$textref =~ m/<embed[^>]*?src\s*=\s*($attval)[^>]*>/igs);
-    my @tabbg_matches = ($$textref =~ m/<(?:table|tr|td)[^>]*?background\s*=\s*($attval)[^>]*>/igs);
+    my @tabbg_matches = ($$textref =~ m/<(?:body|table|tr|td)[^>]*?background\s*=\s*($attval)[^>]*>/igs);
     my @script_matches = ($$textref =~ m/<script[^>]*?src\s*=\s*($attval)[^>]*>/igs);
 
@@ -611 +611 @@
     }
     $link = $self->eval_dir_dots($link);
-    
 
     # this is the actual filename on the filesystem (that the link refers to)
@@ -1003 +1002 @@
     my $img_file =  $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section);
 
-#    print STDERR "**** link = $link\n**** href = $href\n**** img_file = $img_file\n";
+#    print STDERR "**** link = $link\n**** href = $href\n**** img_file = $img_file, rl = $rl\n";
 
     my $anchor_name = $img_file;