Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

perl TCP/IP into lucent phone switch?

by nop (Hermit)
on Mar 01, 2001 at 19:34 UTC ( #61567=perlquestion: print w/replies, xml ) Need Help??
nop has asked for the wisdom of the Perl Monks concerning the following question:

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!


Replies are listed 'Best First'.
Re: perl TCP/IP into lucent phone switch?
by strredwolf (Chaplain) on Mar 01, 2001 at 22:57 UTC
    It sounds like you need to capture the telnet stream to a file and analyze this. Check Net::Telnet.


(bbfu) (expect) Re: perl TCP/IP into lucent phone switch?
by bbfu (Curate) on Mar 02, 2001 at 02:10 UTC

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

    HAND   :-P

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

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://61567]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2018-07-22 18:58 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (455 votes). Check out past polls.