diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-29 13:37:11 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-29 13:37:11 -0400 |
| commit | e69b7ccee31b9827536c320ad6c68bda98329f4a (patch) | |
| tree | 6febad7198a7f5b5ca7e913fcfef2b217d1a3824 /post.bas | |
| parent | ef4863661495fd5c8a570b3233eb7581040e69cb (diff) | |
| download | gwblog-e69b7ccee31b9827536c320ad6c68bda98329f4a.tar.gz gwblog-e69b7ccee31b9827536c320ad6c68bda98329f4a.zip | |
Fixed string length issues with template and textile processor routines. Fixed array assignments for building page list. Removed dead txtdir.bas.
Diffstat (limited to 'post.bas')
| -rw-r--r-- | post.bas | 73 |
1 files changed, 59 insertions, 14 deletions
@@ -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 |