Sponsored Content
Top Forums Shell Programming and Scripting Using Net::Telnet in Perl to connect to an adsl modem Post 302351383 by chompy on Tuesday 8th of September 2009 11:17:37 AM
Old 09-08-2009
I think you are suppose to tell it a prompt type (e.g. bash). Try using to dump_log(), instead of input_log(), for debugging purposes anyways.

This may shed some more light on the subject if you haven't read it all ready that is:

Net::Telnet - search.cpan.org
 

9 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Got connected with Modem but cannot dial Telephone no. to connect to host

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)
Discussion started by: abidmalik
1 Replies

2. Solaris

Solaris 10 ADSL USB modem problem

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)
Discussion started by: Upravnik
2 Replies

3. UNIX for Dummies Questions & Answers

cannot connect net in rhl9

I installed rhl 9 in my system but the problem is i cannot connect my net to it any help please (2 Replies)
Discussion started by: shafique
2 Replies

4. Solaris

Installing USB adsl modem?

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)
Discussion started by: clalfa
0 Replies

5. Windows & DOS: Issues & Discussions

Need Help on "waitfor" command in net::Telnet Module in PERL

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

6. Shell Programming and Scripting

Need help on use of "cmd" command in net::Telnet module in PERL

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

7. Shell Programming and Scripting

Pressing "Enter/Space bar" using Net::TELNET? in Perl

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

Perl variables inside Net::Telnet::Cisco Module doesn't work

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

9. Shell Programming and Scripting

ENTER for modem configuration via telnet

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
Net::Trac::TicketSearch(3pm)				User Contributed Perl Documentation			      Net::Trac::TicketSearch(3pm)

NAME
Net::Trac::TicketSearch - A ticket search (custom query) in Trac SYNOPSIS
my $search = Net::Trac::TicketSearch->new( connection => $trac ); $search->query( owner => 'hiro', status => { 'not' => [qw(new reopened)] }, summary => { 'contains' => 'yatta!' }, reporter => [qw( foo@example.com bar@example.com )] ); print $_->id, " " for @{$search->results}; DESCRIPTION
This class allows you to run ticket searches on a remote Trac instance. ACCESSORS
connection limit [NUMBER] Get/set the maximum number of results to fetch. Default is 500. This may also be limited by the Trac instance itself. results Returns an arrayref of Net::Trac::Tickets for the current query. url Returns the relative URL for the current query (note the format will be CSV). METHODS
query [PARAMHASH] Performs a ticket search with the given search conditions. Specify a hash of "column =" value> pairs for which to search. Values may be a simple scalar, a hashref, or an arrayref. Specifying a hashref allows you to select a different operator for comparison (see below for a list). An arrayref allows multiple values to be or'd for the same column. Unfortunately Trac has no way of anding multiple values for the same column. Valid operators are "is" (default), "not", "contains", "lacks", "startswith", and "endswith". Returns undef on error and the results otherwise. LICENSE
Copyright 2008-2009 Best Practical Solutions. This package is licensed under the same terms as Perl 5.8.8. perl v5.12.3 2009-05-27 Net::Trac::TicketSearch(3pm)
All times are GMT -4. The time now is 01:44 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy