3 files changed, 106 insertions, 4 deletions
diff --git a/installer/OpenSLX/OSSetup/Packager/Base.pm b/installer/OpenSLX/OSSetup/Packager/Base.pm
index 3aa8921e..c33b690b 100644
--- a/installer/OpenSLX/OSSetup/Packager/Base.pm
+++ b/installer/OpenSLX/OSSetup/Packager/Base.pm
@@ -31,13 +31,17 @@ sub new
 sub initialize
 {
 	my $self = shift;
-	my $distro = shift;
+	my $engine = shift;
 
-	$self->{'distro'} = $distro;
+	$self->{'engine'} = $engine;
 	return;
 }
 
-sub unpackPackages
+sub prepareBootstrap
+{
+}
+
+sub bootstrap
 {
 }
 
diff --git a/installer/OpenSLX/OSSetup/Packager/dpkg.pm b/installer/OpenSLX/OSSetup/Packager/dpkg.pm
new file mode 100644
index 00000000..cdd55e56
--- /dev/null
+++ b/installer/OpenSLX/OSSetup/Packager/dpkg.pm
@@ -0,0 +1,98 @@
+# 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/
+# -----------------------------------------------------------------------------
+# rpm.pm
+#	- provides rpm-specific overrides of the OpenSLX::OSSetup::Packager API.
+# -----------------------------------------------------------------------------
+package OpenSLX::OSSetup::Packager::dpkg;
+
+use strict;
+use warnings;
+
+use base qw(OpenSLX::OSSetup::Packager::Base);
+
+use OpenSLX::Basics;
+use OpenSLX::Utils;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+	my $class = shift;
+	my $self = {
+		'name' => 'dpkg',
+	};
+	return bless $self, $class;
+}
+
+sub prepareBootstrap
+{
+	my $self       = shift;
+	my $stage1aDir = shift;
+	
+	copyBinaryWithRequiredLibs({
+		'binary'          => '/usr/bin/perl',
+		'targetFolder'    => "$stage1aDir/usr/bin",
+		'libTargetFolder' => $stage1aDir,
+	});
+
+}
+
+sub bootstrap
+{
+	my $self = shift;
+	my $pkgs = shift;
+
+	my $debootstrapPkg = $pkgs->[0];
+	chdir '..';
+	vlog(2, "unpacking debootstrap ...");
+	if (slxsystem("ash", "-c", "ar x slxbootstrap/$debootstrapPkg")) {
+		die _tr("unable to unarchive package '%s' (%s)", $debootstrapPkg, $!);
+	}
+	if (slxsystem("ash", "-c", "tar xzf data.tar.gz")) {
+		die _tr("unable to untar 'data.tar.gz (%s)", $!);
+	}
+	if (slxsystem("ash", "-c", "rm -f debian-binary *.tar.gz")) {
+		die _tr("unable to cleanup package '%s' (%s)", $debootstrapPkg, $!);
+	}
+	my $debootstrapCmd = <<"	END-OF-HERE";
+		/usr/sbin/debootstrap --arch i386 edgy /slxbootstrap/slxfinal http://localhost:5080/srv/ftp/pub/ubuntu
+	END-OF-HERE
+	if (slxsystem("ash", "-c", "/bin/ash $debootstrapCmd")) {
+		die _tr("unable to run debootstrap (%s)", $!);
+	}
+	return;
+}
+
+sub installPackages
+{
+	my $self = shift;
+	my $pkgs = shift;
+	my $finalPath = shift;
+
+	return unless defined $pkgs && scalar(@$pkgs);
+
+	if (slxsystem("rpm", "--root=$finalPath", "-ivh", @$pkgs)) {
+		die _tr("error during package-installation (%s)\n", $!);
+	}
+	return;
+}
+
+sub getInstalledPackages
+{
+	my $self = shift;
+
+	my $rpmCmd = 'rpm -qa --queryformat="%{NAME}\n"';
+	my $pkgList = `$rpmCmd`;
+	return split "\n", $pkgList;
+}
+
+1;
diff --git a/installer/OpenSLX/OSSetup/Packager/rpm.pm b/installer/OpenSLX/OSSetup/Packager/rpm.pm
index ef254084..0fd502a0 100644
--- a/installer/OpenSLX/OSSetup/Packager/rpm.pm
+++ b/installer/OpenSLX/OSSetup/Packager/rpm.pm
@@ -32,7 +32,7 @@ sub new
 	return bless $self, $class;
 }
 
-sub unpackPackages
+sub bootstrap
 {
 	my $self = shift;
 	my $pkgs = shift;