diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-30 17:50:34 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-30 17:50:34 -0400 |
| commit | f31d5f687cac2dcbebe770dab86f71702b9a3ba3 (patch) | |
| tree | 98790b0ff4ab9c72437f73961169588f63a6f3e9 /gwblog.bas | |
| parent | e69b7ccee31b9827536c320ad6c68bda98329f4a (diff) | |
| download | gwblog-f31d5f687cac2dcbebe770dab86f71702b9a3ba3.tar.gz gwblog-f31d5f687cac2dcbebe770dab86f71702b9a3ba3.zip | |
Fixed 'string too long' issues when building list of posts.
Diffstat (limited to 'gwblog.bas')
| -rw-r--r-- | gwblog.bas | 26 |
1 files changed, 14 insertions, 12 deletions
@@ -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 |