warn "\n## ssh $ip\n";
my $ssh = Net::OpenSSH->new($ip, user => $login, passwd => $passwd,
ssh_cmd => '/usr/bin/ssh1', # apt-get install openssh-client-ssh1
- master_opts => [ -o => "StrictHostKeyChecking=no", ],
- default_ssh_opts => [ -o => "StrictHostKeyChecking=no", ],
+ master_opts => [
+ -o => "StrictHostKeyChecking=no",
+ -F => '/home/dpavlin/dell-switch/ssh1-config'
+ ],
+ default_ssh_opts => [
+ -o => "StrictHostKeyChecking=no",
+ -F => '/home/dpavlin/dell-switch/ssh1-config'
+ ],
);
my ($pty ,$pid) = $ssh->open2pty();
if ( ! $pty ) {
} elsif ( $buff =~ m/Password:/ ) {
send_pty "$passwd\n";
$buff = '';
- } elsif ( $buff =~ m/([\w\-\(\)]+)#$/ ) {
+ } elsif ( $buff =~ m/[\n\r]([\w\-\(\)]+)#$/ ) {
my $hostname = $1;
if ( $buff ) {
save_log $ip, $hostname, $command, $buff;