Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- updateindexhtmls

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
updateindexhtmls
Synopsis
/infobank/programs/dbase/updateindexhtmls/updateindexhtmls.for
Description
  Program to verify that all InfoBank directories contain in index.html.

       
AUTHOR
  Clint Steele     4/17/01

  Carolyn Degnan   2/11/2012 substituted me for Clint
  added handler when update_index.html_ok.temp file exists, CDegnan, 02/21/2012

    
Reads
          read (90, '(q,a)', end = 99)
     *        DirLength, DirPath(1:DirLength)
Writes
            write (91, 2) DirPath(1:DirLength)
Opens
      open (unit = 90,
     *      form = 'formatted',
     *      status = 'old',
     *      access = 'sequential',
     *      name = '/infobank/tmp/update_index.html.temp')
      open (unit = 91,
     *      form = 'formatted',
     *      status = 'new',
     *      access = 'sequential',
     *      name = '/infobank/tmp/update_index.html_ok.temp')
Calls
      call system ('grep \/$ '//
     *             '\/infobank\/programs\/keep'//
     *             '\/infobank_files.keep | '//
     *             'grep -v /infobank/gos | '//
     *             'grep -v /arc | '//
     *             'sed -e "s/^............//" > 
     *             '/infobank/tmp/update_index.html.temp')
          call system ('/bin/rm /infobank/tmp/'//
     *        'update_index.html_ok.temp')
              call system ('/bin/cp /we/carolyn/index.html '//
     *                     DirPath(1:DirLength))
      call system ('/bin/rm /infobank/tmp/update_index.html.temp')

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/updateindexhtmls/updateindexhtmls.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:42 PDT 2013  (chd)