HP3000-L Archives

October 2000, 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:
"Eric H. Sand" <[log in to unmask]>
Reply To:
Eric H. Sand
Date:
Fri, 6 Oct 2000 13:15:16 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (36 lines)
Hi Tom,
    Below is a versy simple CI script I put together demonstrating how a
unique user may be prevented from signing on twice. This can be placed in a
UDC or in a group in the name resolution path.

------------------------------------------------------------
anyparm ARG=!hpjobname,!hpuser.!hpaccount
setvar cnt 0
if lft(hpstdin,2)="$S"
   showjob > stdlist
   whoami !ARG < stdlist
   return
endif
setvar n finfo(hpstdin,"eof")
setvar num_user 0
while setvar (n,n-1) > 0
   if lft(setvar(buf,input()),1)='#'
      if setvar (pos, pos(ups("!arg"),buf)) > 0
         setvar num_user num_user + 1
      endif
   endif
endwhile
if num_user > 1
   echo !hpjobname,!hpuser.!hpaccount is already logged on...
   pause 5
   bye
else
   echo Welcome to your HPe3000....
endif

------------------------------------------------------------


                         Eric Sand
                         [log in to unmask]

ATOM RSS1 RSS2