diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 08:21:28 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2025-06-20 08:21:28 -0400 |
| commit | 83561b1acfb603967f0f598adb6f315db0608c33 (patch) | |
| tree | 504d112a9d8c06df8e5631a19299e34e093ff667 /rss.bas | |
| parent | 79c227155bb8fda89c3cd8ff5367687b47a0f074 (diff) | |
| download | gwblog-83561b1acfb603967f0f598adb6f315db0608c33.tar.gz gwblog-83561b1acfb603967f0f598adb6f315db0608c33.zip | |
Added convenience routine for looking up a label-replacement pair that remains unused. Fixed the RSS feed a bit for conformance. Added batch commands on windows to strip BASIC EOF character from files after building during the lowercasing step.
Diffstat (limited to 'rss.bas')
| -rw-r--r-- | rss.bas | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -14,7 +14,7 @@ 8014 REM ============================ 8020 OPEN DESTDIR$+"\posts.rss" FOR OUTPUT AS #9 8030 PRINT#9, "<?xml version='1.0' encoding='UTF-8' ?>" -8032 PRINT#9, "<rss version='2.0'>" +8032 PRINT#9, "<rss version='2.0' xmlns:atom='http://www.w3.org/2005/Atom'>" 8034 PRINT#9, "<channel>" 8040 RTITLE$ = "Blog":RDESC$ = "A blog from BASIC":RLINK$ = "http://jeff.rainbow-100.com" 8050 FOR FINDEX = 1 TO ILBL @@ -26,11 +26,14 @@ 8090 PRINT#9, "<title>";RTITLE$;"</title>" 8100 PRINT#9, "<description>";RDESC$;"</description>" 8110 PRINT#9, "<link>";RLINK$;"</link>" +8120 PRINT#9, "<atom:link href='";RLINK$;"posts.rss' rel='self' type='application/rss+xml' />" 8150 FOR FINDEX = 1 TO POSTCNT 8160 PRINT#9, "<item>" 8170 PRINT#9, "<title>";POSTTIT$[FINDEX];"</title>" 8173 POSTROOT$ = LEFT$(POSTS$[FINDEX], 8) -8180 PRINT#9, "<link>";RLINK$;POSTROOT$;".HTM";"</link>" +8180 PRINT#9, "<link>";RLINK$;POSTROOT$;".";HTMLEXT$;"</link>" +8184 REM Yes, this GUID seems odd, but it's fine +8185 PRINT#9, "<guid>";RLINK$;POSTROOT$;".";HTMLEXT$;"</guid>" 8190 D$ = POSTROOT$:GOSUB 8400 8200 PRINT#9, "<pubDate>";DFANCY$;"</pubDate>" 8210 PRINT#9, "</item>" |