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

diff --git a/po/charsetconvert.pl b/po/charsetconvert.pl
deleted file mode 100755 (executable)
index 7c3a52d..0000000
--- 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);
-    }
-  }
-}