diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2017-02-04 12:25:46 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2017-02-04 12:25:46 -0500 |
| commit | f740468a40984ad6e500e858651915d3c080e8de (patch) | |
| tree | a0a3a475a34bb55d9fb4a3eecb1003b82fe655f6 /config.bas | |
| parent | 3529c497c57619075c1d9597e96fbd5e2c94c170 (diff) | |
| download | gwblog-f740468a40984ad6e500e858651915d3c080e8de.tar.gz gwblog-f740468a40984ad6e500e858651915d3c080e8de.zip | |
Added support for generatingan RSS feed from posts. Added config file for blogs.
Diffstat (limited to 'config.bas')
| -rw-r--r-- | config.bas | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/config.bas b/config.bas new file mode 100644 index 0000000..9459e74 --- /dev/null +++ b/config.bas @@ -0,0 +1,42 @@ +24000 REM ============================ +24001 REM Config Entry Counter +24002 REM +24003 REM INPUT - CURDIR$ dir of blog +24003 REM OUTPUT - CFGCNT # of config +24004 REM entries +24005 REM =========================== +24010 ON ERROR GOTO 24040 +24015 CFGCNT = 0 +24020 OPEN CURDIR$+"\config.ini" FOR INPUT AS #9 +24030 GOTO 24050 +24040 GOTO 24098 +24050 WHILE(NOT EOF(9)) +24060 LINE INPUT #9, CFGLINE$ +24070 IF LEN(CFGLINE$) = 0 OR MID$(CFGLINE$,1,1) = "#" THEN GOTO 24090 +24080 CFGCNT = CFGCNT + 1 +24090 WEND +24095 CLOSE #9 +24098 ON ERROR GOTO 0 +24099 RETURN +24100 REM ============================= +24101 REM Config file parser +24102 REM +24103 REM INPUT - LBL$ List of labels +24104 REM REPL$ List of values +24105 REM ILBL # of labels +24106 REM already set +24107 REM CURDIR$ dir of blog +24108 REM ============================= +24110 CFGIDX = ILBL +24120 OPEN CURDIR$+"\config.ini" FOR INPUT AS #9 +24130 WHILE(NOT EOF(9)) +24140 LINE INPUT #9, CFGLINE$ +24150 IF LEN(CFGLINE$) = 0 OR MID$(CFGLINE$,1,1) = "#" THEN GOTO 24210 +24160 CFGIDX = CFGIDX + 1 +24170 EQSIGN = 1:WHILE(MID$(CFGLINE$,EQSIGN,1) <> "="):EQSIGN = EQSIGN + 1:WEND +24180 LBL$[CFGIDX] = MID$(CFGLINE$, 1, EQSIGN-1) +24190 REPL$[CFGIDX] = MID$(CFGLINE$, EQSIGN+1, LEN(CFGLINE$)-EQSIGN) +24210 WEND +24220 CLOSE #9 +24230 RETURN + |