USGS InfoBank program -- containers2html

containers2html

  Program to convert .container files

  into .html web pages.
       

  Clint Steele     8/25/2005     based on activitycontainers2html.for


    

          read (HoldngsListKeep, '(q,a)', end = 986)
     *        AFileLength, AFile(1:AFileLength)
          read (DBaseTxt, '(q,a)') HeaderLength(HeaderCount), 
     *        Header(HeaderCount)(1:HeaderLength(HeaderCount))
              read (ContainerItems, '(q)', end = 96) ALineLength
              read (ContainerItems, '(a)', end = 96)
     *            ALine(1:ALineLength)
              read (ContainerItems, '(q,a)', end = 99)
     *            ALineLength, ALine(1:ALineLength)

          write (AFile, '(4096x)')
          write (ContainerName, '(i5.5)') ContainerLoop
          write (ContainerFile, '(255x)')
          write (Title, '(255x)')
          write (Title, '(a)')
     *        'Activity Physical Data: '//
     *        'Container '//ContainerName(1:5)
          write (ContainerHtml, '(a)')
     *        '<!-- START /infobank/programs/html
     *        '/containers2html/container2html.for --&g
          write (ContainerHtml, '(4x,a)') '</t
          write (ContainerHtml, '(2x,a)') '</t
          write (ContainerHtml, '(a)')    '</tabl
              write (ALine, '(4096x)')
                  write (ContainerHtml, '(a)') '<
                  write (ContainerHtml, '(a)') '<table border="0
                  write (ContainerHtml, '(2x,a)') '<t
                  write (ContainerHtml, '(4x,a)') '<t
                  write (ContainerHtml, '(a)')
     *                '<table border="3" bgcolor="ccffff
                  write (ContainerHtml, '(2x,a)') '<t
                  write (ContainerHtml, '(4x,a)') '<t
                  write (ContainerHtml, '(6x,a)')
     *                '<b>Location of Container
                  write (ContainerHtml, '(4x,a)') '<b
                  write (ContainerHtml, '(6x,a)')
     *                ALine(Tab(2)+1:Tab(3)-1)//
     *                ', '//ALine(Tab(3)+1:Tab(4)-1)//
     *                ', '//ALine(Tab(4)+1:Tab(5)-1)//
     *                ', '//ALine(Tab(5)+1:Tab(6)-1)//
     *                ', '//ALine(Tab(6)+1:Tab(7)-1)
                  write (ContainerHtml, '(4x,a)') '</t
                  write (ContainerHtml, '(2x,a)') '</t
                  write (ContainerHtml, '(a)')    '</tabl
                  write (ContainerHtml, '(4x,a)') '</t
                  write (ContainerHtml, '(4x,a)') '<td valign="top
                  write (ContainerHtml, '(6x,a)')
     *                'For lat/long information,'
                  write (ContainerHtml, '(6x,a)')
     *                'click the Activity ID link, then...'
                  write (ContainerHtml, '(6x,a)') '<b
                  write (ContainerHtml, '(6x,a)')
     *                '<img src="http://walrus.wr.usgs.gov
     *                '/infobank/programs/html/tools/'//
     *                'MetadataDataBar.jpg" '//
     *                'alt="page section highlighting '//
     *                'Samples and samp(GE GM)"'
                  write (ContainerHtml, '(6x,a)') '<b
                  write (ContainerHtml, '(6x,a)')
     *                '<font color="red">1</f
     *                'see list of samples;'
                  write (ContainerHtml, '(6x,a)')
     *                '<font color="red">2</f
     *                'see samples in Google Earth;'
                  write (ContainerHtml, '(6x,a)')
     *                '<font color="red">3</f
     *                'see samples in Google Maps.'
                  write (ContainerHtml, '(4x,a)') '</t
                  write (ContainerHtml, '(2x,a)') '</t
                  write (ContainerHtml, '(a)') '</tabl
                  write (ContainerHtml, '(/,a,/)')    '<
                      write (ContainerHtml, '(a,/,a)') 
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/containers2html'//
     *                    'images/'//ContainerName(5:5)//'/'//
     *                    ContainerName(1:5)//'.jpg" '//
     *                    'target="new">
     *                    '<img src="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/containers2html'//
     *                    'images/'//ContainerName(5:5)//'/'//
     *                    ContainerName(1:5)//'.jpg" '//
     *                    'alt="container photo" width="250">&l
                      write (ContainerHtml, '(a,/,a)')
     *  	              '<a href="http://walrus.wr.usgs.gov
     *  	              '/infobank/programs/html/containers2html/'//
     *                    'images/'//ContainerName(5:5)//'/'//
     *                    ContainerName(1:5)//
     *                    Alphabet(AlphaLoop:AlphaLoop)//'.jpg" '//
     *                    'target="new">
     *  	              '<img src="http://walrus.wr.usgs.gov
     *  	              '/infobank/programs/html/containers2html/'//
     *                    'images/'//ContainerName(5:5)//'/'//
     *                    ContainerName(1:5)//
     *                    Alphabet(AlphaLoop:AlphaLoop)//'.jpg" '//
     *                    'alt="container photo" width="250">&l
                      write (ContainerHtml, '(/,a,/)') '<
          write (ContainerHtml, '(a)')
     *        '<table border="1" bgcolor="ccffff
          write (ContainerHtml, '(2x,a)') 
     *        '<tr bgcolor="00ffff" align="center
          write (ContainerHtml, '(4x,a)')
     *        '<th>Item #
                  write (ContainerHtml, '(4x,a)') 
     *                '<th&
     *                Header(ThisHeader)
     *                (HeaderTab(ThisHeader,Loop)+1:
     *                HeaderTab(ThisHeader,Loop+1)-1)//
     *                '</t
          write (ContainerHtml, '(2x,a)') '</t
              write (ALine, '(4096x)')
              write (ContainerHtml, '(2x,a)') '<t
              write (ContainerHtml, '(4x,a)') '<td align="center"&
     *            ALine(1:Tab(1)-1)//' </t
              write (ShortID, '(20x)')
              write (LongID, '(20x)')
                          write (AccessionName, '(255x)')
                              write (ContainerHtml, '(4x,a)') 
     *                            '<td align="center"&
     *                            '<a href="http://
     *                            'walrus.wr.usgs.gov'//
     *                            '/infobank/programs/dbase'//
     *                            '/accessions/'//
     *                            AccessionName(AccessionLength-3:
     *                            AccessionLength-2)//'00s/'//
     *                            AccessionName(AccessionLength-3:
     *                            AccessionLength)//
     *                            '.pdf" target="accessionpdf">
     *                            ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
     *                            '</a>
                              write (ContainerHtml, '(4x,a)') 
     *                            '<td align="center"&
     *                            ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
     *                            ' </t
                              write (ContainerHtml, '(4x,a)')
     *                            '<td align="center"&
     *                            '<a href="http://
     *                            'walrus.wr.usgs.gov'//
     *                            '/infobank/'//ShortID(1:1)//'/'//
     *                            ShortID(1:IDLength)//'/html/'//
     *                            LongID(1:IDLength+3)//
     *                            '.meta.html" target="new">
     *                            ShortID(1:IDLength)//
     *                            '</a> 
                              write (ContainerHtml, '(4x,a)') 
     *                            '<td align="center"&
     *                            ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
     *                            ' </t
              write (ContainerHtml, '(2x,a)') '</t
          write (ContainerHtml, '(2x,a)')
     *        '<tr bgcolor="00ffff" align="center
          write (ContainerHtml, '(4x,a)') '<th>Item #
                  write (ContainerHtml, '(4x,a)')
     *                '<th&
     *                Header(ThisHeader)
     *                (HeaderTab(ThisHeader,Loop)+1:
     *                HeaderTab(ThisHeader,Loop+1)-1)//
     *                '</t
          write (ContainerHtml, '(2x,a)') '</t
          write (ContainerHtml, '(a)') '</tabl
          write (ContainerHtml, '(a)') '</t
          write (ContainerHtml, '(a)') '</t
          write (ContainerHtml, '(a)') '</tabl
          write (ContainerHtml, '(a)') '</di
          write (ContainerHtml, '(a)')
     *        '<table border="0" width="100%" 
     *        ' bgcolor="#ffffff" '//
     *        'cellpadding="0" cellspacing="0"&g
          write (ContainerHtml, '(2x,a)') '<t
          write (ContainerHtml, '(4x,a)') '<td align="left
          write (ContainerHtml, '(a)')
     *        '<!-- END   /infobank/programs/html
     *        '/containers2html/container2html.for --&g

      open (unit = HoldngsListKeep,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/keep/holdings_list.keep')
          open (unit = DBaseTxt,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          name = AFile(1:AFileLength))
          open (unit = ContainerItems,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          name = ContainerFile(1:ContainerFileLength))
          open (unit = ContainerHtml,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          file = '/infobank/programs/html/containers2html/'//
     *                 'containers/'//ContainerName(5:5)//'/'//
     *                 ContainerName(1:5)//'.html')

      call executiontime (300)
          call stringlen (DBaseName(HeaderCount), 
     *                    DBaseNameLength(HeaderCount))
          call stringlen (ContainerFile, ContainerFileLength)
          call stringlen (Title, TitleLength)
          call htmlhead (ContainerHtml, Title(1:TitleLength))
          call includeit (ContainerHtml,
     *        '/infobank/programs/html/tools/home.tabs')
          call includeit (ContainerHtml,
     *        '/infobank/programs/html/tools/home.uses.tabs')
          call includeit (ContainerHtml,
     *        '/infobank/programs/html/tools/home.cmgstaff.tabs')
          call includeit (ContainerHtml,
     *        '/infobank/programs/html/tools/home.cmgfacilities.tabs')
          call includeit (ContainerHtml,
     *        '/infobank/programs/html/tools/home.cmgdirections.tabs')
          call includeit (ContainerHtml,
     *        '/infobank/programs/keep/contents.keep')
              call changecase ('SMALLS', ShortID)
              call stringlen (ShortID, IDLength)
                          call stringlen 
     *                        (AccessionName, AccessionLength)
          call htmlfoot (ContainerHtml, 
     *        '/infobank/programs/html/containers2html/'//
     *        'containers/'//ContainerName(5:5)//'/'//
     *        ContainerName(1:5)//'.html')