summaryrefslogtreecommitdiffstats
path: root/installer/OpenSLX/OSSetup/Packager
diff options
context:
space:
mode:
Diffstat (limited to 'installer/OpenSLX/OSSetup/Packager')
-rw-r--r--installer/OpenSLX/OSSetup/Packager/Base.pm14
-rw-r--r--installer/OpenSLX/OSSetup/Packager/dpkg.pm102
-rw-r--r--installer/OpenSLX/OSSetup/Packager/rpm.pm76
3 files changed, 96 insertions, 96 deletions
diff --git a/installer/OpenSLX/OSSetup/Packager/Base.pm b/installer/OpenSLX/OSSetup/Packager/Base.pm
index 55211183..747ba7e4 100644
--- a/installer/OpenSLX/OSSetup/Packager/Base.pm
+++ b/installer/OpenSLX/OSSetup/Packager/Base.pm
@@ -9,14 +9,14 @@
# General information about OpenSLX can be found at http://openslx.org/
# -----------------------------------------------------------------------------
# Base.pm
-# - provides empty base of the OpenSLX OSSetup::Packager API.
+# - provides empty base of the OpenSLX OSSetup::Packager API.
# -----------------------------------------------------------------------------
package OpenSLX::OSSetup::Packager::Base;
use strict;
use warnings;
-our $VERSION = 1.01; # API-version . implementation-version
+our $VERSION = 1.01; # API-version . implementation-version
use OpenSLX::Basics;
@@ -25,16 +25,16 @@ use OpenSLX::Basics;
################################################################################
sub new
{
- confess "Creating OpenSLX::OSSetup::Packager::Base-objects directly makes no sense!";
+ confess "Creating OpenSLX::OSSetup::Packager::Base-objects directly makes no sense!";
}
sub initialize
{
- my $self = shift;
- my $engine = shift;
+ my $self = shift;
+ my $engine = shift;
- $self->{'engine'} = $engine;
- return;
+ $self->{'engine'} = $engine;
+ return;
}
sub prepareBootstrap
diff --git a/installer/OpenSLX/OSSetup/Packager/dpkg.pm b/installer/OpenSLX/OSSetup/Packager/dpkg.pm
index 573c2054..94aff9c6 100644
--- a/installer/OpenSLX/OSSetup/Packager/dpkg.pm
+++ b/installer/OpenSLX/OSSetup/Packager/dpkg.pm
@@ -9,7 +9,7 @@
# General information about OpenSLX can be found at http://openslx.org/
# -----------------------------------------------------------------------------
# rpm.pm
-# - provides rpm-specific overrides of the OpenSLX::OSSetup::Packager API.
+# - provides rpm-specific overrides of the OpenSLX::OSSetup::Packager API.
# -----------------------------------------------------------------------------
package OpenSLX::OSSetup::Packager::dpkg;
@@ -26,77 +26,77 @@ use OpenSLX::Utils;
################################################################################
sub new
{
- my $class = shift;
- my $self = {
- 'name' => 'dpkg',
- };
- return bless $self, $class;
+ 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,
- });
+ 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 $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 $arch = $self->{engine}->{'distro-info'}->{arch};
- my $releaseName = $self->{engine}->{'distro-info'}->{'release-name'};
- my $baseURL = $self->{engine}->{baseURLs}->[0];
- my $debootstrapCmd = unshiftHereDoc(<<" END-OF-HERE");
- /usr/sbin/debootstrap --arch $arch $releaseName \\
- /slxbootstrap/slxfinal $baseURL
- END-OF-HERE
- if (slxsystem("ash", "-c", ". $debootstrapCmd")) {
- die _tr("unable to run debootstrap (%s)", $!);
- }
- return;
+ 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 $arch = $self->{engine}->{'distro-info'}->{arch};
+ my $releaseName = $self->{engine}->{'distro-info'}->{'release-name'};
+ my $baseURL = $self->{engine}->{baseURLs}->[0];
+ my $debootstrapCmd = unshiftHereDoc(<<" END-OF-HERE");
+ /usr/sbin/debootstrap --arch $arch $releaseName \\
+ /slxbootstrap/slxfinal $baseURL
+ END-OF-HERE
+ if (slxsystem("ash", "-c", ". $debootstrapCmd")) {
+ die _tr("unable to run debootstrap (%s)", $!);
+ }
+ return;
}
sub installPackages
{
- my $self = shift;
- my $pkgs = shift;
- my $finalPath = shift;
+ my $self = shift;
+ my $pkgs = shift;
+ my $finalPath = shift;
- return unless defined $pkgs && @$pkgs;
+ return unless defined $pkgs && @$pkgs;
- if (slxsystem("dpkg", "--root=$finalPath", "--install", @$pkgs)) {
- die _tr("error during package-installation (%s)\n", $!);
- }
- return;
+ if (slxsystem("dpkg", "--root=$finalPath", "--install", @$pkgs)) {
+ die _tr("error during package-installation (%s)\n", $!);
+ }
+ return;
}
sub getInstalledPackages
{
- my $self = shift;
+ my $self = shift;
- my $rpmCmd = 'dpkg-query --showformat "\${package}\n" --show';
- my $pkgList = qx{$rpmCmd};
- return split "\n", $pkgList;
+ my $rpmCmd = 'dpkg-query --showformat "\${package}\n" --show';
+ my $pkgList = qx{$rpmCmd};
+ return split "\n", $pkgList;
}
1;
diff --git a/installer/OpenSLX/OSSetup/Packager/rpm.pm b/installer/OpenSLX/OSSetup/Packager/rpm.pm
index db1e7e1f..8a86a3d2 100644
--- a/installer/OpenSLX/OSSetup/Packager/rpm.pm
+++ b/installer/OpenSLX/OSSetup/Packager/rpm.pm
@@ -9,7 +9,7 @@
# General information about OpenSLX can be found at http://openslx.org/
# -----------------------------------------------------------------------------
# rpm.pm
-# - provides rpm-specific overrides of the OpenSLX::OSSetup::Packager API.
+# - provides rpm-specific overrides of the OpenSLX::OSSetup::Packager API.
# -----------------------------------------------------------------------------
package OpenSLX::OSSetup::Packager::rpm;
@@ -25,65 +25,65 @@ use OpenSLX::Basics;
################################################################################
sub new
{
- my $class = shift;
- my $self = {
- 'name' => 'rpm',
- };
- return bless $self, $class;
+ my $class = shift;
+ my $self = {
+ 'name' => 'rpm',
+ };
+ return bless $self, $class;
}
sub bootstrap
{
- my $self = shift;
- my $pkgs = shift;
+ my $self = shift;
+ my $pkgs = shift;
- foreach my $pkg (@$pkgs) {
- vlog(2, "unpacking package $pkg...");
- if (slxsystem("ash", "-c", "rpm2cpio $pkg | cpio -i -d -u")) {
- die _tr("unable to unpack package <%s> (%s)", $pkg, $!);
- }
- }
- return;
+ foreach my $pkg (@$pkgs) {
+ vlog(2, "unpacking package $pkg...");
+ if (slxsystem("ash", "-c", "rpm2cpio $pkg | cpio -i -d -u")) {
+ die _tr("unable to unpack package <%s> (%s)", $pkg, $!);
+ }
+ }
+ return;
}
sub importTrustedPackageKeys
{
- my $self = shift;
- my $keyFiles = shift;
- my $finalPath = shift;
+ my $self = shift;
+ my $keyFiles = shift;
+ my $finalPath = shift;
- return unless defined $keyFiles;
+ return unless defined $keyFiles;
- foreach my $keyFile (@$keyFiles) {
- vlog(2, "importing package key $keyFile...");
- if (slxsystem("rpm", "--root=$finalPath", "--import", "$keyFile")) {
- die _tr("unable to import package key <%s> (%s)\n", $keyFile, $!);
- }
- }
- return;
+ foreach my $keyFile (@$keyFiles) {
+ vlog(2, "importing package key $keyFile...");
+ if (slxsystem("rpm", "--root=$finalPath", "--import", "$keyFile")) {
+ die _tr("unable to import package key <%s> (%s)\n", $keyFile, $!);
+ }
+ }
+ return;
}
sub installPackages
{
- my $self = shift;
- my $pkgs = shift;
- my $finalPath = shift;
+ my $self = shift;
+ my $pkgs = shift;
+ my $finalPath = shift;
- return unless defined $pkgs && scalar(@$pkgs);
+ return unless defined $pkgs && scalar(@$pkgs);
- if (slxsystem("rpm", "--root=$finalPath", "-ivh", @$pkgs)) {
- die _tr("error during package-installation (%s)\n", $!);
- }
- return;
+ if (slxsystem("rpm", "--root=$finalPath", "-ivh", @$pkgs)) {
+ die _tr("error during package-installation (%s)\n", $!);
+ }
+ return;
}
sub getInstalledPackages
{
- my $self = shift;
+ my $self = shift;
- my $rpmCmd = 'rpm -qa --queryformat="%{NAME}\n"';
- my $pkgList = `$rpmCmd`;
- return split "\n", $pkgList;
+ my $rpmCmd = 'rpm -qa --queryformat="%{NAME}\n"';
+ my $pkgList = `$rpmCmd`;
+ return split "\n", $pkgList;
}
1;
generated by cgit v1.2.3-55-g7522 (git 2.39.0) at 2024-05-19 01:29:02 +0200