Expanded Description
| Topic |
Description |
| Name |
metas2html |
| Synopsis |
/infobank/programs/gaz/gazboothill/metas2html/metas2html.for |
| Description |
Program to add html links to meta files for gazettes.
|
| AUTHOR |
Clint Steele 2/1/2001
|
| MODIFIED |
B.F. 11/21/02
added 'http://walrus.wr.usgs.gov' to path in call to htmlfoot
|
| Reads |
read (90, '(t13,q,a)', end = 99)
* FileNameLength,
* FileName(1:FileNameLength)
read (91, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (92, '(2x,a)') '<t
write (92, '(4x,a)') '<td bgcolor="#00ffff
write (92, '(6x,a)') '<a href="http://walrus.wr.usgs.gov
* '/infobank/gazette/metadata/'//
* FileName(28:FileNameLength)//'">
* '<b>Text only version<
write (92, '(4x,a,/)') '</t
write (92, '(4x,a)') '<td bgcolor="#ccffff
write (92, '(6x,a)') ' '
write (92, '(4x,a)') '</t
write (92, '(2x,a)') '</t
write (LastID, '(7x)')
write (LastLink, '(255x)')
write (92, '(a)') '<T
write (92, '(a)') '<PR
write (LastLink, '(255x)')
write (92, '(a,a,a)') ALine(1:36),
* LastLink(1:LastLinkLength),
* ALine(43:ALineLength)
write (92, '(a,a,a)') ALine(1:36),
* LastLink(1:LastLinkLength),
* ALine(44:ALineLength)
write (92, '(a)') '</PR
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/metas2html.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = FileName(1:FileNameLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/htmlmeta/'//
* FileName(28:FileNameLength)//'.html')
|
| Calls |
call system ('grep gazette /infobank/programs/keep/'//
* 'infobank_files.keep | '//
* 'grep .metadata$ | '//
* 'grep /infobank/gazette/metadata '//
* '> /tmp/metas2html.tem
call htmlhead (92, 'CMG Metadata')
call includeit (92,
* '/infobank/programs/html/tools/atlas.tabs')
call includeit (92,
* '/infobank/programs/html/tools/atlas.hemispheres.tabs')
call includeit (92,
* '/infobank/programs/html/tools/atlas.continents.tabs')
call includeit (92,
* '/infobank/programs/html/tools/atlas.oceans.tabs')
call includeit (92,
* '/infobank/programs/html/tools/atlas.quickpicks.tabs')
call includeit (92,
* '/infobank/programs/keep/contents.keep')
call stringlen (LastID(1:7), LastIDLength)
call changecase ('SMALLS', SmallID(1:7))
call stringlen (LastLink, LastLinkLength)
call htmlfoot (92, 'http://walrus.wr.usgs.gov/'//
* 'infobank/gazette/htmlmeta/'//
* FileName(28:FileNameLength)//'.html')
|
|
