diff options
| -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; |