Changeset 23363 for main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

Timestamp:

2010-12-01T11:42:27+13:00 (13 years ago)

Author:

davidb

Message:

Plugin code upgrade to support Greenstone working with filenames under Windows when then go beyond Latin-1 and start turning up in their DOS abbreviated form (e.g. Test~1.txt)

File:

• main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm (modified) (1 diff)

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

@@ -257 +257 @@
     my ($block_hash, $filename_full_path) = @_;
 
+    $filename_full_path = &util::upgrade_if_dos_filename($filename_full_path);
+###    print STDERR "*** DirectoryPlugin::file_is_blocked $filename_full_path\n";
+
     if (defined $block_hash->{'file_blocks'}->{$filename_full_path}) {
     $self->{'num_blocked'} ++;