|
|
|
@ -3,6 +3,7 @@ |
|
|
|
|
use strict; |
|
|
|
|
use warnings; |
|
|
|
|
use esmith::ConfigDB; |
|
|
|
|
use esmith::util; |
|
|
|
|
|
|
|
|
|
my $c = esmith::ConfigDB->open_ro || die "Couldn't open the configuration database\n"; |
|
|
|
|
my @fpms = qw( |
|
|
|
@ -16,12 +17,11 @@ my @fpms = qw( |
|
|
|
|
# so if we move a pool from one version to another, we won't have a socket conflict |
|
|
|
|
|
|
|
|
|
foreach my $fpm (@fpms){ |
|
|
|
|
my $service = $c->get($fpm); |
|
|
|
|
esmith::util::serviceControl( |
|
|
|
|
NAME => $fpm, |
|
|
|
|
ACTION => 'stop', |
|
|
|
|
BACKGROUND => 'false') |
|
|
|
|
or die "Unable to stop $fpm\n"; |
|
|
|
|
or warn "Unable to stop $fpm\n"; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
foreach my $fpm (@fpms){ |
|
|
|
|