Link to USGS home page Link to InfoBank home page Link to InfoBank home page
 USGS Coastal and Marine Geology banner.    Search InfoBank.
USGS InfoBank program -- changes Skip navigational links
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab Activities tabs
   
InfoBank Programs: by Name   by Data Type   General Tools   GIS   Plotting   Web   USGS Disclaimer   InfoBank Programs   Boothill  
   
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

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

    
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 > '//
*        '/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
    
Calls
 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')

    

Skip footer navigational links

InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program  
U. S. Department of the Interior   U. S. Geological Survey   Geologic Information   Ask-A-Geologist   USGS privacy statement   Disclaimer  

URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/changes/changes.doc.html
Maintainer: Clint Steele
Comments: e-mail
Last modified: Sat Oct 16 03:17:55 PDT 2004  (wcs)