Expanded Description
| Topic |
Description |
| Name |
protections |
| Synopsis |
/infobank/programs/dbase/protections/protections.for |
| Description |
Program to check Information Bank for appropriate protections
and ownerships.
|
| AUTHOR |
Clint Steele 8/7/96
Michael Hamer 6/29/98
checked to lower levels of infobank
Sumy Tom 9/14/10
modified, such that the list of owners are read from
/infobank/programs/dbase/protections/owners.list
if you want to add an owner then add him/or her to the
end of owners.list
|
| Reads |
read (89, '(q,a)', end = 88) ProgramLength(ProgramCount),
* Programs(ProgramCount)
read (91, '(q,a)', end = 1)
* OwnerNL, OwnerName
read (90, '(q,a)', end = 99) Length, ALine(1:Length)
read (91, '(q,a)', end = 98)
* OwnerNL, OwnerName
|
| Writes |
write (OutUnit, 30)
* LastDir(1:LastDirLength-1),
* ALine(Space+1:Length-1)
write (OutUnit, 36)
* LastDir(1:LastDirLength-1),
* ALine(Space+1:Length)
write (OutUnit, 31)
* LastDir(1:LastDirLength-1),
* ALine(Space+1:Length)
write (OutUnit, 33)
* LastDir(1:LastDirLength-1),
* ALine(Space+1:Length)
write (OutUnit, 35)
* LastDir(1:LastDirLength-1),
* ALine(Space+1:Length)
|
| Opens |
open (unit = 89,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* file = '/infobank/programs/keep/programs.keep')
open (unit = 90,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* file = '/infobank/programs/dbase/protections/temp.list')
open (unit = 91,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* file = '/infobank/programs/dbase/protections/owners.list')
open (unit = UnitCount(OwnerListLength,1),
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* file = '/infobank/programs/dbase/protections/'//
* OwnerName(1:OwnerNL)//'.list')
|
| Calls |
call system
* ('/bin/ls -lFR /infobank/* | grep -v lost+found '//
* '> /infobank/programs/dbase/protections/temp.lis
call stringlen(OwnerName, OwnerNL)
call stringlen (Owner, OwnerLength)
call stringlen (Owner, OwnerLength)
call stringlen(OwnerName, OwnerNL)
|
|
