From 6214205a567bb716f675fda256496b406c537c95 Mon Sep 17 00:00:00 2001
From: Sergiotarxz <sergiotarxz@posteo.net>
Date: Sun, 7 May 2023 06:33:27 +0200
Subject: [PATCH] Adding data intra-day.

---
 lib/BurguillosInfo/Tracking.pm  | 16 ++++++++++++++++
 templates/metrics/stats.html.ep |  8 ++++++++
 2 files changed, 24 insertions(+)

diff --git a/lib/BurguillosInfo/Tracking.pm b/lib/BurguillosInfo/Tracking.pm
index d6f9f75..b92fc78 100644
--- a/lib/BurguillosInfo/Tracking.pm
+++ b/lib/BurguillosInfo/Tracking.pm
@@ -104,6 +104,22 @@ EOF
         my $dbh = BurguillosInfo::DB->connect($app);	
         my $data = $dbh->selectall_arrayref(<<"EOF", {Slice => {}});
 SELECT paths.path,
+	(
+		$SELECT_GLOBAL
+		where requests.path = paths.path and date > NOW() - interval '1 hour'
+	) as unique_ips_last_1_hour,
+	(
+		$SELECT_GLOBAL
+		where requests.path = paths.path and date > NOW() - interval '3 hour'
+	) as unique_ips_last_3_hours,
+	(
+		$SELECT_GLOBAL
+		where requests.path = paths.path and date > NOW() - interval '6 hour'
+	) as unique_ips_last_6_hours,
+	(
+		$SELECT_GLOBAL
+		where requests.path = paths.path and date > NOW() - interval '12 hour'
+	) as unique_ips_last_12_hours,
 	(
 		$SELECT_GLOBAL
 		where requests.path = paths.path and date > NOW() - interval '1 day'
diff --git a/templates/metrics/stats.html.ep b/templates/metrics/stats.html.ep
index 615046f..4409907 100644
--- a/templates/metrics/stats.html.ep
+++ b/templates/metrics/stats.html.ep
@@ -11,6 +11,10 @@
 	<table>
 		<tr>
 			<th>Path</th>
+			<th data-sort-method="number">Visitors 1h</th>
+			<th data-sort-method="number">Visitors 3h</th>
+			<th data-sort-method="number">Visitors 6h</th>
+			<th data-sort-method="number">Visitors 12h</th>
 			<th data-sort-method="number">Visitors 24h</th>
 			<th data-sort-method="number">Visitors week</th>
 			<th data-sort-method="number">Visitors month</th>
@@ -18,6 +22,10 @@
 % for my $row (@$tracking_by_url) {
 		<tr>
 			<td><%="${base_url}$row->{path}"%></td>
+			<td><%=$row->{unique_ips_last_1_hour}%></td>
+			<td><%=$row->{unique_ips_last_3_hours}%></td>
+			<td><%=$row->{unique_ips_last_6_hours}%></td>
+			<td><%=$row->{unique_ips_last_12_hours}%></td>
 			<td><%=$row->{unique_ips_last_24_hours}%></td>
 			<td><%=$row->{unique_ips_last_week}%></td>
 			<td><%=$row->{unique_ips_last_month}%></td>