X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=cat%2Fvirt-cat.pl;h=8db5348e9cbcf568ed9c119ac0d3c7d536bac5da;hp=6a5028072f6e32beb128a21391ff072bc32a841f;hb=8869adf1e811d894088dbb0f371edc23299005c8;hpb=bdf7a27a790ff26664f91d95239ec33c5467bfeb diff --git a/cat/virt-cat.pl b/cat/virt-cat.pl index 6a50280..8db5348 100755 --- a/cat/virt-cat.pl +++ b/cat/virt-cat.pl @@ -61,6 +61,10 @@ List syslog messages from a VM: 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 @@ -112,8 +116,8 @@ at all. =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) { @@ -136,7 +140,6 @@ if ($uri) { } $g->launch (); -$g->wait_ready (); # List of possible filesystems. my @partitions = get_partitions ($g);