Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: telnet in a script
Top Forums UNIX for Dummies Questions & Answers telnet in a script Post 601 by me2unix on Monday 18th of December 2000 10:46:06 AM
Old 12-18-2000
perl TELNET script example
Hi,

Here's a script I wrote to collect the accounting of the top "heavy" connection within a time interval from a cisco router. (using TELNET
if you don't have the NET::TELNET perl module grab it from you nearest CPAN site. ) You'd find in it all the help about the Perl telnet object elements etc..

here it is (excluding passwords and IP addresses Smilie ) :
Code:
#!/usr/local/bin/perl
# By Hezki Englander / 22.3.2000
#

use Net::Telnet ();
if ($#ARGV < 0) {
        print "Usage: $0  interval  [num_of_conn]\n";
        exit;
}

$machine = '111.111.111.111';
$logfile = "cisco.log";
$interval = $ARGV[0];
if ($#ARGV > 0)
{       $connum = $ARGV[1]; }
else
{       $connum = 1; }
$| =1;

$t = new Net::Telnet (Timeout => 10);
$t->input_log($logfile);
$t->open($machine);
print "Connected to $machine\n";
$t->waitfor('/Password: $/');
$t->print("passwd");
$t->prompt('/LTD-INC>/');
$t->cmd("enable");
$t->waitfor('/Password: $/');
$t->print("passwd2");
$t->prompt('/LTD-INC#/');

$t->cmd("clear ip accounting");
print "Logged in successfully.\n";
print "Collecting statistics";
$count = 0;
while ($count < $interval) {
        sleep(1);
        print ".";
        $count++;
}
$t->cmd("show ip accounting");
@result = $t->cmd("logout");
print "done.\n";

print "Most heavy connection/s :\n" ;
print $result[0];
system("echo '@result' |  sort -n -k 4 |tail -$connum");
$t->input_log("");

added code tags for readability --oombera
Last edited by oombera; 02-19-2004 at 05:37 PM..
 

10 More Discussions You Might Find Interesting

1. IP Networking

telnet in a script

Does anyone have a script that contains the telnet command and passes the login and password in the script as well? (4 Replies)
Discussion started by: vaccari
4 Replies

2. UNIX for Dummies Questions & Answers

telnet through script

Hi, How to write a script to perform telnet/ftp operation. Also please refer some site to get reference about shell scripting. Thanks in advance -Arun. (1 Reply)
Discussion started by: arun.viswanath
1 Replies

3. Shell Programming and Scripting

how to use telnet in script

I am trying to use telnet in shell script but getting following error error Connected to crmapp00.agf.ca. Escape character is '^]'. Connection closed by foreign host. Script #!/bin/ksh PATH=/usr/sbin/:/usr/bin:/usr/ucb:/etc:/usr/local/bin:. telnet HOSTNAME <<SCRIPT user userid... (9 Replies)
Discussion started by: sibghat
9 Replies

4. Shell Programming and Scripting

Telnet Script

Hi, I have the following code ... (sleep 1; echo $USERID ; sleep 1; echo $PASSWD ; sleep 1 ; echo y ; sleep 1 ; echo "\r" ; sleep 1 ; echo "cd $FILEPATH" ; sleep 1 ; echo "pwd"; sleep 1 ; echo df -k .| tail -1| cut -d ' ' -f8 > aop.txt ; echo "pwd" ; cat aop.txt; sleep 3)| telnet $SERVER the... (1 Reply)
Discussion started by: King Nothing
1 Replies

5. Shell Programming and Scripting

Using Telnet in a script

Hi All, I was trying to use telnet in a script to access a certain processor on a certain port to view some processes. The problem is that when I use telnet the output is displayed for me. The script is: #!/bin/sh cd /ahmed/ezzat/ rm ss7trace.log touch ss7trace.log chmod 755... (3 Replies)
Discussion started by: Ahmad Ezzat
3 Replies

6. Shell Programming and Scripting

telnet script help

Hi Guys, How do I write the script for the following telnet 192.168.1.100 9002 if the result is less than 1 second. The script should say as port open if the result takes more than 3 seconds. The script should display as port closed. Thanks, Charan (1 Reply)
Discussion started by: charan314
1 Replies

7. Shell Programming and Scripting

Telnet script

Hi all, I would like to write a ad hoc shell script that would allow me to do some telnet tests to multiple IP's and ports at the same time . So, I want to determine which one is successful and which one fails. So, basically I would like the shell to spawn the telnet test and to break out of... (3 Replies)
Discussion started by: Pouchie1
3 Replies

8. Shell Programming and Scripting

telnet script

Hi, I need a script that take one parameter as destination hostname and two parameter as ranges and tries telnet and records the successful connections. fo reg: ./testtelnet.sh destination-host 1000 1050 should give me all the port between 1000 and 1050 what successfully connected to... (10 Replies)
Discussion started by: shifahim
10 Replies

9. Shell Programming and Scripting

Telnet Script

Hello, I wrote a script for doing telnet.However the requirement got changed and now I have to write a telnet script that will 1. Do the telnet from all the virtual ips in a box(Ex: x.x.x.x is the box ip, and x.x.x.1,x.x.x.2 etc are virtual ips associated with that box.) 2. The port range... (0 Replies)
Discussion started by: coolkid
0 Replies

10. Shell Programming and Scripting

Telnet Script

Hello, I wrote a script for doing telnet.However the requirement got changed and now I have to write a telnet script that will 1. Do the telnet from all the virtual ips in a box(Ex: x.x.x.x is the box ip, and x.x.x.1,x.x.x.2 etc are virtual ips associated with that box.) 2. The port range... (3 Replies)
Discussion started by: coolkid
3 Replies

LEARN ABOUT CENTOS

net::time

Net::Time(3pm)						 Perl Programmers Reference Guide					    Net::Time(3pm)

NAME

       Net::Time - time and daytime network client interface

SYNOPSIS

	   use Net::Time qw(inet_time inet_daytime);

	   print inet_time();	       # use default host from Net::Config
	   print inet_time('localhost');
	   print inet_time('localhost', 'tcp');

	   print inet_daytime();       # use default host from Net::Config
	   print inet_daytime('localhost');
	   print inet_daytime('localhost', 'tcp');

DESCRIPTION

       "Net::Time" provides subroutines that obtain the time on a remote machine.

       inet_time ( [HOST [, PROTOCOL [, TIMEOUT]]])
	   Obtain the time on "HOST", or some default host if "HOST" is not given or not defined, using the protocol as defined in RFC868. The
	   optional argument "PROTOCOL" should define the protocol to use, either "tcp" or "udp". The result will be a time value in the same
	   units as returned by time() or undef upon failure.

       inet_daytime ( [HOST [, PROTOCOL [, TIMEOUT]]])
	   Obtain the time on "HOST", or some default host if "HOST" is not given or not defined, using the protocol as defined in RFC867. The
	   optional argument "PROTOCOL" should define the protocol to use, either "tcp" or "udp". The result will be an ASCII string or undef upon
	   failure.

AUTHOR

       Graham Barr <gbarr@pobox.com>

COPYRIGHT

       Copyright (c) 1995-2004 Graham Barr. All rights reserved.  This program is free software; you can redistribute it and/or modify it under
       the same terms as Perl itself.

perl v5.16.3							    2013-02-26							    Net::Time(3pm)
All times are GMT -4. The time now is 06:26 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy