X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=inspector%2Fvirt-inspector;h=36fbfa90847ce69fca415db4552268a3eaa4ec89;hb=e3851914de6bad3deb869ba865d2a6eb53c83151;hp=13673aff7f5150d929b5442cbb1471e4ecd6ff55;hpb=ee21bc1f8071bb35409e9f15fb8309348c9a5912;p=libguestfs.git diff --git a/inspector/virt-inspector b/inspector/virt-inspector index 13673af..36fbfa9 100755 --- a/inspector/virt-inspector +++ b/inspector/virt-inspector @@ -27,6 +27,7 @@ use Pod::Usage; use Getopt::Long; use Data::Dumper; use XML::Writer; +use String::ShellQuote qw(shell_quote); use Locale::TextDomain 'libguestfs'; # Optional: @@ -54,10 +55,6 @@ para-virtualized (PV), what applications are installed and more. Virt-inspector can produce output in several formats, including a readable text report, and XML for feeding into other programs. -Virt-inspector should only be run on I virtual machines. -The program tries to determine that the machine is inactive and will -refuse to run if it thinks you are trying to inspect a running domain. - In the normal usage, use C where C is the libvirt domain (see: C). @@ -110,6 +107,23 @@ then libvirt is not used at all. =cut +my $format; + +=item B<--format> raw + +Specify the format of disk images given on the command line. If this +is omitted then the format is autodetected from the content of the +disk image. + +If disk images are requested from libvirt, then this program asks +libvirt for this information. In this case, the value of the format +parameter is ignored. + +If working with untrusted raw-format guest disk images, you should +ensure the format is always specified. + +=cut + my $output = "text"; =back @@ -168,13 +182,11 @@ my $windows_registry; =item B<--windows-registry> -If this item is passed, I the guest is Windows, I the -external program C is available (see SEE ALSO section), then we -attempt to parse the Windows registry. This allows much more -information to be gathered for Windows guests. +This flag is ignored for compatibility with earlier releases of the +software. -This is quite an expensive and slow operation, so we don't do it by -default. +In this version, if L is available, then we attempt to +parse information out of the Registry for any Windows guest. =back @@ -183,6 +195,7 @@ default. GetOptions ("help|?" => \$help, "version" => \$version, "connect|c=s" => \$uri, + "format=s" => \$format, "text" => sub { $output = "text" }, "none" => sub { $output = "none" }, "xml" => sub { $output = "xml" }, @@ -205,17 +218,25 @@ if ($version) { pod2usage (__"virt-inspector: no image or VM names given") if @ARGV == 0; my $rw = 0; + +# XXX This is a bug: Originally we intended to open the guest with +# rw=>1 in order to tell Sys::Guestfs::Lib that we should disallow +# active domains. However this also has the effect of opening the +# disk image in write mode, and in any case we don't use this option +# in guestfish any more since we moved all the inspection code into +# the core library. We should drop the fish output modes completely. $rw = 1 if $output eq "fish"; + my $g; my @images; if ($uri) { my ($conn, $dom); ($g, $conn, $dom, @images) = - open_guest (\@ARGV, rw => $rw, address => $uri); + open_guest (\@ARGV, rw => $rw, address => $uri, format => $format); } else { my ($conn, $dom); ($g, $conn, $dom, @images) = - open_guest (\@ARGV, rw => $rw); + open_guest (\@ARGV, rw => $rw, format => $format); } $g->launch (); @@ -266,8 +287,7 @@ my @partitions = get_partitions ($g); # Now query each one to build up a picture of what's in it. my %fses = - inspect_all_partitions ($g, \@partitions, - use_windows_registry => $windows_registry); + inspect_all_partitions ($g, \@partitions); #print "fses -----------\n"; #print Dumper(\%fses); @@ -305,13 +325,22 @@ if ($output eq "fish" || $output eq "ro-fish") { print "--ro "; } - print "-a $_ " foreach @images; + foreach (@images) { + unless (defined $_->[1]) { + printf "-a %s ", shell_quote ($_->[0]); + } else { + printf "--format %s -a %s ", + shell_quote ($_->[1]), shell_quote ($_->[0]); + } + } my $mounts = $oses->{$root_dev}->{mounts}; # Have to mount / first. Luckily '/' is early in the ASCII # character set, so this should be OK. foreach (sort keys %$mounts) { - print "-m $mounts->{$_}:$_ " if $_ ne "swap" && $_ ne "none"; + if ($_ ne "swap" && $_ ne "none") { + printf "-m %s ", shell_quote ("$mounts->{$_}:$_"); + } } print "\n" } @@ -323,7 +352,7 @@ elsif ($output eq "perl") { # YAML output elsif ($output eq "yaml") { - die __"virt-inspector: no YAML support\n" + die __"virt-inspector: no YAML support, try installing perl-YAML or libyaml-perl\n" unless exists $INC{"YAML/Any.pm"}; print Dump(%$oses); @@ -358,6 +387,7 @@ sub output_text_os print $os->{arch}, " " if exists $os->{arch}; print $os->{major_version} if exists $os->{major_version}; print ".", $os->{minor_version} if exists $os->{minor_version}; + print " (", $os->{product_name}, ")" if exists $os->{product_name}; print " "; print "on ", $os->{root_device}, ":\n"; @@ -411,13 +441,15 @@ sub output_text_os print " $_->{name} $_->{version}\n" } - print __" Kernels:\n"; - my @kernels = @{$os->{kernels}}; - foreach (@kernels) { - print " $_->{version} ($_->{arch})\n"; - my @modules = @{$_->{modules}}; - foreach (@modules) { - print " $_\n"; + if ($os->{kernels}) { + print __" Kernels:\n"; + my @kernels = @{$os->{kernels}}; + foreach (@kernels) { + print " $_->{version} ($_->{arch})\n"; + my @modules = @{$_->{modules}}; + foreach (@modules) { + print " $_\n"; + } } } @@ -449,6 +481,7 @@ sub output_xml_os foreach ( [ "name" => "os" ], [ "distro" => "distro" ], + [ "product_name" => "product_name" ], [ "arch" => "arch" ], [ "major_version" => "major_version" ], [ "minor_version" => "minor_version" ], @@ -523,7 +556,10 @@ sub output_xml_os foreach (@apps) { $xml->startTag("application"); $xml->dataElement("name", $_->{name}); + $xml->dataElement("epoch", $_->{epoch}) if defined $_->{epoch}; $xml->dataElement("version", $_->{version}); + $xml->dataElement("release", $_->{release}); + $xml->dataElement("arch", $_->{arch}); $xml->endTag("application"); } $xml->endTag("applications"); @@ -550,23 +586,23 @@ sub output_xml_os } if ($os->{kernels}) { - $xml->startTag("kernels"); - my @kernels = @{$os->{kernels}}; - foreach (@kernels) { - $xml->startTag("kernel", - "version" => $_->{version}, - "arch" => $_->{arch}); - $xml->startTag("modules"); - my @modules = @{$_->{modules}}; - foreach (@modules) { - $xml->dataElement("module", $_); - } - $xml->endTag("modules"); - $xml->dataElement("path", $_->{path}) if(defined($_->{path})); - $xml->dataElement("package", $_->{package}) if(defined($_->{package})); - $xml->endTag("kernel"); - } - $xml->endTag("kernels"); + $xml->startTag("kernels"); + my @kernels = @{$os->{kernels}}; + foreach (@kernels) { + $xml->startTag("kernel", + "version" => $_->{version}, + "arch" => $_->{arch}); + $xml->startTag("modules"); + my @modules = @{$_->{modules}}; + foreach (@modules) { + $xml->dataElement("module", $_); + } + $xml->endTag("modules"); + $xml->dataElement("path", $_->{path}) if(defined($_->{path})); + $xml->dataElement("package", $_->{package}) if(defined($_->{package})); + $xml->endTag("kernel"); + } + $xml->endTag("kernels"); } if (exists $os->{root}->{registry}) { @@ -838,6 +874,13 @@ sub output_query_kernel_arch =back +=head1 SHELL QUOTING + +Libvirt guest names can contain arbitrary characters, some of which +have meaning to the shell such as C<#> and space. You may need to +quote or escape these characters on the command line. See the shell +manual page L for details. + =head1 SEE ALSO L, @@ -847,12 +890,9 @@ L, L, L. -For Windows registry parsing we require the C program -from L. - -=head1 AUTHOR +=head1 AUTHORS -Richard W.M. Jones L +Richard W.M. Jones L Matthew Booth L