po: Include strings from Perl programs in the PO files (RHBZ#559963).

xgettext will only recognize '*.pl' as being a Perl file (otherwise
it treats it as a C file and does not correctly find any strings
in it).

This commit also fixes two actual bugs that xgettext found in the
strings in our Perl programs.

.gitignore

@@ -113,6 +113,7 @@ images/test-grep.txt.gz
 initramfs
 initramfs.timestamp
 inspector/virt-inspector.1
+inspector/virt-inspector.pl
 inspector/stamp-inspector-generator
 install-sh
 *.jar
@@ -230,6 +231,7 @@ test-tool/libguestfs-test-tool
 test-tool/libguestfs-test-tool-helper
 tools/test.img
 tools/virt-*.1
+tools/virt-*.pl
 /GNUmakefile
 /maint.mk
 /build-aux

Makefile.am

@@ -168,19 +168,7 @@ dist-hook:
 all-local:
 	cd $(srcdir); \
 	find $(DIST_SUBDIRS) \
-	    -name '*.c' -o -name '*.pl' -o -name '*.pm' -o \
-	    -name 'virt-cat' -o \
-	    -name 'virt-df' -o \
-	    -name 'virt-edit' -o \
-	    -name 'virt-inspector' -o \
-	    -name 'virt-list-filesystems' -o \
-	    -name 'virt-list-partitions' -o \
-	    -name 'virt-ls' -o \
-	    -name 'virt-make-fs' -o \
-	    -name 'virt-rescue' -o \
-	    -name 'virt-resize' -o \
-	    -name 'virt-tar' -o \
-	    -name 'virt-win-reg' | \
+	    -name '*.c' -o -name '*.pl' -o -name '*.pm' | \
 	grep -v '^perl/blib/' | \
 	grep -v '^capitests/' | \
 	grep -v '^daemon/lib/' | \

inspector/Makefile.am

@@ -58,3 +58,12 @@ TESTS_ENVIRONMENT = $(XMLLINT) --noout --relaxng virt-inspector.rng
 endif
 
 endif
+
+# Make symlink from virt-inspector.pl to virt-inspector.  This is just
+# to keep xgettext happy since it uses the file extension to determine
+# the implementation language of a file.
+
+all-local: virt-inspector.pl
+
+virt-inspector.pl: virt-inspector
+	ln -sf $< $@

po/POTFILES.in

@@ -84,7 +84,7 @@ fish/tilde.c
 fish/time.c
 fuse/dircache.c
 fuse/guestmount.c
-inspector/virt-inspector
+inspector/virt-inspector.pl
 java/com_redhat_et_libguestfs_GuestFS.c
 ocaml/guestfs_c.c
 ocaml/guestfs_c_actions.c
@@ -101,14 +101,14 @@ src/guestfs-bindtests.c
 src/guestfs.c
 test-tool/helper.c
 test-tool/test-tool.c
-tools/virt-cat
-tools/virt-df
-tools/virt-edit
-tools/virt-list-filesystems
-tools/virt-list-partitions
-tools/virt-ls
-tools/virt-make-fs
-tools/virt-rescue
-tools/virt-resize
-tools/virt-tar
-tools/virt-win-reg
+tools/virt-cat.pl
+tools/virt-df.pl
+tools/virt-edit.pl
+tools/virt-list-filesystems.pl
+tools/virt-list-partitions.pl
+tools/virt-ls.pl
+tools/virt-make-fs.pl
+tools/virt-rescue.pl
+tools/virt-resize.pl
+tools/virt-tar.pl
+tools/virt-win-reg.pl

tools/Makefile.am

@@ -1,5 +1,5 @@
 # libguestfs virt-* tools
-# Copyright (C) 2009 Red Hat Inc.
+# Copyright (C) 2009-2010 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -89,3 +89,12 @@ TESTS = test-virt-cat.sh \
 	test-virt-tar.sh
 
 endif
+
+# Make symlinks from virt-foo.pl to virt-foo.  This is just to keep
+# xgettext happy since it uses the file extension to determine the
+# implementation language of a file.
+
+all-local: $(tools:%=virt-%.pl)
+
+virt-%.pl: virt-%
+	ln -sf $< $@

tools/virt-tar

@@ -202,9 +202,11 @@ if ($mode eq "x") {
 } else { # $mode eq "u"
     $directory = pop @ARGV;
     $tarball = pop @ARGV;
-    die __"virt-tar: $tarball: file not found\n" unless -f $tarball;
+    die __x("virt-tar: {tarball}: file not found\n",
+            tarball => $tarball) unless -f $tarball;
 }
-die __"virt-tar: $directory: directory name must start with '/' character\n"
+die __x("virt-tar: {dir}: directory name must start with '/' character\n",
+        dir => $directory)
     unless substr ($directory, 0, 1) eq "/";
 
 my @args = (\@ARGV);

tools/virt-win-reg

@@ -338,7 +338,7 @@ else {                          # Import mode.
     %hives = ();
 
     # Look in the tmpdir for all the hive files which have been
-    # downloaded / modified by the import mapper, and upload
+    # downloaded / modified by the import mapper, and upload
     # each one.
     opendir my $dh, $tmpdir or die "$tmpdir: $!";
     foreach (readdir $dh) {