From e69b7ccee31b9827536c320ad6c68bda98329f4a Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sat, 29 Oct 2016 13:37:11 -0400
Subject: Fixed string length issues with template and textile processor
 routines.  Fixed array assignments for building page list.  Removed dead
 txtdir.bas.

---
 post.bas | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 59 insertions(+), 14 deletions(-)

(limited to 'post.bas')

diff --git a/post.bas b/post.bas
index 2f1ca82..91de466 100644
--- a/post.bas
+++ b/post.bas
@@ -18,6 +18,7 @@
 
 5030 REM Header template right now
 5040 TMPLATE$ = HDRFILE$
+5045 OUTFILE$ = "HDR.TMP"
 5050 FOR I = 1 TO ILBL
 5060     IF LBL$[I] = "title" THEN REPL$[I] = TIT$[FINDEX]
 5070     IF LBL$[I] <> "next" THEN 5100
@@ -26,9 +27,17 @@
 5100     IF LBL$[I] <> "previous" THEN 5130
 5110     IF FINDEX > 1 THEN LINKURL$ = SFL$[FINDEX-1]:LINKLBL$ = "Previous: "+TIT$[FINDEX-1]:GOSUB 19000 ELSE LINKHTML$=""
 5120     REPL$[I] = LINKHTML$
-5130 NEXT I
-5140 GOSUB 18000
-5150 PRINT#13, TTEXT$
+5130     IF LBL$[I] <> "date" THEN 5150
+5140     REPL$[I] = LEFT$(POSTS$[FINDEX],4) + "-" + MID$(POSTS$[FINDEX],5,2) + "-" + MID$(POSTS$[FINDEX],7,2)
+5150 NEXT I
+5160 GOSUB 18000
+5170 OPEN OUTFILE$ FOR INPUT AS #4
+5180 WHILE NOT EOF(4)
+5182     LINE INPUT#4, ONEL$
+5184     PRINT#13, ONEL$
+5186 WEND
+5190 CLOSE #4
+5195 SHELL "DEL "+OUTFILE$
 
 5500 REM Process textile now
 5510 TFILE$ = DIREC$ + "\" + SFL$[FINDEX]
@@ -44,8 +53,15 @@
 
 5700 REM Process the footer
 5710 TMPLATE$ = FTRFILE$
+5715 OUTFILE$ = "FTR.TMP"
 5720 GOSUB 18000
-5730 PRINT#13, TTEXT$
+5725 OPEN OUTFILE$ FOR INPUT AS #4
+5730 WHILE NOT EOF(4)
+5735     LINE INPUT#4, ONEL$
+5740     PRINT#13, ONEL$
+5745 WEND
+5750 CLOSE #4
+5755 SHELL "DEL "+OUTFILE$
 
 5770 REM And close our post!
 5780 CLOSE #13
@@ -68,11 +84,18 @@
 
 6030 REM Header template right now
 6040 TMPLATE$ = HDRFILE$
+6045 OUTFILE$ = "HDR.TMP"
 6050 FOR I = 1 TO ILBL
 6060     IF LBL$[I] = "title" THEN REPL$[I] = PTITL$:GOTO 6080
 6070 NEXT I
 6080 GOSUB 18000
-6090 PRINT#13, TTEXT$
+6082 OPEN OUTFILE$ FOR INPUT AS #4
+6084 WHILE NOT EOF(4)
+6086     LINE INPUT#4, ONEL$
+6088     PRINT#13, ONEL$
+6090 WEND
+6092 CLOSE #4
+6094 SHELL "DEL "+OUTFILE$
 
 6100 REM Process textile now
 6110 HFILE$ = "WORK.TMP"
@@ -87,12 +110,19 @@
 
 6200 REM Process the footer
 6210 TMPLATE$ = FTRFILE$
+6215 OUTFILE$ = "FTR.TMP"
 6220 GOSUB 18000
-6230 PRINT#13, TTEXT$
+6225 OPEN OUTFILE$ FOR INPUT AS #4
+6230 WHILE NOT EOF(4)
+6235     LINE INPUT#4, ONEL$
+6240     PRINT#13, ONEL$
+6245 WEND
+6250 CLOSE #4
+6255 SHELL "DEL "+OUTFILE$
 
-6250 REM And close our post!
-6260 CLOSE #13
-6270 RETURN
+6260 REM And close our post!
+6270 CLOSE #13
+6280 RETURN
 
 6500 REM ===============================
 6501 REM Build a regular page with
@@ -112,21 +142,36 @@
 
 6530 REM Header template right now
 6540 TMPLATE$ = HDRFILE$
+6545 OUTFILE$ = "HDR.TMP"
 6550 FOR I = 1 TO ILBL
 6560     IF LBL$[I] = "title" THEN REPL$[I] = PTITL$
 6562     IF LBL$[I] = "next" THEN REPL$[I] = ""
 6565     IF LBL$[I] = "previous" THEN REPL$[I] = ""
+6567     IF LBL$[I] = "date" THEN REPL$[I] = ""
 6570 NEXT I
 6580 GOSUB 18000
-6590 PRINT#13, TTEXT$
+6582 OPEN OUTFILE$ FOR INPUT AS #4
+6584 WHILE NOT EOF(4)
+6586     LINE INPUT#4, ONEL$
+6588     PRINT#13, ONEL$
+6590 WEND
+6592 CLOSE #4
+6594 SHELL "DEL "+OUTFILE$
 
 6600 PRINT#13, HTMLTEXT$
 
 6605 REM Process the footer
 6610 TMPLATE$ = FTRFILE$
+6615 OUTFILE$ = "FTR.TMP"
 6620 GOSUB 18000
-6630 PRINT#13, TTEXT$
+6625 OPEN OUTFILE$ FOR INPUT AS #4
+6630 WHILE NOT EOF(4)
+6635     LINE INPUT#4, ONEL$
+6640     PRINT#13, ONEL$
+6645 WEND
+6650 CLOSE #4
+6655 SHELL "DEL "+OUTFILE$
 
-6650 REM And close 
-6660 CLOSE #13
-6670 RETURN
+6660 REM And close 
+6670 CLOSE #13
+6680 RETURN
-- 
cgit v1.2.3