Hello !!!

I need some help with debugging a problem I ran in to using the PERL EXPECT package. I downloaded the package Expect-1.18 from the CPAN website and installed in on a Linux Machine with a x86 processor. I was successfully able to compile and install the package. I wrote up a simple problem to test it was it worked as expected.

However when I attempted to do the same on a Linux machine with a PowerPC processor, I ran into a problem. Below is the simple program that I was using:

#!/usr/bin/perl5.8.4

use Expect;

my $timeout = 5;
$session = new Expect;
#$session->debug(3);
$session->spawn("ssh 666.666.666.666 -l root\r");
$session->expect($timeout, "password:");
$session->send("wibblewobble\r");
$session->expect($timeout, "F101");
$session->send("\r");
$session->expect($timeout, "F101");
$session->send("exit\r");
$session->expect($timeout, "F101");
[download]

On the PPC machines, I noticed that the spawn cmd did go through as I was able to see an SSH session using the "netstat -a" cmd. However using debugs I noticed that for some reason the script was not receiving anything back from the command.

Does any one know how to fix this??

Thanks

Sri

20060728 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips

IP address and password changed to protect the inocent (GrandFather)