From 0e2a54e0dc20a5d4f90ebdf31ba243fb9aaf191b Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Fri, 23 Mar 2007 09:51:21 +0000 Subject: * added support for cloning distros for which no specific module exists yet (like will probably be the case for Gentoo for a long time). git-svn-id: http://svn.openslx.org/svn/openslx/trunk@805 95ad53e4-c205-0410-b2fa-d234c58c8868 --- installer/OpenSLX/OSSetup/Distro/Any_Clone.pm | 31 +++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 installer/OpenSLX/OSSetup/Distro/Any_Clone.pm (limited to 'installer/OpenSLX/OSSetup/Distro') diff --git a/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm b/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm new file mode 100644 index 00000000..7602870d --- /dev/null +++ b/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm @@ -0,0 +1,31 @@ +# Any_Clone.pm +# - provides generic clone-only overrides of the OpenSLX OSSetup API. +# +# (c) 2006 - OpenSLX.com +# +# Oliver Tappe +# +package OpenSLX::OSSetup::Distro::Any_Clone; + +use vars qw(@ISA $VERSION); +@ISA = ('OpenSLX::OSSetup::Distro::Base'); +$VERSION = 1.01; # API-version . implementation-version + +use strict; +use Carp; +use OpenSLX::Basics; +use OpenSLX::OSSetup::Distro::Base 1.01; + +################################################################################ +### implementation +################################################################################ +sub new +{ + my $class = shift; + my $self = { + 'base-name' => 'any-clone', + }; + return bless $self, $class; +} + +1; \ No newline at end of file -- cgit v1.2.3-55-g7522