summaryrefslogblamecommitdiffstats
path: root/boot-env/OpenSLX/MakeInitRamFS/Distro/Suse.pm
blob: aad790fda03b04a68c6823e2ef1413b98a57e10a (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11










                                                                               
                                                                         
                                                                               
                                             












                                                                                




                               



                

                       
 
                                                        
 
           

 




                                  
                      



                          
                                      


                                                                        
 
# Copyright (c) 2006, 2007 - OpenSLX GmbH
#
# This program is free software distributed under the GPL version 2.
# See http://openslx.org/COPYING
#
# If you have any feedback please consult http://openslx.org/feedback and
# send your suggestions, praise, or complaints to feedback@openslx.org
#
# General information about OpenSLX can be found at http://openslx.org/
# -----------------------------------------------------------------------------
# MakeInitRamFS::Distro::SUSE.pm
#    - provides SUSE-specific overrides of the MakeInitRamFS::Distro API.
# -----------------------------------------------------------------------------
package OpenSLX::MakeInitRamFS::Distro::Suse;

use strict;
use warnings;

use base qw(OpenSLX::MakeInitRamFS::Distro::Base);

use OpenSLX::Basics;

################################################################################
### implementation
################################################################################
sub new
{
    my $class = shift;
    my $self = {
        'base-name' => 'suse',
    };
    return bless $self, $class;
}

sub applyChanges
{
    my $self   = shift;
    my $engine = shift;

    $engine->_addFilteredKernelModules( qw( hid unix ));

    return;
}

sub determineMatchingHwinfoVersion
{
    my $self          = shift;
    my $distroVersion = shift;

    my %versionMap = (
        '10.2' => '13.11',
        '10.3' => '14.19',
        '11.0' => '15.3',
    );
    return $versionMap{$distroVersion}
        || $self->SUPER::determineMatchingHwinfoVersion($distroVersion);
}

1;