05-08-2009
check the Net::Telnet documentation to see if there is option to set debug level. use that and see if anything you can find
10 More Discussions You Might Find Interesting
1. Solaris
Hi my friends
when I want to make boot net for my server I have receive:
Time out ARP/RARP
note: I have use
Ok boot net (this is my Syntax)
so what is the problem? (2 Replies)
Discussion started by: bintaleb
2 Replies
2. Shell Programming and Scripting
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... (1 Reply)
Discussion started by: jondo
1 Replies
3. Shell Programming and Scripting
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 (1 Reply)
Discussion started by: sudhakaryadav
1 Replies
4. Windows & DOS: Issues & Discussions
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)
Discussion started by: sudhakaryadav
3 Replies
5. Shell Programming and Scripting
in "cmd" command i want to copy the ouput of the command excuted to a particular file in a directory.
How to do this..??
Ex : $telnet->cmd(String => 'allip:acl=a1;',Prompt => '/</');
i want to copy o/p of the command "allip:acl=a1;" in a log file in a particular directory.
Plz suggest.. (1 Reply)
Discussion started by: sudhakaryadav
1 Replies
6. Shell Programming and Scripting
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)
Discussion started by: Ravendark
2 Replies
7. Shell Programming and Scripting
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)
Discussion started by: xmaverick
0 Replies
8. Shell Programming and Scripting
I am facing some problem in the NET::FTP Library in perl script in the HPUX. I am using NET::FTP to ftp files from 23 remote servers. Except 1 server everything is working fine. I am getting this error from one server . but normal FTP is working fine for that server. everytime few files are ftped... (1 Reply)
Discussion started by: mohanm
1 Replies
9. Shell Programming and Scripting
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,... (1 Reply)
Discussion started by: sureshcisco
1 Replies
10. Shell Programming and Scripting
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)
Discussion started by: ahmed_zaher
5 Replies
LEARN ABOUT DEBIAN
net::xmpp::debug
Net::XMPP::Debug(3pm) User Contributed Perl Documentation Net::XMPP::Debug(3pm)
NAME
Net::XMPP::Debug - XMPP Debug Module
SYNOPSIS
Net::XMPP::Debug is a module that provides a developer easy access
to logging debug information.
DESCRIPTION
Debug is a helper module for the Net::XMPP modules. It provides
the Net::XMPP modules with an object to control where, how, and
what is logged.
Basic Functions
$Debug = new Net::XMPP::Debug();
$Debug->Init(level=>2,
file=>"stdout",
header=>"MyScript");
$Debug->Log0("Connection established");
METHODS
Basic Functions
new(hash) - creates the Debug object. The hash argument is passed
to the Init function. See that function description
below for the valid settings.
Init(level=>integer, - initializes the debug object. The level
file=>string, determines the maximum level of debug
header=>string, messages to log:
setdefault=>0|1, 0 - Base level Output (default)
usedefault=>0|1, 1 - High level API calls
time=>0|1) 2 - Low level API calls
...
N - Whatever you want....
The file determines where the debug log
goes. You can either specify a path to
a file, or "stdout" (the default). "stdout"
tells Debug to send all of the debug info
sent to this object to go to stdout.
header is a string that will preappended
to the beginning of all log entries. This
makes it easier to see what generated the
log entry (default is "Debug").
setdefault saves the current filehandle
and makes it available for other Debug
objects to use. To use the default set
usedefault to 1. The time parameter
specifies whether or not to add a timestamp
to the beginning of each logged line.
LogN(array) - Logs the elements of the array at the corresponding
debug level N. If you pass in a reference to an
array or hash then they are printed in a readable
way. (ie... Log0, Log2, Log100, etc...)
EXAMPLE
$Debug = new Net::XMPP:Debug(level=>2,
header=>"Example");
$Debug->Log0("test");
$Debug->Log2("level 2 test");
$hash{a} = "atest";
$hash{b} = "btest";
$Debug->Log1("hashtest",\%hash);
You would get the following log:
Example: test
Example: level 2 test
Example: hashtest { a=>"atest" b=>"btest" }
If you had set the level to 1 instead of 2 you would get:
Example: test
Example: hashtest { a=>"atest" b=>"btest" }
AUTHOR
Ryan Eatmon
COPYRIGHT
This module is free software, you can redistribute it and/or modify it under the LGPL.
perl v5.14.2 2012-11-06 Net::XMPP::Debug(3pm)