From afc6b7518f84523766163d4a2d0318c20ca2e661 Mon Sep 17 00:00:00 2001
From: Gordon Stanton <gordon.stanton@winc.com.au>
Date: Mon, 1 May 2023 00:50:01 +1000
Subject: [PATCH 1/2] Fixed link to Tags. Get episode ID and episode tags from
 eps. Generate the Tags page by looping through the tags, order by their first
 character. Added tags page to the config.

---
 site.cfg                               |  4 ++
 templates/content-tags.tpl.html        | 84 ++++++++++++++++++++++++++
 templates/navigation-main.tpl.html     |  2 +-
 templates/queries-tags-mysql.tpl.html  |  1 +
 templates/queries-tags-sqlite.tpl.html |  1 +
 5 files changed, 91 insertions(+), 1 deletion(-)
 create mode 100644 templates/content-tags.tpl.html
 create mode 100644 templates/queries-tags-mysql.tpl.html
 create mode 100644 templates/queries-tags-sqlite.tpl.html

diff --git a/site.cfg b/site.cfg
index aefadb2..a71dd2a 100644
--- a/site.cfg
+++ b/site.cfg
@@ -146,6 +146,10 @@ content: content-promote.tpl.html
 navigation: navigation-about.tpl.html
 content: content-sitemap.tpl.html
 
+[tags]
+navigation: navigation-main.tpl.html
+content: content-tags.tpl.html
+
 [twat_episode]
 navigation: navigation-get-shows.tpl.html
 content: content-twat_episode.tpl.html
diff --git a/templates/content-tags.tpl.html b/templates/content-tags.tpl.html
new file mode 100644
index 0000000..8afc1cf
--- /dev/null
+++ b/templates/content-tags.tpl.html
@@ -0,0 +1,84 @@
+<!--% PROCESS "queries-tags-${constants.database}.tpl.html" %-->
+<!--% USE DBI(constants.driver, constants.user, constants.password) %-->
+<!--% PERL %-->
+$Template::Stash::PRIVATE = undef; # Allow . in tag
+<!--% END %-->
+<!--% uniq_tag_count = 0 %-->
+<!--% comma_re = '(?x)(?:^|,\s*)(?:"((?>[^"]*)(?:""[^"]*)*)"|([^",]*))'; %-->
+<!--# 'Moka5,interview, "computer science"' -->
+<!--% FOREACH episode IN DBI.query(query_tags);
+    ep_id = episode.id;
+    ep_tags = episode.tags;
+    FOREACH tag_str IN ep_tags.split(comma_re);
+        NEXT UNLESS tag_str;
+        NEXT IF tag_str == '';
+        tag = tag_str.lower;
+        first_char = tag.substr(0,1);
+        IF first_char == '.';
+            first_char = '&#x0002E;'; # Unicode .
+        END;
+        IF all_tags.${first_char}.exists(tag);
+            all_tags.${first_char}.${tag}.count = all_tags.${first_char}.${tag}.count + 1;
+            all_tags.${first_char}.${tag}.urls.push(ep_id);
+        ELSE;
+            all_tags.${first_char}.${tag}.count = 1;
+            uniq_tag_count = uniq_tag_count + 1;
+            all_tags.${first_char}.${tag}.urls = [ep_id];
+        END;
+    END;
+END %-->
+<!--% USE date %-->
+<!--% all_first = ['#','&#x0002E;','/','0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'] %-->
+
+<style>
+    .columns3 { columns: 3 auto; list-style-type: none }
+    hr.thin {
+        border: 0;
+        height: 0;
+        border-top: 1px solid rgba(0, 0, 0, 0.1);
+        border-bottom: 1px solid rgba(255, 255, 255, 0.3);
+    }
+    p.ralign { text-align: right }
+</style>
+<article>
+	<a id="TOP"><h1 class="title">Tag summary</h1></a>
+	<h4 class="date">Page generated on <!--% date.format(date.now, format => '%Y-%m-%d at %H:%M:%S UTC', gmt => 1) %--></h4>
+	<p>This section summarises all of the tags currently used throughout the
+	database. The tags are in alphabetical order and each is followed by links to
+	the show numbers where it is used so you can see the context the author used
+	it in. There are currently <!--% uniq_tag_count %--> unique tags in the system.</p>
+	<h4>Alphabetical index</h4>
+	<p>This is an index to the initial letters of the tags below.</p>
+	<ul class="columns3">
+    <!--% FOREACH first_char IN all_first %-->
+        <!--% IF all_tags.${first_char} %-->
+            <li><a href="#<!--% all_tags.${first_char}.keys.sort.first %-->"><strong><!--% first_char %--></strong></a></li>
+        <!--% END %-->
+    <!--% END %-->
+	</ul>
+	<hr>
+    <!--% FOREACH first_char IN all_first %-->
+        <!--% IF all_tags.${first_char} %-->
+	        <p class="ralign"><a href="#TOP">&UpArrow; Go to index</a></p>
+	        <h3>Tags beginning with '<!--% first_char %-->'</h3>
+	        <ul>
+                <!--% FOREACH tag IN all_tags.${first_char}.keys.sort %-->
+    	        	<li>
+    	        		<a id="<!--% tag %-->"><strong><!--% tag %--></strong></a>: 
+                        <!--% ep_links = [] %-->
+                        <!--% FOREACH ep_id IN all_tags.${first_char}.${tag}.urls.nsort;
+    	        		    ep_links.push('<a href="./hpr' _ ep_id _ '/index.html"'
+                                ' target="_blank" aria-label="' _ tag _
+                                ' - show ' _ ep_id _ '">' _ ep_id _ '</a>');
+                        END %-->
+                        <!--% ep_links.join(', ') %-->
+    	        	</li>
+                <!--% END %-->
+	        </ul>
+        <!--% END %-->
+    <!--% END %-->
+	<p><a href="#TOP">Go to TOP of page</a></p>
+</article>
+<!--% PERL %-->
+$Template::Stash::PRIVATE = 1;
+<!--% END %-->
diff --git a/templates/navigation-main.tpl.html b/templates/navigation-main.tpl.html
index e694c4a..e773eec 100644
--- a/templates/navigation-main.tpl.html
+++ b/templates/navigation-main.tpl.html
@@ -5,7 +5,7 @@
 			<li><a href="<!--% absolute_path(baseurl) %-->syndication.html">Get Shows</a></li>
 			<li><a href="<!--% absolute_path(baseurl) %-->contribute.html">Give Shows</a></li>
 			<li><a href="<!--% absolute_path(baseurl) %-->help_out.html">Contribute</a></li>
-			<li><a href="http://www.hackerpublicradio.org/tags.php">Tags</a></li>
+			<li><a href="<!--% absolute_path(baseurl) %-->tags.html">Tags</a></li>
 			<li><a href="<!--% absolute_path(baseurl) %-->about.html">About</a></li>
 			<li><a href="<!--% absolute_path(baseurl) %-->search.html">Search</a></li>
 		</ul>
diff --git a/templates/queries-tags-mysql.tpl.html b/templates/queries-tags-mysql.tpl.html
new file mode 100644
index 0000000..9b5e099
--- /dev/null
+++ b/templates/queries-tags-mysql.tpl.html
@@ -0,0 +1 @@
+<!--% query_tags = 'SELECT id, tags FROM eps' %-->
diff --git a/templates/queries-tags-sqlite.tpl.html b/templates/queries-tags-sqlite.tpl.html
new file mode 100644
index 0000000..9b5e099
--- /dev/null
+++ b/templates/queries-tags-sqlite.tpl.html
@@ -0,0 +1 @@
+<!--% query_tags = 'SELECT id, tags FROM eps' %-->

From 8b218e20368d8984cbf3f95664cee6b3ff5d5f8e Mon Sep 17 00:00:00 2001
From: Roan Horning <roan.horning@gmail.com>
Date: Sat, 6 May 2023 09:07:25 -0400
Subject: [PATCH 2/2] Fix episode url issues

Add absolute_path macro. Add eps folder to path. Pad episode number
in path.
---
 templates/content-tags.tpl.html | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/templates/content-tags.tpl.html b/templates/content-tags.tpl.html
index 8afc1cf..6345329 100644
--- a/templates/content-tags.tpl.html
+++ b/templates/content-tags.tpl.html
@@ -1,3 +1,4 @@
+<!--% PROCESS 'shared-utils.tpl.html' %-->
 <!--% PROCESS "queries-tags-${constants.database}.tpl.html" %-->
 <!--% USE DBI(constants.driver, constants.user, constants.password) %-->
 <!--% PERL %-->
@@ -52,14 +53,14 @@ END %-->
 	<ul class="columns3">
     <!--% FOREACH first_char IN all_first %-->
         <!--% IF all_tags.${first_char} %-->
-            <li><a href="#<!--% all_tags.${first_char}.keys.sort.first %-->"><strong><!--% first_char %--></strong></a></li>
+            <li><a href="<!--% absolute_path(baseurl) %-->tags.html#<!--% all_tags.${first_char}.keys.sort.first %-->"><strong><!--% first_char %--></strong></a></li>
         <!--% END %-->
     <!--% END %-->
 	</ul>
 	<hr>
     <!--% FOREACH first_char IN all_first %-->
         <!--% IF all_tags.${first_char} %-->
-	        <p class="ralign"><a href="#TOP">&UpArrow; Go to index</a></p>
+		<p class="ralign"><a href="<!--% absolute_path(baseurl) %-->tags.html#TOP">&UpArrow; Go to index</a></p>
 	        <h3>Tags beginning with '<!--% first_char %-->'</h3>
 	        <ul>
                 <!--% FOREACH tag IN all_tags.${first_char}.keys.sort %-->
@@ -67,7 +68,7 @@ END %-->
     	        		<a id="<!--% tag %-->"><strong><!--% tag %--></strong></a>: 
                         <!--% ep_links = [] %-->
                         <!--% FOREACH ep_id IN all_tags.${first_char}.${tag}.urls.nsort;
-    	        		    ep_links.push('<a href="./hpr' _ ep_id _ '/index.html"'
+							ep_links.push("<a href=\"${absolute_path(baseurl)}eps/hpr" _ zero_pad_left(ep_id) _ '/index.html"'
                                 ' target="_blank" aria-label="' _ tag _
                                 ' - show ' _ ep_id _ '">' _ ep_id _ '</a>');
                         END %-->