virt-cat: Remove some unused Perl module includes.

[libguestfs.git] / cat / virt-cat.pl

diff --git a/cat/virt-cat.pl b/cat/virt-cat.pl
index 6a50280..748dbb8 100755 (executable)
--- a/cat/virt-cat.pl
+++ b/cat/virt-cat.pl
@@ -25,9 +25,6 @@ use Sys::Guestfs::Lib qw(open_guest get_partitions resolve_windows_path
   inspect_operating_systems mount_operating_system);
 use Pod::Usage;
 use Getopt::Long;
   inspect_operating_systems mount_operating_system);
 use Pod::Usage;
 use Getopt::Long;

-use Data::Dumper;
-use File::Temp qw/tempdir/;
-use XML::Writer;

 use Locale::TextDomain 'libguestfs';
 
 =encoding utf8
 use Locale::TextDomain 'libguestfs';
 
 =encoding utf8


@@ -61,6 +58,10 @@ List syslog messages from a VM:
 
  virt-cat mydomain /var/log/messages | tail
 
 
  virt-cat mydomain /var/log/messages | tail
 

+Find out what DHCP IP address a VM acquired:
+
+ virt-cat mydomain /var/log/messages | grep 'dhclient: bound to' | tail
+

 Find out what packages were recently installed:
 
  virt-cat mydomain /var/log/yum.log | tail
 Find out what packages were recently installed:
 
  virt-cat mydomain /var/log/yum.log | tail


@@ -112,8 +113,8 @@ at all.
 =cut
 
 GetOptions ("help|?" => \$help,
 =cut
 
 GetOptions ("help|?" => \$help,

-           "version" => \$version,
-           "connect|c=s" => \$uri,
+            "version" => \$version,
+            "connect|c=s" => \$uri,

     ) or pod2usage (2);
 pod2usage (1) if $help;
 if ($version) {
     ) or pod2usage (2);
 pod2usage (1) if $help;
 if ($version) {


@@ -136,7 +137,6 @@ if ($uri) {
 }
 
 $g->launch ();
 }
 
 $g->launch ();

-$g->wait_ready ();

 
 # List of possible filesystems.
 my @partitions = get_partitions ($g);
 
 # List of possible filesystems.
 my @partitions = get_partitions ($g);