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 DEBIAN

net::ldap::control::sortresult

Net::LDAP::Control::SortResult(3pm)			User Contributed Perl Documentation		       Net::LDAP::Control::SortResult(3pm)

NAME

       Net::LDAP::Control::SortResult - Server Side Sort (SSS) result control object

SYNOPSIS

	use Net::LDAP::Control::Sort;
	use Net::LDAP::Constant qw(LDAP_CONTROL_SORTRESULT);
	use Net::LDAP::Util qw(ldap_error_name);

	$sort = Net::LDAP::Control::Sort->new(
	  order => "cn -age"
	);

	$mesg = $ldap->search( @args, control => [ $sort ]);

	($resp) = $mesg->control( LDAP_CONTROL_SORTRESULT );

	if ($resp) {
	  if ($resp->result) {
	    my $attr = $resp->attr;
	    print "Problem sorting, ",ldap_error_name($resp->result);
	    print " ($attr)" if $attr;
	    print "
";
	  }
	  else {
	    print "Results are sorted
";
	  }
	}
	else {
	  print "Server does not support sorting
";
	}

DESCRIPTION

       "Net::LDAP::Control::SortResult" is a sub-class of Net::LDAP::Control.  It provides a class for manipulating the LDAP sort request control
       1.2.840.113556.1.4.474 as defined in RFC-2891

       A sort result control will be returned by the server in response to a search with a Server Side Sort control. If a sort result control is
       not returned then the user may assume that the server does not support sorting and the results are not sorted.

CONSTRUCTOR ARGUMENTS

       attr
	   If "result" indicates that there was a problem with sorting and that problem was due to one of the attributes specified in the sort
	   control. "attr" is set to the name of the attribute causing the problem.

       result
	   This is the result code that describes if the sort operation was sucessful. If will be one of the result codes describes below.

METHODS

       As with Net::LDAP::Control each constructor argument described above is also available as a method on the object which will return the
       current value for the attribute if called without an argument, and set a new value for the attribute if called with an argument.

RESULT CODES

       Possible results from a sort request are listed below. See Net::LDAP::Constant for a definition of each.

       LDAP_SUCCESS
       LDAP_OPERATIONS_ERROR
       LDAP_TIMELIMIT_EXCEEDED
       LDAP_STRONG_AUTH_REQUIRED
       LDAP_ADMIN_LIMIT_EXCEEDED
       LDAP_NO_SUCH_ATTRIBUTE
       LDAP_INAPPROPRIATE_MATCHING
       LDAP_INSUFFICIENT_ACCESS
       LDAP_BUSY
       LDAP_UNWILLING_TO_PERFORM
       LDAP_OTHER

SEE ALSO

       Net::LDAP, Net::LDAP::Control::Sort, Net::LDAP::Control, http://ww.ietf.org/rfc/rfc2891.txt

AUTHOR

       Graham Barr <gbarr@pobox.com>

       Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>

COPYRIGHT

       Copyright (c) 1999-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.14.2							    2012-01-29				       Net::LDAP::Control::SortResult(3pm)
All times are GMT -4. The time now is 10:34 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy