diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-18 20:04:41 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-18 20:04:41 -0400 |
| commit | 2f3562beb4bfe459b14188bad1fe340ba4363cac (patch) | |
| tree | cb5becfdd01430aca7a7fdf96455daed1febc183 /gwblog.bas | |
| parent | f2e2a83641ee0ac1c3d9ec5ef62e7779578935d6 (diff) | |
| download | gwblog-2f3562beb4bfe459b14188bad1fe340ba4363cac.tar.gz gwblog-2f3562beb4bfe459b14188bad1fe340ba4363cac.zip | |
Nearly working code after adding support for directories to file sorting and textile processing.
Diffstat (limited to 'gwblog.bas')
| -rw-r--r-- | gwblog.bas | 47 |
1 files changed, 35 insertions, 12 deletions
@@ -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 + |