From f740468a40984ad6e500e858651915d3c080e8de Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sat, 4 Feb 2017 12:25:46 -0500
Subject: Added support for generatingan RSS feed from posts.  Added config
 file for blogs.

---
 gwblog.bas | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

(limited to 'gwblog.bas')

diff --git a/gwblog.bas b/gwblog.bas
index e61b49d..5668277 100644
--- a/gwblog.bas
+++ b/gwblog.bas
@@ -46,21 +46,24 @@
 900 REM =======================
 901 REM Prepare template data
 902 REM =======================
-905 ILBL = 7
-910 DIM LBL$[ILBL]
-920 DIM REPL$[ILBL]
-930 LBL$[1] = "title":REPL$[1] = "Blog!"
-940 LBL$[2] = "next":REPL$[2] = ""
-950 LBL$[3] = "previous":REPL$[3] = ""
-960 LINKURL$ = POSTS$[POSTCNT]:LINKLBL$="Latest Post":GOSUB 19000
-970 LBL$[4] = "latest":REPL$[4] = LINKHTML$
-974 URLCOUNT = PAGECNT:DIM URLS$[URLCOUNT], LBLS$[URLCOUNT]
-976 FOR I = 1 TO URLCOUNT:URLS$[I] = PAGES$[I]:LBLS$[I] = PAGETIT$[I]:NEXT I
-980 GOSUB 19100
-985 ERASE URLS$, LBLS$
-990 LBL$[5] = "pages":REPL$[5] = HTMLLST$
-995 LBL$[6] = "date":REPL$[6] = ""
-997 LBL$[7] = "postlist":REPL$[7] = "<a href='allposts.htm'>All Posts</a>"
+905 ILBL = 8:GOSUB 24000
+910 DIM LBL$[ILBL+CFGCNT], REPL$[ILBL+CFGCNT]
+915 LBL$[1] = "title":REPL$[1] = "Blog!"
+920 LBL$[2] = "next":REPL$[2] = ""
+925 LBL$[3] = "previous":REPL$[3] = ""
+930 LINKURL$ = POSTS$[POSTCNT]:LINKLBL$="Latest Post":GOSUB 19000
+935 LBL$[4] = "latest":REPL$[4] = LINKHTML$
+940 URLCOUNT = PAGECNT:DIM URLS$[URLCOUNT], LBLS$[URLCOUNT]
+945 FOR I = 1 TO URLCOUNT:URLS$[I] = PAGES$[I]:LBLS$[I] = PAGETIT$[I]:NEXT I
+950 GOSUB 19100
+955 ERASE URLS$, LBLS$
+960 LBL$[5] = "pages":REPL$[5] = HTMLLST$
+965 LBL$[6] = "date":REPL$[6] = ""
+970 LBL$[7] = "postlist":REPL$[7] = "<a href='allposts.htm'>All Posts</a>"
+975 LBL$[8] = "rss":REPL$[8] = "<a href='posts.rss'>RSS Feed</a>"
+980 GOSUB 24100
+990 ILBL = ILBL + CFGCNT
+
 1000 REM ======================
 1001 REM Process pages
 1000 REM ======================
@@ -118,5 +121,7 @@
 1610 OUTFILE$ = DESTDIR$ + "\ALLPOSTS.HTM"
 1620 GOSUB 6000
 1630 SHELL "DEL "+TFILE$
+1700 PRINT "Creating an RSS feed..."
+1710 GOSUB 8000
 1990 PRINT "Site Generation Complete."
 1999 END
-- 
cgit v1.2.3