Changeset 23387 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

Timestamp:

2010-12-06T13:15:10+13:00 (13 years ago)

Author:

davidb

Message:

Further changes to deal with documents that use different filename encodings on the file-system. Now sets UTF8URL metadata to perform the cross-document look up. Files stored in doc.pm as associated files are now always raw filenames (rather than potentially UTF8 encoded). Storing of filenames seen by HTMLPlug when scanning for files to block on is now done in Unicode aware strings rather than utf8 but unware strings.

File:

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

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

@@ -927 +927 @@
 
     # UTF-8 version of filename
-    if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {
-    print STDERR "**** Setting Source Metadata given: $octet_file\n";
-    }
+#    if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {
+#   print STDERR "**** Setting Source Metadata given: $octet_file\n";
+#    }
     
     # Deal with (on Windows) raw filenames that are in their
@@ -937 +937 @@
     if ((defined $filename_encoding) && ($filename_encoding eq "unicode")) {
         if (-e $raw_filename) {
-        require Win32;
-        
-##      print STDERR "**** raw filename before LPN: $raw_filename\n";
         my $unicode_filename = Win32::GetLongPathName($raw_filename);
         
         my $unused_full_uf;
         ($unused_full_uf, $octet_file) = &util::get_full_filenames("", $unicode_filename);
-
-##      print STDERR "**** raw filename after LPN: $raw_filename\n";        
         }
     }
@@ -962 +957 @@
     }
     
-    if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {
-    print STDERR "****** saving Source as:             $url_encoded_filename\n";
-    }
+#    if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {
+#   print STDERR "****** saving Source as:             $url_encoded_filename\n";
+#    }
     
     
@@ -978 +973 @@
                     $renamed_raw_url);
 
-    if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {
-    print STDERR "****** saving SourceFile as:         $renamed_raw_url\n";
-    }
+#    if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {
+#   print STDERR "****** saving SourceFile as:         $renamed_raw_url\n";
+#    }
 }