Using Net::Telnet in Perl to connect to an adsl modem
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:
But it does not work. Nothing gets printed on input.txt file.
My guess is that something goes wrong with the waitfor() subs as the connection hungs-up after exiting, as I cannot connect again.
Below is a copy-paste of the output when doing it manually.
Thanks in advance!
George.
Last edited by Ravendark; 09-08-2009 at 11:31 AM..
Hello There,
I configure my Modem as follow.
Step1.
# admintool &
Then from Browse --> Serial Port
i select tta port and Edit --> Modify
From that i select Template : Modem:Dial Out
Baud Rate: 9600
Ok
Step 2
# tip /dev/cua/a
connected (1 Reply)
Hi,
I have USB Siemens Santis 100 ADSL modem.I need driver for this modem on Solaris 10.Please help me with some info.Platform is x86.Thanks. (2 Replies)
Hello all,
granted that I am an absolute beginner with Solaris, I'd like to use my adsl modem, t's a Zyxel prestige 630.
I managed to install and configure it under Ubuntu using the drivers from Conexant AccessRunner ADSL USB modems with Linux ; is there a chance to do the same under Solaris 10... (0 Replies)
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)
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)
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)
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)
Hiya,
I'm trying to write a shell script to enter a bunch of loooooong configuration commands (to set ip, gateway etc.) for a quite outdated modem. It must be accessed via telnet. Here the preliminary code:
#!/bin/bash
(echo "open 192.168.1.254"; sleep 10
echo "Administrator";... (1 Reply)
Discussion started by: mrsbellamy
1 Replies
LEARN ABOUT OSX
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.16.2 2010-02-23 Regexp::Common::URI::telnet(3)