TELNET and waitfor problems

[Guest]

I am using perl's telnet to collect data on a TL1 connection, the waitfor
option doesn't seem to work:

$telnet->print('ACT-USER:AAACSV_5000:TEST:A1::TEST1;');
$telnet->waitfor('/;/');
$telnet->print('CSVRTRV-MVISVC:AAACSV_5000::A1:::USED:1:1,2048;');

The second print command is issued without waiting for the semicolon.

Any suggestions?

Thanks,

George

 

[Jay Rogers]

I am using perl's telnet to collect data on a TL1 connection, the waitfor
option doesn't seem to work:

$telnet->print('ACT-USER:AAACSV_5000:TEST:A1::TEST1;');
$telnet->waitfor('/;/');

This is likely matching the semi-colon in your echo'd back
command, not the semi-colon ending command output. Perhaps this
would work better:

($lines) = $self->waitfor('/\n;/');

TL1 is a poorly designed interface. Also remember that in TL1,
autonomous messages can spew at anytime and that command output
over a certain size is broken up into continuation messages.