[comp.os.vms] non-hostile security brick sh-thouse...

RMALOUF@SBCCMAIL.BITNET (Rob Malouf) (05/29/87)

There is no need to get upset!  Why not just add a few lines to your system
login file (e.g., SYLOGIN.COM) that check for other interactive processes with
the same username, and, if so, print a warning message.  That could be done
either in DCL or in any high level language with very little difficulty.
If you would like, I will look in to it and write the code for you, but I
don't want to publish anything off the top of my head, since it would probably
be wrong.  Now then, there are a few things I would like to tell DEC
myself . . .

Rob Malouf
Marine Sciences Research Center
State University of New York
Stony Brook, NY  11794-5000
RMALOUF@SBCCMAIL.BITNET

FXHELP@ALASKA.BITNET (UAF Computer Support Group) (06/01/87)

You could easily set up your own LOGIN to do that, or it could be added
to the system-wide login com.  Following is a rather lengthy example from
my own LOGIN.COM:

$       count = 0
$       name    :=      "fxhelp"
$       set message/noid/nosev/nofac/notext
$ next:
$       on warning then goto duplicate
$       set process/name="''name'"
$       goto continu
$ duplicate:
$       count = count + 1
$       name    =       name + " "
$       goto next
$ continu:
$       set message/text
$       on warning then exit
$       if (count.eq.0) then goto ok
$       outstring := "You are signed on "'count'" other time"
$       if (count.eq.1) then goto prt
$       outstring = outstring + "s"
$ prt:
$       write sys$output outstring
$ ok:
 ...
(Don't look at me like that!  I guess that's what happens when you have an
8800 to waste -- besides, I only sign on once, in the morning!)
Anyway, have fun!

*************************************************************************
* Jo Knox / UAF Computer Support Group / University of Alaska Fairbanks *
*                                ``he never said a mumblin' word!''     *
*************************************************************************