percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-19 10:34:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix disabling services in stop_agent().

Browse Source
This commit is contained in:
Daniel Nichter
2013-04-09 18:29:17 -06:00
parent c246bf12f3
commit efdfa0fdef
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bin/pt-agent
View File

@@ -4767,6 +4767,7 @@ use Time::HiRes qw(sleep time);
use JSON qw(decode_json); use JSON qw(decode_json);
use File::Temp qw(tempfile); use File::Temp qw(tempfile);
use File::Path; use File::Path;
use File::Basename;
use FindBin; use FindBin;
use Percona::Toolkit; use Percona::Toolkit;
@@ -6456,13 +6457,15 @@ sub stop_agent {
_info("Disabling all services (clean up)..."); _info("Disabling all services (clean up)...");
SERVICE: SERVICE:
foreach my $service ( glob "$lib_dir/services/disable-*" ) { foreach my $file ( glob "$lib_dir/services/disable-*" ) {
my $service = basename($file);
my $disable_log = "$lib_dir/logs/$service.stop"; my $disable_log = "$lib_dir/logs/$service.stop";
my $cmd = ($env_vars ? "$env_vars " : '') my $cmd = ($env_vars ? "$env_vars " : '')
. "${bin_dir}pt-agent --run-service $service" . "${bin_dir}pt-agent --run-service $service"
. " </dev/null" . " </dev/null"
. " >$disable_log 2>&1"; . " >$disable_log 2>&1";
_info("Disabling $service service..."); _info("Disabling $service service...");
PTDEBUG && _d($cmd);
system($cmd); system($cmd);
my $cmd_exit_status = $CHILD_ERROR >> 8; my $cmd_exit_status = $CHILD_ERROR >> 8;
if ( $cmd_exit_status != 0 ) { if ( $cmd_exit_status != 0 ) {