From 8b020f1f87a6f042b602fe7fc3b1d704c3954e91 Mon Sep 17 00:00:00 2001
From: mattf <mattf@3d104415-ff17-0410-8863-d5cf3c621b8a>
Date: Thu, 21 Sep 2017 22:36:21 +0000
Subject: [PATCH] Added note about required version of Perl module Net Telnet
 3.0.4. Must upgrade if using version older than April 21, 2013. Disabled
 telnet logging in two of the new AMI2 scripts

git-svn-id: svn://192.168.202.10@2818 3d104415-ff17-0410-8863-d5cf3c621b8a
---
 agc_2-X/trunk/UPGRADE                        | 4 ++++
 agc_2-X/trunk/bin/AST_manager_listen_AMI2.pl | 2 +-
 agc_2-X/trunk/bin/AST_update_AMI2.pl         | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/agc_2-X/trunk/UPGRADE b/agc_2-X/trunk/UPGRADE
index 3d0f2612..60f373a0 100644
--- a/agc_2-X/trunk/UPGRADE
+++ b/agc_2-X/trunk/UPGRADE
@@ -200,6 +200,10 @@ OTHER CHANGES:
 48. Added System Settings option to set lists to inactive once they pass their
 	expiration date
 
+49. NEW REQUIREMENT!!! Perl CPAN Net::Telnet version 3.0.4(April 21, 2013)
+	If you are using an older Net::Telnet version, you will need to upgrade!
+	this should take just two commands: "cpan" and "install Net::Telnet"
+
 
 
 
diff --git a/agc_2-X/trunk/bin/AST_manager_listen_AMI2.pl b/agc_2-X/trunk/bin/AST_manager_listen_AMI2.pl
index de9f7e18..1f2f5fef 100644
--- a/agc_2-X/trunk/bin/AST_manager_listen_AMI2.pl
+++ b/agc_2-X/trunk/bin/AST_manager_listen_AMI2.pl
@@ -195,7 +195,7 @@ $tn = new Net::Telnet (
 );
 
 $LItelnetlog = "$PATHlogs/listen_telnet_log.txt";  # uncomment for telnet log
-$fh = $tn->dump_log("$LItelnetlog");  # uncomment for telnet log
+#$fh = $tn->dump_log("$LItelnetlog");  # uncomment for telnet log
 if (length($ASTmgrUSERNAMElisten) > 3) {$telnet_login = $ASTmgrUSERNAMElisten;}
 else {$telnet_login = $ASTmgrUSERNAME;}
 $tn->open("$telnet_host"); 
diff --git a/agc_2-X/trunk/bin/AST_update_AMI2.pl b/agc_2-X/trunk/bin/AST_update_AMI2.pl
index eed1da46..840c1a54 100644
--- a/agc_2-X/trunk/bin/AST_update_AMI2.pl
+++ b/agc_2-X/trunk/bin/AST_update_AMI2.pl
@@ -232,7 +232,7 @@ $tn = new Net::Telnet (
 );
 
 $UPtelnetlog = "$PATHlogs/update_telnet_log.txt";  # uncomment for telnet log
-$fh = $tn->dump_log("$UPtelnetlog");  # uncomment for telnet log
+#$fh = $tn->dump_log("$UPtelnetlog");  # uncomment for telnet log
 
 if (length($ASTmgrUSERNAMEupdate) > 3) {$telnet_login = $ASTmgrUSERNAMEupdate;}
 else {$telnet_login = $ASTmgrUSERNAME;}