meta_data: show analytics about the type of browser visiting the website

nigelhorne · nigelhorne · commit 4f6eeb150e2c · 2025-02-05T08:15:40.000-05:00
diff --git a/cgi-bin/page.fcgi b/cgi-bin/page.fcgi
@@ -98,7 +98,8 @@ Log::WarnDie->dispatcher($logger);
 # use VWF::Display::editor;
 # use VWF::Display::meta_data;
 
-use VWF::data::index;
+use VWF::Data::index;
+use VWF::Data::vwf_log;
 
 my $database_dir = "$script_dir/../data";
 Database::Abstraction::init({
@@ -108,13 +109,16 @@ Database::Abstraction::init({
 	logger => $logger
 });
 
-my $index = VWF::data::index->new();
+my $index = VWF::Data::index->new();
 if($@) {
 	$logger->error($@);
 	Log::WarnDie->dispatcher(undef);
 	die $@;
 }
 
+# FIXME - support $config->vwflog();
+my $vwf_log = VWF::Data::vwf_log->new({ directory => $info->logdir(), filename => 'vwf.log', no_entry => 1 });
+
 # http://www.fastcgi.com/docs/faq.html#PerlSignals
 my $requestcount = 0;
 my $handling_request = 0;
@@ -182,6 +186,7 @@ while($handling_request = ($request->Accept() >= 0)) {
 		Log::WarnDie->dispatcher($logger);
 		$index->set_logger($logger);
 		$info->set_logger($logger);
+		$vwf_log->set_logger($logger);
 		# $Config::Auto::Debug = 1;
 
 		$Error::Debug = 1;
@@ -489,6 +494,7 @@ sub doit
 			databasedir => $database_dir,
 			database_dir => $database_dir,
 			index => $index,
+			vwf_log => $vwf_log,
 		});
 		if($vwflog && open(my $fout, '>>', $vwflog)) {
 			print $fout
diff --git a/lib/VWF/Data/index.pm b/lib/VWF/Data/index.pm
@@ -0,0 +1,9 @@
+package VWF::Data::index;
+
+# The database associated with the index template file
+
+use Database::Abstraction;
+
+our @ISA = ('Database::Abstraction');
+
+1;
diff --git a/lib/VWF/Data/vwf_log.pm b/lib/VWF/Data/vwf_log.pm
@@ -0,0 +1,21 @@
+package VWF::Data::vwf_log;
+
+# Open /tmp/vwf.log as a database
+# Standard CSV file, with no header line
+
+use strict;
+use warnings;
+
+use Database::Abstraction;
+
+our @ISA = ('Database::Abstraction');
+
+# Doesn't ignore lines starting with '#' as it's not treated like a CSV file
+sub _open {
+	my $self = shift;
+	my %args = (ref($_[0]) eq 'HASH') ? %{$_[0]} : @_;
+
+	return $self->SUPER::_open(sep_char => ',', column_names => ['domain_name', 'time', 'IP', 'country', 'type', 'language', 'http_code', 'template', 'args', 'warnings', 'error'], %args);
+}
+
+1;
diff --git a/lib/VWF/data/index.pm b/lib/VWF/data/index.pm
@@ -1,4 +1,4 @@
-package VWF::data::index;
+package VWF::Data::index;
 
 # The database associated with the index template file
 
diff --git a/templates/default/web/VWF/Display/meta_data.tmpl b/templates/default/web/VWF/Display/meta_data.tmpl
@@ -10,15 +10,41 @@
 		<meta name="object" content="Index">
 		<meta name="owner" content="Nigel Horne">
 		<meta name="Author" content="Nigel Horne">
-		<meta name="Copyright" content="Copyright (C) 2025 Nigel Horne">
+		<meta name="Copyright" content="Copyright (C) 2025 Nigel Hornne, all rights reserved">
 		<title>[% SiteTitle %]: Meta Data</title>
 		[% IF keywords %]
 			<meta name="keywords" content="[% keywords %]" />
 		[% END %]
 		<link rel="stylesheet" type="text/css" href="/css/style.css" />
+		[% IF datapoints %]
+			<script>
+			window.onload = function() {
+
+			var chart = new CanvasJS.Chart("chartContainer", {
+				animationEnabled: true,
+				title: {
+					text: "Browser breakdown by type"
+				},
+				data: [{
+					type: "pie",
+					startAngle: 240,
+					// yValueFormatString: "##0.00\"%\"",
+					 yValueFormatString: "##0",
+					indexLabel: "{label} {y}",
+					dataPoints: [
+						[% datapoints %]
+					]
+				}]
+			});
+			chart.render();
+
+			}
+			</script>
+		[% END %]
 	</head>
 
 	<body>
+		<!-- Show basic information about this site -->
 		[% IF info %]
 			<H1>Info</H1>
 			domain_name: [% info.domain_name() %]<br>
@@ -30,5 +56,11 @@
 			requested_language: [% lingua.requested_language() %]<br>
 			language_code_alpha2: [% lingua.language_code_alpha2() %]
 		[% END %]
+		<!-- Show information about visitors to the site -->
+		<!-- Browser type -->
+		[% IF datapoints %]
+			<div id="chartContainer" style="height: 370px; width: 100%;"></div>
+			<script src="https://cdn.canvasjs.com/canvasjs.min.js"></script>
+		[% END %]
 	</body>
 </html>

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-package VWF::data::index;`
	`1`	`+package VWF::Data::index;`
`2`	`2`
`3`	`3`	`# The database associated with the index template file`
`4`	`4`