New tool virt-cat: display a file in a virtual machine.

This script is just a simpler way to cat a file from a VM.  It
is otherwise equivalent to using guestfish.

 virt-cat someguest /etc/fstab

 virt-cat someguest /var/log/messages | tail

3 files changed, 59 insertions, 42 deletions

diff --git a/po/POTFILES.in b/po/POTFILES.in
index 76e97e75..60aeddca 100644
--- a/po/POTFILES.in
+++ b/po/POTFILES.in
@@ -1,3 +1,4 @@
+cat/virt-cat.pl
 daemon/augeas.c
 daemon/blockdev.c
 daemon/checksum.c
diff --git a/po/libguestfs.pot b/po/libguestfs.pot
index 0e743031..126d448c 100644
--- a/po/libguestfs.pot
+++ b/po/libguestfs.pot
@@ -9,7 +9,7 @@ msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
 "Report-Msgid-Bugs-To: https://bugzilla.redhat.com/enter_bug.cgi?"
 "component=libguestfs&product=Virtualization+Tools\n"
-"POT-Creation-Date: 2009-07-15 14:22+0100\n"
+"POT-Creation-Date: 2009-07-15 16:35+0100\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -17,6 +17,18 @@ msgstr ""
 "Content-Type: text/plain; charset=CHARSET\n"
 "Content-Transfer-Encoding: 8bit\n"
 
+#: cat/virt-cat.pl:126
+msgid "virt-cat: no image, VM names or filenames to cat given"
+msgstr ""
+
+#: cat/virt-cat.pl:152 v2v/virt-v2v.pl:208
+msgid "no root device found in this operating system image"
+msgstr ""
+
+#: cat/virt-cat.pl:153
+msgid "multiboot operating systems are not supported by virt-cat"
+msgstr ""
+
 #: df/virt-df.pl:258
 msgid "Virtual Machine"
 msgstr ""
@@ -490,79 +502,79 @@ msgstr ""
 msgid "  Windows Registry entries:\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:135 perl/lib/Sys/Guestfs/Lib.pm:135
+#: perl/lib/Sys/Guestfs/Lib.pm:135
 msgid "open_guest: first parameter must be a string or an arrayref"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:142 perl/lib/Sys/Guestfs/Lib.pm:142
+#: perl/lib/Sys/Guestfs/Lib.pm:142
 #, perl-brace-format
 msgid "guest image {imagename} does not exist or is not readable"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:147 perl/lib/Sys/Guestfs/Lib.pm:147
+#: perl/lib/Sys/Guestfs/Lib.pm:147
 msgid ""
 "open_guest: no libvirt support (install Sys::Virt, XML::XPath and XML::"
 "XPath::XMLParser)"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:152 perl/lib/Sys/Guestfs/Lib.pm:152
+#: perl/lib/Sys/Guestfs/Lib.pm:152
 msgid "open_guest: too many domains listed on command line"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:156 perl/lib/Sys/Guestfs/Lib.pm:156
+#: perl/lib/Sys/Guestfs/Lib.pm:156
 msgid "open_guest: cannot connect to libvirt"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:175 perl/lib/Sys/Guestfs/Lib.pm:175
+#: perl/lib/Sys/Guestfs/Lib.pm:175
 #, perl-brace-format
 msgid "{imagename} is not the name of an inactive libvirt domain\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:178 perl/lib/Sys/Guestfs/Lib.pm:178
+#: perl/lib/Sys/Guestfs/Lib.pm:178
 #, perl-brace-format
 msgid "{imagename} is not the name of a libvirt domain\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:190 perl/lib/Sys/Guestfs/Lib.pm:190
+#: perl/lib/Sys/Guestfs/Lib.pm:190
 #, perl-brace-format
 msgid "{imagename} seems to have no disk devices\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:274 perl/lib/Sys/Guestfs/Lib.pm:274
+#: perl/lib/Sys/Guestfs/Lib.pm:274
 msgid "resolve_windows_path: path must start with a / character"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:756 perl/lib/Sys/Guestfs/Lib.pm:756
+#: perl/lib/Sys/Guestfs/Lib.pm:756
 #, perl-brace-format
 msgid "reged command failed: {errormsg}"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:765 perl/lib/Sys/Guestfs/Lib.pm:765
+#: perl/lib/Sys/Guestfs/Lib.pm:765
 #, perl-brace-format
 msgid "no output from reged command: {errormsg}"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:935 perl/lib/Sys/Guestfs/Lib.pm:935
+#: perl/lib/Sys/Guestfs/Lib.pm:935
 #, perl-brace-format
 msgid "unknown filesystem label {label}\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:945 perl/lib/Sys/Guestfs/Lib.pm:945
+#: perl/lib/Sys/Guestfs/Lib.pm:945
 #, perl-brace-format
 msgid "unknown filesystem UUID {uuid}\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:968 perl/lib/Sys/Guestfs/Lib.pm:968
+#: perl/lib/Sys/Guestfs/Lib.pm:968
 #, perl-brace-format
 msgid "unknown filesystem {fs}\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:1187 perl/lib/Sys/Guestfs/Lib.pm:1187
+#: perl/lib/Sys/Guestfs/Lib.pm:1187
 #, perl-brace-format
 msgid "{path} doesn't match augeas pattern"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:1237 perl/lib/Sys/Guestfs/Lib.pm:1237
+#: perl/lib/Sys/Guestfs/Lib.pm:1237
 #, perl-brace-format
 msgid "{filename}: could not read initrd format"
 msgstr ""
@@ -820,10 +832,6 @@ msgstr ""
 msgid "virt-v2v: no image or VM names given"
 msgstr ""
 
-#: v2v/virt-v2v.pl:208
-msgid "no root device found in this operating system image"
-msgstr ""
-
 #: v2v/virt-v2v.pl:209
 msgid "multiboot operating systems are not supported by v2v"
 msgstr ""
diff --git a/po/pl.po b/po/pl.po
index a8d329be..87eccfd9 100644
--- a/po/pl.po
+++ b/po/pl.po
@@ -6,7 +6,7 @@ msgstr ""
 "Project-Id-Version: pl\n"
 "Report-Msgid-Bugs-To: https://bugzilla.redhat.com/enter_bug.cgi?"
 "component=libguestfs&product=Virtualization+Tools\n"
-"POT-Creation-Date: 2009-07-15 14:22+0100\n"
+"POT-Creation-Date: 2009-07-15 16:35+0100\n"
 "PO-Revision-Date: 2009-06-22 21:16+0200\n"
 "Last-Translator: Piotr Drąg <piotrdrag@gmail.com>\n"
 "Language-Team: Polish <pl@li.org>\n"
@@ -14,6 +14,18 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
+#: cat/virt-cat.pl:126
+msgid "virt-cat: no image, VM names or filenames to cat given"
+msgstr ""
+
+#: cat/virt-cat.pl:152 v2v/virt-v2v.pl:208
+msgid "no root device found in this operating system image"
+msgstr ""
+
+#: cat/virt-cat.pl:153
+msgid "multiboot operating systems are not supported by virt-cat"
+msgstr ""
+
 #: df/virt-df.pl:258
 msgid "Virtual Machine"
 msgstr ""
@@ -586,80 +598,80 @@ msgstr ""
 msgid "  Windows Registry entries:\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:135 perl/lib/Sys/Guestfs/Lib.pm:135
+#: perl/lib/Sys/Guestfs/Lib.pm:135
 msgid "open_guest: first parameter must be a string or an arrayref"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:142 perl/lib/Sys/Guestfs/Lib.pm:142
+#: perl/lib/Sys/Guestfs/Lib.pm:142
 #, perl-brace-format
 msgid "guest image {imagename} does not exist or is not readable"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:147 perl/lib/Sys/Guestfs/Lib.pm:147
+#: perl/lib/Sys/Guestfs/Lib.pm:147
 msgid ""
 "open_guest: no libvirt support (install Sys::Virt, XML::XPath and XML::"
 "XPath::XMLParser)"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:152 perl/lib/Sys/Guestfs/Lib.pm:152
+#: perl/lib/Sys/Guestfs/Lib.pm:152
 #, fuzzy
 msgid "open_guest: too many domains listed on command line"
 msgstr "guestfish: puste polecenie wiersza poleceń\n"
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:156 perl/lib/Sys/Guestfs/Lib.pm:156
+#: perl/lib/Sys/Guestfs/Lib.pm:156
 msgid "open_guest: cannot connect to libvirt"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:175 perl/lib/Sys/Guestfs/Lib.pm:175
+#: perl/lib/Sys/Guestfs/Lib.pm:175
 #, perl-brace-format
 msgid "{imagename} is not the name of an inactive libvirt domain\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:178 perl/lib/Sys/Guestfs/Lib.pm:178
+#: perl/lib/Sys/Guestfs/Lib.pm:178
 #, perl-brace-format
 msgid "{imagename} is not the name of a libvirt domain\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:190 perl/lib/Sys/Guestfs/Lib.pm:190
+#: perl/lib/Sys/Guestfs/Lib.pm:190
 #, perl-brace-format
 msgid "{imagename} seems to have no disk devices\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:274 perl/lib/Sys/Guestfs/Lib.pm:274
+#: perl/lib/Sys/Guestfs/Lib.pm:274
 msgid "resolve_windows_path: path must start with a / character"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:756 perl/lib/Sys/Guestfs/Lib.pm:756
+#: perl/lib/Sys/Guestfs/Lib.pm:756
 #, fuzzy, perl-brace-format
 msgid "reged command failed: {errormsg}"
 msgstr "zewnętrzne polecenie nie powiodło się: %s"
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:765 perl/lib/Sys/Guestfs/Lib.pm:765
+#: perl/lib/Sys/Guestfs/Lib.pm:765
 #, perl-brace-format
 msgid "no output from reged command: {errormsg}"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:935 perl/lib/Sys/Guestfs/Lib.pm:935
+#: perl/lib/Sys/Guestfs/Lib.pm:935
 #, perl-brace-format
 msgid "unknown filesystem label {label}\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:945 perl/lib/Sys/Guestfs/Lib.pm:945
+#: perl/lib/Sys/Guestfs/Lib.pm:945
 #, perl-brace-format
 msgid "unknown filesystem UUID {uuid}\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:968 perl/lib/Sys/Guestfs/Lib.pm:968
+#: perl/lib/Sys/Guestfs/Lib.pm:968
 #, perl-brace-format
 msgid "unknown filesystem {fs}\n"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:1187 perl/lib/Sys/Guestfs/Lib.pm:1187
+#: perl/lib/Sys/Guestfs/Lib.pm:1187
 #, perl-brace-format
 msgid "{path} doesn't match augeas pattern"
 msgstr ""
 
-#: perl/blib/lib/Sys/Guestfs/Lib.pm:1237 perl/lib/Sys/Guestfs/Lib.pm:1237
+#: perl/lib/Sys/Guestfs/Lib.pm:1237
 #, perl-brace-format
 msgid "{filename}: could not read initrd format"
 msgstr ""
@@ -924,10 +936,6 @@ msgstr "select_main_loop_run: nie może zostać wywołane rekursywnie"
 msgid "virt-v2v: no image or VM names given"
 msgstr ""
 
-#: v2v/virt-v2v.pl:208
-msgid "no root device found in this operating system image"
-msgstr ""
-
 #: v2v/virt-v2v.pl:209
 msgid "multiboot operating systems are not supported by v2v"
 msgstr ""