diff options
author | Knut Auvor Grythe <knut@auvor.no> | 2015-03-31 16:04:44 +0200 |
---|---|---|
committer | Knut Auvor Grythe <knut@auvor.no> | 2015-03-31 16:04:44 +0200 |
commit | 69747efcf8aca1a3c1241eb126bf0d0e27b8af05 (patch) | |
tree | e7a86213e402f9f6a4e42584b17104e6b5e418b0 /include/nms.pm | |
parent | aef116e3b3644f2b86b8c34150bb19fe5afe669f (diff) |
clean up juniper-ssh code
Diffstat (limited to 'include/nms.pm')
-rwxr-xr-x | include/nms.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/include/nms.pm b/include/nms.pm index 479e013..589f7f0 100755 --- a/include/nms.pm +++ b/include/nms.pm @@ -10,7 +10,7 @@ use FileHandle; package nms; use base 'Exporter'; -our @EXPORT = qw(switch_disconnect switch_connect_ssh switch_connect switch_exec switch_timeout db_connect); +our @EXPORT = qw(switch_disconnect switch_connect_ssh switch_connect_dlink switch_exec switch_timeout db_connect); BEGIN { require "config.pm"; @@ -75,7 +75,7 @@ sub switch_connect_ssh($) { return { telnet => $telnet, ssh => $ssh, pid => $pid, pty => $pty }; } -sub switch_connect($) { +sub switch_connect_dlink($) { my ($ip) = @_; my $dumplog = FileHandle->new; @@ -110,7 +110,7 @@ sub switch_connect($) { $conn->cmd($nms::config::tacacs_pass); } } - return ($conn); + return { telnet => $conn }; } # Send a command to switch and return the data recvied from the switch |