From cedf72c7559e96d07fefdf55dc007aeb6bca1ca0 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 25 Jul 2007 19:30:02 +0000
Subject: * reworked OpenSLX::OSSetup::Distro structure to incorporate   a
 distro specific hierarchy level in addition to the   distro & version
 specific files. The latter will be converted   to config-files soon. * moved
 string2Array() and chrootInto() from   OpenSLX::OSSetup::Engine to
 OpenSLX::Utils to make them   available to other callers * started work on
 ubuntu & debian installation (not done yet) * cleaned interface of
 OpenSLX::OSSetup::Engine (separated   public from private methods)

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1275 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 installer/OpenSLX/OSSetup/Packager/dpkg.pm | 98 ++++++++++++++++++++++++++++++
 1 file changed, 98 insertions(+)
 create mode 100644 installer/OpenSLX/OSSetup/Packager/dpkg.pm

(limited to 'installer/OpenSLX/OSSetup/Packager/dpkg.pm')

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;
-- 
cgit v1.2.3-55-g7522