HP3000-L Archives

April 2001, Week 1

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:
"VANCE,JEFF (HP-Cupertino,ex1)" <[log in to unmask]>
Reply To:
VANCE,JEFF (HP-Cupertino,ex1)
Date:
Thu, 5 Apr 2001 15:36:53 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines)
...
> I want to limit the sessionnumber up to 2 or 3 from one PC with a
> reflection-login-script.

This is a host-based solution and would work for all connections that
invoke a logon UDC on the 3000:

  ...
  setvar numjobs JOBCNT("@s:!hpuser.!hpaccount",ses)  # find all sessions
                                                      # logged on as "you"
  setvar ipcnt 0
  if numjobs > 1 then   # there is at least 1 other session logged on as
"you"
     setvar i 0
     while setvar(i,i+1) <= numjobs do
        if JINFO(word(ses,,i),"ipaddr") = HPREMIPADDR then
           setvar ipcnt ipcnt+1
        endif
     endwhile
  if ipcnt > 3 then
     echo You have too many sessions logged on as !hpuser.!hpaccount from
the
     echo same IP address (!HPREMIPADDR).
     bye
  endif
  ...

Note: I have not tested the above at all, but I hope it conveys the
general idea.

 Jeff Vance, CSY

* To join/leave the list, search archives, change list settings, etc *
*     please visit http://raven.utc.edu/archives/hp3000-l.html       *

ATOM RSS1 RSS2