Translate season names.

[ccbs] / intl / make-season-pot.pl

diff --git a/intl/make-season-pot.pl b/intl/make-season-pot.pl
new file mode 100644 (file)
index 0000000..60c5778
--- /dev/null
+++ b/intl/make-season-pot.pl
@@ -0,0 +1,30 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+use ccbs;
+
+my $dbh = ccbs::db_connect();
+my $seasons = ccbs::db_fetch_all($dbh, 'SELECT seasonname FROM seasons');
+my $date = `date +"%Y-%M-%d %H:%M%z"`;   # pah :-)
+chomp $date;
+
+print <<"EOF";
+# ccbs template file for seasons
+msgid ""
+msgstr ""
+"Project-Id-Version: ccbs\\n"
+"Report-Msgid-Bugs-To: \\n"
+"POT-Creation-Date: $date\\n"
+"MIME-Version: 1.0\\n"
+"Content-Type: text/plain; charset=utf-8\\n"
+"Content-Transfer-Encoding: 8bit\\n"
+
+EOF
+
+for my $s (@$seasons) {
+       my $n = $s->{'seasonname'};
+       print "msgid \"$n\"\n";
+       print "msgstr \"\"\n\n";
+}
+
+print "# eof\n";