package NE;
use base 'Expect';

# from Net::Telnet::Cisco
$prompt = qr/(?m:^[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/;

sub cmd {
	my ( $exp, $cmd ) = @_;
	$exp->print($cmd, "\n");
	$exp->expect( 10, -re => $prompt )
	  or return;
	$out = $exp->before;
	$match = $exp->match;
	$out =~ s/^$cmd\r?\n//;
	return $out;
}

sub login {
	my ( $exp, $user, $pass ) = @_;
	$exp->expect( 10,
		[ qr/[Pp]assword:\s*/, sub { my $exp = shift;
			$exp->print($pass, "\n");
			exp_continue;
		}],
		[ qr/[Uu]sername:\s*/, sub { my $exp = shift;
			$exp->print($user, "\n");
			exp_continue;
		}],
		-re => $prompt,
	);
}

sub enable {
	my ( $exp, $pass ) = @_;
	$exp->print("enable", "\n");
	$exp->login( '', $pass );
}


package main;
#$Expect::Debug = 1;
$Expect::Log_Stdout = 0;

my $exp = NE->new();

$exp->spawn(qw| /usr/bin/ssh -2 -l admin myrouter |)
  or die "spawn: $!\n";

$exp->login( '', "******" );
$exp->enable( "**********" );

my ( $out );
$exp->cmd( "terminal length 0" );
( $out ) = $exp->cmd( "show running-config" );
print $out;
$exp->cmd( "exit" );
$exp->soft_close();

exit;