From ef4863661495fd5c8a570b3233eb7581040e69cb Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Sat, 22 Oct 2016 13:20:24 -0400 Subject: Added list of all posts and fixed bugs in link list generation. Added creation of an index file. --- gwblog.bas | 27 +++++++++++++++++++++++++-- 1 file changed, 25 insertions(+), 2 deletions(-) (limited to 'gwblog.bas') diff --git a/gwblog.bas b/gwblog.bas index 40345ee..e80d4d6 100644 --- a/gwblog.bas +++ b/gwblog.bas @@ -35,7 +35,7 @@ 900 REM ======================= 901 REM Prepare template data 902 REM ======================= -905 ILBL = 6 +905 ILBL = 7 910 DIM LBL$[ILBL] 920 DIM REPL$[ILBL] 930 LBL$[1] = "title":REPL$[1] = "Blog!" @@ -46,6 +46,7 @@ 980 URLS$ = PAGES$:LBLS$ = PAGETIT$:URLCOUNT = PAGECNT:GOSUB 19100 990 LBL$[5] = "pages":REPL$[5] = HTMLLST$ 995 LBL$[6] = "date":REPL$[6] = "" +997 LBL$[7] = "postlist":REPL$[7] = "All Posts" 1000 REM ====================== 1001 REM Process pages 1000 REM ====================== @@ -77,6 +78,28 @@ 1320 DESTD$ = DESTDIR$ + "\STATIC" 1330 SHELL "MKDIR "+DESTD$ 1340 GOSUB 21000 - +1400 REM ====================== +1401 REM Index page +1402 REM ====================== +1410 SRCD$ = DESTDIR$ + "\" + LEFT$(POSTS$[POSTCNT], LEN(POSTS$[POSTCNT])-3) + "HTM" +1420 DESTD$ = DESTDIR$ + "\INDEX.HTM" +1430 PRINT "Creating index.htm from latest post..." +1440 SHELL "COPY "+SRCD$+" "+DESTD$ +1500 REM ====================== +1501 REM List of all posts +1502 REM ====================== +1505 PRINT "Generating a list of posts..." +1510 PAGET$ = "All Posts" +1520 ERASE URLS$, LBLS$ +1530 DIM URLS$[POSTCNT] +1540 DIM LBLS$[POSTCNT] +1550 FOR FINDEX = 1 TO POSTCNT +1560 URLS$[FINDEX] = POSTS$[FINDEX]:LBLS$[FINDEX] = POSTTIT$[FINDEX] +1570 NEXT FINDEX +1580 URLCOUNT = POSTCNT +1590 GOSUB 19100 +1600 HTMLTEXT$ = "

List of All Posts

" + HTMLLST$ +1610 OUTFILE$ = DESTDIR$ + "\ALLPOSTS.HTM" +1620 GOSUB 6500 1990 PRINT "Site Generation Complete." 1999 END -- cgit v1.2.3