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


Ignore:
Timestamp:
Jul 1, 2010, 5:08:50 PM (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/mr/lib/MondoRescue/Kernel.pm

    r2667 r2668  
    1212use strict 'vars';
    1313use Data::Dumper;
    14 use English;
    1514use lib qw (lib);
    1615use ProjectBuilder::Base;
    1716use ProjectBuilder::Conf;
    1817use MondoRescue::Base;
     18use MondoRescue::Inventory;
    1919
    2020# Inherit from the "Exporter" module which handles exporting functions.
     
    2626
    2727our @ISA = qw(Exporter);
    28 our @EXPORT = qw(mr_kernel_check);
     28our @EXPORT = qw(mr_kernel_get_version);
    2929
    3030=pod
     
    4242=over 4
    4343
    44 =item B<mr_kernel_check>
     44=item B<mr_kernel_get_version>
    4545
    4646This function checks the kernel and returns back its version
     
    5050sub mr_kernel_get_version {
    5151
     52my ($os,$ver,$kernelver,$rest);
     53
     54# By default we don't know how it works for other OSes
     55$kernelver = "unknown";
     56
     57($os,$ver,$kernelver,$rest) = split(/ /,$mr_os->{'files'}->{'proc_version'}) if ($mr_os->{'os'} eq "linux");
     58
     59return($kernelver);
    5260}
    5361
Note: See TracChangeset for help on using the changeset viewer.