From c8c502439b871d86591ff4466bd27a9685c03b49 Mon Sep 17 00:00:00 2001 From: tokul Date: Mon, 11 Apr 2005 08:55:10 +0000 Subject: [PATCH] moved script to decode module. Script uses old style decode functions, is compatible only with single byte mappings and most of single byte unicode mappings are already implemented. git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@9249 7612ce4b-ef26-0410-bec9-ea0150e637f0 --- po/charsetconvert.pl | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100755 po/charsetconvert.pl diff --git a/po/charsetconvert.pl b/po/charsetconvert.pl deleted file mode 100755 index 7c3a52dd..00000000 --- a/po/charsetconvert.pl +++ /dev/null @@ -1,29 +0,0 @@ -#! /usr/bin/perl - -# This script takes an Unicode character map as input and outputs -# conversion code for SquirrelMail charset support. - -# This code is placed in the Public Domain. Written by Gustav Foseid, -# gustavf@squirrelmail.org - -$min = 160; - -while (<>) { - chop; - - unless (/^\#/) { - - ($orig_text, $unicode_text, $dummy, $name) = split /\t/; - - # oct does not only do what it's name suggest. If a string starts - # with 0x it is interpreted as a hexadecimal value. - $orig = oct $orig_text; - $unicode = oct $unicode_text; - - if ($orig >= $min) { - print " // $name\n"; - printf (' $string = str_replace("\%o", "&#%d", $string);'."\n", - $orig, $unicode); - } - } -} -- 2.25.1