From 204144d7315fad79c5adb5fa3f503ed4b2257a94 Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Wed, 9 Sep 2020 11:00:58 -0700
Subject: [PATCH] updates library pathing, using telnet

---
 attenuator_series.pl |  1 +
 lf_attenmod.pl       | 16 ++--------------
 2 files changed, 3 insertions(+), 14 deletions(-)

diff --git a/attenuator_series.pl b/attenuator_series.pl
index 8a850da2..84d485da 100755
--- a/attenuator_series.pl
+++ b/attenuator_series.pl
@@ -9,6 +9,7 @@ use diagnostics;
 use Carp;
 $SIG{__DIE__} = sub{Carp::confess(@_)};
 use Getopt::Long;
+use lib '/home/lanforge/scripts';
 use Net::Telnet;
 use Time::HiRes qw(usleep);
 use LANforge::Utils;
diff --git a/lf_attenmod.pl b/lf_attenmod.pl
index 4011765b..f1172ddf 100755
--- a/lf_attenmod.pl
+++ b/lf_attenmod.pl
@@ -13,12 +13,10 @@ use strict;
 # Un-buffer output
 $| = 1;
 
+use lib '/home/lanforge/scripts';
 use LANforge::Utils;
-
 use Net::Telnet ();
-
 use Getopt::Long;
-
 my $shelf_num = 1;
 
 # Default values for ye ole cmd-line args.
@@ -101,19 +99,9 @@ if ($action eq "set_atten") {
 }
 
 # Open connection to the LANforge server.
-
-my $t = new Net::Telnet(Prompt => '/default\@btbits\>\>/',
-			Timeout => 20);
-
-$t->open(Host    => $lfmgr_host,
-	 Port    => $lfmgr_port,
-	 Timeout => 10);
-
-$t->waitfor("/btbits\>\>/");
-
 # Configure our utils.
 my $utils = new LANforge::Utils();
-$utils->telnet($t);         # Set our telnet object.
+$utils->connect($lfmgr_host, $lfmgr_port);
 if ($quiet eq "yes") {
   $utils->cli_send_silent(1); # Do show input to CLI
   $utils->cli_rcv_silent(1);  # Repress output from CLI ??