Changeset 25555 for main

Timestamp:

2012-05-09T14:33:11+12:00 (12 years ago)

Author:

sjm84

Message:

We want to be able to get associated files from CSS files

File:

• main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm

@@ -628 +628 @@
     }
 
-
+    $self->{'css_assoc_files'} = {};
+    
     # single section document
     $self->process_section($textref, $upgraded_base_dir, $upgraded_file, $doc_obj, $cursection);
+    
+    #my $upgraded_filename_dirname = &File::Basename::dirname($upgraded_filename);
+        
+    $self->acquire_css_associated_files($doc_obj, $cursection);
+    
+    $self->{'css_assoc_files'} = {};
     }
 
@@ -698 +705 @@
     my $self = shift (@_);
     my ($textref, $base_dir, $file, $doc_obj, $cursection) = @_;
+
+    my @styleTagsText = ($$textref =~ m/<style[^>]*>([^<]*)<\/style>/sg);
+    if(scalar(@styleTagsText) > 0)
+    {
+        my $css_filename_dirname = &File::Basename::dirname(&util::filename_cat($base_dir, $file));
+        foreach my $styleText (@styleTagsText)
+        {
+            $self->acquire_css_associated_files_from_text_block($styleText, $css_filename_dirname);
+        }
+    }
+
     # trap links
     if (!$self->{'nolinks'}) {
@@ -797 +815 @@
     my $self = shift (@_);
     my ($front, $link, $back, $base_dir, $file, $doc_obj, $section) = @_;
-
+    
+    if($front =~ m/^<link / && $link =~ m/\.css"$/)
+    {
+        my $actual_link = $link;
+        $actual_link =~ s/^"(.*)"$/$1/;
+        
+        my $directory = &File::Basename::dirname($file);
+        
+        my $css_filename = &util::filename_cat($base_dir, $directory, $actual_link);    
+        $self->retrieve_css_associated_files($css_filename);
+    }
+    
     # remove quotes from link at start and end if necessary
     if ($link=~/^[\"\']/) {
@@ -885 +914 @@
     return $front . $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section) . $back;
     }
+}
+
+sub retrieve_css_associated_files {
+    my $self = shift (@_);
+    my ($css_filename) = @_;
+    
+    my $css_filename_dirname = &File::Basename::dirname($css_filename);
+    
+    open (CSSFILE, $css_filename) || return;
+    sysread (CSSFILE, my $file_string, -s CSSFILE);
+    
+    $self->acquire_css_associated_files_from_text_block($file_string, $css_filename_dirname) unless !defined $file_string;
+    
+    close CSSFILE;
+}
+
+sub acquire_css_associated_files_from_text_block {
+    my $self = shift (@_);
+    my ($text, $css_filename_dirname) = @_;
+    
+    my @image_urls = ($text =~ m/background-image:\s*url[^;]*;/sg);
+    foreach my $img_url (@image_urls)
+    {
+        $img_url =~ s/^.*url.*\((.*)\).*$/$1/;
+        $img_url =~ s/^\s*"?([^"]*)"?\s*$/$1/;
+
+        $self->{'css_assoc_files'}->{&util::filename_cat($css_filename_dirname, $img_url)} = $img_url;
+    }
+}
+
+sub acquire_css_associated_files {
+    my $self = shift(@_);
+    
+    my ($doc_obj, $section) = @_;
+    
+    foreach my $image_filename (keys %{$self->{'css_assoc_files'}})
+    {
+        $doc_obj->associate_file($image_filename, $self->{'css_assoc_files'}->{$image_filename}, undef, $section);  
+    }
 }