Package: www.debian.org Severity: wishlist Tags: patch User: [email protected] Usertags: scripts devel
Hi, HTML::Entities is only Latin1-aware and not able to convert UTF-8 characters, so fails to display properly Kannada script for example: the title of #625467 is broken in the WNPP pages [0]. 0: http://www.debian.org/devel/wnpp/being_packaged The following patch needs uni2ascii installed on www-master. Regards David -- System Information: Debian Release: wheezy/sid APT prefers unstable APT policy: (600, 'unstable'), (500, 'oldstable'), (500, 'stable'), (150, 'experimental') Architecture: amd64 (x86_64) Kernel: Linux 2.6.38-2-amd64 (SMP w/1 CPU core) Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash *** /tmp/wnpp.patch Index: english/devel/wnpp/Makefile =================================================================== RCS file: /cvsroot/webwml/webwml/english/devel/wnpp/Makefile,v retrieving revision 1.17 diff -u -r1.17 Makefile --- english/devel/wnpp/Makefile 17 Aug 2008 12:46:40 -0000 1.17 +++ english/devel/wnpp/Makefile 4 May 2011 19:52:58 -0000 @@ -23,6 +23,8 @@ $(DATADIR)/wnpp.data: WMLOUTFILE=$(DATADIR)/wnpp.data $(DATADIR)/wnpp.data: $(WML) -W7,-Squotes $(DATADIR)/wnpp.pl + mv $(DATADIR)/wnpp.data $(DATADIR)/wnpp-utf8.data + uni2ascii -a D $(DATADIR)/wnpp-utf8.data > $(DATADIR)/wnpp.data ifeq "$(LANGUAGE)" "en" .PHONY: $(DATADIR)/wnpp.data Index: english/devel/wnpp/wnpp.pl =================================================================== RCS file: /cvsroot/webwml/webwml/english/devel/wnpp/wnpp.pl,v retrieving revision 1.47 diff -u -r1.47 wnpp.pl --- english/devel/wnpp/wnpp.pl 25 Apr 2011 15:56:55 -0000 1.47 +++ english/devel/wnpp/wnpp.pl 4 May 2011 20:04:14 -0000 @@ -9,17 +9,15 @@ use SOAP::Lite; use Date::Parse; -use HTML::Entities; -use Encode qw(decode); # The maintainers flat database my $maintainers_file = "$(ENGLISHDIR)/devel/wnpp/Maintainers"; my %maintainer; -open MAINTAINERS, '<:utf8', $maintainers_file or die "Can't find $maintainers_file file at $host: $!\n"; +open MAINTAINERS, '<', $maintainers_file or die "Can't find $maintainers_file file at $host: $!\n"; while (<MAINTAINERS>) { if (/^(\S+)\s+(.*)$/) { - $maintainer{$1} = encode_entities($2); + $maintainer{$1} = $2; } } close MAINTAINERS; @@ -46,7 +44,7 @@ } $age{$bugid} = ($curdate - $status->{$bugid}->{date})/86400; $activity{$bugid} = ($curdate - $status->{$bugid}->{log_modified})/86400; - $subject = encode_entities($subject); + $subject = $subject; # Make order out of chaos if ($subject =~ m/^(?:ITO|RFA):\s*(\S+)(?:\s+-+\s+)?(.*)$/) { $rfa{$bugid} = $1 . ($2?": ":"") . $2; -- To UNSUBSCRIBE, email to [email protected] with a subject of "unsubscribe". Trouble? Contact [email protected]
