Expanded description
| Topic |
Description |
| Name |
items2html |
| Synopsis |
/infobank/programs/html/items2html/items2html.for |
| Description |
Program to convert .item files into .html files.
|
| Author |
Clint Steele 1/30/2003
based on analog2html.for
|
| Opens |
open (unit = HistoryUnit,
* file = '/infobank/programs/html/items2html/history.log',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = ListUnit,
* file = '/tmp/items2html.temp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = InUnit,
* file = InName(1:InNameLength),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = OutUnit,
* file = OutName(1:OutNameLength),
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
|
| Reads |
read (ListUnit, '(t13,q,a)', end = 99)
* InNameLength, InName(1:InNameLength)
read (InUnit, '(q,a)', end = 999)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (Command, '(255x)')
write (InName, '(255x)')
write (OutName, '(255x)')
write (OutName, 2) InName(1:InNameLength-5)
write (HistoryUnit, '(a)') OutName(1:OutNameLength)
write (ALine, '(1024x)')
write (OutUnit, '(a)')
* '<table border="0" width="80%"><tr><td>'
|
| Calls |
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (OutName, OutNameLength)
call htmlhead (OutUnit,
* 'Activity Physical Data: Container '//
* InName(InNameLength-9:InNameLength-5))
call includeit (OutUnit,
* '/infobank/programs/html/tools/home.tabs')
call includeit (OutUnit,
* '/infobank/programs/html/tools/home.uses.tabs')
call includeit (OutUnit,
* '/infobank/programs/html/tools/home.cmgstaff.tabs')
call includeit (OutUnit,
* '/infobank/programs/html/tools/home.cmgfacilities.tabs')
call includeit (OutUnit,
* '/infobank/programs/html/tools/home.cmgdirections.tabs')
call includeit (OutUnit,
* '/infobank/programs/keep/contents.keep')
call htmlfromaccession (InUnit, OutUnit)
call htmlfromhyphens (InUnit, OutUnit)
call stringlen (Path, PathLength)
call htmlfoot (OutUnit, Path)
|
|
