Changeset 23387 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
- Timestamp:
- 2010-12-06T13:15:10+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r23364 r23387 927 927 928 928 # UTF-8 version of filename 929 if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {930 print STDERR "**** Setting Source Metadata given: $octet_file\n";931 }929 # if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) { 930 # print STDERR "**** Setting Source Metadata given: $octet_file\n"; 931 # } 932 932 933 933 # Deal with (on Windows) raw filenames that are in their … … 937 937 if ((defined $filename_encoding) && ($filename_encoding eq "unicode")) { 938 938 if (-e $raw_filename) { 939 require Win32;940 941 ## print STDERR "**** raw filename before LPN: $raw_filename\n";942 939 my $unicode_filename = Win32::GetLongPathName($raw_filename); 943 940 944 941 my $unused_full_uf; 945 942 ($unused_full_uf, $octet_file) = &util::get_full_filenames("", $unicode_filename); 946 947 ## print STDERR "**** raw filename after LPN: $raw_filename\n";948 943 } 949 944 } … … 962 957 } 963 958 964 if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {965 print STDERR "****** saving Source as: $url_encoded_filename\n";966 }959 # if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) { 960 # print STDERR "****** saving Source as: $url_encoded_filename\n"; 961 # } 967 962 968 963 … … 978 973 $renamed_raw_url); 979 974 980 if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) {981 print STDERR "****** saving SourceFile as: $renamed_raw_url\n";982 }975 # if ((defined $ENV{"DEBUG_UNICODE"}) && ($ENV{"DEBUG_UNICODE"})) { 976 # print STDERR "****** saving SourceFile as: $renamed_raw_url\n"; 977 # } 983 978 } 984 979
Note:
See TracChangeset
for help on using the changeset viewer.