Expanded Description
| Topic |
Description |
| Name |
findlinks |
| Synopsis |
/infobank/programs/html/findlinks/findlinks.for |
| Description |
Program to find links from .html files
within a directory structure.
|
| AUTHOR |
Clint Steele 8/9/2001
|
| Reads |
read (5, '(q,a)', end = 99)
* DirNameLength, DirName(1:DirNameLength)
read (90, '(t13,q,a)', end = 99)
* FileLength, FileName(1:FileLength)
read (91, '(q,a)', end = 98)
* ALength, ALine(1:ALength)
read (91, '(q,a)', end = 98)
* ALength, ALine(1:ALength)
|
| Writes |
write (6, '(a)')
* 'Enter top directory to search:'
write (92, '(a)') '<HTM
write (92, '(a)') '<BODY><TABLE BOR
write (92, '(a)') '<TR>&
* FileName(1:FileLength)//'</TD>
write (92, '(a)') '</TD>
write (92, '(a)') '<TR>&
* FileName(1:FileLength)//'</TD>
write (92, '(a)') ALine(OpenA:ALength)
write (92, '(a)') '</TD>
write (92, '(a)') '</TABLE>&l
write (92, '(a)') '</HTM
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/findlinks.temp')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/findlinks.list.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = FileName(1:FileLength))
|
| Calls |
call system ('grep '//DirName(1:DirNameLength)//
* ' /infobank/programs/keep/infobank_files.keep'//
* ' | grep .html$ > /infobank/tmp/findlinks.tem
|
|
