Author: poeml
Date: Sun Feb 9 14:58:06 2014
New Revision: 8392
URL: http://svn.mirrorbrain.org/viewvc/mirrorbrain?rev=8392&view=rev
Log:
scanner:
- fix HTML parsing of filenames with UTF-8 characters (issue #149)
Modified:
trunk/tools/scanner.pl
Modified: trunk/tools/scanner.pl
URL:
http://svn.mirrorbrain.org/viewvc/mirrorbrain/trunk/tools/scanner.pl?rev=8392&r1=8391&r2=8392&view=diff
==============================================================================
--- trunk/tools/scanner.pl (original)
+++ trunk/tools/scanner.pl Sun Feb 9 14:58:06 2014
@@ -594,7 +594,7 @@
print "$identifier: date $date\n";
print "$identifier: size $size\n";
}
- $name1 =~ s{%([\da-fA-F]{2})}{pack 'c', hex $1}ge;
+ $name1 =~ s{%([\da-fA-F]{2})}{pack 'U', hex $1}ge;
$name1 =~ s{^\./}{};
my $dir = 1 if $pre =~ m{"\[DIR\]"};
#print "$identifier: $pre^$name1^$date^$size\n" if $verbose > 1;
@@ -651,7 +651,7 @@
print "$identifier: date $date\n";
print "$identifier: size $size\n";
}
- $name1 =~ s{%([\da-fA-F]{2})}{pack 'c', hex $1}ge;
+ $name1 =~ s{%([\da-fA-F]{2})}{pack 'U', hex $1}ge;
$name1 =~ s{^\./}{};
my $dir = 1 if $pre =~ m{>Directory<};
my $t = length($name) ? "$name/$name1" : $name1;
_______________________________________________
mirrorbrain-commits mailing list
Archive: http://mirrorbrain.org/archive/mirrorbrain-commits/
Note: To remove yourself from this list, send a mail with the content
unsubscribe
to the address mirrorbrain-commits-requ...@mirrorbrain.org
