diff options
author | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
---|---|---|
committer | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
commit | 416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 (patch) | |
tree | 4715f7d742fec50931017f38fe6ff0a89d4ceccc /installer/OpenSLX/OSSetup/MetaPackager/yum.pm | |
parent | Fix for the problem reported on the list (sed filter forgotten for the (diff) | |
download | core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.gz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.xz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.zip |
change dir structure
Diffstat (limited to 'installer/OpenSLX/OSSetup/MetaPackager/yum.pm')
-rw-r--r-- | installer/OpenSLX/OSSetup/MetaPackager/yum.pm | 117 |
1 files changed, 0 insertions, 117 deletions
diff --git a/installer/OpenSLX/OSSetup/MetaPackager/yum.pm b/installer/OpenSLX/OSSetup/MetaPackager/yum.pm deleted file mode 100644 index 99a10382..00000000 --- a/installer/OpenSLX/OSSetup/MetaPackager/yum.pm +++ /dev/null @@ -1,117 +0,0 @@ -# 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/ -# ----------------------------------------------------------------------------- -# yum.pm -# - provides yum-specific overrides of the OpenSLX::OSSetup::MetaPackager API. -# ----------------------------------------------------------------------------- -package OpenSLX::OSSetup::MetaPackager::yum; - -use strict; -use warnings; - -use base qw(OpenSLX::OSSetup::MetaPackager::Base); - -use OpenSLX::Basics; -use OpenSLX::Utils; - -################################################################################ -### implementation -################################################################################ -sub new -{ - my $class = shift; - my $self = { - 'name' => 'yum', - }; - return bless $self, $class; -} - -sub initPackageSources -{ - my $self = shift; - - $ENV{LC_ALL} = 'POSIX'; - - slxsystem("rm -f /etc/yum.repos.d/*"); - slxsystem("mkdir -p /etc/yum.repos.d"); - - return 1; -} - -sub setupPackageSource -{ - my $self = shift; - my $repoName = shift; - my $repoInfo = shift; - my $excludeList = shift; - my $repoURLs = shift; - - my $repoSubdir; - if (length($repoInfo->{'repo-subdir'})) { - $repoSubdir = "/$repoInfo->{'repo-subdir'}"; - } - my $baseURL = shift @$repoURLs; - - my $repoDescr - = "[$repoName]\nname=$repoInfo->{name}\nbaseurl=$baseURL$repoSubdir\n"; - vlog(4,"Adding repo <",$repoName,"> with Base-URL <",$baseURL,"> and Repo-SubDir <",$repoSubdir,">"); - foreach my $mirrorURL (@$repoURLs) { - $repoDescr .= " $mirrorURL$repoSubdir\n"; - } - my $repoFile = "/etc/yum.repos.d/$repoName.repo"; - spitFile($repoFile, "$repoDescr\nexclude=$excludeList\n"); - - return 1; -} - -sub installPackages -{ - my $self = shift; - my $packages = shift; - - $packages =~ tr{\n}{ }; - if (slxsystem("mount -t proc proc proc/") != 0){die _tr("unable to mount proc/ for yum \n");}; - if (slxsystem("yum -y install $packages")) { - die _tr("unable to install selection (%s)\n", $!); - } - if(slxsystem("umount proc/") != 0) {_tr("unable to umount proc/")}; - - return 1; -} - -sub removePackages -{ - my $self = shift; - my $pkgSelection = shift; - - if (slxsystem("yum -y remove $pkgSelection")) { - die _tr("unable to remove selection (%s)\n", $!); - } - - return 1; -} - -sub updateBasicVendorOS -{ - my $self = shift; - if (slxsystem("mount -t proc proc proc/") != 0){die _tr("unable to mount proc/ for yum \n");}; - if (slxsystem("yum -y update")) { - if ($! == 2) { - # file not found => yum isn't installed - die _tr("unable to update this vendor-os, as it seems to lack an installation of yum!\n"); - } - if(slxsystem("umount proc/") != 0) {_tr("unable to umount proc/")}; - die _tr("unable to update this vendor-os (%s)\n", $!); - } - if(slxsystem("umount proc/") != 0) {_tr("unable to umount proc/")}; - return 1; -} - -1;
\ No newline at end of file |