Re: (bbfu) (not unix) Re(2): Function keys via Net::Telnet

Net::Telnet won't negotiatiate terminal types, which is perhaps the problem. I suspect that VMS has mapped your terminal type to "dumb", which has no function key mappings.

Try sending the VMS incantation "SET TERMINAL /DEVICE=VT200" right after you login, then the escape sequences should work. (From what I remember, the vt100 doesn't have F10..F12)

The Net::Telnet docs mention an option_set method which isn't supported yet. Perhaps in a later rev, you can just let Net::Telnet send the terminal type.

Comment on Re: (bbfu) (not unix) Re(2): Function keys via Net::Telnet

Replies are listed 'Best First'.

(bbfu) (set terminal) Re(4): Function keys via Net::Telnet
by bbfu (Curate) on Apr 04, 2001 at 23:35 UTC

I had Net::Telnet execute a SHOW TERMINAL command and it came up with VT320 without my having done a SET TERMINAL but I decided to try it out anyway. It seems to be working now but I tried commenting out the SET TERMINAL command and it still works. =(

Right now I'm sending "\e[18~" for F7. I swear I tried that last night and it didn't work. *sigh* Guess I should've used the dead chicken last night. =)

The way I found what code to use (\e[18~ isn't documented anywhere on the 'net that I could find) deserves some mention... What I did was, using a telnet client that I knew worked in those menus, I logged into the VMS server and, from there, telneted into our development box running linux. The login prompt echo's back any control keys (including ^H, which is a pain) using ^[ to represent ESC. So I just started hitting function keys and recording what it echoed back. =)

This is what I got back for all the function keys:

 F-Key  String to Send
-------------------------
  F1        ^[OP
  F2        ^[OQ
  F3        ^[OR
  F4        ^[OS
  F5        ^[[16~
  F6        ^[[17~
  F7        ^[[18~
  F8        ^[[19~
  F9        ^[[20~
  F10       ^[[21~
  F11       ^[[23~
  F12       ^[[24~
[download]

Anyway, it now seems to be working. Thanks much for all your help! I never even thought to try the SET TERMINAL command. :-)

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

[reply]
[d/l]
[select]


Think about Loose Coupling
	PerlMonks