download.pm (5db3c157) | download.pm (e250bff1) |
---|---|
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 = $ENV{'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 = $ENV{'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) --- 409 unchanged lines hidden (view full) --- 790 my ($installdir, $getuidlibrary, $downloaddir, $downloadfilename) = @_; 791 792 my $packdir = $installdir; 793 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packdir); 794 my $changedir = $installdir; 795 installer::pathanalyzer::get_path_from_fullqualifiedname(\$changedir); 796 797 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) --- 409 unchanged lines hidden (view full) --- 801 my ($installdir, $getuidlibrary, $downloaddir, $downloadfilename) = @_; 802 803 my $packdir = $installdir; 804 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packdir); 805 my $changedir = $installdir; 806 installer::pathanalyzer::get_path_from_fullqualifiedname(\$changedir); 807 808 my $ldpreloadstring = ""; |
798 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } | |
799 | 809 |
810 if ($ENV{'FAKEROOT'} ne "no") { 811 $ldpreloadstring = $ENV{'FAKEROOT'}; 812 } else { 813 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } 814 } 815 |
|
800 $installer::globals::downloadfileextension = ".tar.gz"; 801 $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension; 802 my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename; 803 804 my $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname"; 805 806 my $returnvalue = system($systemcall); 807 --- 1238 unchanged lines hidden --- | 816 $installer::globals::downloadfileextension = ".tar.gz"; 817 $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension; 818 my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename; 819 820 my $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname"; 821 822 my $returnvalue = system($systemcall); 823 --- 1238 unchanged lines hidden --- |