silent telnet and ssh using perl Post: 302470028

Sponsored Content

Top Forums Shell Programming and Scripting silent telnet and ssh using perl Post 302470028 by mtomar on Tuesday 9th of November 2010 03:19:55 AM

11-09-2010

Registered User

I Found solution atleast for telnet Smilie

.. something is better than nothing .

Code:

#!/usr/bin/perl -w

use Net::Telnet; 

@nodeip = ("x.x.x.x","x.x.x.x") ;
%node = ("x.x.x.x","node1","x.x.x.x","node2") ;
foreach $nodeip (@nodeip) {
                          $telnet = new Net::Telnet ( Timeout=>10,Prompt=> '/.*@.*/',Errmode=>'die'); 
                          
                          $telnet->open($nodeip); 
                          $telnet->waitfor('/ogin: $/i'); 
                          $telnet->print('user); 
                          $telnet->waitfor('/assword: $/i'); 
                          $telnet->print('passwd'); 
                          print "========================================================\n";
                          print "            PERFORMING HEALTH CHECK ON $node{$nodeip}    \n";
                          print "========================================================\n";
                          
                          $telnet->waitfor('/# $/i');  
                                    
                         print "==================================\n";
                         print "Checking Basic system status::\n";
                         print "==================================\n";
                         @sysinfo1 = $telnet->cmd('uname -a');
                         @sysinfo2 = $telnet->cmd('uptime');
                         @sysinfo3 = $telnet->cmd('who -r');
                         
                         print "@sysinfo1  @sysinfo2  @sysinfo3","\n";
                         }

Trick was to define a prompt so that it does not get printed on your screen and to get rid of banner "waitfor" worked. I donno how .. but it worked may be someone can explain.

Following is output for this basic script.

Code:

========================================================
            PERFORMING HEALTH CHECK ON NODE1    
========================================================
==================================
Checking Basic system status::
==================================
SunOS eqm01s13p2 5.9 Generic_122300-34 sun4u sparc SUNW,Netra-CP2300
   11:17am  up 236 day(s),  6:44,  1 user,  load average: 1.51, 1.18, 1.16
     .       run-level 3  Mar 18 04:34     3      0  S

========================================================
            PERFORMING HEALTH CHECK ON NODE2    
========================================================
==================================
Checking Basic system status::
==================================
SunOS eqm01s14p2 5.9 Generic_122300-34 sun4u sparc SUNW,Netra-CP2300
   11:17am  up 217 day(s),  3:19,  3 users,  load average: 0.90, 0.91, 0.99
     .       run-level 3  Apr  6 08:00     3      0  S

Last edited by pludi; 11-09-2010 at 04:35 AM.. Reason: code tags, please...

mtomar

View Public Profile for mtomar

Find all posts by mtomar

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

silent telnet

I have been using the following code for sending out an email from a AIX UNIX platform. cat filename | telnet mailhost 25 >/dev/null Time to time I get a message loopback: A specified file does not support the ioctl system call. Can anyone tell me what this means? I need this function...

2. UNIX for Dummies Questions & Answers

telnet ans ssh

Hi all, I need few information as follows: 1. I am acessing one the machine uismg putty at port no 12023 using telnet service. My question is i heard by defalult the port for telnet is 23. Why it is 12023 in my case. Also where can i change it. 2. i install new debian server. And then...

3. UNIX for Advanced & Expert Users

about ssh and telnet

I amn't advance but i want to learn some commands where here you can help me. i don't learn easy commands but i learn if its good experience and interesting. I want to learn about ssh, telnet and how i can be miff ( i don't speek good english but i hope to understant me) thanks for any help...

4. UNIX for Dummies Questions & Answers

like ssh telnet

I want to learn some commands like ssh, telnet and others where i can be tease. thanks for help...

5. UNIX for Dummies Questions & Answers

Telnet and ssh in a script

dear all, I know that this question has been asked before frequently, but I really don't get it. My question is composed of several ones. First:To telnet through a script, I was told to use the way described below, and it works for me, but i don't understand the syntax here....

6. Shell Programming and Scripting

[Perl] Silent Input

I would like to use the WWW::Mechanize module to access a webpage that is password-protected. I was wondering if there was a way to make the input silent when asked from the script. For example: What is your password: <password> Where <password> is where you put your password, but is silent...

7. Shell Programming and Scripting

Webpage to Telnet via Perl and Expect: Telnet problem?

Somewhat long story: I have a simple Perl CGI script that uses Expect to Telnet to a device and grab some data, and then spits it back to Perl for display on the Webpage. This works for many devices I've tried, but one device just fails, it keeps rejecting the password on this device, only...

8. Shell Programming and Scripting

TELNET to SSH

Hi All, I was implementing a change of TELNET to SSH connectivity, and finding it tough at a point where I was connecting to another unix server through TELNET. ( ps -ef |grep abcd) | TELNET x.xx.xxx.xx now I when I tried to replace TELNET with SSH, i am not able to connect. ( ps -ef...

9. AIX

Problems with SSH / telnet

Hey, I have upgraded 3 servers from SSH Tectia 4.0.3 to SSH Tectia 6.0.2. 2 of them are working fine but one server suddenly began to have troubles after about 2 hours. Now it is impossible to login to this server using SSH and even telnet. When SSH is running on this particular server, the CPU...

10. Shell Programming and Scripting

silent Input in PERL

Hello Experts, I am learning perl. I know ksh/bash/csh... In ksh I use to do this way... to read user input in silent mode so that nothing returns on the screen. stty -echo read -r pswd stty echo Please let me know the way in perl how to do it. Here are my OS and Perl Details... ...

LEARN ABOUT MOJAVE

regexp::common::uri::telnet

Regexp::Common::URI::telnet(3)				User Contributed Perl Documentation			    Regexp::Common::URI::telnet(3)

NAME

       Regexp::Common::URI::telnet -- Returns a pattern for telnet URIs.

SYNOPSIS

	   use Regexp::Common qw /URI/;

	   while (<>) {
	       /$RE{URI}{telnet}/	and  print "Contains a telnet URI.
";
	   }

DESCRIPTION

   $RE{URI}{telnet}
       Returns a pattern that matches telnet URIs, as defined by RFC 1738.  Telnet URIs have the form:

	   "telnet:" "//" [ user [ ":" password ] "@" ] host [ ":" port ] [ "/" ]

       Under "{-keep}", the following are returned:

       $1  The complete URI.

       $2  The scheme.

       $3  The username:password combo, or just the username if there is no password.

       $4  The username, if given.

       $5  The password, if given.

       $6  The host:port combo, or just the host if there's no port.

       $7  The host.

       $8  The port, if given.

       $9  The trailing slash, if any.

REFERENCES

       [RFC 1738]
	   Berners-Lee, Tim, Masinter, L., McCahill, M.: Uniform Resource Locators (URL). December 1994.

SEE ALSO

       Regexp::Common::URI for other supported URIs.

AUTHOR

       Damian Conway (damian@conway.org)

MAINTAINANCE

       This package is maintained by Abigail (regexp-common@abigail.be).

BUGS AND IRRITATIONS

       Bound to be plenty.

LICENSE and COPYRIGHT
       This software is Copyright (c) 2001 - 2009, Damian Conway and Abigail.

       This module is free software, and maybe used under any of the following licenses:

	1) The Perl Artistic License.	  See the file COPYRIGHT.AL.
	2) The Perl Artistic License 2.0. See the file COPYRIGHT.AL2.
	3) The BSD Licence.		  See the file COPYRIGHT.BSD.
	4) The MIT Licence.		  See the file COPYRIGHT.MIT.

perl v5.18.2							    2013-03-08					    Regexp::Common::URI::telnet(3)