summaryrefslogtreecommitdiff
path: root/solenv/bin/modules/installer
diff options
context:
space:
mode:
Diffstat (limited to 'solenv/bin/modules/installer')
-rw-r--r--solenv/bin/modules/installer/epmfile.pm26
-rw-r--r--solenv/bin/modules/installer/globals.pm5
-rw-r--r--solenv/bin/modules/installer/worker.pm162
3 files changed, 0 insertions, 193 deletions
diff --git a/solenv/bin/modules/installer/epmfile.pm b/solenv/bin/modules/installer/epmfile.pm
index bc50aeb2fd30..36fd78d397d5 100644
--- a/solenv/bin/modules/installer/epmfile.pm
+++ b/solenv/bin/modules/installer/epmfile.pm
@@ -511,7 +511,6 @@ sub create_epm_header
my $onereplaces = ${$allreplaces}[$i];
$onereplaces =~ s/\s*$//;
installer::packagelist::resolve_packagevariables(\$onereplaces, $variableshashref, 1);
- if ( $installer::globals::linuxlinkrpmprocess ) { $onereplaces = $onereplaces . "u"; }
$line = "%replaces" . " " . $onereplaces . "\n";
push(@epmheader, $line);
@@ -578,7 +577,6 @@ sub create_epm_header
my $oneprovides = ${$allprovides}[$i];
$oneprovides =~ s/\s*$//;
installer::packagelist::resolve_packagevariables(\$oneprovides, $variableshashref, 1);
- if ( $installer::globals::linuxlinkrpmprocess ) { $oneprovides = $oneprovides . "u"; }
$line = "%provides" . " " . $oneprovides . "\n";
push(@epmheader, $line);
}
@@ -588,8 +586,6 @@ sub create_epm_header
{
my $requiresstring = $onepackage->{$requires};
- if ( $installer::globals::add_required_package ) { $requiresstring = $requiresstring . "," . $installer::globals::add_required_package; }
-
# The requires string can contain the separator "," in the names (descriptions) of the packages
# (that are required for Solaris depend files). Therefore "," inside such a description has to
# masked with a backslash.
@@ -613,28 +609,6 @@ sub create_epm_header
push(@epmheader, $line);
}
}
- else
- {
- if ( $installer::globals::add_required_package )
- {
- my $requiresstring = $installer::globals::add_required_package;
-
- my $replacementstring = "COMMAREPLACEMENT";
- $requiresstring = installer::converter::replace_masked_separator($requiresstring, ",", "$replacementstring");
- my $allrequires = installer::converter::convert_stringlist_into_array(\$requiresstring, ",");
- installer::converter::resolve_masked_separator($allrequires, ",", $replacementstring);
-
- for ( my $i = 0; $i <= $#{$allrequires}; $i++ )
- {
- my $onerequires = ${$allrequires}[$i];
- $onerequires =~ s/\s*$//;
- installer::packagelist::resolve_packagevariables(\$onerequires, $variableshashref, 0);
-
- $line = "%requires" . " " . $onerequires . "\n";
- push(@epmheader, $line);
- }
- }
- }
return \@epmheader;
}
diff --git a/solenv/bin/modules/installer/globals.pm b/solenv/bin/modules/installer/globals.pm
index e77e8a437b26..cbfe885eca1b 100644
--- a/solenv/bin/modules/installer/globals.pm
+++ b/solenv/bin/modules/installer/globals.pm
@@ -192,13 +192,9 @@ BEGIN
$packagename = "";
$packagelist = "";
$shiptestdirectory = "";
- $makelinuxlinkrpm = 0;
- $linuxlinkrpmprocess = 0;
- $add_required_package = "";
@linuxpatchfiles = ();
$linuxlibrarybaselevel = "1";
$linuxlibrarypatchlevel = "1.1";
- @linuxlinks = ();
$archiveformat = "";
$updatelastsequence = 0;
$updatesequencecounter = 0;
@@ -351,7 +347,6 @@ BEGIN
@featurecollector =();
$msiassemblyfiles = "";
$macinstallfilename = "macinstall.ulf";
- $linuxlinkrpms = "";
$extensioninstalldir = "gid_Dir_Share_Extension_Install";
@languagenames = ();
@requiredpackages = ();
diff --git a/solenv/bin/modules/installer/worker.pm b/solenv/bin/modules/installer/worker.pm
index 8ae8e62b1d9a..309cf59d1da3 100644
--- a/solenv/bin/modules/installer/worker.pm
+++ b/solenv/bin/modules/installer/worker.pm
@@ -995,168 +995,6 @@ sub analyze_patch_files
}
###########################################################
-# Renaming linux files with flag LINUXLINK
-###########################################################
-
-sub prepare_linuxlinkfiles
-{
- my ( $filesref ) = @_;
-
- @installer::globals::linuxlinks = (); # empty this array, because it could be already used
- @installer::globals::linuxpatchfiles = (); # empty this array, because it could be already used
- @installer::globals::allfilessav = (); # empty this array, because it could be already used. Required for forced links
-
- my @filesarray = ();
-
- for ( my $i = 0; $i <= $#{$filesref}; $i++ )
- {
- my $onefile = ${$filesref}[$i];
- my %linkfilehash = ();
- my $linkfile = \%linkfilehash;
- installer::converter::copy_item_object($onefile, $linkfile);
-
- my $ispatchfile = 0;
- my $styles = "";
- if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
- if ( $styles =~ /\bPATCH\b/ ) { $ispatchfile = 1; }
-
- # Collecting all files for the mechanism with forced links
- # Saving a copy
- my %copyfilehash = ();
- my $copyfile = \%copyfilehash;
- installer::converter::copy_item_object($onefile, $copyfile);
- push( @installer::globals::allfilessav, $copyfile);
-
- my $original_destination = $onefile->{'destination'};
- # $onefile->{'destination'} is used in the epm list file. This value can be changed now!
-
- if ( $ispatchfile ) { $onefile->{'destination'} = $onefile->{'destination'} . "\.$installer::globals::linuxlibrarypatchlevel"; }
- else { $onefile->{'destination'} = $onefile->{'destination'} . "\.$installer::globals::linuxlibrarybaselevel"; }
-
- my $infoline = "LINUXLINK: Changing file destination from $original_destination to $onefile->{'destination'} !\n";
- push( @installer::globals::logfileinfo, $infoline);
-
- # all files without PATCH flag are included into the RPM
- if ( ! $ispatchfile ) { push( @filesarray, $onefile); }
- else { push( @installer::globals::linuxpatchfiles, $onefile); }
-
- # Preparing the collector for the links
- # Setting the new file name as destination of the link
- my $linkdestination = $linkfile->{'Name'};
- installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$linkdestination);
- if ( $ispatchfile ) { $linkfile->{'destinationfile'} = $linkdestination . "\.$installer::globals::linuxlibrarypatchlevel"; }
- else { $linkfile->{'destinationfile'} = $linkdestination . "\.$installer::globals::linuxlibrarybaselevel"; }
- push( @installer::globals::linuxlinks, $linkfile );
-
- $infoline = "LINUXLINK: Created link: $linkfile->{'destination'} pointing to $linkfile->{'destinationfile'} !\n";
- push( @installer::globals::logfileinfo, $infoline);
- }
-
- return \@filesarray;
-}
-
-###########################################################
-# Adding links into "u-RPMs", that have the flag
-# FORCE_INTO_UPDATE_PACKAGE
-# This is only relevant for Linux
-###########################################################
-
-sub prepare_forced_linuxlinkfiles
-{
- my ( $linksref ) = @_;
-
- my @linksarray = ();
-
- for ( my $i = 0; $i <= $#{$linksref}; $i++ )
- {
- my $onelink = ${$linksref}[$i];
-
- my $isforcedlink = 0;
- my $styles = "";
- if ( $onelink->{'Styles'} ) { $styles = $onelink->{'Styles'}; }
- if ( $styles =~ /\bFORCE_INTO_UPDATE_PACKAGE\b/ ) { $isforcedlink = 1; }
-
- if ( $isforcedlink )
- {
- my $fileid = "";
-
- if ( $onelink->{'ShortcutID'} )
- {
- $fileid = $onelink->{'ShortcutID'};
-
- my $searchedlinkfile = find_file_by_id($linksref, $fileid);
-
- # making a copy!
- my %linkfilehash = ();
- my $linkfile = \%linkfilehash;
- installer::converter::copy_item_object($searchedlinkfile, $linkfile);
-
- $linkfile->{'Name'} = $onelink->{'Name'};
- $linkfile->{'destinationfile'} = $linkfile->{'destination'};
- my $linkdestination = $linkfile->{'destinationfile'};
- installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$linkdestination);
- $linkfile->{'destinationfile'} = $linkdestination;
-
- my $localdestination = $linkfile->{'destination'};
- # Getting the path
- installer::pathanalyzer::get_path_from_fullqualifiedname(\$localdestination);
- $localdestination =~ s/\Q$installer::globals::separator\E\s*$//;
- $linkfile->{'destination'} = $localdestination . $installer::globals::separator . $onelink->{'Name'};
-
- $infoline = "Forced link into update file: $linkfile->{'destination'} pointing to $linkfile->{'destinationfile'} !\n";
- push( @installer::globals::logfileinfo, $infoline);
-
- # The file, defined by the link, has to be included into the
- # link array @installer::globals::linuxlinks
- push( @installer::globals::linuxlinks, $linkfile );
- }
-
- if ( $onelink->{'FileID'} )
- {
- $fileid = $onelink->{'FileID'};
-
- my $searchedlinkfile = find_file_by_id(\@installer::globals::allfilessav, $fileid);
-
- # making a copy!
- my %linkfilehash = ();
- my $linkfile = \%linkfilehash;
- installer::converter::copy_item_object($searchedlinkfile, $linkfile);
-
- $linkfile->{'Name'} = $onelink->{'Name'};
- $linkfile->{'destinationfile'} = $linkfile->{'destination'};
- my $linkdestination = $linkfile->{'destinationfile'};
- installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$linkdestination);
- $linkfile->{'destinationfile'} = $linkdestination;
-
- my $localdestination = $linkfile->{'destination'};
- # Getting the path
- installer::pathanalyzer::get_path_from_fullqualifiedname(\$localdestination);
- $localdestination =~ s/\Q$installer::globals::separator\E\s*$//;
- $linkfile->{'destination'} = $localdestination . $installer::globals::separator . $onelink->{'Name'};
-
- $infoline = "Forced link into update file: $linkfile->{'destination'} pointing to $linkfile->{'destinationfile'} !\n";
- push( @installer::globals::logfileinfo, $infoline);
-
- # The file, defined by the link, has to be included into the
- # link array @installer::globals::linuxlinks
- push( @installer::globals::linuxlinks, $linkfile );
- }
-
- if ( $fileid eq "" ) { installer::exiter::exit_program("ERROR: No FileID assigned to forced link $onelink->{'gid'} !", "prepare_forced_linuxlinkfiles"); }
-
- }
- else
- {
- # Links with flag FORCE_INTO_UPDATE_PACKAGE are forced into "u"-RPM. All other
- # links are included into the non-"u"-package.
- push( @linksarray, $onelink );
- }
- }
-
- return \@linksarray;
-}
-
-###########################################################
# reorganizing the patchfile content,
# sorting for directory to decrease the file size
###########################################################