diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-02-16 23:02:22 +0000 |
|---|---|---|
| committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-17 14:28:34 +0000 |
| commit | 2492b26bb705a5c85b87386cd18aa57b3ed3c68d (patch) | |
| tree | 8edf8edd5e0140599fc3c2a299cb91fd31663805 /solenv/bin/modules | |
| parent | 8b389383dcc56048605cef7c430ee58687b12986 (diff) | |
Remove unused unpack_all_targzfiles_in_directory from installer::worker
Diffstat (limited to 'solenv/bin/modules')
| -rw-r--r-- | solenv/bin/modules/installer/worker.pm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/solenv/bin/modules/installer/worker.pm b/solenv/bin/modules/installer/worker.pm index 7dbe0d464435..702e366d1774 100644 --- a/solenv/bin/modules/installer/worker.pm +++ b/solenv/bin/modules/installer/worker.pm @@ -45,44 +45,6 @@ use installer::scriptitems; use installer::systemactions; use installer::windows::language; -##################################################################### -# Unpacking all files ending with tar.gz in a specified directory -##################################################################### - -sub unpack_all_targzfiles_in_directory -{ - my ( $directory ) = @_; - - installer::logger::include_header_into_logfile("Unpacking tar.gz files:"); - - installer::logger::print_message( "... unpacking tar.gz files ... \n" ); - - my $localdirectory = $directory . $installer::globals::separator . "packages"; - my $alltargzfiles = installer::systemactions::find_file_with_file_extension("tar.gz", $localdirectory); - - for ( my $i = 0; $i <= $#{$alltargzfiles}; $i++ ) - { - my $onefile = $localdirectory . $installer::globals::separator . ${$alltargzfiles}[$i]; - - my $systemcall = "cd $localdirectory; cat ${$alltargzfiles}[$i] \| gunzip \| tar -xf -"; - $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); - } - } -} - ################################################# # Writing some global information into # the list of files without flag PATCH |