-+-+-+-+-+-+-+-+ 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