6 #my $src = shift or die "Usage $0 pofile";
11 # $tab = eval `cat $src`;
14 open(OUT, "|msguniq > bweb.pot");
20 open(FP, $f) or print STDERR "Can't open $f for reading\n";
23 my (@str) = ($l =~ m/__(.+?)__/g);
25 while (my $s = shift @str) {
26 my $r = ''; #$tab->{$s} || $s;
31 print OUT "#: $f:$.\n";
32 print OUT "msgid \"$s\"\n";
33 print OUT "msgstr \"$r\"\n\n";
40 # msginit pot -> lang.po
41 # msgmerge fr.po bweb.pot