Expanded Description
| Topic |
Description |
| Name |
changes |
| Synopsis |
/infobank/programs/dbase/changes/changes.for |
| Description |
Program to update InfoBank activities when data files change.
|
| AUTHOR |
Clint Steele 1/24/02
added changes for checking changes to arc directory - CDegnan, 1/31/02
creates executable script for update.arc & fixed backslash - Gerry, 3/18/02
removed statements to create arc updates - Gerry, 7/19/02
|
| Reads |
read (90, '(q,a)', end = 97) IDLength, ID(1:IDLength)
read (93, '(i8)') TouchedCount
read (90, '(q,a)', end = 96) IDLength, ID(1:IDLength)
read (90, '(q,a)', end = 95) IDLength, ID(1:IDLength)
read (90, '(q,a)', end = 94) IDLength, ID(1:IDLength)
read (90, '(12x,a)', end = 99) ID
|
| Writes |
write (ID, '(7x)')
write (92, '(a,/)')
* 'touch /infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/arc/index.html'
write (91, '(1x)')
write (ID, '(7x)')
write (91, '(a)') 'makefilelist '//ID(1:IDLength)
write (91, '(a)') 'info2html '//ID(1:IDLength)
write (91, '(a)') 'makefmeta '//ID(1:IDLength)
write (91, '(a)') 'makefilelist '//ID(1:IDLength)
write (91, '(a)') 'info2html '//ID(1:IDLength)
write (ID, '(7x)')
write (91, '(a,/,a,/,a,/)')
* 'webupdate', '/infobank/'//
* ID(1:1)//'/'//ID(1:IDLength),'pwd'
write (91, '(1x)')
write (ID, '(7x)')
write (91, '(a)')
* 'grep -v '//ID(1:IDLength)//' '//
* '/infobank/programs/dbase/changes/data.ids >
* '/infobank/tmp/changes.data.ids.temp'
write (91, '(a)')
* '/bin/mv /infobank/tmp/changes.data.ids.temp '//
* '/infobank/programs/dbase/changes/data.ids'
write (91, '(a)')
* 'grep -v '//ID(1:IDLength)//' '//
* '/infobank/programs/dbase/changes/meta.ids >
* '/infobank/tmp/changes.meta.ids.temp'
write (91, '(a,/)')
* '/bin/mv /infobank/tmp/changes.meta.ids.temp '//
* '/infobank/programs/dbase/changes/meta.ids'
write (ID, '(7x)')
write (91, '(a)') ID
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/dbase/changes/data.ids')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/changes/update.touch')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/touched.list')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/changes/update.info2html')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/changes/changed.ids')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/changes/update.webupdate')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/changes/update.grep')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/dbase/changes/'//
* DataType//'.keep')
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/changes/'//
* DataType//'.ids')
|
| Calls |
call getchange ('data', 'bath')
call getchange ('data', 'cam')
call getchange ('data', 'geo')
call getchange ('data', 'grav')
call getchange ('data', 'mag')
call getchange ('data', 'meter')
call getchange ('data', 'nav')
call getchange ('data', 'samp')
call getchange ('data', 'seis')
call getchange ('meta', 'meta')
call getids ('data')
call getids ('meta')
call stringlen (ID, IDLength)
call system ('/bin/find /infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/arc -newer /infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//
* '/arc/index.html -print | wc > /infobank/tmp/touched.lis
call system (
* '/bin/echo 00000001 > /infobank/tmp/touched.lis
call system ('/bin/cat '//
* '/infobank/programs/dbase/changes/data.ids '//
* '/infobank/programs/dbase/changes/meta.ids | '//
* '/bin/sort -u >
* '/infobank/programs/dbase/changes/changed.ids')
call stringlen (ID, IDLength)
call stringlen (ID, IDLength)
call stringlen (ID, IDLength)
call system ('/bin/cat '//
* '/infobank/programs/dbase/changes/update.touch '//
* '/infobank/programs/dbase/changes/update.info2html '//
* '/infobank/programs/dbase/changes/update.webupdate '//
* '/infobank/programs/dbase/changes/update.grep >
* '/infobank/programs/dbase/changes/update')
call system ('/bin/sort -u '//
* '/infobank/programs/dbase/changes/'//
* DataType//'.ids >
* '/infobank/tmp/infobank.changes.'//DataType//'.ids.temp')
call system ('/bin/mv'//
* ' /infobank/tmp/infobank.changes.'//DataType//'.ids.temp'//
* ' /infobank/programs/dbase/changes/'//DataType//'.ids')
call system ('grep /infobank/./....../'//SubDir//
* ' /we/clint/daily/ModifiedFiles.keep >&g
* '/infobank/programs/dbase/changes/'//
* DataType//'.keep')
call system ('grep /infobank/./......./'//SubDir//
* ' /we/clint/daily/ModifiedFiles.keep >&g
* '/infobank/programs/dbase/changes/'//
* DataType//'.keep')
|
|
