]> git.sesse.net Git - ccbs/blob - intl/make-pot.pl
Start i18n stuff.
[ccbs] / intl / make-pot.pl
1 #! /usr/bin/perl
2 use Template;
3 require 'Sesse::ExtractGettext.pm';
4
5 my $template = Template->new({ FACTORY => 'Sesse::ExtractGettext' });
6 my $date = `date +"%Y-%M-%d %H:%M%z"`;   # pah :-)
7 chomp $date;
8
9 print <<"EOF";
10 # ccbs template file for $ARGV[0]
11 msgid ""
12 msgstr ""
13 "Project-Id-Version: ccbs\\n"
14 "Report-Msgid-Bugs-To: \\n"
15 "POT-Creation-Date: $date\\n"
16 "MIME-Version: 1.0\\n"
17 "Content-Type: text/plain; charset=utf-8\\n"
18 "Content-Transfer-Encoding: 8bit\\n"
19
20 EOF
21
22 my $eaten = '';
23 $template->process($ARGV[0], $vars, \$eaten)
24 or die $template->error();