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;}