I think I downloaded this from the jazz server
PARM IPMASK=""
SETVAR IPLIST_LENGTH,LEN('!IPMASK')
PURGE WORKFILE>$NULL
BUILD WORKFILE;REC=-78,1,F,ASCII;DISC=1000;MSG
FILE WORKFILE=WORKFILE,OLD
LISTF CI.PUB.SYS,8>*WORKFILE
SETVAR IPLIST_NUMBER_OF_RECORDS,FINFO("WORKFILE","EOF")
ECHO
WHILE IPLIST_NUMBER_OF_RECORDS > 0
INPUT IPLIST_RECORD_LINE;< WORKFILE
setvar iplist_ip word(IPLIST_RECORD_LINE,,-1)
if pos('.',iplist_ip) > 0 and &
pmatch('!iplist_ip',iplist_ip) then
ECHO !IPLIST_RECORD_LINE
ENDIF
SETVAR IPLIST_NUMBER_OF_RECORDS,IPLIST_NUMBER_OF_RECORDS-1
ENDWHILE
DELETEVAR IPLIST_@
-------------------------------------------------
Larry Simonsen Phone: 801-489-2450
Flowserve Corporation Fax: 801-491-1750
PO Box 2200 http://www.Flowserve.com
Springville, UT 84663 e-mail: [log in to unmask]
-------------------------------------------------
All opinions expressed herein are my own and reflect, in no way, those of my
employer.
-----Original Message-----
From: Tony Peters [mailto:[log in to unmask]]
Sent: Tuesday, December 07, 1999 1:39 PM
To: [log in to unmask]
Subject: JINETD - can I get more info on who is requesting service
I have INETD running to supply Telnet services and some other network
services. When a user or another system requests access, a server process
is spawned, but I have no idea who asked for it, or their IP address. Is
there a param or info string on the INETD run command that will give me
that?
The sample output is:
:run inetd.net.sys;pri=cs
Reading configuration
echo(tcp nowait INETD.SYS port: 7)
discard(tcp nowait INETD.SYS port: 9)
discard/tcp: Added service, server internal
discard(udp nowait INETD.SYS port: 9)
discard/udp: Added service, server internal
telnet(tcp nowait INETD.SYS port: 23)
telnet/tcp: Added service, server internal
Configuration complete
Received call for: telnet tcp
Received call for: telnet tcp
Received call for: discard udp
Received call for: discard udp
Tony Peters
_/_/_/_/_/ _/_/_/_/_/ Project Manager-New Technology
_/ _/ _/ _/ S&C Electric Canada Ltd
_/ _/ _/ 90 Belfield Rd
_/_/_/_ /_/ _/_/_/ _/ Toronto ON M9W 1G4
_/ _/ _/ Ph 416 249-9171
_/ _/ _/ _/ Fax 416 249-3193
_/_/_/_/_/ _/_/_/_/_/ Email [log in to unmask]
My words are from my thoughts and no-one else, because they have no idea
what I think. Good thing too.
|