simple script to print the character set of a .po file in a way suitable for feeding...

diff --git a/po-charset b/po-charset
new file mode 100755 (executable)
index 0000000..8b9e724
--- /dev/null
+++ b/po-charset
@@ -0,0 +1,2 @@
+#! /usr/bin/perl -ln
+/^"Content-Type: .* charset=(.*)\\n"$/ and print $1