upx.pm (9780544f) | upx.pm (b274bc22) |
---|---|
1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 54 unchanged lines hidden (view full) --- 63 my ( $filename ) = @_; 64 65 my $compression = "9"; 66 my $systemcall = $installer::globals::upxfile . " -" . $compression . " " . $filename; 67 68 my $returnvalue = system($systemcall); 69 70 my $infoline = "Systemcall: $systemcall\n"; | 1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 54 unchanged lines hidden (view full) --- 63 my ( $filename ) = @_; 64 65 my $compression = "9"; 66 my $systemcall = $installer::globals::upxfile . " -" . $compression . " " . $filename; 67 68 my $returnvalue = system($systemcall); 69 70 my $infoline = "Systemcall: $systemcall\n"; |
71 push( @installer::globals::logfileinfo, $infoline); | 71 $installer::logger::Lang->print($infoline); |
72 73 if ($returnvalue) 74 { 75 $infoline = "WARNING: Could not successfully upx $filename! Using original file.\n"; | 72 73 if ($returnvalue) 74 { 75 $infoline = "WARNING: Could not successfully upx $filename! Using original file.\n"; |
76 push( @installer::globals::logfileinfo, $infoline); | 76 $installer::logger::Lang->print($infoline); |
77 } 78 else 79 { 80 $infoline = "SUCCESS: upx $filename!\n"; | 77 } 78 else 79 { 80 $infoline = "SUCCESS: upx $filename!\n"; |
81 push( @installer::globals::logfileinfo, $infoline); | 81 $installer::logger::Lang->print($infoline); |
82 } 83 84 return $returnvalue; 85} 86 87##################################################################### 88# Using upx to decrease file size 89##################################################################### 90 91sub upx_on_libraries 92{ 93 my ( $filelist, $languagestringref) = @_; 94 95 installer::logger::include_header_into_logfile("UPX'ing files:"); 96 my $infoline = ""; 97 98 if ( ! $installer::globals::upx_in_path ) 99 { | 82 } 83 84 return $returnvalue; 85} 86 87##################################################################### 88# Using upx to decrease file size 89##################################################################### 90 91sub upx_on_libraries 92{ 93 my ( $filelist, $languagestringref) = @_; 94 95 installer::logger::include_header_into_logfile("UPX'ing files:"); 96 my $infoline = ""; 97 98 if ( ! $installer::globals::upx_in_path ) 99 { |
100 $infoline = "\n\nWarning: This is an UPX product, but upx was not found in PATH!\n\n"; 101 push( @installer::globals::logfileinfo, $infoline); | 100 $installer::logger::Lang->print("\n"); 101 $installer::logger::Lang->print("\n"); 102 $installer::logger::Lang->print("Warning: This is an UPX product, but upx was not found in PATH!\n"); 103 $installer::logger::Lang->print("\n"); |
102 } 103 else 104 { 105 $infoline = "Using upx: $installer::globals::upxfile\n"; | 104 } 105 else 106 { 107 $infoline = "Using upx: $installer::globals::upxfile\n"; |
106 push( @installer::globals::logfileinfo, $infoline); | 108 $installer::logger::Lang->print($infoline); |
107 108 my $upxdirbase = installer::systemactions::create_directories("upx", $languagestringref); 109 110 if (! installer::existence::exists_in_array($upxdirbase, \@installer::globals::removedirs)) 111 { 112 push(@installer::globals::removedirs, $upxdirbase); 113 } 114 115 for ( my $i = 0; $i <= $#{$filelist}; $i++ ) 116 { 117 my $sourcefilename = ${$filelist}[$i]->{'sourcepath'}; 118 119 if ( is_upx_candidate($sourcefilename, ${$filelist}[$i]) ) 120 { 121 my $shortfilename = $sourcefilename; 122 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename); 123 | 109 110 my $upxdirbase = installer::systemactions::create_directories("upx", $languagestringref); 111 112 if (! installer::existence::exists_in_array($upxdirbase, \@installer::globals::removedirs)) 113 { 114 push(@installer::globals::removedirs, $upxdirbase); 115 } 116 117 for ( my $i = 0; $i <= $#{$filelist}; $i++ ) 118 { 119 my $sourcefilename = ${$filelist}[$i]->{'sourcepath'}; 120 121 if ( is_upx_candidate($sourcefilename, ${$filelist}[$i]) ) 122 { 123 my $shortfilename = $sourcefilename; 124 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename); 125 |
124 $infoline = "\nUpx: $shortfilename"; 125 push( @installer::globals::logfileinfo, $infoline); | 126 $installer::logger::Lang->print("\n"); 127 $installer::logger::Lang->printf("Upx: %s", $shortfilename); |
126 127 # copy file into directory for stripped libraries 128 my $onelanguage = ${$filelist}[$i]->{'specificlanguage'}; 129 130 # files without language into directory "00" 131 if ($onelanguage eq "") { $onelanguage = "00"; } 132 133 my $upxdir = $upxdirbase . $installer::globals::separator . $onelanguage; --- 19 unchanged lines hidden --- | 128 129 # copy file into directory for stripped libraries 130 my $onelanguage = ${$filelist}[$i]->{'specificlanguage'}; 131 132 # files without language into directory "00" 133 if ($onelanguage eq "") { $onelanguage = "00"; } 134 135 my $upxdir = $upxdirbase . $installer::globals::separator . $onelanguage; --- 19 unchanged lines hidden --- |