itemcontainers2html

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

  Clint Steele     1/4/2005


    

         open (unit = 90,
*              access = 'sequential',
*              form = 'formatted',
*              status = 'unknown',
*              file = '/tmp/itemcontainers2html.temp')

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

    

         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)') '</td>'
         write (91, '(2x,a)') '</tr>'
         write (91, '(a)')    '</table>'
         write (91, '(a)') '<p>'
         write (91, '(a)') '<table border="3" bgcolor="ccffff">'
         write (91, '(a)') '<tr>'
         write (91, '(a)') '<td>'
         write (91, '(4x,a)') 
*           '<b>Location of Container:</b>'
         write (91, '(4x,a)') '<br>'
         write (91, '(4x,a)') 
*          '   '//Location(1:LocationLength)
         write (91, '(a)') '</td>'
         write (91, '(a)') '</tr>'
         write (91, '(a)') '</table>'
         write (91, '(a)') '<p>'
         write (91, '(a)') '<table border-"0">'
         write (91, '(a)') '<tr>'
         write (91, '(a)') '<td>'
         write (91, '(a)') '    '
         write (91, '(a)') '</td>'
         write (91, '(a)') '<td>'
         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)//
*                  '</th>'
         write (91, '(2x,a)') '</tr>'
             write (ALine, '(2048x)')
                 write (ID, '(80x)')
             write (91, '(2x,a)') '<tr>'
                         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)//'</a>'

                           write (91, '(4x,a)')
*                            '<td>'//
*                            ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
*                            '</td>'

                           write (91, '(4x,a)')
*                            '<td>'//
*                            ALine(Tab(Loop)+1:Comma)//
*                            '<br>'//
*                            ALine(Comma+1:Tab(Loop+1)-1)//
*                            '</td>'
                         write (91, '(4x,a)') '<td>'
                           write (91, '(4x,a)') 
*                          ALine(OutStart:OutEnd)
                             write (91, '(4x,a)')
*                              ALine(OutStart:OutMiddle-1)//'<br>'
                           write (91, '(4x,a)')
*                            ALine(OutStart:OutEnd)
                         write (91, '(4x,a)') '</td>'
             write (91, '(2x,a)') '</tr>'
         write (91, '(a)') '</table>'
         write (91, '(a)') '</td>'
         write (91, '(a)') '</tr>'
         write (91, '(a)') '</table>'
         write (91, '(a)') '<table border="0" width="90%" '//
*              'align="center" bgcolor="#f3f3f3" '//
*              'cellpadding="0" cellspacing="0">'
         write (91, '(2x,a)') '<tr>'
         write (91, '(4x,a)') '<td>'
    

     call stringlen (InFile, InFileLength)
     call system ('/bin/sed -e ''s/\"//g'' '//
*                 InFile(1:InFileLength)//' > '//
*                 '/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')