This package implements the sending and collection of TL1 messages to and from a Telnet (or telnet-like) connection via use of Net::Telnet. Technically, it 'inherits' from TL1ng::Source. If Perl supported proper OO interfaces, that would mean it implements methods _read_msg() and _send_cmd() and timeout() (it does, as should any class 'implementing' TL1ng::Source)
Any other methods are specific to the particular type of 'Source'. Therefore, a calling script or a device-specific subclass of TL1ng that may use them should always check the isa() and/or the can() of $tll->source() before-hand.
Initalizes the object used to manage the telnet connection to a TL1 NE/GNE.
TODO: Add info on the valid parameters.
Reads a TL1 message from the connection to the NE and returns it as a multi-line string.
my $msg = $tl1->_read_msg();
Connects to the TL1 port using Telnet. The settings for the session are usually set when creating the object (via new). Dies if the connection fails.<BR> <BR> I may change this method drastically in the future.
Use this to determine if the module is still connected to the TL1 data source.
my $status = $tl1->connected();
Close the connection to the TL1 data source. Always returns 1.
Use this to set or get the amount of time this module will wait for input from the Telnet connection. See documentation on timeout() for the Net::Telnet module on CPAN for more info on valid values. When getting (no parameter passed), returns the current timeout value. When setting, returns $self.
# Get value my $timeout = $tl1->timeout(); # Set value (returns $tl1, for chaining) $tl1->timeout($timeout);
Some TL1 NE/GNE devices *really* don't like it when the connection isn't properly terminated. Therefore, the destructor helps prevent that from happening by calling disconnect().
Sets or gets the hostname or IP address to connect to with Net::Telnet.
Sets or gets the TCP port to connect to with Net::Telnet.