Expanded Description
| Topic |
Description |
| Name |
years2idshtml |
| Synopsis |
/infobank/programs/html/years2idshtml/years2idshtml.for |
| Description |
Program to make a script that will generate
<year>_ids.html files for each ye
|
| AUTHOR |
Clint Steele 3/18/96
|
| Reads |
read (SystemDateTime(21:24), '(i4)') EndYear
read (TempYear(3:4), '(i2)') Year
|
| Writes |
write (SummaryFile, 580)
write (SummaryFile, 4000)
write (TempYear, '(i4.4)') Count
write (Command, '(255x)')
write (Command, '(a,i2.2,a)')
* 'ls -d1 /infobank/?/*',
* Year,
* '?? | sed -e "s/^\\/.*\\/.\\///" >
* '/infobank/programs/html/years2idshtml/'//
* 'temp_ids.list'
write (HtmlName, 5) Year+Century
write (Title, 6) Year + Century
write (Path, 7) Year+Century
write (IDHtml, 666)
write (Command, '(255x)')
write (Command, 722) Year
write (SummaryFile, 453)
write (SummaryFile,931)
* Path(1:PathLength), Year+Century
write (SummaryFile, 374) Year+Century
write (SummaryFile, 454)
write (SummaryFile, 32)
write (SummaryFile, 430)
|
| Opens |
open (unit = SummaryFile,
* access = 'sequential',
* file = '/infobank/programs/html/years2idshtml/years.html',
* form = 'formatted',
* status = 'unknown')
open (unit = IDHtml,
* access = 'sequential',
* file = HtmlName(1:HTMLNameLength),
* form = 'formatted',
* status = 'unknown')
|
| Calls |
call htmlhead (SummaryFile,
* 'CMG Activities by Year')
call getcentury (Year, Century)
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (HTMLName, HTMLNameLength)
call stringlen (Title, TitleLength)
call htmlhead (IDHtml, Title(1:TitleLength))
call stringlen (Path, PathLength)
call sortids (IDHtml, 'years2idshtml', OutputCount,
* Path(1:PathLength))
call htmlfoot (IDHtml, Path(1:PathLength))
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call system ('/bin/rm /infobank/tmp/years.wc.temp')
call stringlen (Path, PathLength)
call htmlfoot (SummaryFile, Path(1:PathLength))
|
|
