diff options
author | Tim Retout <tim@retout.co.uk> | 2012-09-27 19:22:32 +0100 |
---|---|---|
committer | Tim Retout <tim@retout.co.uk> | 2012-09-27 19:24:53 +0100 |
commit | 0ab561bffadad1eab9eb98c05106f4c0132ccb36 (patch) | |
tree | f4c64a3abadc2b792f11cd96fc3b292f6b496d91 /solenv/bin/modules/installer/systemactions.pm | |
parent | b45263ad292801fd4b32a2f5183508cf4ad7f885 (diff) |
installer: Move two copies of make_systemcall into systemactions.pm
Change-Id: I526fae59d28e75d27259867e3fc7e7c99be0d437
Diffstat (limited to 'solenv/bin/modules/installer/systemactions.pm')
-rw-r--r-- | solenv/bin/modules/installer/systemactions.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/solenv/bin/modules/installer/systemactions.pm b/solenv/bin/modules/installer/systemactions.pm index 702b6fedacb0..22d83fb6058b 100644 --- a/solenv/bin/modules/installer/systemactions.pm +++ b/solenv/bin/modules/installer/systemactions.pm @@ -1358,4 +1358,29 @@ sub remove_empty_dirs_in_folder } +###################################################### +# Making systemcall +###################################################### + +sub make_systemcall +{ + my ($systemcall) = @_; + + 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); + } +} + 1; |