From b1d32387645e75ea957e7601f4cac18745bdc0b6 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Wed, 12 Jun 2013 08:58:21 -0700
Subject: [PATCH] Add a repose to --send-data --interactive.

---
 bin/pt-agent | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index 20061dff..02278592 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -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";
          }
       }