From f31d5f687cac2dcbebe770dab86f71702b9a3ba3 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sun, 30 Oct 2016 17:50:34 -0400
Subject: Fixed 'string too long' issues when building list of posts.

---
 gwblog.bas | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

(limited to 'gwblog.bas')

diff --git a/gwblog.bas b/gwblog.bas
index 50f33db..e5dadb3 100644
--- a/gwblog.bas
+++ b/gwblog.bas
@@ -95,18 +95,20 @@
 1501 REM List of all posts
 1502 REM ======================
 1505 PRINT "Generating a list of posts..."
-1510 PAGET$ = "All Posts"
-1530 DIM URLS$[POSTCNT]
-1540 DIM LBLS$[POSTCNT]
-1550 FOR FINDEX = 1 TO POSTCNT
-1560     URLS$[FINDEX] = POSTS$[FINDEX]
-1565     DT$ = LEFT$(POSTS$[FINDEX],4) + "-" + MID$(POSTS$[FINDEX],5,2) + "-" + MID$(POSTS$[FINDEX],7,2)
-1567     LBLS$[FINDEX] = POSTTIT$[FINDEX] + " (" + DT$ + ")"
-1570 NEXT FINDEX
-1580 URLCOUNT = POSTCNT
-1590 GOSUB 19100
-1600 HTMLTEXT$ = "<h1>List of All Posts</h1>" + HTMLLST$
+1510 PTITL$ = "All Posts"
+1520 TFILE$ = "allposts.tmp"
+1530 OPEN TFILE$ FOR OUTPUT AS #9
+1540 PRINT#9, "h1. List of All Posts"
+1545 PRINT#9, ""
+1550 FOR FINDEX = POSTCNT TO 1 STEP -1
+1560     DT$ = LEFT$(POSTS$[FINDEX],4) + "-" + MID$(POSTS$[FINDEX],5,2) + "-" + MID$(POSTS$[FINDEX],7,2)
+1570     LBL$ = POSTTIT$[FINDEX] + " (" + DT$ + ")"
+1580     PRINT#9, "* ";CHR$(34);LBL$;CHR$(34);":";LEFT$(POSTS$[FINDEX], 8);".htm  "
+1590 NEXT FINDEX
+1600 PRINT#9, ""
+1605 CLOSE#9
 1610 OUTFILE$ = DESTDIR$ + "\ALLPOSTS.HTM"
-1620 GOSUB 6500
+1620 GOSUB 6000
+1630 SHELL "DEL "+TFILE$
 1990 PRINT "Site Generation Complete."
 1999 END
-- 
cgit v1.2.3