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

virt-inspector now lists installed modules.

Browse Source
This commit is contained in:
Richard Jones
2009-05-19 12:21:32 +01:00
parent 1fc41b39da
commit 4c71832851
1 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
inspector/virt-inspector.pl
View File

@@ -627,13 +627,15 @@ sub check_for_kernels
my %kernel;
$kernel{version} = $_;
# List modules.
my @modules;
foreach ($g->find ("/lib/modules/$_")) {
if (m,/([^/]+)\.ko,) {
push @modules, $1;
}
}
# XXX List modules.
$kernel{modules} = \@modules;
push @kernels, \%kernel;
}
@@ -730,10 +732,11 @@ sub output_text_os
print " Kernels:\n";
my @kernels = @{$os->{kernels}};
foreach (@kernels) {
print " $_->{version}\n"
print " $_->{version}\n";
my @modules = @{$_->{modules}};
foreach (@modules) {
print " $_\n";
}
}
}
@@ -793,12 +796,12 @@ sub output_xml_os
foreach (@kernels) {
print "<kernel>\n";
print "<version>$_->{version}</version>\n";
print "<modules>\n";
my @modules = @{$_->{modules}};
foreach (@modules) {
print "<module>$_</module>\n";
}
print "</modules>\n";
print "</kernel>\n";
}
print "</kernels>\n";