Expanded description
| Topic |
Description |
| Name |
areacheck |
| Synopsis |
/infobank/programs/nav/areacheck/areacheck.for |
| Description |
Program to check for the existance of
.navarea, .regionarea, and .atlasarea
files for activities.
|
| Author |
Clint Steele 2/14/2006
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/areacheck.temp')
|
| Reads |
read (90, '(q,a)', end = 99)
* PathLength, Path(1:PathLength)
|
| Writes |
write (Path, '(80x)')
write (ID, '(10x)')
|
| Calls |
call system ('/bin/ls -d /infobank/'//Alphabet(1:1)//
* '/* | grep -v index.html > /tmp/areacheck.temp')
call system ('/bin/ls -d /infobank/'//Alphabet(Loop:Loop)//
* '/* | grep -v index.html >> /tmp/areacheck.temp')
|
|
