Hi,
The code below is used to telnet to list of devices and configure them. The program executes in this manner:
1. telnet to the first device in file.txt
2. one the telnet command is executed a "press any key to continue" prompts.
3. once a return key is executed it ask for username, password, enable pass.
4. and then configures.
Well, the code below works fine as per the above 4 statements. My question is the file also contains a few devices which will not prompt for "press any key to continue". They only ask for Username and password. Can any one please assist to modify the code so that it check for the prompt "press any key to continue" and return key is executed and if it does not prompt it goes for username and rest of the code...
thanks in advance
Last edited by sureshcisco; 11-30-2010 at 09:29 PM..
Hi,
Can anybody help me in writing command "waitfor" for string
"C:\WINNT\Profiles\mfcf0508>" while using net::Telnet module.
I tried the below format :
$telnet->waitfor('/"C\:\WINNT\Profiles\mfcf0508>".*$/i');
Getting error as : pattern match timed-out
Plz help me (3 Replies)
#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet ();
my $t = new Net::Telnet (Timeout => 10,
Prompt => '/.*(#|>|\))\s*$/');
my $remote_host='home';
$t->open(Host => $remote_host, Port =>23);
$t->login('root', 'pass');
the error that I get... (4 Replies)
Hello,
First of all, congratulations on this forum! Very mice material!
This is my fist thread and it has to do with connecting to an adsl modem and executing some commands.
Heres what I do:
$username = 'admin';
$passwd = 'admin';
$telnet = new Net::Telnet ( Timeout=>10,... (2 Replies)
I'm trying to learn how to get my script to execute the enter button when it telnets into a router and the router displays output but you need to press the space bar or enter button to continue displaying my output of the router.
How is this done? (0 Replies)
Hi,
i have typed telnet yahoo.com 80 in command prompt
it displays as a blank command prompt page titling as Telnet Yahoo.com
Other than that i am not able to get anything. can anyone sort me out the reason for this (12 Replies)
Hi
I have a perl script code in which connecting with db2 database and doing some process. My perl script code and db2 database server present in the same unix server. I am connecting and executing perl script code via windows telnet. Now my question is i could not able to connect db2 server... (4 Replies)
I am writing perl script to configure Cisco device but Variables inside Net::Telnet::Cisco Module doesn't work and passed to device without resolving.
Please advise.
here is a sample of script:
use Net::Telnet::Cisco;
$device = "10.14.199.1";
($o1, $o2, $o3, $o4) = split(/\./,$device);... (5 Replies)
Hi,
Hope all your are doing well. Need a suggestion from you.
I am writing an automated shell script that will effectively check the telnet connectivity with different backends from present deployment server.
Ideally, this script reads each backend hostname from a configuration file and fires... (4 Replies)
Hi Gurus,
I am trying to write a script for checking the status of linux servers by connecting via telnet with port no but to terminate i have to manually type "quit" .how can i terminate the telnet session in script itself.For E.g
=========================================
telnet ipaddress... (3 Replies)
Hi guys.
You'd have to excuse me a bit, as I'm a noob. I really try to avoid asking questions and do research for whatever linux issues that may arise.
I am experiencing a long wait for the shell to come up when I ssh or telnet into a Sunos 5.10 environment.
It takes 70 seconds to give me... (12 Replies)
Discussion started by: gpenco
12 Replies
LEARN ABOUT DEBIAN
net::cli::interact::manual::cookbook
Net::CLI::Interact::Manual::Cookbook(3pm) User Contributed Perl Documentation Net::CLI::Interact::Manual::Cookbook(3pm)NAME
Net::CLI::Interact::Manual::Cookbook - Miscellaneous recipes
Windows Support
The library works just fine under native windows (i.e use something like Strawberry Perl - no need for cygwin), for Telnet, Serial and SSH
connections. However one additional step is required for you to have success:
You must download the "plink.exe" application, and pass its filesystem location in the "app" parameter to "new()". Do not try to use any
other Telnet or SSH programs (for instance the Windows bundled "telnet") - they will not work. Here's an example:
my $s = Net::CLI::Interact->new(
personality => "cisco",
transport => "Telnet",
(Net::CLI::Interact::Transport::is_win32() ?
(app => "$ENV{HOMEPATH}\Desktop\plink.exe") : () ),
);
Unix Support
The library works fine on most Unix platforms. It will try to use the native "telnet", "ssh" (openssh) and "cu" programs for Telnet, SSH
and Serial connections, respectively. If you want to use another application, pass it in the "app" parameter to "new".
In some Unix environments there can be zombie child processes left around after running your script. If this happens, set the "reap"
option, like so:
my $s = Net::CLI::Interact->new(
personality => "cisco",
transport => "Telnet",
connect_options => {
reap => 1,
},
);
Phrasebook Entries
Prompts
These are nothing more than named regular expressions:
prompt configure
match /(config[^)]*)# ?$/
Macros
This example waits for the device to ask "[startup-config]?" and then responds with the text "startup-config".
macro copy_run_start
send copy running-config startup-config
match /Destination filename [startup-config]?$/
send startup-config
To send instead a press of the Return key (output record separator), use:
macro write_mem
send copy running-config startup-config
match /Destination filename [startup-config]?$/
send ''
To instead allow the user to pass in the file name, use a "sprintf" format.
macro save_to_file
send copy running-config startup-config
match /Destination filename [startup-config]?$/
send %s
The user must then pass a parameter to the "macro" call, even if it's an empty string:
$s->macro('save_to_file', { params => ['file_name'] });
# or
$s->macro('save_to_file', { params => [''] });
Continuations
These are Macros which start with a match instead of a send:
macro more_pages
match / --More-- /
send ' '
Note that the parameter of the "send" is not sent with a Return character (output record separator) appended.
When included in a macro, the continuation can be in-line, like this:
macro show_ip_route
send show ip route
follow / --More-- / with ' '
Running Commands
Standalone Commands
Simply send the command you wish to execute to the library. If not already done, a connection to the device will be established
automatically:
$s->cmd('show ip int br');
Normally this matches against a default prompt, which has been discovered automatically, or set by you:
$s->set_prompt('user_prompt');
It's also possible to pass in a custom prompt for this command only:
$s->cmd('show ip int br', { match => qr/special prompt>$/ });
Composite Macro Commands
Call a predefined Macro from the phrasebook using this method:
$s->macro('write_mem');
Sometimes the Macro needs parameters:
$s->macro('to_priv_exec', { params => ['my_password'] });
You can't really create a Macro on the fly very easily, but with suitable use of "cmd()", "set_prompt()", and the "match" option to "cmd()"
it's possible to achieve some simple flexibility.
Reconfiguring On-the-Fly
Phrasebook
It's possible to load a new phrasebook by the following method, which must be passed at least the name of the personality:
$s->set_phrasebook({ personality => 'ios' });
You can pass any options which the Phrasebook module itself would take.
Prompt
The current prompt can be changed by passing the name of the new Prompt as it is known by the phrasebook:
$s->set_prompt('name');
If you want to test whether the current prompt matches a diffrent named Prompt from the phrasebook, this method can be used:
$s->prompt_looks_like('name');
perl v5.14.2 2012-06-12 Net::CLI::Interact::Manual::Cookbook(3pm)