percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-21 11:30:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add a repose to --send-data --interactive.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-12 08:58:21 -07:00
parent f5d9fb08e1
commit b1d3238764
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
bin/pt-agent
View File

@@ -7258,11 +7258,16 @@ sub send_data {
my $key;
PROMPT:
while ( !$key ) {
print "Send $data_file [Ynq]: ";
$key = <STDIN>;
last DATA_FILE if $key =~ m/q/i;
next DATA_FILE if $key =~ m/n/i;
last PROMPT if $key =~ m/y/i;
print "Send $data_file [Ynaq]: ";
$key = lc(<STDIN>);
last DATA_FILE if $key eq 'q';
next DATA_FILE if $key eq 'n';
last PROMPT if $key eq 'y';
if ( $key eq 'a' ) {
print "Sending all remaining files...\n";
$interactive = 0;
last PROMPT;
}
warn "Invalid response: $key\n";
}
}