support prompt for copy running-config startup-config

Author: dpavlin

dell-switch.pl

@@ -130,7 +130,7 @@ sub save_log {
 			$buff = '';
 		}
 
-		warn "# commands_while = ",dump( \@commands_while );
+		#warn "# commands_while = ",dump( \@commands_while );
 
 	} elsif ( $buff =~ s{More: <space>,  Quit: q.*One line: <return>\s*}{} ) {
 		send_pty " ";
@@ -151,6 +151,10 @@ sub save_log {
 		warn "\nRELOAD detected\n";
 		sleep 0.5;
 		send_pty 'y';
+	} elsif ( $buff =~ s{\QAre you sure you want to save? (y/n)\E}{}s ) { # copy running-config startup-config
+		warn "\nCOPY detected\n";
+		sleep 0.5;
+		send_pty 'y';
 	} elsif ( $buff =~ m{MikroTik RouterOS} ) {
 		warn "\nERROR: don't know how to talk to MicroTik - ABORTING";
 		exit 0;