mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

List installed applications (NOT WORKING).

Browse Source
This commit is contained in:
Richard Jones
2009-05-08 15:48:02 +01:00
parent 15e0fd573a
commit 2fa68269fa
1 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
inspector/virt-inspector.pl
View File

@@ -586,7 +586,7 @@ sub check_for_applications
"%{name} %{epoch} %{version} %{release} %{arch}\n"]);
foreach (@lines) {
if (m/^(.*) (.*) (.*) (.*) (.*)$/) {
$epoch = $2;
my $epoch = $2;
$epoch = "" if $epoch eq "(none)";
my $app = {
name => $1,
@@ -600,9 +600,15 @@ sub check_for_applications
}
}
} elsif ($os eq "windows") {
# This sucks ... XXX
XXX
# XXX
# I worked out a general plan for this, but haven't
# implemented it yet. We can iterate over /Program Files
# looking for *.EXE files, which we download, then use
# i686-pc-mingw32-windres on, to find the VERSIONINFO
# section, which has a lot of useful information.
}
$oses{$root_dev}->{apps} = \@apps;
}
sub check_for_kernels
@@ -688,7 +694,12 @@ sub output_text_os
if exists $filesystems->{$_}{content};
}
# XXX Applications.
print " Applications:\n";
my @apps = @{$os->{apps}};
foreach (@apps) {
print " $_->{name} $_->{version}\n"
}
# XXX Kernel.
}
@@ -734,8 +745,17 @@ sub output_xml_os
}
print "</filesystems>\n";
# XXX Applications.
print "<applications>\n";
my @apps = @{$os->{apps}};
foreach (@apps) {
print "<application>\n";
print "<name>$_->{name}</name><version>$_->{version}</version>\n";
print "</application>\n";
}
print "</applications>\n";
# XXX Kernel.
print "</operatingsystem>\n";
}