Mercurial > bins
view debian/patches/13_locale_encoding @ 6:3021deef1599
Encoding related fixes
* chomp encoding string
* reformat else (seems someone hacked it in)
* debug print encoding
* do not use :utf8 binmode ("re-encode") on written file if the input is _already_ UTF-8
author | Peter Gervai <grin@grin.hu> |
---|---|
date | Thu, 16 Oct 2008 00:02:14 +0200 |
parents | c5749e43b1d7 |
children |
line wrap: on
line source
#! /bin/sh /usr/share/dpatch/dpatch-run ## 13_locale_encoding.dpatch by J?r?me Sautret ## ## DP: convert latin-1 output to locale [#308111] @DPATCH@ --- bins-1.1.29.orig/bins +++ bins-1.1.29/bins @@ -952,13 +952,23 @@ sub write_htaccess; -print "\nBINS Photo Album 1.1.29 (http://bins.sautret.org/)\n"; -print "Copyright ? 2001-2004 J?r?me Sautret (Jerome\@Sautret.org)\n"; -print "Some parts of code:\n"; -print "Copyright ? 2000 Brendan McMahan (mcmahahb\@whitman.edu)\n"; -print "Copyright ? John Moose (moosejc\@muohio.edu)\n\n"; -print "This is free software with ABSOLUTELY NO WARRANTY.\n"; -print "See COPYING file for details.\n\n"; +my $copyright=<<END; +BINS Photo Album 1.1.29 (http://bins.sautret.org/) +Copyright ? 2001-2004 J?r?me Sautret (Jerome\@Sautret.org) +Some parts of code: +Copyright ? 2000 Brendan McMahan (mcmahahb\@whitman.edu) +Copyright ? John Moose (moosejc\@muohio.edu) + +This is free software with ABSOLUTELY NO WARRANTY. +See COPYING file for details. + +END + +my $latin2localConverter; +$latin2localConverter = Text::Iconv->new('latin1', +$defaultConfig{defaultEncoding}); +$copyright = $latin2localConverter->convert($copyright); +print $copyright; # EVG (Evil Global Variables) # Some on them should be moved to the config hash so they can be