Changeset 23418 for main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm

Timestamp:

2010-12-08T13:47:34+13:00 (13 years ago)

Author:

davidb

Message:

A few further additions to help windows keep track of c\... and C:\... filenames

File:

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

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

@@ -285 +285 @@
     }
 
-    $url_original_filename = &util::upgrade_if_dos_filename($url_original_filename);
+    # $url_original_filename = &util::upgrade_if_dos_filename($url_original_filename);
+    
+    
     $block_hash->{'file_blocks'}->{$url_original_filename} = 1;
+    if ($ENV{'GSDLOS'} =~ m/^windows$/) {
+        
+        my $lower_drive = $url_original_filename;
+        $lower_drive =~ s/^([A-Z]):/\l$1:/i;
+        my $upper_drive = $url_original_filename;
+        
+        $upper_drive =~ s/^([A-Z]):/\u$1:/i;
+
+##      print STDERR "**** HTML plugin, blocking: \"$lower_drive\"\n";
+##      print STDERR "**** HTML plugin, blocking: \"$upper_drive\"\n";
+        
+        $block_hash->{'file_blocks'}->{$lower_drive} = 1;
+        $block_hash->{'file_blocks'}->{$upper_drive} = 1;       
+    }
+    else {
+##      print STDERR "**** HTML plugin, blocking: $url_original_filename\n";
+        $block_hash->{'file_blocks'}->{$url_original_filename} = 1;
+    }
+        
     }
 }