#! /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";
