changes

  Program to update InfoBank activities when data files change.
    

  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

    

 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   = '/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')

    

 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
    

 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 > '//
*        '/tmp/changes.data.ids.temp'
     write (91, '(a)') 
*        '/bin/mv /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 > '//
*        '/tmp/changes.meta.ids.temp'
     write (91, '(a,/)') 
*        '/bin/mv /tmp/changes.meta.ids.temp '//
*        '/infobank/programs/dbase/changes/meta.ids'
     write (ID, '(7x)')
     write (91, '(a)') ID
    

 if (Exists) call system ('/bin/rm '//
*     '/infobank/programs/dbase/changes/data.keep')

 if (Exists) call system ('/bin/rm '//
*     '/infobank/programs/dbase/changes/meta.keep') 

 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 > /tmp/touched.list')
     call system ('/bin/echo 00000001 > /tmp/touched.list')
 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 > '//
*    '/tmp/infobank.changes.'//DataType//'.ids.temp')

 call system ('/bin/mv'//
*    ' /tmp/infobank.changes.'//DataType//'.ids.temp'//
*    ' /infobank/programs/dbase/changes/'//DataType//'.ids')

 call system ('grep /infobank/./....../'//SubDir//
*             ' /we/clint/daily/ModifiedFiles.keep >> '//
*             '/infobank/programs/dbase/changes/'//
*             DataType//'.keep')

 call system ('grep /infobank/./......./'//SubDir//
*             ' /we/clint/daily/ModifiedFiles.keep >> '//
*             '/infobank/programs/dbase/changes/'//
*             DataType//'.keep')