| #************************************************************** |
| # |
| # Licensed to the Apache Software Foundation (ASF) under one |
| # or more contributor license agreements. See the NOTICE file |
| # distributed with this work for additional information |
| # regarding copyright ownership. The ASF licenses this file |
| # to you under the Apache License, Version 2.0 (the |
| # "License"); you may not use this file except in compliance |
| # with the License. You may obtain a copy of the License at |
| # |
| # http://www.apache.org/licenses/LICENSE-2.0 |
| # |
| # Unless required by applicable law or agreed to in writing, |
| # software distributed under the License is distributed on an |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| # KIND, either express or implied. See the License for the |
| # specific language governing permissions and limitations |
| # under the License. |
| # |
| #************************************************************** |
| |
| |
| |
| package installer::strip; |
| |
| use installer::converter; |
| use installer::existence; |
| use installer::globals; |
| use installer::logger; |
| use installer::pathanalyzer; |
| use installer::systemactions; |
| |
| ##################################################################### |
| # Checking whether a file has to be stripped |
| ##################################################################### |
| |
| sub need_to_strip |
| { |
| my ( $filename ) = @_; |
| |
| my $strip = 0; |
| |
| # Check using the "file" command |
| |
| open (FILE, "file $filename |"); |
| my $fileoutput = <FILE>; |
| close (FILE); |
| |
| if (( $fileoutput =~ /not stripped/i ) && ( $fileoutput =~ /\bELF\b/ )) { $strip = 1; } |
| |
| return $strip |
| } |
| |
| ##################################################################### |
| # Checking whether a file has to be stripped |
| ##################################################################### |
| |
| sub do_strip |
| { |
| my ( $filename ) = @_; |
| |
| my $systemcall = "strip" . " " . $filename; |
| |
| my $returnvalue = system($systemcall); |
| |
| my $infoline = "Systemcall: $systemcall\n"; |
| $installer::logger::Lang->print($infoline); |
| |
| if ($returnvalue) |
| { |
| $infoline = "ERROR: Could not strip $filename!\n"; |
| $installer::logger::Lang->print($infoline); |
| } |
| else |
| { |
| $infoline = "SUCCESS: Stripped library $filename!\n"; |
| $installer::logger::Lang->print($infoline); |
| } |
| } |
| |
| ##################################################################### |
| # Resolving all variables in the packagename. |
| ##################################################################### |
| |
| sub strip_libraries |
| { |
| my ( $filelist, $languagestringref ) = @_; |
| |
| installer::logger::include_header_into_logfile("Stripping files:"); |
| |
| my $strippeddirbase = installer::systemactions::create_directories("stripped", $languagestringref); |
| |
| if (! installer::existence::exists_in_array($strippeddirbase, \@installer::globals::removedirs)) |
| { |
| push(@installer::globals::removedirs, $strippeddirbase); |
| } |
| |
| for ( my $i = 0; $i <= $#{$filelist}; $i++ ) |
| { |
| my $sourcefilename = ${$filelist}[$i]->{'sourcepath'}; |
| |
| if ( need_to_strip($sourcefilename) ) |
| { |
| my $shortfilename = $sourcefilename; |
| installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename); |
| |
| $infoline = "Strip: $shortfilename\n"; |
| $installer::logger::Lang->print($infoline); |
| |
| # copy file into directory for stripped libraries |
| |
| my $onelanguage = ${$filelist}[$i]->{'specificlanguage'}; |
| |
| # files without language into directory "00" |
| |
| if ($onelanguage eq "") { $onelanguage = "00"; } |
| |
| my $strippeddir = $strippeddirbase . $installer::globals::separator . $onelanguage; |
| installer::systemactions::create_directory($strippeddir); # creating language specific subdirectories |
| |
| my $destfilename = $strippeddir . $installer::globals::separator . $shortfilename; |
| installer::systemactions::copy_one_file($sourcefilename, $destfilename); |
| |
| # change sourcepath in files collector |
| |
| ${$filelist}[$i]->{'sourcepath'} = $destfilename; |
| |
| # strip file |
| |
| do_strip($destfilename); |
| } |
| } |
| } |
| |
| 1; |