USGS InfoBank program -- types2htmls

types2htmls

  Program to change links within <equip> sp

     files resulting from ids2html
     that link to meta.html files
     to  links to <equip>.html 
       

  Clint Steele    4/11/02


    

          read (90, '(t13,q,a)', end = 99)
     *        InFileLength, InFile(1:InFileLength)

      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/tmp/types2htmls.'//OldName//'.temp')

      call system ('/bin/grep /htmlids/ '//
     *    '/infobank/programs/keep/infobank_files.keep | '//
     *    '/bin/grep -v index.html | '//
     *    '/bin/grep -v \/$ '//
     *    ' > /tmp/types2htmls.tem
      call sedit ('bathymetry', 'bath')
      call sedit ('cameras', 'cam')
      call sedit ('geodetic', 'geo')
      call sedit ('gravity', 'grav')
      call sedit ('magnetics', 'mag')
      call sedit ('meters', 'meter')
      call sedit ('navigation', 'nav')
      call sedit ('samples', 'samp')
      call sedit ('seismic', 'seis')
      call system ('/bin/rm /tmp/types2htmls.temp')
      call system ('/bin/grep '//OldName//' /tmp/types2htmls.temp '//
     *    ' > /tmp/types2htmls.'//OldName//'.tem
          call system ('/bin/cat '//InFile(1:InFileLength)//
     *        ' | sed -e s/meta.html/'//NewName//'.html/ > 
     *        '/tmp/types2htmls.workfile.temp;'//
     *        '/bin/mv /tmp/types2htmls.workfile.temp '//
     *        InFile(1:InFileLength))