git.sesse.net Git - ccbs/blob - intl/make-season-pot.pl

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use ccbs;
   5
   6 my $dbh = ccbs::db_connect();
   7 my $seasons = ccbs::db_fetch_all($dbh, 'SELECT seasonname FROM seasons');
   8 my $date = `date +"%Y-%M-%d %H:%M%z"`;   # pah :-)
   9 chomp $date;
  10
  11 print <<"EOF";
  12 # ccbs template file for seasons
  13 msgid ""
  14 msgstr ""
  15 "Project-Id-Version: ccbs\\n"
  16 "Report-Msgid-Bugs-To: \\n"
  17 "POT-Creation-Date: $date\\n"
  18 "MIME-Version: 1.0\\n"
  19 "Content-Type: text/plain; charset=utf-8\\n"
  20 "Content-Transfer-Encoding: 8bit\\n"
  21
  22 EOF
  23
  24 for my $s (@$seasons) {
  25         my $n = $s->{'seasonname'};
  26         print "msgid \"$n\"\n";
  27         print "msgstr \"\"\n\n";
  28 }
  29
  30 print "# eof\n";