From:	IN%"RLB@rtpvs2.rtp.semi.harris.com"  "Bob Boyd (Sys/Net Admin/Postmaster) 919-549-3627" 24-JUL-1990 02:03:13.22
To:	pack@ncar.ucar.edu, mettauer@stcvax.stortek.com, eklavins@chvax.UUCP, tihor@acfcluster.nyu.edu, everhart@Arisia.ge.com
CC:	
Subj:	AUDIT_LOG_KIT  4/4

Received: from RTPVS2.RTP.SEMI.HARRIS.COM by Arisia.ge.com; Tue, 24 Jul 90
 02:02 EST
Date: Tue, 24 Jul 90 01:49 EDT
From: "Bob Boyd (Sys/Net Admin/Postmaster) 919-549-3627"
 <RLB@rtpvs2.rtp.semi.harris.com>
Subject: AUDIT_LOG_KIT  4/4
To: pack@ncar.ucar.edu, mettauer@stcvax.stortek.com, eklavins@chvax.UUCP,
 tihor@acfcluster.nyu.edu, everhart@Arisia.ge.com
X-VMS-To: AUDIT_SHARE
Message-id: <5DF05DF69BFF4004B3@RTPARK.RTP.SEMI.HARRIS.COM>
X-Envelope-to: everhart@arisia.ge.com

-+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
X$ security_audit_db_dir = "security_audit_root:`5Bdb`5D"
X$ security_audit_device = -
X`09f$parse(security_audit_db_dir,,,"device","syntax_only")
X$!
X$! see if the device is mounted already -- if not, then do it now.
X$!
X$ if .not.f$getdvi(security_audit_device,"exists")
X$ then
X$`09@sys$startup:loc$shadow_mount
X$ else
X$ if .not.f$getdvi(security_audit_device,"mnt")
X$ then
X$`09@sys$startup:loc$shadow_mount
X$ endif
X$ endif
X$!
X$! Make sure the logical name(s) are defined
X$!
X$ defgrp audit_archive_type 'archive_type'
X$ defsys security_audit_root 'security_audit_root'/translation=concealed
X$!
X$! Make sure the directory exists
X$!
X$ if f$parse(security_audit_db_dir).eqs.""`20
X$ then`20
X$`09create/directory 'security_audit_db_dir'/log-
X`09/prot=(s:rw,o:rw,g,w)/own=`5B1,1`5D
X$ endif
X$!
X$! Construct the server database file name
X$!
X$ if archive_type.eqs."A" .or. archive_type.eqs."C"
X$ then
X$`09audit_file = security_audit_db_dir+site_name+"_audit_server.dat"
X$ else
X$ if archive_type.eqs."B"`20
X$ then`20
X$`09audit_file = security_audit_db_dir+my_node+"_audit_server.dat"
X$ endif
X$ endif
X$!
X$! Define the audit database now
X$!
X$ defsys audit_server 'audit_file'
X$!
X$! Make sure the other directories exist
X$!
X$ if f$parse("security_audit_root:`5Bjournal`5D").eqs."" then -
X$`09credir security_audit_root:`5Bjournal`5D
X$ if f$parse("security_audit_root:`5Barchive`5D").eqs."" then -
X$`09credir security_audit_root:`5Barchive`5D
X$ if f$parse("security_audit_root:`5Bwork`5D").eqs."" then -
X$`09credir security_audit_root:`5Bwork`5D
X$!
X$!Last Modified:  19-JAN-1990 18:32:21.96, By: RLB`20
$ CALL UNPACK SYSECURITY.TEMPLATE;1 291646989
$ v=f$verify(v)
$ EXIT
