USGS InfoBank program -- maininfo2html

info2html

  Program to generate <Activity_ID>.html from Information Bank files.
    

  Typing "info2html" runs "/infobank/programs/shells/info2html"

  it creates "/tmp/info2html.control.keep" (a list of activity IDs)
  and then executes this program.
  
  This info2html reads "/infobank/programs/keep/dictionary.keep" information.
  Loops through for each ID in the "/tmp/info2html.control.keep" ID list.
  Calls "inventory" to determine the existance or not of 
    certain directries and .filenames
  Opens the "<ID>/html/<ID>.html" file.
  Calls "htmlhead" to insert the standard header.
  Calls "controlbar" to insert the standard control bar while
     using "existance" info to determine if links are added.
  Calls "overviewtable" to add the ".overview" info.
  Calls "overviewtable" to add the ".ngdc_overview" info.
  Calls "htmlfoot" to insert the standard footer.
  Closes the "<ID>/html/<ID>,html" file.
 
  Calls "types" that uses "/infobank/programs/keep/equiptypes.keep" to
     construct nested level filenames.
  Multiply calls "make0to6" for 
  "nav", "bath", "mag", "grav", "seis", "imag"
  data types.
  For "meta" calls "makemetatype", for others calls "makedatatype".
  "makemetatype" calls "linkable", "nonlinkable", and "publinkable".
  "makedatatype" calls "specmeta" and "specdata"
    

  Clint Steele   10/16/97

  replaces functionality of FJOB

    

 open (unit   = DictionaryUnit,
*      file   = '/infobank/programs/keep/dictionary.keep',
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'old')

 open (unit   = ControlUnit,
*      file   = '/tmp/info2html.control.temp',
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'old')

 open (unit = 58,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/infobank/'//
*             ALine(1:1)//'/'//
*             ShortID(1:IDLength)//'/meta/'//
*             LongID(1:IDLength+3)//'.ids')

    

     read (DictionaryUnit, '(q,a)', end=501) 
*        TempLineLength, TempLine(1:TempLineLength)

     read (TempLine(Tab(8)+1:Tab(9)-1), '(q,a)')
*        DictionaryLength, Dictionary(Count)(1:DictionaryLength)
 read (ControlUnit, '(q,a)', end=99) 
*      ALineLength, ALine(1:ALineLength)

 read (58, '(t10,a19)', end = 589) CapID
    

 write (Existance, '(1024x)')
 write (ShortID, '(7x)')
 write (LongID, '(10x)')
 write (CapID, '(20x)')
     write (LongID, 2) 
*       ALine(1:1), ALine(2:3), ALine(4:5), ALine(6:7)
     write (LongID, 2) 
*       ALine(1:1), ALine(2:2), ALine(3:4), ALine(5:6)
 write (Existance, '(1024x)')
    

 call stringlen (CapID, CapIDLength)
 call changecase ('CAPITALS', CapID(1:CapIDLength))
 call stringlen (Existance, ExistanceLength)
 call inventory (ShortID(1:1), 
*               ShortID(1:IDLength), LongID(1:IDLength+3),
*               Existance, ExistanceLength)

 call stringlen (Existance, ExistanceLength)
*     call make0to6 ('bath', 'Bathymetry',
*               IDLength, 
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call make0to6 ('imag', 'Imagery',
*               IDLength, 
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call makegeo ('geo', 'Geodetics',
*               IDLength, 
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call make0to6 ('grav', 'Gravity',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call make0to6 ('mag', 'Magnetics',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call makemeta ('meta', 'Metadata',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call makemeter ('meter', 'Meters',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call make0to6 ('nav', 'Navigation',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call makesamp ('samp', 'Samples',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

*     call make0to6 ('seis', 'Seismic',
*               IDLength,
*               ShortID, LongID, CapID(1:CapIDLength),
*               Dictionary, Existance(1:ExistanceLength))

     call system ('/bin/rm /tmp/info2html.temp.list')
     call system ('/bin/rm /tmp/info2html.data.list')
     call system ('/bin/rm /tmp/info2html.meta.list')