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








                                                                               
                                  


                                                                               
                                               














                                                                                
                                







                               
                                                              
                                                                                                 










                                  

                         
                        





                                                                        
# Copyright (c) 2009..2010 - 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::Scilin.pm
#    - provides Scientific Linux specific overrides of the 
#      MakeInitRamFS::Distro API.
# -----------------------------------------------------------------------------
package OpenSLX::MakeInitRamFS::Distro::Scilin;

use strict;
use warnings;

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

use OpenSLX::Basics;

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

sub applyChanges
{
    my $self   = shift;
    my $engine = shift;
    # filter modules which are part of the main kernel already
    $engine->_addFilteredKernelModules( qw( af_packet hid hid-bright usbhid unix vesafb fbcon ));

    return;
}

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

    my %versionMap = (
        '4.7' => '13.11',
        '5.3' => '15.3',
        '5.4' => '15.21',
        '5.5' => '16.0',
    );
    return $versionMap{$distroVersion}
        || $self->SUPER::determineMatchingHwinfoVersion($distroVersion);
}

1;