diff options
Diffstat (limited to 'solenv/bin/modules/installer')
-rw-r--r-- | solenv/bin/modules/installer/epmfile.pm | 26 | ||||
-rw-r--r-- | solenv/bin/modules/installer/globals.pm | 5 | ||||
-rw-r--r-- | solenv/bin/modules/installer/worker.pm | 162 |
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 ########################################################### |