1. Home

Product groups

Support

Re: How to catch error (or exit) when Receive hang - WeOnlyDo Discussion board

Re: How to catch error (or exit) when Receive hang (General questions)

by novanstar, Tuesday, November 04, 2008, 21:07 (5864 days ago) @ woddrazen

Hi,
Here is the full code: Thanks,

===== code ===== (code hang when it print out Count: 4 )
my $ssh = Win32::OLE->new( WeOnlyDo.wodSSHCom.1 );
my $buffer = q{};
$ssh->{Protocol} = 4;
$ssh->{HostName} = 'host01';
$ssh->{Blocking} = 'True';
$ssh->{Login} = 'user';
$ssh->{Password} = 'password';
$ssh->Connect();
$ssh->WaitFor('user@host01:~$ ');
$ssh->Send( command open tty://\n );

ssh->WaitFor('root@devict:/$ ', 10);

print Start to send command... ;
$ssh->Send( command for device\n );

eval {
for (my $i = 1; $i<=20; $i++) {
print Count: $i ;

$buffer .= $ssh->Receive();
print $buffer ;
}
};
if ($@) {
print Error!!!

;
$ssh->Disconnect();
return $buffer;
}

=======================
Alternative to eval{}:
try {
for (my $i = 1; $i<=20; $i++) {
print Count: $i ;
$buffer .= $ssh->Receive();
print $buffer ;
}
}
catch Error with {
print Error!!!

;
$ssh->Disconnect();
return $buffer;
}

locked
3137 views

Complete thread:

 

Don't be fooled by the cost, it's value and quality far exceeds the price being charged!

Ian D. Mead, author of UltraEdit-32
IDM Computer Solutions

...I'm extremely impressed with the product, it represents excellent value for money...

Danny Haworth
Assetdisk

Not only wodSFTPdll is excellent, the service you have provided is outstanding and second to none!

Ian D. Mead, author of UltraEdit-32
IDM Computer Solutions

Just thought you'd like to know that my gateway app with your SMTP Server component held the line against a DDOS attack today...

Chris Langsenkamp
Clever Technologies

May I say how nice it is to work with components so complete and self-explanatory that using them in my application is as instinctive as though I wrote them myself?

Michael Barnett
Full Spectrum Telecommunications

The SFTP ocx is one of the finest pieces of programming I have seen. It worked out of the box...

Kenneth R. Robinette
InterSoft International

The people at WeOnlyDo are amazing! ... I always get a super fast response from customer service, and the products are great too. Thanks WeOnlyDo

Jeff Hall
Occupational Health Research

It is very refreshing to find such helpful, knowledgeable and quick responding technical support.

Jason Sears
CompuSource Systems, Inc.

Thank you very much for the rapid responses. I was a little nervous about dealing with a company that is on a different continent from me. You have proven my concerns to be unfounded.

Robert Pacheco
Surebridge, Inc.

Your component works really great. With minor effort I have been able to convert my delphi application...

Gilles Hache
Cisco Systems Inc.