diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-16 12:41:13 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-16 12:41:13 -0400 |
| commit | f2e2a83641ee0ac1c3d9ec5ef62e7779578935d6 (patch) | |
| tree | d30e4ad397866bb2188fbb0bb7361cba537c7bc6 /gwblog.bas | |
| parent | 3a8cd049da700bfebbc1d4fff3a422cc8bce0a5a (diff) | |
| download | gwblog-f2e2a83641ee0ac1c3d9ec5ef62e7779578935d6.tar.gz gwblog-f2e2a83641ee0ac1c3d9ec5ef62e7779578935d6.zip | |
Initial integration code
Diffstat (limited to 'gwblog.bas')
| -rw-r--r-- | gwblog.bas | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/gwblog.bas b/gwblog.bas new file mode 100644 index 0000000..073e458 --- /dev/null +++ b/gwblog.bas @@ -0,0 +1,47 @@ +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 ======================= +509 REM Retrieve the current directory and configure subs +510 IF LEN(SITEDIR$) = 0 THEN GOSUB 15500 ELSE CURDIR$ = SITEDIR$ +520 PAGEDIR$ = CURDIR$ + "\PAGES" +530 POSTDIR$ = CURDIR$ + "\POSTS" +540 STATICDIR$ = CURDIR$ + "\STATIC" +550 HFILE$ = CURDIR$ + "\POSTHDR.HTM" +560 FFILE$ = CURDIR$ + "\POSTFTR.HTM" +570 DESTDIR$ = CURDIR$ + "\BUILD" +700 REM ======================= +701 REM Disk scanning +702 REM ======================= +710 REM Scan pages first +720 DIREC$ = POSTDIR$ +730 GOSUB 15000 +740 GOSUB 16000 +750 PAGES$ = SFL$ +760 PAGETIT$ = TIT$ +770 PAGECNT = LC +780 REM Scan posts +790 DIREC$ = PAGEDIR$ +800 GOSUB 15000 +810 GOSUB 16000 +820 POSTS$ = SFL$ +830 POSTTIT$ = TIT$ +840 POSTCNT = LC +900 REM ======================= +901 REM Prepare template data +902 REM ======================= +905 ILBL = 6 +910 DIM LBL$[ILBL] +920 DIM REPL$[ILBL] +930 LBL$[1] = "title":REPL$[1] = "Blog!" +940 LBL$[2] = "next":REPL$[2] = "" +950 LBL$[3] = "previous":REPL$[3] = "" +960 LINKURL$ = POSTS$[POSTCNT]:LINKLBL$="Latest Post":GOSUB 19000 +970 LBL$[4] = "latest":REPL$[4] = LINKHTM$ +980 URLS$ = PAGES$:LBLS$ = PAGETIT$:URLCOUNT = PAGECNT:GOSUB 19100 +990 LBL$[5] = "pages":REPL$[5] = HTMLLST$ +995 LBL$[6] = "date":REPL$[6] = "" |