worker.pm (86e1cf34) worker.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

--- 3185 unchanged lines hidden (view full) ---

3194# Create a tar file from the binary package
3195#########################################################
3196
3197sub tar_package
3198{
3199 my ( $installdir, $packagename, $tarfilename, $getuidlibrary) = @_;
3200
3201 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

--- 3185 unchanged lines hidden (view full) ---

3194# Create a tar file from the binary package
3195#########################################################
3196
3197sub tar_package
3198{
3199 my ( $installdir, $packagename, $tarfilename, $getuidlibrary) = @_;
3200
3201 my $ldpreloadstring = "";
3202 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
3203
3202
3203 if ($ENV{'FAKEROOT'} ne "no") {
3204 $ldpreloadstring = "fakeroot"
3205 } else {
3206 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
3207 }
3208
3204 my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename > $tarfilename";
3205 # my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - * > $tarfilename";
3206
3207 my $returnvalue = system($systemcall);
3208
3209 my $infoline = "Systemcall: $systemcall\n";
3210 $installer::logger::Lang->print($infoline);
3211

--- 21 unchanged lines hidden (view full) ---

3233# Create a tar file from the binary package
3234#########################################################
3235
3236sub untar_package
3237{
3238 my ( $installdir, $tarfilename, $getuidlibrary) = @_;
3239
3240 my $ldpreloadstring = "";
3209 my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename > $tarfilename";
3210 # my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - * > $tarfilename";
3211
3212 my $returnvalue = system($systemcall);
3213
3214 my $infoline = "Systemcall: $systemcall\n";
3215 $installer::logger::Lang->print($infoline);
3216

--- 21 unchanged lines hidden (view full) ---

3238# Create a tar file from the binary package
3239#########################################################
3240
3241sub untar_package
3242{
3243 my ( $installdir, $tarfilename, $getuidlibrary) = @_;
3244
3245 my $ldpreloadstring = "";
3241 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
3242
3246
3247 if ($ENV{'FAKEROOT'} ne "no") {
3248 $ldpreloadstring = "fakeroot"
3249 } else {
3250 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
3251 }
3252
3243 my $systemcall = "cd $installdir; $ldpreloadstring tar -xf $tarfilename";
3244
3245 my $returnvalue = system($systemcall);
3246
3247 my $infoline = "Systemcall: $systemcall\n";
3248 $installer::logger::Lang->print($infoline);
3249
3250 if ($returnvalue)

--- 204 unchanged lines hidden --- 		3253 my $systemcall = "cd $installdir; $ldpreloadstring tar -xf $tarfilename";
3254
3255 my $returnvalue = system($systemcall);
3256
3257 my $infoline = "Systemcall: $systemcall\n";
3258 $installer::logger::Lang->print($infoline);
3259
3260 if ($returnvalue)

--- 204 unchanged lines hidden ---