diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-02-16 22:52:08 +0000 |
|---|---|---|
| committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-17 14:28:32 +0000 |
| commit | 0aeeebe5174aae79b9835362998c617f3e19f219 (patch) | |
| tree | 1aa36ff7a6a7b4925436751c9e9c5df4c5bc4632 /solenv/bin/modules/installer/download.pm | |
| parent | 76ffd9e6bfc763f000045c12758f149b6dbbf299 (diff) | |
Remove unused md5sum subs from installer::download
Diffstat (limited to 'solenv/bin/modules/installer/download.pm')
| -rw-r--r-- | solenv/bin/modules/installer/download.pm | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/solenv/bin/modules/installer/download.pm b/solenv/bin/modules/installer/download.pm index 5f186b7be9d8..facdd160b7d9 100644 --- a/solenv/bin/modules/installer/download.pm +++ b/solenv/bin/modules/installer/download.pm @@ -157,70 +157,6 @@ sub put_checksum_and_size_into_script } ######################################################### -# Calling md5sum -######################################################### - -sub call_md5sum -{ - my ($filename) = @_; - - $md5sumfile = "/usr/bin/md5sum"; - - if ( ! -f $md5sumfile ) { installer::exiter::exit_program("ERROR: No file /usr/bin/md5sum", "call_md5sum"); } - - my $systemcall = "$md5sumfile $filename |"; - - my $md5sumoutput = ""; - - open (SUM, "$systemcall"); - $md5sumoutput = <SUM>; - close (SUM); - - my $returnvalue = $?; # $? contains the return value of the 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); - } - - return $md5sumoutput; -} - -######################################################### -# Calling md5sum -######################################################### - -sub get_md5sum -{ - ($md5sumoutput) = @_; - - my $md5sum; - - if ( $md5sumoutput =~ /^\s*(\w+?)\s+/ ) - { - $md5sum = $1; - } - else - { - installer::exiter::exit_program("ERROR: Incorrect return value from /usr/bin/md5sum: $md5sumoutput", "get_md5sum"); - } - - my $infoline = "Setting md5sum: $md5sum\n"; - push( @installer::globals::logfileinfo, $infoline); - - return $md5sum; -} - -######################################################### # Determining checksum and size of tar file ######################################################### |