Imported Upstream version 0.63.0

[hcoop/debian/courier-authlib.git] / unicode / unicodefilter.pl

diff --git a/unicode/unicodefilter.pl b/unicode/unicodefilter.pl
new file mode 100644 (file)
index 0000000..a08c139
--- /dev/null
+++ b/unicode/unicodefilter.pl
@@ -0,0 +1,31 @@
+
+my $unicodes=shift;
+my $testing_hook=shift;
+
+my %unicodes;
+
+grep ( $unicodes{lc($_)}=1, split (/,/, $unicodes));
+
+while (<STDIN>)
+{
+       if ($unicodes eq "" || $unicodes eq "yes")
+       {
+               print;
+               next;
+       }
+
+my ($chset, $structname)=split (/[ \t\r\n]/, $_);
+
+       if ($unicodes eq "no")
+       {
+               next if $structname ne "unicode_ISO8859_1";
+       }
+       else
+       {
+               next unless $unicodes{lc($chset)}
+                       || $structname eq "unicode_ISO8859_1";
+       }
+       print;
+}
+
+print "X-TEST\tunicode_XTEST\n" if $testing_hook eq "yes";