diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 06:32:41 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 06:32:41 -0400 |
| commit | 79c227155bb8fda89c3cd8ff5367687b47a0f074 (patch) | |
| tree | cb731df52c743c0129cec404cd358a71a63ca039 /gwblog.bas | |
| parent | 2eef1bf3e30b7d1205afd83c31d103f900b35467 (diff) | |
| download | gwblog-79c227155bb8fda89c3cd8ff5367687b47a0f074.tar.gz gwblog-79c227155bb8fda89c3cd8ff5367687b47a0f074.zip | |
Added batch file and files routines for running on modern Windows under PC-Basic. Added textile workaround for PC-Basic bug. Added ability to use long filenames, specifically using html as an extension, if LFN=1 is set, though PC-Basic doesn't allow it anyways.
Diffstat (limited to 'gwblog.bas')
| -rw-r--r-- | gwblog.bas | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -19,6 +19,7 @@ 550 HDRFILE$ = CURDIR$ + "\POSTHDR.HTM" 560 FTRFILE$ = CURDIR$ + "\POSTFTR.HTM" 570 DESTDIR$ = CURDIR$ + "\BUILD" +580 IF LFN = 1 THEN HTMLEXT$ = "html" ELSE HTMLEXT$ = "HTM" 700 REM ======================= 701 REM Disk scanning 702 REM ======================= @@ -71,7 +72,7 @@ 1125 PRINT "Processing ";PAGES$[FINDEX];"..." 1130 TFILE$ = PAGEDIR$ + "\" + PAGES$[FINDEX] 1135 PTITL$ = PAGETIT$[FINDEX] -1140 OUTFILE$ = DESTDIR$ + "\" + LEFT$(PAGES$[FINDEX], LEN(PAGES$[FINDEX])-3) + "HTM" +1140 OUTFILE$ = DESTDIR$ + "\" + LEFT$(PAGES$[FINDEX], LEN(PAGES$[FINDEX])-3) + HTMLEXT$ 1150 GOSUB 6000 1160 NEXT FINDEX 1200 REM ====================== @@ -84,7 +85,7 @@ 1220 FOR FINDEX = 1 TO POSTCNT 1225 PRINT "Processing ";POSTS$[FINDEX];"..." 1230 DIREC$ = POSTDIR$ -1240 OUTFILE$ = DESTDIR$ + "\" + LEFT$(POSTS$[FINDEX], LEN(POSTS$[FINDEX])-3) + "HTM" +1240 OUTFILE$ = DESTDIR$ + "\" + LEFT$(POSTS$[FINDEX], LEN(POSTS$[FINDEX])-3) + HTMLEXT$ 1250 GOSUB 5000 1260 NEXT FINDEX 1300 REM ====================== @@ -98,8 +99,8 @@ 1400 REM ====================== 1401 REM Index page 1402 REM ====================== -1410 SRCD$ = DESTDIR$ + "\" + LEFT$(POSTS$[POSTCNT], LEN(POSTS$[POSTCNT])-3) + "HTM" -1420 DESTD$ = DESTDIR$ + "\INDEX.HTM" +1410 SRCD$ = DESTDIR$ + "\" + LEFT$(POSTS$[POSTCNT], LEN(POSTS$[POSTCNT])-3) + HTMLEXT$ +1420 DESTD$ = DESTDIR$ + "\INDEX." + HTMLEXT$ 1430 PRINT "Creating index.htm from latest post..." 1440 SHELL "COPY "+SRCD$+" "+DESTD$ 1500 REM ====================== @@ -118,7 +119,7 @@ 1590 NEXT FINDEX 1600 PRINT#9, "" 1605 CLOSE#9 -1610 OUTFILE$ = DESTDIR$ + "\ALLPOSTS.HTM" +1610 OUTFILE$ = DESTDIR$ + "\ALLPOSTS." + HTMLEXT$ 1620 GOSUB 6000 1630 SHELL "DEL "+TFILE$ 1700 PRINT "Creating an RSS feed..." |