diff options
| author | nobody <nobody@localhost> | 2002-12-06 03:58:38 +0800 |
|---|---|---|
| committer | nobody <nobody@localhost> | 2002-12-06 03:58:38 +0800 |
| commit | 472a367597cd6158e2e9dc3e2210bf9efab4d112 (patch) | |
| tree | dbf36038cda1070ffb9d92e023654b2bdf1451b4 /camel/tests/data/gendoc.pl | |
| parent | cf5e09fda7bba7532d7be4b9949f7737a4a418cd (diff) | |
| download | gsoc2013-evolution-R2_0.tar.gz gsoc2013-evolution-R2_0.tar.zst gsoc2013-evolution-R2_0.zip | |
This commit was manufactured by cvs2svn to create tag 'R2_0'.R2_0
svn path=/tags/R2_0/; revision=19030
Diffstat (limited to 'camel/tests/data/gendoc.pl')
| -rwxr-xr-x | camel/tests/data/gendoc.pl | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/camel/tests/data/gendoc.pl b/camel/tests/data/gendoc.pl deleted file mode 100755 index 732f05a4ed..0000000000 --- a/camel/tests/data/gendoc.pl +++ /dev/null @@ -1,65 +0,0 @@ -#!/usr/bin/perl - -# Generate 'documents' in different encodings, from po files - -if ($#ARGV < 0) { - print "Usage: gendoc.pl pofile pofile ...\n"; - exit 1; -} - -$fmt = "| fmt -u "; - -sub read_msgstr() -{ - my $str = ""; - while (<IN>) { - if (m/^msgstr \"(.*)\"/) { - $str = $1; - if ($str eq "") { - while (<IN>) { - if (m/\"(.*)\"/) { - $str .= $1; - } else { - last; - } - } - } - return $str; - } - } - return ""; -} - -$unknown = "x-unknown-1"; - -foreach $name (@ARGV) { - if ($name =~ m@([^/]*).po$@) { - $poname = $1; - - open IN,"<$name"; - - $header = read_msgstr; - if ($header =~ /Content-Type:.*charset=([-a-zA-Z0-9]*)/i) { - $charset = $1; - } else { - $charset = $unknown++; - } - - print "Building $poname.$charset.txt from $name\n"; - - open OUT,"$fmt > $poname.$charset.txt"; - while (!eof(IN)) { - $msg = read_msgstr; - # de-escape - $msg =~ s/\\n/\n/gso; - $msg =~ s/\\t/\t/gso; - $msg =~ s/\\(.)/$1/gso; - print OUT $msg." "; - } - close OUT; - close IN; - } else { - printf("ignoring $name, probably not intended\n"); - } -} - |