* export backend is now capable of exporting just any distribution

* added specializations for Gentoo, Fedora, Debian and Ubuntu


git-svn-id: http://svn.openslx.org/svn/openslx/trunk@803 95ad53e4-c205-0410-b2fa-d234c58c8868

6 files changed, 256 insertions, 12 deletions

diff --git a/installer/OpenSLX/OSExport/Distro/Any.pm b/installer/OpenSLX/OSExport/Distro/Any.pm
new file mode 100644
index 00000000..da579dd1
--- /dev/null
+++ b/installer/OpenSLX/OSExport/Distro/Any.pm
@@ -0,0 +1,50 @@
+# Any.pm
+#	- provides generic overrides of the OpenSLX OSExport API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+package OpenSLX::OSExport::Distro::Any;
+
+use vars qw(@ISA $VERSION);
+@ISA = ('OpenSLX::OSExport::Distro::Base');
+$VERSION = 1.01;		# API-version . implementation-version
+
+use strict;
+use Carp;
+use OpenSLX::Basics;
+use OpenSLX::OSExport::Distro::Base 1.01;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+	my $class = shift;
+	my $self = {
+		'base-name' => 'any',
+	};
+	return bless $self, $class;
+}
+
+sub initDistroInfo
+{
+	my $self = shift;
+
+	$self->{'export-filter'} = "
+		- /var/tmp/*
+		- /var/spool/*
+		- /var/run/*
+		- /var/lock/*
+		- /var/log/*
+		- /var/lib/xdm
+		- /var/cache/man/*
+		- /usr/share/vmware/*
+		- /lib/klibc/events/*
+		- /boot/initrd*
+		- /boot/grub
+	";
+}
+
+1;
\ No newline at end of file
diff --git a/installer/OpenSLX/OSExport/Distro/Debian.pm b/installer/OpenSLX/OSExport/Distro/Debian.pm
new file mode 100644
index 00000000..5056c877
--- /dev/null
+++ b/installer/OpenSLX/OSExport/Distro/Debian.pm
@@ -0,0 +1,49 @@
+# Debian.pm
+#	- provides Debian-specific overrides of the OpenSLX OSExport API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+package OpenSLX::OSExport::Distro::Debian;
+
+use vars qw(@ISA $VERSION);
+@ISA = ('OpenSLX::OSExport::Distro::Base');
+$VERSION = 1.01;		# API-version . implementation-version
+
+use strict;
+use Carp;
+use OpenSLX::Basics;
+use OpenSLX::OSExport::Distro::Base 1.01;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+	my $class = shift;
+	my $self = {
+		'base-name' => 'debian',
+	};
+	return bless $self, $class;
+}
+
+sub initDistroInfo
+{
+	my $self = shift;
+
+	$self->{'export-filter'} = "
+		- /var/tmp/*
+		- /var/spool/*
+		- /var/run/*
+		- /var/log/*
+		- /var/lib/xdm
+		- /var/cache/man/*
+		- /usr/share/vmware/*
+		- /lib/klibc/events/*
+		- /boot/initrd*
+		- /boot/grub
+	";
+}
+
+1;
\ No newline at end of file
diff --git a/installer/OpenSLX/OSExport/Distro/Fedora.pm b/installer/OpenSLX/OSExport/Distro/Fedora.pm
new file mode 100644
index 00000000..b518008a
--- /dev/null
+++ b/installer/OpenSLX/OSExport/Distro/Fedora.pm
@@ -0,0 +1,53 @@
+# Fedora.pm
+#	- provides Fedora-specific overrides of the OpenSLX OSExport API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+package OpenSLX::OSExport::Distro::Fedora;
+
+use vars qw(@ISA $VERSION);
+@ISA = ('OpenSLX::OSExport::Distro::Base');
+$VERSION = 1.01;		# API-version . implementation-version
+
+use strict;
+use Carp;
+use OpenSLX::Basics;
+use OpenSLX::OSExport::Distro::Base 1.01;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+	my $class = shift;
+	my $self = {
+		'base-name' => 'fedora',
+	};
+	return bless $self, $class;
+}
+
+sub initDistroInfo
+{
+	my $self = shift;
+
+	# TODO: check and refine this!
+	$self->{'export-filter'} = "
+		- /var/tmp/*
+		- /var/spool/*
+		- /var/run/*
+		- /var/lock/*
+		- /var/log/*
+		- /var/lib/xdm
+		- /var/cache/man/*
+		- /usr/share/vmware/*
+		- /lib/klibc/events/*
+		- /boot/initrd*
+		- /boot/grub
+		- *.rpmsave
+		- *.rpmnew
+	";
+}
+
+1;
\ No newline at end of file
diff --git a/installer/OpenSLX/OSExport/Distro/Gentoo.pm b/installer/OpenSLX/OSExport/Distro/Gentoo.pm
new file mode 100644
index 00000000..5dbcb652
--- /dev/null
+++ b/installer/OpenSLX/OSExport/Distro/Gentoo.pm
@@ -0,0 +1,49 @@
+# Gentoo.pm
+#	- provides Gentoo-specific overrides of the OpenSLX OSExport API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+package OpenSLX::OSExport::Distro::Gentoo;
+
+use vars qw(@ISA $VERSION);
+@ISA = ('OpenSLX::OSExport::Distro::Base');
+$VERSION = 1.01;		# API-version . implementation-version
+
+use strict;
+use Carp;
+use OpenSLX::Basics;
+use OpenSLX::OSExport::Distro::Base 1.01;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+	my $class = shift;
+	my $self = {
+		'base-name' => 'gentoo',
+	};
+	return bless $self, $class;
+}
+
+sub initDistroInfo
+{
+	my $self = shift;
+
+	$self->{'export-filter'} = "
+		- /var/tmp/*
+		- /var/spool/*
+		- /var/run/*
+		- /var/log/*
+		- /var/lib/xdm
+		- /var/lib/init.d/*
+		- /var/cache/man/*
+		- /usr/share/vmware/*
+		- /boot/initrd*
+		- /boot/grub
+	";
+}
+
+1;
\ No newline at end of file
diff --git a/installer/OpenSLX/OSExport/Distro/SUSE_10_2.pm b/installer/OpenSLX/OSExport/Distro/SUSE.pm
index 6c3fb07a..c760eeb9 100644
--- a/installer/OpenSLX/OSExport/Distro/SUSE_10_2.pm
+++ b/installer/OpenSLX/OSExport/Distro/SUSE.pm
@@ -1,11 +1,11 @@
-# SUSE_10_2.pm
-#	- provides SUSE-10.2-specific overrides of the OpenSLX OSExport API.
+# SUSE.pm
+#	- provides SUSE-specific overrides of the OpenSLX OSExport API.
 #
 # (c) 2006 - OpenSLX.com
 #
 # Oliver Tappe <ot@openslx.com>
 #
-package OpenSLX::OSExport::Distro::SUSE_10_2;
+package OpenSLX::OSExport::Distro::SUSE;
 
 use vars qw(@ISA $VERSION);
 @ISA = ('OpenSLX::OSExport::Distro::Base');
@@ -23,19 +23,11 @@ sub new
 {
 	my $class = shift;
 	my $self = {
-		'base-name' => 'suse-10.2',
+		'base-name' => 'suse',
 	};
 	return bless $self, $class;
 }
 
-sub initialize
-{
-	my $self = shift;
-	my $engine = shift;
-
-	$self->SUPER::initialize($engine);
-}
-
 sub initDistroInfo
 {
 	my $self = shift;
diff --git a/installer/OpenSLX/OSExport/Distro/Ubuntu.pm b/installer/OpenSLX/OSExport/Distro/Ubuntu.pm
new file mode 100644
index 00000000..52062a87
--- /dev/null
+++ b/installer/OpenSLX/OSExport/Distro/Ubuntu.pm
@@ -0,0 +1,51 @@
+# Ubuntu.pm
+#	- provides Ubuntu-specific overrides of the OpenSLX OSExport API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+package OpenSLX::OSExport::Distro::Ubuntu;
+
+use vars qw(@ISA $VERSION);
+@ISA = ('OpenSLX::OSExport::Distro::Base');
+$VERSION = 1.01;		# API-version . implementation-version
+
+use strict;
+use Carp;
+use OpenSLX::Basics;
+use OpenSLX::OSExport::Distro::Base 1.01;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+	my $class = shift;
+	my $self = {
+		'base-name' => 'ubuntu',
+	};
+	return bless $self, $class;
+}
+
+sub initDistroInfo
+{
+	my $self = shift;
+
+	$self->{'export-filter'} = "
+		- /var/tmp/*
+		- /var/spool/*
+		- /var/run/*
+		- /var/log/*
+		- /var/lib/xdm
+		- /var/cache/man/*
+		- /usr/share/vmware/*
+		- /lib/klibc/events/*
+		- /initrd*
+		- /etc/cron.*/*
+		- /boot/initrd*
+		- /boot/grub
+	";
+}
+
+1;
\ No newline at end of file