use strict;
use Expect;

my $exp;
sub sshGatewayLogin;
sub getRtrinfo;

{
	my %rtrList;
	$rtrList{chicago}{RTR}{R1}{IP} 			= '114.1.2.3';
	$rtrList{chicago}{RTR}{R1}{PROMPT} 		= 'chicago-R1';
	
	$rtrList{stlouis}{RTR}{R1}{IP} 			= '114.1.12.3';
	$rtrList{stlouis}{RTR}{R1}{PROMPT} 		= 'stlouisR1';
	
	sshGateway;
	foreach my $rtr (sort keys %rtrList) {
		getRtrInfo($rtr,\%rtrList);
	}
	
	$exp->soft_close();
}
#-------------------------------------------------------------------------------
sub sshGatewayLogin {

	my $server 		= '110.10.10.2';
	my $username	= 'access';
	my $pwd			= 'xyz123';
	my $port		= 10568;
	my $cmd;
	my $timeout;
	my $before;
	my $after;
	
	#ssh to the gateway
	$cmd = "ssh $username\@$server -p $port";
	print "dbg: cmd=$cmd\n";
	
	$exp = Expect->spawn("$cmd") or die "Cannot spawn ssh command = $cmd\n";
	$exp->log_user(0);
	$exp->expect(30, -re, 'password');
	$exp->send("$pwd\n");
	$exp->expect(20,"\$ ");

}
#-------------------------------------------------------------------------------
sub getRtrInfo {
	my ($rtr, $rtrList) = @_;
	
	my $cmd;
	my $pwd = 'pqr456';

	#ssh to the router
	$cmd = 'ssh -o stricthostkeychecking=ask admin@' . $rtrList->{$rtr}{RTR}{R1}{IP};
	print "dbg: $cmd\n";
	$exp->expect(30, -re, 'password');
	$exp->send("$pwd\n");
	$exp->log_file("$rtrList->{$rtr}{RTR}{R1}{PROMPT}.txt");
	$exp->expect(30,-re, $rtrList->{$rtr}{RTR}{R1}{PROMPT});
	$exp->send("show version\n");
	$exp->expect(300,-re,$rtrList->{$rtr}{RTR}{R1}{PROMPT});
	$exp->log_file(undef);
}