From 5185d4e34e362d183a2c88a894ecb6f76db437f0 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Wed, 19 Oct 2016 20:07:17 -0400
Subject: Additional bug fixes for blog engine.  Batch file now launches site
 generator.

---
 gwblog.bas | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

(limited to 'gwblog.bas')

diff --git a/gwblog.bas b/gwblog.bas
index 726e380..57c3ef8 100644
--- a/gwblog.bas
+++ b/gwblog.bas
@@ -7,8 +7,8 @@
 520 PAGEDIR$ = CURDIR$ + "\PAGES"
 530 POSTDIR$ = CURDIR$ + "\POSTS"
 540 STATICDIR$ = CURDIR$ + "\STATIC"
-550 HFILE$ = CURDIR$ + "\POSTHDR.HTM"
-560 FFILE$ = CURDIR$ + "\POSTFTR.HTM"
+550 HDRFILE$ = CURDIR$ + "\POSTHDR.HTM"
+560 FTRFILE$ = CURDIR$ + "\POSTFTR.HTM"
 570 DESTDIR$ = CURDIR$ + "\BUILD"
 700 REM =======================
 701 REM Disk scanning
@@ -49,7 +49,6 @@
 1000 REM ======================
 1001 REM Process pages
 1000 REM ======================
-1110 SFL$ = PAGES$:TIT$ = PAGETIT$:LC = PAGECNT
 1120 FOR FINDEX = 1 TO PAGECNT
 1125     PRINT "Processing ";PAGES$[FINDEX];"..."
 1130     TFILE$ = PAGEDIR$ + "\" + PAGES$[FINDEX]
@@ -57,14 +56,17 @@
 1140     OUTFILE$ = DESTDIR$ + "\" + LEFT$(PAGES$[FINDEX], LEN(PAGES$[FINDEX])-3) + "HTM"
 1150     GOSUB 6000
 1160 NEXT FINDEX
-1100 REM ======================
-1101 REM Process posts
-1102 REM ======================
-1110 SFL$ = POSTS$:TIT$ = POSTTIT$:LC = POSTCNT
-1120 FOR FINDEX = 1 TO POSTCNT
-1125     PRINT "Processing ";POSTS$[FINDEX];"...
-1130     DIREC$ = POSTDIR$
-1140     OUTFILE$ = DESTDIR$ + "\" + LEFT$(POSTS$[FINDEX], LEN(POSTS$[FINDEX])-3) + "HTM"
-1150     GOSUB 5000
-1160 NEXT FINDEX
-
+1200 REM ======================
+1201 REM Process posts
+1202 REM ======================
+1205 ERASE SFL$,TIT$
+1210 DIM SFL$[POSTCNT], TIT$[POSTCNT]
+1215 FOR I = 1 TO POSTCNT:SFL$[I] = POSTS$[I]:TIT$[I] = POSTTIT$[I]:NEXT I
+1217 LC = POSTCNT
+1220 FOR FINDEX = 1 TO POSTCNT
+1225     PRINT "Processing ";POSTS$[FINDEX];"...
+1230     DIREC$ = POSTDIR$
+1240     OUTFILE$ = DESTDIR$ + "\" + LEFT$(POSTS$[FINDEX], LEN(POSTS$[FINDEX])-3) + "HTM"
+1250     GOSUB 5000
+1260 NEXT FINDEX
+1999 END
-- 
cgit v1.2.3