git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 1.0.28
[libguestfs.git]
/
inspector
/
virt-inspector.pl
diff --git
a/inspector/virt-inspector.pl
b/inspector/virt-inspector.pl
index
76c9096
..
4ee0e08
100755
(executable)
--- a/
inspector/virt-inspector.pl
+++ b/
inspector/virt-inspector.pl
@@
-627,13
+627,15
@@
sub check_for_kernels
my %kernel;
$kernel{version} = $_;
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;
}
push @kernels, \%kernel;
}
@@
-730,10
+732,11
@@
sub output_text_os
print " Kernels:\n";
my @kernels = @{$os->{kernels}};
foreach (@kernels) {
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";
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";
print "</kernel>\n";
}
print "</kernels>\n";