perl TCP/IP into lucent phone switch?

[nop]

My company runs a series of "Historical Reports" against an Avaya (formerly Lucent, formerly AT&T) CMS v5 running on a Sun Sparc 5. We connect to CMS over TCP/IP by telneting into the system. The CMS software uses vt100 emulation to perform screen painting so the screen is not scrolling. Currently, we run the reports "by hand", tediously pecking at the menus, and saving the result screens to print files. Generating reports by agent (for several hundred agents) is really laborious. Buying a custom report from the phone company would be inflexible and prohibitively expensive....

Any Monks out there have experience using perl to automate this pecking and printing process?
Any experience dealing with this sort of switch?

Many thanks!

nop

[strredwolf]

It sounds like you need to capture the telnet stream to a file and analyze this. Check Net::Telnet.

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";

[bbfu]

I feel compelled to make the obligatory suggestion to use Expect (though I don't actually know how to use it).

HAND   :-P

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.

[gnangia]

Hi bbfu,
Did you have any luck using the expect module?