[Expectperl-discuss] Getting weird error while trying to Rlogin

[ruchi g. <ru...@ya...>]

Hi,
I have written a small Expect script in a cgi script.


$rlogin=Expect->spawn("rlogin -l $USER $HOST") or die
"spawn failed";
$rlogin->expect(30,"ssword: ") || die "Never got
password prompt on $HOST, ".$rlogin->exp_error()."\n";
print $rlogin "$pass\r";
$rlogin->expect(30,"id\r\n");
$rlogin->hard_close();

On running this program,I get the following errors on
the terminal.
*****************************************************
tcgetattr: Invalid argument
ioctl TIOCGETP: Invalid argument
ioctl TIOCLGET: Invalid argument
ioctl TIOCGETC: Invalid argument
ioctl TIOCGLTC: Invalid argument
ioctl TIOCGETP: Invalid argument
ioctl TIOCLGET: Invalid argument
ioctl TIOCSLTC: Invalid argument
ioctl TIOCSETC: Invalid argument
ioctl TIOCSETN 3: Invalid argument
ioctl TIOCLSET: Invalid argument
Password: 

Followed by this,it logs in to the $HOST machine.
But gives this error at the prompt.

*****************************************************
[[24;80Rresize: Time out occurred
ruchi@XYZ:/home/ruchi $


Cheers,
R.



__________________________________________________
Do You Yahoo!?
Yahoo! Movies - coverage of the 74th Academy Awards®
http://movies.yahoo.com/