Changeset 2668 in MondoRescue for devel/mr/lib/MondoRescue/Kernel.pm

Timestamp:

Jul 1, 2010, 5:08:50 PM (14 years ago)

Author:

Bruno Cornec

Message:

r3939@athonet: bruno | 2010-06-30 16:50:32 +0200
Renaming of conf file parameters to be more specific

File:

• devel/mr/lib/MondoRescue/Kernel.pm (modified) (4 diffs)

devel/mr/lib/MondoRescue/Kernel.pm

@@ -12 +12 @@
 use strict 'vars';
 use Data::Dumper;
-use English;
 use lib qw (lib);
 use ProjectBuilder::Base;
 use ProjectBuilder::Conf;
 use MondoRescue::Base;
+use MondoRescue::Inventory;
 
 # Inherit from the "Exporter" module which handles exporting functions.
@@ -26 +26 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(mr_kernel_check);
+our @EXPORT = qw(mr_kernel_get_version);
 
 =pod
@@ -42 +42 @@
 =over 4
 
-=item B<mr_kernel_check>
+=item B<mr_kernel_get_version>
 
 This function checks the kernel and returns back its version
@@ -50 +50 @@
 sub mr_kernel_get_version {
 
+my ($os,$ver,$kernelver,$rest);
+
+# By default we don't know how it works for other OSes
+$kernelver = "unknown";
+
+($os,$ver,$kernelver,$rest) = split(/ /,$mr_os->{'files'}->{'proc_version'}) if ($mr_os->{'os'} eq "linux");
+
+return($kernelver);
 }