blob: 073e45869052f11ff8001658079f958c5395473b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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] = ""
|
