diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-19 20:07:17 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-19 20:07:17 -0400 |
| commit | 5185d4e34e362d183a2c88a894ecb6f76db437f0 (patch) | |
| tree | 94845ecf4af6f7fd414438ab70db921ae00b444c /post.bas | |
| parent | 2f3562beb4bfe459b14188bad1fe340ba4363cac (diff) | |
| download | gwblog-5185d4e34e362d183a2c88a894ecb6f76db437f0.tar.gz gwblog-5185d4e34e362d183a2c88a894ecb6f76db437f0.zip | |
Additional bug fixes for blog engine. Batch file now launches site generator.
Diffstat (limited to 'post.bas')
| -rw-r--r-- | post.bas | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -5,8 +5,8 @@ 5004 REM LC List length 5005 REM FINDEX File to build 5006 REM DIREC$ Posts src dir -5007 REM HFILE$ Header template -5008 REM FFILE$ Footer template +5007 REM HDRFILE$ Header template +5008 REM FTRFILE$ Footer template 5009 REM OUTFILE$ Output file 5010 REM LBL$ Template labels 5011 REM REPL$ Template @@ -17,7 +17,7 @@ 5020 OPEN OUTFILE$ FOR OUTPUT AS #13 5030 REM Header template right now -5040 TMPLATE$ = HFILE$ +5040 TMPLATE$ = HDRFILE$ 5050 FOR I = 1 TO ILBL 5060 IF LBL$[I] = "title" THEN REPL$[I] = TIT$[FINDEX] 5070 IF LBL$[I] <> "next" THEN 5100 @@ -43,7 +43,7 @@ 5600 SHELL "DEL WORK.TMP" 5700 REM Process the footer -5710 TMPLATE$ = FFILE$ +5710 TMPLATE$ = FTRFILE$ 5720 GOSUB 18000 5730 PRINT#13, TTEXT$ @@ -55,8 +55,8 @@ 6001 REM Build a regular page 6002 REM INPUT - TFILE$ Page file 6003 REM PTITL$ Page title -6004 REM HFILE$ Header template -6005 REM FFILE$ Footer template +6004 REM HDRFILE$ Header template +6005 REM FTRFILE$ Footer template 6006 REM OUTFILE$ Output file 6007 REM LBL$ Template labels 6008 REM REPL$ Template @@ -67,9 +67,9 @@ 6020 OPEN OUTFILE$ FOR OUTPUT AS #13 6030 REM Header template right now -6040 TMPLATE$ = HFILE$ +6040 TMPLATE$ = HDRFILE$ 6050 FOR I = 1 TO ILBL -6060 IF LBL$[I] = "title" THEN LBL$[I] = PTITL$:GOTO 5080 +6060 IF LBL$[I] = "title" THEN REPL$[I] = PTITL$:GOTO 6080 6070 NEXT I 6080 GOSUB 18000 6090 PRINT#13, TTEXT$ @@ -86,7 +86,7 @@ 6190 SHELL "DEL WORK.TMP" 6200 REM Process the footer -6210 TMPLATE$ = FFILE$ +6210 TMPLATE$ = FTRFILE$ 6220 GOSUB 18000 6230 PRINT#13, TTEXT$ |