From 01b00fb56dbd59782d2b2334b0e0c13bc2d41e09 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 21 Oct 2016 16:27:19 -0400 Subject: Implemented deploying a static directory. --- gwblog.bas | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'gwblog.bas') diff --git a/gwblog.bas b/gwblog.bas index 57c3ef8..40345ee 100644 --- a/gwblog.bas +++ b/gwblog.bas @@ -64,9 +64,19 @@ 1215 FOR I = 1 TO POSTCNT:SFL$[I] = POSTS$[I]:TIT$[I] = POSTTIT$[I]:NEXT I 1217 LC = POSTCNT 1220 FOR FINDEX = 1 TO POSTCNT -1225 PRINT "Processing ";POSTS$[FINDEX];"... +1225 PRINT "Processing ";POSTS$[FINDEX];"..." 1230 DIREC$ = POSTDIR$ 1240 OUTFILE$ = DESTDIR$ + "\" + LEFT$(POSTS$[FINDEX], LEN(POSTS$[FINDEX])-3) + "HTM" 1250 GOSUB 5000 1260 NEXT FINDEX +1300 REM ====================== +1301 REM Deploy static files +1302 REM ====================== +1305 PRINT "Deploying static files..." +1310 SRCD$ = STATICDIR$ +1320 DESTD$ = DESTDIR$ + "\STATIC" +1330 SHELL "MKDIR "+DESTD$ +1340 GOSUB 21000 + +1990 PRINT "Site Generation Complete." 1999 END -- cgit v1.2.3