download.pm (c974372a) | download.pm (f827b318) |
---|---|
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 --- 289 unchanged lines hidden (view full) --- 298# Create a tar file from the binary package 299######################################################### 300 301sub tar_package 302{ 303 my ( $installdir, $tarfilename, $getuidlibrary) = @_; 304 305 my $ldpreloadstring = ""; | 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 --- 289 unchanged lines hidden (view full) --- 298# Create a tar file from the binary package 299######################################################### 300 301sub tar_package 302{ 303 my ( $installdir, $tarfilename, $getuidlibrary) = @_; 304 305 my $ldpreloadstring = ""; |
306 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } | |
307 | 306 |
307 if ($ENV{'FAKEROOT'} ne "no") { 308 $ldpreloadstring = "fakeroot" 309 } else { 310 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } 311 } 312 |
|
308 my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - * > $tarfilename"; 309 310 my $returnvalue = system($systemcall); 311 312 $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall); 313 314 if ($returnvalue) 315 { --- 46 unchanged lines hidden (view full) --- 362 my $packagename = ${$alldirs}[0]; # only taking the first Solaris package 363 if ( $packagename eq "" ) { installer::exiter::exit_program("ERROR: Could not find package in directory $installdir!", "determine_packagename"); } 364 365 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packagename); 366 367 $installer::globals::downloadfileextension = ".tar.gz"; 368 my $targzname = $packagename . $installer::globals::downloadfileextension; 369 $installer::globals::downloadfilename = $targzname; | 313 my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - * > $tarfilename"; 314 315 my $returnvalue = system($systemcall); 316 317 $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall); 318 319 if ($returnvalue) 320 { --- 46 unchanged lines hidden (view full) --- 367 my $packagename = ${$alldirs}[0]; # only taking the first Solaris package 368 if ( $packagename eq "" ) { installer::exiter::exit_program("ERROR: Could not find package in directory $installdir!", "determine_packagename"); } 369 370 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packagename); 371 372 $installer::globals::downloadfileextension = ".tar.gz"; 373 my $targzname = $packagename . $installer::globals::downloadfileextension; 374 $installer::globals::downloadfilename = $targzname; |
375 |
|
370 my $ldpreloadstring = ""; | 376 my $ldpreloadstring = ""; |
371 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } | |
372 | 377 |
378 if ($ENV{'FAKEROOT'} ne "no") { 379 $ldpreloadstring = "fakeroot" 380 } else { 381 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } 382 } 383 |
|
373 my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename | gzip > $targzname"; 374 $installer::logger::Info->printf("... %s ...\n", $systemcall); 375 376 my $returnvalue = system($systemcall); 377 378 $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall); 379 380 if ($returnvalue) --- 402 unchanged lines hidden (view full) --- 783 my ($installdir, $getuidlibrary, $downloaddir, $downloadfilename) = @_; 784 785 my $packdir = $installdir; 786 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packdir); 787 my $changedir = $installdir; 788 installer::pathanalyzer::get_path_from_fullqualifiedname(\$changedir); 789 790 my $ldpreloadstring = ""; | 384 my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename | gzip > $targzname"; 385 $installer::logger::Info->printf("... %s ...\n", $systemcall); 386 387 my $returnvalue = system($systemcall); 388 389 $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall); 390 391 if ($returnvalue) --- 402 unchanged lines hidden (view full) --- 794 my ($installdir, $getuidlibrary, $downloaddir, $downloadfilename) = @_; 795 796 my $packdir = $installdir; 797 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packdir); 798 my $changedir = $installdir; 799 installer::pathanalyzer::get_path_from_fullqualifiedname(\$changedir); 800 801 my $ldpreloadstring = ""; |
791 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } | |
792 | 802 |
803 if ($ENV{'FAKEROOT'} ne "no") { 804 $ldpreloadstring = "fakeroot" 805 } else { 806 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } 807 } 808 |
|
793 $installer::globals::downloadfileextension = ".tar.gz"; 794 $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension; 795 my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename; 796 797 my $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname"; 798 799 my $returnvalue = system($systemcall); 800 --- 1237 unchanged lines hidden --- | 809 $installer::globals::downloadfileextension = ".tar.gz"; 810 $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension; 811 my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename; 812 813 my $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname"; 814 815 my $returnvalue = system($systemcall); 816 --- 1237 unchanged lines hidden --- |