debian/klist-to-po.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl


$filename = $ARGV[0];
open (MAPLIST, $filename) || die "Failed to open $filename";

while (<MAPLIST>) {
	($langlist, $name, $english) = split;
	print "# $filename, $name\n";
	print "msgid \"$english\"\n";
	print "msgstr \"\"\n\n";
}

close MAPLIST;