diff options
| author | Your Name <you@example.com> | 2020-10-13 15:01:12 +0100 |
|---|---|---|
| committer | Your Name <you@example.com> | 2020-10-13 15:01:12 +0100 |
| commit | 62e233aee5b96d71c12e92c89e58e73676f1b9ee (patch) | |
| tree | 41433d24e48ef0ab0c356737dbbc48543f70ef36 | |
| parent | 59ba564e5b38ddf7074f40ebfa97b5992aa167ee (diff) | |
| download | inf-62e233aee5b96d71c12e92c89e58e73676f1b9ee.tar.gz inf-62e233aee5b96d71c12e92c89e58e73676f1b9ee.tar.bz2 inf-62e233aee5b96d71c12e92c89e58e73676f1b9ee.zip | |
add.telnet.port
| -rw-r--r-- | INF/Cyclades.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/INF/Cyclades.pm b/INF/Cyclades.pm index 6d6f207..e058af5 100644 --- a/INF/Cyclades.pm +++ b/INF/Cyclades.pm @@ -229,6 +229,7 @@ sub new ($;$) { $self->{host} = $parm->{host} || "redbus-ms20.mythic-beasts.com"; $self->{username} = $parm->{username} || "admin"; $self->{password} = $parm->{password} || "pm8"; + $self->{port} = $parm->{port} || "23"; if ( $self->{host} =~ /^(.*):(.*)$/ ) { $self->{iphost} = $1; @@ -250,7 +251,9 @@ sub new ($;$) { $self = bless $self, $class; - $self->{telnet}->open( $self->{iphost} ); + $self->{telnet}->open( Host => $self->{iphost}, + Port => $self->{port} + ); unless ( $self->sync ) { $self->{telnet}->close; |