Re: redefining Net::Telnet "escape" character

[Joe Mecklin]

ok, per the instructions, binmode only converts CR LF to \n, which is
not what i'm looking for.

here is a condensed version of the script:

###############

#!/usr/bin/perl

use ASI::WebDB;
use Term::ReadKey;
use Net::Telnet ();

my $login = "";
my $securid = "";

print "UID: ";
chomp($login = <>);
ReadMode noecho;
print "SECURID: ";
chomp($securid = <>);
ReadMode restore;

$t = new Net::Telnet (Timeout => 10);

$t->open("x.x.x.x");

print "\nlogging in to system";
&login_system;


sub login_system
{
        my ($prematch, $match) = $t->waitfor(String => "login:", Errmode => 
'return');
        print "$prematch $match\n\n";
        print "\nchanging \"escape\" character";
        print "\n";
        $t->put("^]");
        ($prematch, $match) = $t->waitfor(String => "telnet", Errmode => 
'return');
        print "$prematch $match\n\n";
        print "\nback in telnet";
        print "\n";
        $t->print("set escape ^[");
        $t->waitfor(String => "escape character is '^['.");
        $t->print ("");
        $t->waitfor(String => "login:", Errmode => 'return');
        print "\nEntering stoak account login";
        $t->print("$login");

        $t->waitfor(String => "PASSCODE:", Errmode => 'return');
        print "\nEntering SECURID PASSCODE";
        $t->print("$securid");
}

##############

i get "pattern match timed-out at ./script-name line 102" which is

$t->waitfor(String => "escape character is '^['.");

so escaping back to the normal telnet prompt to change the escape
character doesn't work.  a normal telnet "escape" character is ^] ...
i need to know how to change that from ^] to ^[ (or ^A or whatever)
within net::telnet

again, tia for any help
joe

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>