Kaydet (Commit) 247d1899 authored tarafından Tim Retout's avatar Tim Retout

installer::worker: Remove unused tar_package

Change-Id: I58e9efdda8fac5b65e259b63a5150c44fa00feb6
üst acaaf6c7
...@@ -1386,43 +1386,6 @@ sub put_license_into_setup ...@@ -1386,43 +1386,6 @@ sub put_license_into_setup
installer::files::save_file($setupfilename, $setupfile); installer::files::save_file($setupfilename, $setupfile);
} }
#########################################################
# Create a tar file from the binary package
#########################################################
sub tar_package
{
my ( $installdir, $packagename, $tarfilename, $getuidlibrary) = @_;
my $ldpreloadstring = "";
if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename > $tarfilename";
my $returnvalue = system($systemcall);
my $infoline = "Systemcall: $systemcall\n";
push( @installer::globals::logfileinfo, $infoline);
if ($returnvalue)
{
$infoline = "ERROR: Could not execute \"$systemcall\"!\n";
push( @installer::globals::logfileinfo, $infoline);
}
else
{
$infoline = "Success: Executed \"$systemcall\" successfully!\n";
push( @installer::globals::logfileinfo, $infoline);
}
chmod 0775, $tarfilename;
my $fulltarfile = $installdir . $installer::globals::separator . $tarfilename;
my $filesize = ( -s $fulltarfile );
return $filesize;
}
######################################################### #########################################################
# Collecting all pkgmap files from an installation set # Collecting all pkgmap files from an installation set
######################################################### #########################################################
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment