Changeset 8914

Timestamp:

2005-01-20T10:13:30+13:00 (19 years ago)

Author:

chi

Message:

Add a smart_block option to deal with associated files of HTML document.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -33 +33 @@
 # (it's removed by this plugin)
 #
-
 
 package HTMLPlug;
@@ -144 +143 @@
 sub get_default_block_exp {
     my $self = shift (@_);
-
+    
     return q^(?i)\.(gif|jpe?g|jpe|jpg|png|css)$^;
 }
@@ -150 +149 @@
 sub get_default_process_exp {
     my $self = shift (@_);
-
+    
     # the last option is an attempt to encode the concept of an html query ...
     return q^(?i)(\.html?|\.shtml|\.shm|\.asp|\.php\d?|\.cgi|.+\?.+=.*)$^;
 }
+
 
 sub metadata_read {
@@ -170 +170 @@
     }
 
-    # Do encoding stuff
-    my ($language, $encoding) = $self->textcat_get_language_encoding ($filename);
+    if ($self->{'smart_block'}) {
+       # Do encoding stuff
+       my ($language, $encoding) = $self->textcat_get_language_encoding ($filename);
    
-    # read in file ($text will be in utf8)
-    my $text = "";
-    $self->read_file ($filename, $encoding, $language, \$text);
-
-    $self->store_block_files (\$text, $filename);
-    
+       # read in file ($text will be in utf8)
+       my $text = "";
+       $self->read_file ($filename, $encoding, $language, \$text);
+       $self->store_block_files (\$text, $filename);
+   }
     return 1;
 }
@@ -463 +463 @@
     my ($filename) = $href =~ /^(?:.*?):(?:\/\/)?(.*)/;
     
+
     ##### leave all these links alone (they won't be picked up by intermediate 
     ##### pages). I think that's safest when dealing with frames, targets etc.
@@ -609 +610 @@
         $before_hash .= "/" if (-d $linkfilename);
     }
-    
     return ("http://" . $before_hash, $hash_part, 1);
     } else {