From 2f3562beb4bfe459b14188bad1fe340ba4363cac Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Tue, 18 Oct 2016 20:04:41 -0400
Subject: Nearly working code after adding support for directories to file
 sorting and textile processing.

---
 gwblog.bas | 47 +++++++++++++++++++++++++++++++++++------------
 1 file changed, 35 insertions(+), 12 deletions(-)

(limited to 'gwblog.bas')

diff --git a/gwblog.bas b/gwblog.bas
index 073e458..726e380 100644
--- a/gwblog.bas
+++ b/gwblog.bas
@@ -1,8 +1,4 @@
 10 SITEDIR$ = "E:\GWB\GWBLOG\TEST"
-100 REM Load all our support modules
-110 MERGE "FILES.BAS"
-120 MERGE "LINK.BAS"
-130 MERGE "TSORT.BAS"
 500 REM =======================
 501 REM Startup Code
 502 REM =======================
@@ -17,20 +13,25 @@
 700 REM =======================
 701 REM Disk scanning
 702 REM =======================
+
 710 REM Scan pages first
-720 DIREC$ = POSTDIR$
+720 DIREC$ = PAGEDIR$ + "\*.TXT"
 730 GOSUB 15000
+735 DIREC$ = PAGEDIR$
 740 GOSUB 16000
-750 PAGES$ = SFL$
-760 PAGETIT$ = TIT$
-770 PAGECNT = LC
+750 DIM PAGES$[LC],PAGETIT$[LC]
+760 PAGECNT=LC
+770 FOR I=1 TO LC:PAGES$[I] = SFL$[I]:PAGETIT$[I] = TIT$[I]:NEXT I 
+
 780 REM Scan posts
-790 DIREC$ = PAGEDIR$
+790 DIREC$ = POSTDIR$ + "\*.TXT"
 800 GOSUB 15000
+805 DIREC$ = POSTDIR$
 810 GOSUB 16000
-820 POSTS$ = SFL$
-830 POSTTIT$ = TIT$
-840 POSTCNT = LC
+820 DIM POSTS$[LC],POSTTIT$[LC]
+830 POSTCNT=LC
+840 FOR I=1 TO LC:POSTS$[I] = SFL$[I]:POSTTIT$[I] = TIT$[I]:NEXT I 
+
 900 REM =======================
 901 REM Prepare template data
 902 REM =======================
@@ -45,3 +46,25 @@
 980 URLS$ = PAGES$:LBLS$ = PAGETIT$:URLCOUNT = PAGECNT:GOSUB 19100
 990 LBL$[5] = "pages":REPL$[5] = HTMLLST$
 995 LBL$[6] = "date":REPL$[6] = ""
+1000 REM ======================
+1001 REM Process pages
+1000 REM ======================
+1110 SFL$ = PAGES$:TIT$ = PAGETIT$:LC = PAGECNT
+1120 FOR FINDEX = 1 TO PAGECNT
+1125     PRINT "Processing ";PAGES$[FINDEX];"..."
+1130     TFILE$ = PAGEDIR$ + "\" + PAGES$[FINDEX]
+1135     PAGET$ = PAGETIT$[FINDEX]
+1140     OUTFILE$ = DESTDIR$ + "\" + LEFT$(PAGES$[FINDEX], LEN(PAGES$[FINDEX])-3) + "HTM"
+1150     GOSUB 6000
+1160 NEXT FINDEX
+1100 REM ======================
+1101 REM Process posts
+1102 REM ======================
+1110 SFL$ = POSTS$:TIT$ = POSTTIT$:LC = POSTCNT
+1120 FOR FINDEX = 1 TO POSTCNT
+1125     PRINT "Processing ";POSTS$[FINDEX];"...
+1130     DIREC$ = POSTDIR$
+1140     OUTFILE$ = DESTDIR$ + "\" + LEFT$(POSTS$[FINDEX], LEN(POSTS$[FINDEX])-3) + "HTM"
+1150     GOSUB 5000
+1160 NEXT FINDEX
+
-- 
cgit v1.2.3