Added a small script to help when creating charsets code.

doc/translating.txt

@@ -32,6 +32,9 @@ c) To translate the actual strings fill inn the msgstr after each
 d) Add the language name and language code to the array at the top of
    squirrelmail/functions/i18n.php.
 
+There is also a small script in the po/ directory that can help in
+creating charset mappings from the mappings files that are provided by
+the Unicode consortium.
 
 2. Maintaining translations
 ---------------------------

po/charsetconvert.pl

@@ -0,0 +1,29 @@
+#! /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);
+    }
+  } 
+}