Skip to content

C
core
Kaydet (Commit) ce7c5a60 authored tarafından Tim Retout's avatar Tim Retout Kaydeden (comit) Michael Meeks
Dosyalara gözat
Seçenekler

Remove unused solaris subs from installer::worker

üst 0aeeebe5
Show whitespace changes
Inline Side-by-side
Showing with 0 additions and 135 deletions
solenv/bin/modules/installer/worker.pm
Dosyayı görüntüle @ ce7c5a60
......@@ -2439,141 +2439,6 @@ sub filter_pkgmapfile
return \@pkgmap;
}
##############################################
# Creating double packages for Solaris x86.
# One package with ARCH=i386 and one with
# ARCH=i86pc.
##############################################
sub fix_solaris_x86_patch
{
my ($packagename, $subdir) = @_;
# changing into directory of packages, important for soft linking
my $startdir = cwd();
chdir($subdir);
# $packagename is: "SUNWstaroffice-core01"
# Current working directory is: "<path>/install/en-US_inprogress"
# create new folder in "packages": $packagename . ".i"
my $newpackagename = $packagename . "\.i";
my $newdir = $newpackagename;
installer::systemactions::create_directory($newdir);
# collecting all directories in the package
my $olddir = $packagename;
my $allsubdirs = installer::systemactions::get_all_directories_without_path($olddir);
# link all directories from $packagename to $packagename . ".i"
for ( my $i = 0; $i <= $#{$allsubdirs}; $i++ )
{
my $sourcedir = $olddir . $installer::globals::separator . ${$allsubdirs}[$i];
my $destdir = $newdir . $installer::globals::separator . ${$allsubdirs}[$i];
my $directory_depth = 2; # important for soft links, two directories already exist
installer::systemactions::softlink_complete_directory($sourcedir, $destdir, $directory_depth);
}
# copy "pkginfo" and "pkgmap" from $packagename to $packagename . ".i"
my @allcopyfiles = ("pkginfo", "pkgmap");
for ( my $i = 0; $i <= $#allcopyfiles; $i++ )
{
my $sourcefile = $olddir . $installer::globals::separator . $allcopyfiles[$i];
my $destfile = $newdir . $installer::globals::separator . $allcopyfiles[$i];
installer::systemactions::copy_one_file($sourcefile, $destfile);
}
# change in pkginfo in $packagename . ".i" the value for ARCH from i386 to i86pc
my $pkginfofilename = "pkginfo";
$pkginfofilename = $newdir . $installer::globals::separator . $pkginfofilename;
my $pkginfofile = installer::files::read_file($pkginfofilename);
set_old_architecture_string($pkginfofile);
installer::files::save_file($pkginfofilename, $pkginfofile);
# adapt the values in pkgmap for pkginfo file, because this file was edited
my $pkgmapfilename = "pkgmap";
$pkgmapfilename = $newdir . $installer::globals::separator . $pkgmapfilename;
my $pkgmapfile = installer::files::read_file($pkgmapfilename);
set_pkginfo_line($pkgmapfile, $pkginfofilename);
installer::files::save_file($pkgmapfilename, $pkgmapfile);
# changing back to startdir
chdir($startdir);
}
###################################################
# Creating double core01 package for Solaris x86.
# One package with ARCH=i386 and one with
# ARCH=i86pc. This is necessary, to inform the
# user about the missing "small patch", if
# packages with ARCH=i86pc are installed.
###################################################
sub fix2_solaris_x86_patch
{
my ($packagename, $subdir) = @_;
if ( $packagename =~ /-core01\s*$/ ) # only this one package needs to be duplicated
{
my $startdir = cwd();
chdir($subdir);
# $packagename is: "SUNWstaroffice-core01"
# Current working directory is: "<path>/install/en-US_inprogress"
# create new package in "packages": $packagename . ".i"
my $olddir = $packagename;
my $newpackagename = $packagename . "\.i";
my $newdir = $newpackagename;
installer::systemactions::create_directory($newdir);
my $oldinstalldir = $olddir . $installer::globals::separator . "install";
my $newinstalldir = $newdir . $installer::globals::separator . "install";
installer::systemactions::copy_complete_directory($oldinstalldir, $newinstalldir);
# setting time stamp of all copied files to avoid errors from pkgchk
my $allinstallfiles = installer::systemactions::get_all_files_from_one_directory_without_path($newinstalldir);
set_time_stamp($oldinstalldir, $newinstalldir, $allinstallfiles);
# copy "pkginfo" and "pkgmap" from $packagename to $packagename . ".i"
my @allcopyfiles = ("pkginfo", "pkgmap");
for ( my $i = 0; $i <= $#allcopyfiles; $i++ )
{
my $sourcefile = $olddir . $installer::globals::separator . $allcopyfiles[$i];
my $destfile = $newdir . $installer::globals::separator . $allcopyfiles[$i];
installer::systemactions::copy_one_file($sourcefile, $destfile);
}
# change in pkginfo in $packagename . ".i" the value for ARCH from i386 to i86pc
my $pkginfofilename = "pkginfo";
$pkginfofilename = $newdir . $installer::globals::separator . $pkginfofilename;
my $pkginfofile = installer::files::read_file($pkginfofilename);
set_old_architecture_string($pkginfofile);
check_requires_setting($pkginfofile);
installer::files::save_file($pkginfofilename, $pkginfofile);
# adapt the values in pkgmap for pkginfo file, because this file was edited
my $pkgmapfilename = "pkgmap";
$pkgmapfilename = $newdir . $installer::globals::separator . $pkgmapfilename;
my $pkgmapfile = installer::files::read_file($pkgmapfilename);
set_pkginfo_line($pkgmapfile, $pkginfofilename);
$pkgmapfile = filter_pkgmapfile($pkgmapfile);
installer::files::save_file($pkgmapfilename, $pkgmapfile);
# setting time stamp of all copied files to avoid errors from pkgchk
set_time_stamp($olddir, $newdir, \@allcopyfiles);
# changing back to startdir
chdir($startdir);
}
}
################################################
# Files with flag HIDDEN get a dot at the
# beginning of the file name. This cannot be
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment