[Expectperl-discuss] Expect writing printed text to log_file twice

[Chris R. D. <cdo...@dm...>]

Hi all,

I am developing a script that must navigate a form on a legacy system that
sends VT100 terminal codes.  I have to perform a lot of screen-based checks,
so in addition to using Expect to handle most of the dirty work, I am also
using the Term::VT102 class to handle the "screen scraping" part of it by
using Expect::log_file() to send the data to a Term::VT102 object, which
then parses the data and creates the "screen" in memory.

However, I have encountered issues when sending text in the session using
Expect's print() (aka send()) method -- it not only writes the text to the
server, but logs the sent text as well.  Since the server echoes the text,
any text I enter is printed twice -- once when I call print(), and then
again when I call expect().  This ends up getting the emulator out of sync.

I have come up with a workaround by calling IO::Tty::print() on the Expect
object, which is done inside Expect::print() to send the text to the tty
after it does the local echo.  However, I was wondering if a setting to turn
off this Expect-level local echo (as there is with disabling local echo in
the stty itself) could be added?

Thanks,
# Chris

______________________________________________________________________
Chris Donnelly                cdo...@dm...
Software Systems Architect
Digital Motorworks
Austin, TX                    (512) 692-1101