I was asked the same question a few months ago. The resulting script, which
is MPEX aware, is listed below:
# How many sessions am I running from this machine?
setvar ss_start_cpu hpcpusecs
setvar ss_start_secs hpconnsecs
purge sesslist > $null
if insidempex = 0 then
listf CI.PUB.SYS,8 > sesslist
purge sublist > $null
fgrep " !hpremipaddr " < sesslist > sublist
setvar ss_count finfo('sublist','end of file')
purge sesslist > $null
purge sublist,temp > $null
else
filter ":listf CI.PUB.SYS,8","!hpremipaddr" > sesslist
setvar ss_count finfo('sesslist','end of file')
purge sesslist > $null
endif
echo Search Statistics:
echo Logons at this IP Address = !ss_count
echo Number of current sessions = !hpsescount
echo CPU Seconds = ![hpcpusecs - ss_start_cpu]
echo Elapsed time = ![hpconnsecs - ss_start_secs] seconds.
regards,
Robert W.Mills
Systems Development Manager
Windsong Services
(01689) 870622 x3005
Tracy Pierce <mailto:[log in to unmask]> scribbled on 27 August 2003
20:10:
> this works fine for me...
> IF "!HPREMIPADDR" <> ""
> CONTINUE
> TELLOP !hpjobtype!hpjobnum !HPJOBNAME,!HPUSER.!HPACCOUNT is at
> !HPREMIPADDR
> ENDIF
>
>> -----Original Message-----
>> From: Andrew Pilz [mailto:[log in to unmask]]
>> Sent: Wednesday, August 27, 2003 12:06 PM
>> To: [log in to unmask]
>> Subject: Limiting user sessions
>>
>>
>> In our login UDC we limit the number of sessions a user can
>> take with the IF
>> JOBCNT("@S:!HPUSER.!HPACCOUNT") > X statement. We have some
>> users who are
>> getting around this limitation by using different logins on the same
>> computer to open multiple sessions. I would like to limit
>> the sessions by
>> trapping the HPSTDIN_NETWORK_NODE or HPSTDIN_NETWORK_ADDR variables.
>> Does anyone have an easy way to accomplish this?
>>
>>
>>
>> TIA
>>
>> Andrew Pilz
>> OCM
>> <mailto:[log in to unmask]> [log in to unmask]
>> 301-547-2063
>>
>> * To join/leave the list, search archives, change list settings, *
>> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>>
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
