/* ARexx skript, erzeugt HTML aus FAQ-Liste
$VER: faq_createhtml.rexx 0.1 (05.08.95) ©1995 Khamsonh Marcel Khounlivong
- FAQ.html ist Haupt-Dokument
*/
PARSE ARG listfile textdir
listfile = Strip(listfile)
newsgroup = SubStr(listfile,1,LastPos('.files',listfile))'answers'
IF (Pos('/',newsgroup) ~= 0) THEN
newsgroup = SubStr(newsgroup,LastPos('/',newsgroup)+1)
enter = '0a'x
if (~Open(infile,listfile,r)) THEN DO
SAY "Can't open"listfile
EXIT 20
END
SAY ''enter
SAY ''enter
SAY ''newsgroup''enter
SAY ''
archive = Word(ReadLn(infile),1)
CALL gettopic
DO WHILE (~Eof(infile))
topic.1 = topic.2
SAY ''topic.1'
'enter
DO WHILE (topic.2 == topic.1 & ~Eof(infile))
dir.2 = SubStr(archive,1,LastPos('/',archive))
dir.1 = dir.2
SAY '- 'dir.2'
'
eintrag = ''
DO i = 0 WHILE (dir.2 == dir.1 & ~Eof(infile))
eintrag = eintrag' 'SubStr(archive,LastPos('/',archive)+1)''enter
archive = Word(ReadLn(infile),1)
IF (~Eof(infile)) THEN dir.2 = SubStr(archive,1,LastPos('/',archive))
END
SAY eintrag'
'enter
CALL gettopic
END
END
CALL Close(infile)
SAY ''enter
SAY ''
EXIT
gettopic:
DO UNTIL (position ~= 0 | Eof(infile))
position = Pos('/',archive)
DO WHILE (position == 0 & ~Eof(infile))
SAY ''enter
archive = Word(ReadLn(infile),1)
IF ~Eof(infile) THEN position = Pos('/',archive)
END
IF ~Eof(infile) THEN topic.2 = SubStr(archive,1,position-1)
END
RETURN