From 62e233aee5b96d71c12e92c89e58e73676f1b9ee Mon Sep 17 00:00:00 2001
From: Your Name <you@example.com>
Date: Tue, 13 Oct 2020 15:01:12 +0100
Subject: add.telnet.port

---
 INF/Cyclades.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.3