Changeset 8366

Timestamp:

2004-10-18T16:17:11+13:00 (20 years ago)

Author:

kjdon

Message:

added script to the list of tags to process as relative links, and js to the list of file extensions to block - so can include javascript files along with the html file. courtesy Dmitry Vereschaka

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -138 +138 @@
 }
 
-
+# may want to use (?i)\.(gif|jpe?g|jpe|png|css|js(?:@.*)?)$
+# if have eg <script language="javascript" src="img/lib.js@123">
 sub get_default_block_exp {
     my $self = shift (@_);
 
-    return q^(?i)\.(gif|jpe?g|jpe|png|css)$^;
+    return q^(?i)\.(gif|jpe?g|jpe|png|css|js)$^;
 }
 
@@ -317 +318 @@
         $self->replace_usemap_links($1, $2, $3)/isge;
 
-    $$textref =~ s/(<(?:a|area|frame|link)\s+[^>]*?\s*(?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
+    $$textref =~ s/(<(?:a|area|frame|link|script)\s+[^>]*?\s*(?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
         $self->replace_href_links ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge;
     }