diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-02-16 22:58:01 +0000 |
|---|---|---|
| committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-17 14:28:33 +0000 |
| commit | 2efa9f5124297137fb4d90d85feb67772163ea34 (patch) | |
| tree | 23398747805dd02afa817e0678a5556976fce9cb /solenv/bin/modules | |
| parent | ce7c5a60622aa797d9e90cdb7bda13ca9744b510 (diff) | |
Remove unused install_sets subs from installer::worker
Diffstat (limited to 'solenv/bin/modules')
| -rw-r--r-- | solenv/bin/modules/installer/worker.pm | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/solenv/bin/modules/installer/worker.pm b/solenv/bin/modules/installer/worker.pm index 5bc052f78ab9..ca4a34a31b85 100644 --- a/solenv/bin/modules/installer/worker.pm +++ b/solenv/bin/modules/installer/worker.pm @@ -84,86 +84,6 @@ sub unpack_all_targzfiles_in_directory } ######################################### -# Copying installation sets to ship -######################################### - -sub copy_install_sets_to_ship -{ - my ( $destdir, $shipinstalldir ) = @_; - - installer::logger::include_header_into_logfile("Copying installation set to ship:"); - - my $dirname = $destdir; - installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$dirname); - $dirname = $dirname . "_inprogress"; - my $localshipinstalldir = $shipinstalldir . $installer::globals::separator . $dirname; - if ( ! -d $localshipinstalldir ) { installer::systemactions::create_directory_structure($localshipinstalldir); } - - # copy installation set to /ship ($localshipinstalldir) - installer::logger::print_message( "... copy installation set from " . $destdir . " to " . $localshipinstalldir . "\n" ); - installer::systemactions::copy_complete_directory($destdir, $localshipinstalldir); - - # unpacking the tar.gz file for Solaris - if ( $installer::globals::issolarisbuild ) { unpack_all_targzfiles_in_directory($localshipinstalldir); } - - $localshipinstalldir = installer::systemactions::rename_string_in_directory($localshipinstalldir, "_inprogress", ""); - - return $localshipinstalldir; -} - -######################################### -# Copying installation sets to ship -######################################### - -sub link_install_sets_to_ship -{ - my ( $destdir, $shipinstalldir ) = @_; - - installer::logger::include_header_into_logfile("Linking installation set to ship:"); - - my $infoline = "... destination directory: $shipinstalldir ...\n"; - installer::logger::print_message( $infoline ); - push( @installer::globals::logfileinfo, $infoline); - - if ( ! -d $shipinstalldir) - { - $infoline = "Creating directory: $shipinstalldir\n"; - push( @installer::globals::logfileinfo, $infoline); - installer::systemactions::create_directory_structure($shipinstalldir); - $infoline = "Created directory: $shipinstalldir\n"; - push( @installer::globals::logfileinfo, $infoline); - } - - my $dirname = $destdir; - installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$dirname); - - my $localshipinstalldir = $shipinstalldir . $installer::globals::separator . $dirname; - - # link installation set to /ship ($localshipinstalldir) - installer::logger::print_message( "... linking installation set from " . $destdir . " to " . $localshipinstalldir . "\n" ); - - my $systemcall = "ln -s $destdir $localshipinstalldir"; - - $returnvalue = system($systemcall); - - $infoline = "Systemcall: $systemcall\n"; - push( @installer::globals::logfileinfo, $infoline); - - if ($returnvalue) - { - $infoline = "ERROR: Could not create link \"$localshipinstalldir\"!\n"; - push( @installer::globals::logfileinfo, $infoline); - } - else - { - $infoline = "Success: Created link \"$localshipinstalldir\"!\n"; - push( @installer::globals::logfileinfo, $infoline); - } - - return $localshipinstalldir; -} - -######################################### # Create checksum file ######################################### |