# Changes:
# 2000-08-25 Arkadiusz Miskiewicz <misiek@pld-linux.org>
# - support for $(nls "xyz"), progress "xyz" and '' instead of "".
-#
+#
my %pot;
sub potentry {
my( $msg, $lnr, $filename ) = @_;
-#print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n";
+#print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n";
if (defined $pot{"$msg"}) {
$pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr";
-#print STDERR "append $msg\n";
+#print STDERR "append $msg\n";
} else {
$pot{"$msg"} = "\n#: $filename:$lnr";
-#print STDERR "new $msg\n";
+#print STDERR "new $msg\n";
};
};
if (1) {
print <<EOF ;
-# Polish translation of rc-scripts.
+# translation of rc-scripts.
#
msgid \"\"
msgstr \"\"
for (my $a = 0; $a <= $#ARGV; $a++) {
my $lnr = 0;
my $filename = $ARGV[$a];
- print STDERR " " .$filename . "\n";
+ print STDERR " " .$filename . "\n";
open (POTSRC, "< " . $filename) || die "Can't open " . $filename;
foreach (<POTSRC>) {
chop;
};
close (POTSRC);
-
+
};
foreach $key (keys %pot) {
print $pot{"$key"} . "\nmsgid \"$key\"\nmsgstr \"\"\n";
};
-
-
-
-