USGS InfoBank program -- projects2idshtml

projects2idshtml

  Program to convert a list of projects into 

  <project>_ids.html files for each pr
       

  Clint Steele    12/5/2003   based on scientists2idshtml.for

  Found a group of new projects at the bottom of /infobank/programs/keep/projects.keep
  that were out of alpahabetical order and that did not have abbreviations.
  Found, edited, idupdated, and webupdated activities with variant names in their .project files.
  Removed variant-named html files under projects2idshtml/*,
  re-ran projects2idshtml, and
  webupdated /infobank/programs/html/projects2idshtml directory.
  The challenge is to keep projects.keep standardized.
  - CDegnan, 07/02/2010.
  Sumy Tom        12/8/2010   Changed to adapt the new directory structure /infobank/programs/keep/translate

    

         read (TempUnit, '(q,a)', end = 99)
     *          NameLength, ProjectName
          read (KeepUnit, '(q,a)')
     *         KeepLength, KeepFileName
           read (KeepUnit, '(q,a)', end=680)
     *        TempLength, TempName
             read (TranslateKeepUnit, '(q,a)', end =682)
     *             TempProjLength, TempProjName

          write (Command, '(255x)')
             write (Command, 2) TempProjName(1:GrepLength)
             write (KeepTrackUnit, '(a)') KeepFileName(1:Colon-1)//
     *          ' '//ProjectName(1:NameLength)
          write (HtmlName, '(255x)')
          write (HtmlName, 5) LastLetter,OneName(1:OneLength)
          write (Title, '(a)') 
     *        'CMG Activities by Project ('//
     *        ProjectName(1:NameLength)//
     *        ')'
          write (Path, 7) LastLetter, OneName(1:OneLength)
          write (IDsHtml, '(a)') '<div>  <!-- IDs
          write (IDsHtml, '(a)') '</div>  <!-- IDs

      open (unit   =  TempUnit,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/projects2idshtml.projnames.temp',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit   =  KeepUnit,
     *        access = 'sequential',
     *        file   = '/infobank/tmp/projects2idshtml.filenames.temp',
     *        form   = 'formatted',
     *        status = 'old')
          open (unit   =  KeepUnit,
     *          access = 'sequential',
     *          file   = '/infobank/tmp/projects2idshtml'//
     *                   '.keeptrackcount.temp',
     *          form   = 'formatted',
     *          status = 'old')
             open (unit = TranslateKeepUnit,
     *            access = 'sequential',
     *            file = KeepFileName(1:Colon-1),
     *            form = 'formatted',
     *            status = 'old')
          open (unit = KeepTrackUnit,
     *          access = 'append',
     *          file = '/infobank/tmp/'//
     *                   'projects2idshtml.keeptrackfilenames.temp',
     *          form = 'formatted',
     *          status = 'unknown')
          open (unit   = IDsHtml,
     *          access = 'sequential',
     *          file   =  HtmlName(1:HtmlNameLength),
     *          form   = 'formatted',
     *          status = 'unknown')

          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
      call system ('/bin/cat /infobank/programs/keep/translate/'//
     *             'projects/*.keep | sort -f -u > /infobank/tmp/
     *             'projects2idshtml.projnames.temp')
          call system ('/bin/grep "'//ProjectName(1:NameLength)//
     *                 '" /infobank/programs/keep/translate/'//
     *                 'projects/*.keep > /infobank/tmp/
     *                 'projects2idshtml.filenames.temp')
          call system ('/bin/grep "'//KeepFileName(1:Colon-1)//
     *                 '" /infobank/tmp/projects2idshtml'//
     *                 '.keeptrackfilenames.temp > /infobank/tmp/
     *                 'projects2idshtml.keeptrackcount.temp')
          call stringlen(OneName, OneLength)
          call changecase ('SMALLS', LastLetter)
             call stringlen (Command, CommandLength)
             call system (Command(1:CommandLength))
          call stringlen (HtmlName, HtmlNameLength)
              call stringlen(ProjectName, NameLength)
          call stringlen (Title, TitleLength)
          call htmlhead (IDsHtml, Title(1:TitleLength))
          call includeit (IDsHtml,
     *        '/infobank/programs/html/tools/activities.tabs')
          call includeit (IDsHtml,
     *    '/infobank/programs/html/tools/activities.projects.tabs')
          call stringlen (Path, PathLength)
          call sortids (IDsHtml, 'projects2idshtml', OutputCount,
     *        Path(1:PathLength))
          call htmlfoot (IDsHtml, Path(1:PathLength))
      call system ('/bin/rm /infobank/programs/html/'//
     *              'projects2idshtml/projects.total')