diff options
| author | Jordan Ayers <jordan.ayers@gmail.com> | 2011-08-28 12:41:53 -0500 |
|---|---|---|
| committer | Norbert Thiebaud <nthiebaud@gmail.com> | 2011-08-28 16:41:49 -0500 |
| commit | 33a9d32107d35f8995caa2f6182427202fec17da (patch) | |
| tree | 3be8dbf63962afd9f8844584b7e67798348596ae /solenv | |
| parent | f64ca4c4273c2c281519020e1af7c70fe1d4cee2 (diff) | |
Remove unused perl function.
Remove installer::download::create_tar_gz_file_from_package, which has not been used
since the integration of CWS rt30_DEV300 in 2008.
Diffstat (limited to 'solenv')
| -rw-r--r-- | solenv/bin/modules/installer/download.pm | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/solenv/bin/modules/installer/download.pm b/solenv/bin/modules/installer/download.pm index a21fdad0bb62..c647740cde2e 100644 --- a/solenv/bin/modules/installer/download.pm +++ b/solenv/bin/modules/installer/download.pm @@ -344,74 +344,6 @@ sub tar_package } ######################################################### -# Creating a tar.gz file -######################################################### - -sub create_tar_gz_file_from_package -{ - my ($installdir, $getuidlibrary) = @_; - - my $infoline = ""; - my $alldirs = installer::systemactions::get_all_directories($installdir); - my $onedir = ${$alldirs}[0]; - $installdir = $onedir; - - my $allfiles = installer::systemactions::get_all_files_from_one_directory($installdir); - - for ( my $i = 0; $i <= $#{$allfiles}; $i++ ) - { - my $onefile = ${$allfiles}[$i]; - my $systemcall = "cd $installdir; rm $onefile"; - my $returnvalue = system($systemcall); - - $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); - } - } - - $alldirs = installer::systemactions::get_all_directories($installdir); - $packagename = ${$alldirs}[0]; # only taking the first Solaris package - if ( $packagename eq "" ) { installer::exiter::exit_program("ERROR: Could not find package in directory $installdir!", "determine_packagename"); } - - installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packagename); - - $installer::globals::downloadfileextension = ".tar.gz"; - my $targzname = $packagename . $installer::globals::downloadfileextension; - $installer::globals::downloadfilename = $targzname; - my $ldpreloadstring = ""; - if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } - - $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename | gzip > $targzname"; - print "... $systemcall ...\n"; - - my $returnvalue = system($systemcall); - - $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); - } -} - -######################################################### # Setting type of installation ######################################################### |