HP3000-L Archives

October 1997, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Chris Bartram <[log in to unmask]>
Reply To:
Date:
Sun, 12 Oct 1997 13:41:35 -0400
Content-Type:
Text/Plain
Parts/Attachments:
Text/Plain (48 lines)
 In <[log in to unmask]> [log in to unmask] writes:

> What I need is to be able to get the IP address of the workstation from within
> n
> MPE.

If you have the appropriate patches;

:showvar hpstdin_@
HPSTDIN_ACCESS_TYPE = NS/VT
HPSTDIN_TERMINAL_TYPE = 0 (T_DATA_ENTRY(4))
HPSTDIN_TRANSPORT_TYPE = TCP/IP
HPSTDIN_NETWORK_NODE = xxx.yyy.com       (the station's node name here)
HPSTDIN_NETWORK_ADDR = nnn.nnn.nnn.nnn   (the station's IP address here)
HPSTDIN_LINK_ADDR = not set yet...
and...
:showvar hplocport
HPLOCPORT = 1537
            ^^^^ (this will be '23' for telnet sessions under inetd on 5.5)

it's available for 5.0 and later systems (we have it on both our 5.0 and
5.5 systems).

As I recall, there were some quirks with telnet access. In our logon udc
(which checks node names and IP addresses) we double-check everything...

setvar _network_node ''
if bound(hpstdin_network_node) then
  setvar _network_node '!hpstdin_network_node'
endif

setvar _network_addr ''
setvar _protocol 'VT'
if bound(hpstdin_network_addr) then
  setvar _network_addr '!hpstdin_network_addr'
elseif bound(hpremipaddr) then
  setvar _network_addr '!hpremipaddr'
endif
if bound(hplocport) then
  if !hplocport=23 then
    setvar _protocol 'TELNET'
  endif
endif


               Good luck,
               Chris Bartram

ATOM RSS1 RSS2