- $xml->endTag("windowsregistryentries");
- }
-
- $xml->endTag("operatingsystem");
-}
-
-=head1 QUERY MODE
-
-When you use C<virt-inspector --query>, the output is a series of
-lines of the form:
-
- windows=no
- linux=yes
- fullvirt=yes
- xen_pv_drivers=no
-
-(each answer is usually C<yes> or C<no>, or the line is completely
-missing if we could not determine the answer at all).
-
-If the guest is multiboot, you can get apparently conflicting answers
-(eg. C<windows=yes> and C<linux=yes>, or a guest which is both
-fullvirt and has a Xen PV kernel). This is normal, and just means
-that the guest can do both things, although it might require operator
-intervention such as selecting a boot option when the guest is
-booting.
-
-This section describes the full range of answers possible.
-
-=over 4
-
-=cut
-
-sub output_query
-{
- output_query_windows ();
- output_query_linux ();
- output_query_rhel ();
- output_query_fedora ();
- output_query_debian ();
- output_query_fullvirt ();
- output_query_xen_domU_kernel ();
- output_query_xen_pv_drivers ();
- output_query_virtio_drivers ();
- output_query_kernel_arch ();
- output_query_userspace_arch ();
-}
-
-=item windows=(yes|no)
-
-Answer C<yes> if Microsoft Windows is installed in the guest.
-
-=cut
-
-sub output_query_windows
-{
- my $windows = "no";
- foreach my $os (keys %$oses) {
- $windows="yes" if $oses->{$os}->{os} eq "windows";
- }
- print "windows=$windows\n";
-}
-
-=item linux=(yes|no)
-
-Answer C<yes> if a Linux kernel is installed in the guest.
-
-=cut
-
-sub output_query_linux
-{
- my $linux = "no";
- foreach my $os (keys %$oses) {
- $linux="yes" if $oses->{$os}->{os} eq "linux";
- }
- print "linux=$linux\n";
-}
-
-=item rhel=(yes|no)
-
-Answer C<yes> if the guest contains Red Hat Enterprise Linux.
-
-=cut
-
-sub output_query_rhel
-{
- my $rhel = "no";
- foreach my $os (keys %$oses) {
- $rhel="yes" if ($oses->{$os}->{os} eq "linux" &&
- $oses->{$os}->{distro} eq "rhel");
- }
- print "rhel=$rhel\n";
-}
-
-=item fedora=(yes|no)
-
-Answer C<yes> if the guest contains the Fedora Linux distribution.
-
-=cut
-
-sub output_query_fedora
-{
- my $fedora = "no";
- foreach my $os (keys %$oses) {
- $fedora="yes" if $oses->{$os}->{os} eq "linux" && $oses->{$os}->{distro} eq "fedora";
- }
- print "fedora=$fedora\n";
-}
-
-=item debian=(yes|no)
-
-Answer C<yes> if the guest contains the Debian Linux distribution.
-
-=cut
-
-sub output_query_debian
-{
- my $debian = "no";
- foreach my $os (keys %$oses) {
- $debian="yes" if $oses->{$os}->{os} eq "linux" && $oses->{$os}->{distro} eq "debian";