X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=po%2Fcharsetconvert.pl;fp=po%2Fcharsetconvert.pl;h=0000000000000000000000000000000000000000;hp=7c3a52dd28a499c0c4e0003f3a94ef00d17814a2;hb=c8c502439b871d86591ff4466bd27a9685c03b49;hpb=05f7db7aa8499a597e44b5a0ea3bcf4d7e10bb57

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);
-    }
-  }
-}