Expanded Description
| Topic |
Description |
| Name |
ohslideshow |
| Synopsis |
/infobank/programs/html/slideshow/ohslideshow.for |
| Description |
Program to generate a .html slideshow.
|
| AUTHOR |
Clint Steele 5/5/2006
|
| Reads |
read (90, '(a1)', end = 98) ALine(1:1)
read (90, '(q,a)', end = 99)
* Length, ALine(1:Length)
read (93, '(q,a)', end = 97)
* OldLength, OldLine(1:OldLength)
read (93, '(q,a)', end = 97)
* OldLength, OldLine(1:OldLength)
|
| Writes |
write (OutLine, '(a,i5.5,a)')
* '/infobank/programs/html/slideshow/'//
* ShowName(1:NameLength)//'/',
* Count,'.html'
write (91, '(a)')
* '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01
* 'Transitional//EN" '//
* '"http://www.w3.org/TR/html4/loose.dtd"&g
write (91, '(a)') '<html lang="en
write (91, '(a)') '<hea
write (91, '(a)')
* '<meta http-equiv="content-type"
* 'content="text/html;charset=iso-8859-1"&g
write (91, '(a,i5.5,a,i5.5,a)')
* '<meta http-equiv="Refresh"
* 'content="',Duration,
* ';url=http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/slideshow/'//
* ShowName(1:NameLength)//
* '/',Count+1,'.html"&g
write (91, '(a,i5.5,a)')
* '<meta http-equiv="Refresh"
* 'content="',Duration,
* ';url=http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/slideshow/'//
* ShowName(1:NameLength)//
* '/00001.html">
write (91, '(a)')
* '<title>USGS:InfoBank SlideShow
* ShowName(1:NameLength)//'</titl
write (91, '(a)') '</hea
write (91, '(a)') '<body bgcolor="#ffffff"
write (91, '(a)') '<map name="map
write (91, '(a)') '<area shape="rect"
* 'href="http://walrus.wr.usgs.gov/infobank/" '//
* 'coords="0,100 0,100"&g
write (91, '(a)') '</area
write (91, '(a,i5.5,a)')
* '<img alt="image ',Cou
* '" src="http://walrus.wr.usgs.gov'//
* ALine(1:Length)//'" height="100%" '//
* ' usemap="#map"&g
write (91, '(a)') '</bod
write (91, '(a)') '</htm
write (OldLine, '(1024x)')
write (91, '(a)') OldLine(1:OldLength)
write (91, '(a)') '</bod
write (91, '(a)') '</htm
write (OutLine, '(a)')
* '/infobank/programs/html/slideshow/'//
* ShowName(1:NameLength)//'/'//
* '00001.html '//
* '/infobank/programs/html/slideshow/'//
* ShowName(1:NameLength)//'/00000.html'
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name =
* '/infobank/programs/html/slideshow/openhouse2006/'//
* 'openhouse2006.keep')
open ( unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutLine(1:OutLength))
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = ALine(1:Length))
|
| Calls |
call system ('ls -1 '//
* '/infobank/programs/html/openhouse/2006/images/*.jp* >
* '/infobank/programs/html/slideshow/openhouse2006/'//
* 'openhouse2006.keep')
call stringlen (ShowName, NameLength)
call stringlen (OutLine, OutLength)
call stringlen (OutLine, OutLength)
call system ('/bin/cp '//OutLine(1:OutLength))
|
|
