3 # Copyright (C) 2010 Red Hat Inc.
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 2 of the License, or
8 # (at your option) any later version.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23 use Sys::Guestfs::Lib qw(open_guest);
26 use File::Temp qw/tempfile/;
29 use Locale::TextDomain 'libguestfs';
35 virt-inspector - Display operating system version and other information about a virtual machine
39 virt-inspector [--connect URI] domname
41 virt-inspector guest.img [guest.img ...]
45 B<virt-inspector> examines a virtual machine or disk image and tries
46 to determine the version of the operating system and other information
47 about the virtual machine.
49 Virt-inspector produces XML output for feeding into other programs.
51 In the normal usage, use C<virt-inspector domname> where C<domname> is
52 the libvirt domain (see: C<virsh list --all>).
54 You can also run virt-inspector directly on disk images from a single
55 virtual machine. Use C<virt-inspector guest.img>. In rare cases a
56 domain has several block devices, in which case you should list them
57 one after another, with the first corresponding to the guest's
58 C</dev/sda>, the second to the guest's C</dev/sdb> and so on.
60 Virt-inspector can only inspect and report upon I<one domain at a
61 time>. To inspect several virtual machines, you have to run
62 virt-inspector several times (for example, from a shell script
65 Because virt-inspector needs direct access to guest images, it won't
66 normally work over remote libvirt connections.
86 Display version number and exit.
92 =item B<--connect URI> | B<-c URI>
94 If using libvirt, connect to the given I<URI>. If omitted,
95 then we connect to the default libvirt hypervisor.
97 Libvirt is only used if you specify a C<domname> on the
98 command line. If you specify guest block devices directly,
99 then libvirt is not used at all.
105 =item B<--format> raw
107 Specify the format of disk images given on the command line. If this
108 is omitted then the format is autodetected from the content of the
111 If disk images are requested from libvirt, then this program asks
112 libvirt for this information. In this case, the value of the format
113 parameter is ignored.
115 If working with untrusted raw-format guest disk images, you should
116 ensure the format is always specified.
122 GetOptions ("help|?" => \$help,
123 "version" => \$version,
124 "connect|c=s" => \$uri,
125 "format=s" => \$format,
127 pod2usage (1) if $help;
129 my $g = Sys::Guestfs->new ();
130 my %h = $g->version ();
131 print "$h{major}.$h{minor}.$h{release}$h{extra}\n";
134 pod2usage (__"virt-inspector: no image or VM names given") if @ARGV == 0;
137 push @args, address => $uri if defined $uri;
138 push @args, format => $format if defined $format;
139 my $g = open_guest (@args);
143 my @roots = $g->inspect_os ();
145 die __x("{prog}: No operating system could be detected inside this disk image.\n\nThis may be because the file is not a disk image, or is not a virtual machine\nimage, or because the OS type is not understood by libguestfs.\n\nIf you feel this is an error, please file a bug report including as much\ninformation about the disk image as possible.\n",
146 prog => basename ($0));
149 # Start the XML output.
150 my $xml = new XML::Writer (DATA_MODE => 1, DATA_INDENT => 2);
152 $xml->startTag ("operatingsystems");
155 foreach $root (@roots) {
156 my %fses = $g->inspect_get_mountpoints ($root);
157 my @fses = sort { length $a <=> length $b } keys %fses;
159 $g->mount_ro ($fses{$_}, $_);
162 $xml->startTag ("operatingsystem");
165 $xml->dataElement (root => $root);
167 my ($s, $distro, $major_version);
168 $s = $g->inspect_get_type ($root);
169 $xml->dataElement (name => $s) if $s ne "unknown";
170 $s = $g->inspect_get_arch ($root);
171 $xml->dataElement (arch => $s) if $s ne "unknown";
172 $distro = $g->inspect_get_distro ($root);
173 $xml->dataElement (distro => $distro) if $distro ne "unknown";
174 $s = $g->inspect_get_product_name ($root);
175 $xml->dataElement (product_name => $s) if $s ne "unknown";
176 $major_version = $g->inspect_get_major_version ($root);
177 $xml->dataElement (major_version => $major_version);
178 $s = $g->inspect_get_minor_version ($root);
179 $xml->dataElement (minor_version => $s);
182 $s = $g->inspect_get_windows_systemroot ($root);
183 $xml->dataElement (windows_systemroot => $s);
187 output_mountpoints ($root, \@fses, \%fses);
190 output_filesystems ($root);
192 # Package format / management and applications.
193 output_applications ($root, $distro, $major_version);
195 $xml->endTag("operatingsystem");
200 # End the XML output.
201 $xml->endTag ("operatingsystems");
204 sub output_mountpoints
211 $xml->startTag ("mountpoints");
213 $xml->dataElement ("mountpoint", $_, dev => $fshash->{$_});
215 $xml->endTag ("mountpoints");
218 sub output_filesystems
223 $xml->startTag ("filesystems");
225 my @fses = $g->inspect_get_filesystems ($root);
227 $xml->startTag ("filesystem", dev => $_);
230 my $type = $g->vfs_type ($_);
231 $xml->dataElement (type => $type)
232 if defined $type && $type ne "";
236 my $label = $g->vfs_label ($_);
237 $xml->dataElement (label => $label)
238 if defined $label && $label ne "";
242 my $uuid = $g->vfs_uuid ($_);
243 $xml->dataElement (uuid => $uuid)
244 if defined $uuid && $uuid ne "";
247 $xml->endTag ("filesystem");
250 $xml->endTag ("filesystems");
253 sub output_applications
258 my $major_version = shift;
260 # Based on the distro, take a guess at the package format
261 # and package management.
262 my ($package_format, $package_management);
263 if (defined $distro) {
264 if ($distro eq "debian") {
265 $package_format = "dpkg";
266 $package_management = "apt";
268 elsif ($distro eq "fedora") {
269 $package_format = "rpm";
270 $package_management = "yum";
272 elsif ($distro =~ /redhat/ || $distro =~ /rhel/) {
273 if ($major_version >= 5) {
274 $package_format = "rpm";
275 $package_management = "yum";
277 $package_format = "rpm";
278 $package_management = "up2date";
284 $xml->dataElement (package_format => $package_format)
285 if defined $package_format;
286 $xml->dataElement (package_management => $package_management)
287 if defined $package_management;
289 # Do we know how to get a list of applications?
290 if (defined $package_format) {
291 if ($package_format eq "rpm") {
292 output_applications_rpm ($root);
298 sub output_applications_rpm
303 # Previous virt-inspector ran the 'rpm' program from the guest.
304 # This is insecure, and unnecessary because we can get the same
305 # information directly from the RPM database.
310 my ($fh, $filename) = tempfile (UNLINK => 1);
311 my $fddev = "/dev/fd/" . fileno ($fh);
312 $g->download ("/var/lib/rpm/Name", $fddev);
313 close $fh or die "close: $!";
315 # Read the database with the Berkeley DB dump tool.
316 my $cmd = "db_dump -p '$filename'";
317 open PIPE, "$cmd |" or die "close: $!";
320 last if /^HEADER=END$/;
324 last if /^DATA=END$/;
326 # First character on each data line is a space.
327 if (length $_ > 0 && substr ($_, 0, 1) eq ' ') {
330 # Name should never contain non-printable chars.
331 die "name contains non-printable chars" if /\\/;
332 push @applications, $_;
334 $_ = <PIPE>; # discard value
336 close PIPE or die "close: $!";
338 if (!$@ && @applications > 0) {
339 @applications = sort @applications;
340 $xml->startTag ("applications");
341 foreach (@applications) {
342 $xml->startTag ("application");
343 $xml->dataElement (name => $_);
344 $xml->endTag ("application");
346 $xml->endTag ("applications");
352 Libvirt guest names can contain arbitrary characters, some of which
353 have meaning to the shell such as C<#> and space. You may need to
354 quote or escape these characters on the command line. See the shell
355 manual page L<sh(1)> for details.
362 L<Sys::Guestfs::Lib(3)>,
364 L<http://libguestfs.org/>.
372 Richard W.M. Jones L<http://people.redhat.com/~rjones/>
376 Matthew Booth L<mbooth@redhat.com>
382 Copyright (C) 2010 Red Hat Inc.
384 This program is free software; you can redistribute it and/or modify
385 it under the terms of the GNU General Public License as published by
386 the Free Software Foundation; either version 2 of the License, or
387 (at your option) any later version.
389 This program is distributed in the hope that it will be useful,
390 but WITHOUT ANY WARRANTY; without even the implied warranty of
391 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
392 GNU General Public License for more details.
394 You should have received a copy of the GNU General Public License
395 along with this program; if not, write to the Free Software
396 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.