USGS InfoBank program -- itemcontainers2html

itemcontainers2html

  Program to convert .container files for items into .html web pages.

       

  Clint Steele     1/4/2005


    

              read (90, '(q,a)', end = 99)
     *            HeaderLength, Header(1:HeaderLength)
                  read (90, '(q,a)', end = 98)
     *                ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)')
     *            ALineLength, ALine(1:ALineLength)
                  read (90, '(q,a)', end = 99)
     *                ALineLength, ALine(1:ALineLength)

          write (InFile, '(255x)')
          write (InFile, '(a,i3.3,a,i5.5,a)')
     *        '/infobank/items/',Container/100,
     *        '00s/',Container,'.container'
              write (Header, '(2048x)')
                  write (ALine, '(2048x)')
              write (Title, '(255x)')
              write (Title, '(a,i5.5)')
     *            'USGS Activity Physical Data: Container ',
     *            Container
              write (91, '(4x,a)') '</t
              write (91, '(2x,a)') '</t
              write (91, '(a)')    '</tabl
              write (91, '(a)') '<
              write (91, '(a)') '<table border="3" bgcolor="ccffff
              write (91, '(a)') '<t
              write (91, '(a)') '<t
              write (91, '(4x,a)') 
     *           '<b>Location of Container
              write (91, '(4x,a)') '<b
              write (91, '(4x,a)') 
     *          '   '//Location(1:LocationLength)
              write (91, '(a)') '</t
              write (91, '(a)') '</t
              write (91, '(a)') '</tabl
              write (91, '(a)') '<
              write (91, '(a)') '<table border-"0
              write (91, '(a)') '<t
              write (91, '(a)') '<t
              write (91, '(a)') '    '
              write (91, '(a)') '</t
              write (91, '(a)') '<t
              write (91, '(a)') '<table border="1" bgcolor="ccffff
              write (91, '(2x,a)') 
     *            '<tr bgcolor="00ffff" align="center
                      write (91, '(4x,a)') 
     *                  '<th&
     *                  Header(HeaderTab(Loop)+1:HeaderTab(Loop+1)-1)//
     *                  '</t
              write (91, '(2x,a)') '</t
                  write (ALine, '(2048x)')
                      write (ID, '(80x)')
                  write (91, '(2x,a)') '<t
                              write (91, '(4x,a)') '<td&
     *                  '<a href="http://walrus.wr.usgs.gov/infobank/
     *                  ID(1:1)//'/'//ID(1:IDLength)//'/html/'//
     *                  LongSmallID(1:IDLength+3)//'.meta.html">
     *                  LongCapID(1:IDLength+3)//'</
                                write (91, '(4x,a)')
     *                            '<td&
     *                            ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
     *                            '</t
                                write (91, '(4x,a)')
     *                            '<td&
     *                            ALine(Tab(Loop)+1:Comma)//
     *                            '<br&
     *                            ALine(Comma+1:Tab(Loop+1)-1)//
     *                            '</t
                              write (91, '(4x,a)') '<t
                                write (91, '(4x,a)') 
     *                          ALine(OutStart:OutEnd)
                                  write (91, '(4x,a)')
     *                              ALine(OutStart:OutMiddle-1)//'<b
                                write (91, '(4x,a)')
     *                            ALine(OutStart:OutEnd)
                              write (91, '(4x,a)') '</t
                  write (91, '(2x,a)') '</t
              write (91, '(a)') '</tabl
              write (91, '(a)') '</t
              write (91, '(a)') '</t
              write (91, '(a)') '</tabl
              write (91, '(a)') '<table border="0" width="90%" 
     *              'align="center" bgcolor="#f3f3f3" '//
     *              'cellpadding="0" cellspacing="0"&g
              write (91, '(2x,a)') '<t
              write (91, '(4x,a)') '<t

              open (unit = 90,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'unknown',
     *              file = '/infobank/tmp/itemcontainers2html.temp')
              open (unit = 91,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'unknown',
     *              file = InFile(1:InFileLength)//'.html')

          call stringlen (InFile, InFileLength)
          call system ('/bin/sed -e ''s/\"//g'' '//
     *                 InFile(1:InFileLength)//' > 
     *                 '/infobank/tmp/itemcontainers2html.temp')
                  call stringlen (Location, LocationLength)
              call stringlen (Title, TitleLength)
              call htmlhead (91, Title(1:TitleLength))
              call includeit (91,
     *            '/infobank/programs/html/tools/home.tabs')
              call includeit (91,
     *            '/infobank/programs/html/tools/home.uses.tabs')
              call includeit (91,
     *            '/infobank/programs/html/tools/home.cmgstaff.tabs')
              call includeit (91,
     *          '/infobank/programs/html/tools/home.cmgfacilities.tabs')
              call includeit (91,
     *          '/infobank/programs/html/tools/home.cmgdirections.tabs')
              call includeit (91,
     *            '/infobank/programs/keep/contents.keep')
                      call stringlen (ID, IDLength)
                          call changecase ('SMALLS', ID(1:IDLength))
                          call changecase ('CAPITALS', LongCapID)
              call htmlfoot (91, InFile(1:InFileLength)//'.html')