diff options
Diffstat (limited to 'lib/OpenSLX/DistroUtils.pm')
-rw-r--r-- | lib/OpenSLX/DistroUtils.pm | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/lib/OpenSLX/DistroUtils.pm b/lib/OpenSLX/DistroUtils.pm deleted file mode 100644 index d7456d92..00000000 --- a/lib/OpenSLX/DistroUtils.pm +++ /dev/null @@ -1,90 +0,0 @@ -# Copyright (c) 2008, 2009 - 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/ -# ----------------------------------------------------------------------------- -# DistroUtils.pm -# - provides utility distro based functions for OpenSLX -# ----------------------------------------------------------------------------- -package OpenSLX::DistroUtils; - -use strict; -use warnings; - -use OpenSLX::Utils; -use OpenSLX::Basics; - -use Data::Dumper; - -use OpenSLX::DistroUtils::Engine; -use OpenSLX::DistroUtils::InitFile; - -use Exporter; - -use vars qw(@ISA @EXPORT $VERSION); - -use Exporter; -$VERSION = 1.01; -@ISA = qw(Exporter); - -@EXPORT = qw( - newInitFile - getInitFileForDistro - simpleInitFile - getKernelVersionForDistro -); - - - -sub newInitFile { - return OpenSLX::DistroUtils::InitFile->new(); -} - - -sub simpleInitFile { - my $config = shift; - my $initFile = OpenSLX::DistroUtils::InitFile->new(); - - return $initFile->simpleSetup($config); -} - - -sub getInitFileForDistro { - my $initFile = shift; - my $distroName = shift; - my $distro; - - my $engine = OpenSLX::DistroUtils::Engine->new(); - - if ($distroName) { - $distro = $engine->loadDistro($distroName); - } else { - $distro = $engine->loadDistro('Base'); - } - - #return $distro->dumpInit($initFile); - return $distro->generateInitFile($initFile); -} - -sub getKernelVersionForDistro { - my $kernelPath = shift; - my $distroName = shift; - my $distro; - - my $engine = OpenSLX::DistroUtils::Engine->new(); - - if ($distroName) { - $distro = $engine->loadDistro($distroName); - } else { - $distro = $engine->loadDistro('Base'); - } - - return $distro->getKernelVersion($kernelPath); -} - -1;
\ No newline at end of file |