1 files changed, 65 insertions, 0 deletions
diff --git a/camel/tests/data/gendoc.pl b/camel/tests/data/gendoc.pl
new file mode 100755
index 0000000000..732f05a4ed
--- /dev/null
+++ b/camel/tests/data/gendoc.pl
@@ -0,0 +1,65 @@
+#!/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");
+    }
+}
+