You could be having an issue similar to what I'm trying to sort out - this
link may help
http://perl.plover.com/FAQs/Buffering.html
else, this could be a genuine timeout issue

-----Original Message-----
From: Erich C. Beyrent [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 05, 2002 3:21 PM
To: [EMAIL PROTECTED]
Subject: Net::Telnet and wxPerl


Hey everyone,

I have a wxPerl app that is using Net::Telnet to connect to a UNIX host to
run a script.  As you can see from the example, the script is exectuted, and
then I want to watch the output log get updated, but I want to pipe that
into a Text area on the wxPerl app.  I can't seem to figure out how to do
it, and the code below times out, even though the script on the UNIX side is
running.  Any ideas?

-Erich-
===================================================

# Go to the script directory
my $status = $obj->cmd(String => "cd $script_dir", Timeout => 10);

# Launch the backup script
$status = $obj->cmd(String => "$script -tape$length -$backup_type", Timeout
=>20);
$status = $obj->cmd(String => "cd $data_dir");

# Capture the output of the tail command
my @results = $obj->cmd(String => "tail -f $log");

# I want this this text area to contain the value of @results as the script
runs, not when the script finishes.
$this->{NOTEBOOK}->{TAPEPANEL}->{TEXT}->SetValue("@results");

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to