From 2437ddba5b252369b7603e5d326fbdc49dae9754 Mon Sep 17 00:00:00 2001
From: Asif Bacchus <asif@bacchus.cloud>
Date: Mon, 22 Oct 2018 00:43:48 -0600
Subject: [PATCH] Logwatch custom datestamp filter

---
 .../scripts/shared/sqfullstampanywhere        | 37 +++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 etc/logwatch/scripts/shared/sqfullstampanywhere

diff --git a/etc/logwatch/scripts/shared/sqfullstampanywhere b/etc/logwatch/scripts/shared/sqfullstampanywhere
new file mode 100644
index 0000000..b123036
--- /dev/null
+++ b/etc/logwatch/scripts/shared/sqfullstampanywhere
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+##########################################################################
+# $Id$
+##########################################################################
+
+###############################################################################
+## Filter dates in full-date-time international format, surrounded by square
+## brackets located anywhere on a given line
+## Format: '[%Y-%m-%d %H:%M:%S]'
+###############################################################################
+
+use Logwatch ':dates';
+
+my $Debug = $ENV{'LOGWATCH_DEBUG'} || 0;
+
+### Specify the format of the date/time stamp itself
+$SearchDate = TimeFilter('%Y-%m-%d %H:%M:%S');
+
+if ( $Debug > 5 ) {
+   print STDERR "DEBUG: Inside FullDateTime...\n";
+   print STDERR "DEBUG: Looking For: " . $SearchDate . "\n";
+}
+
+while (defined($ThisLine = <STDIN>)) {
+   ### specify the regex that defines how to find 'SearchDate'
+   if ($ThisLine =~ m/\[$SearchDate\] /o) {
+      print $ThisLine;
+   }
+}
+
+# vi: shiftwidth=3 syntax=perl tabstop=3 et
+# Local Variables:
+# mode: perl
+# perl-indent-level: 3
+# indent-tabs-mode: nil
+# End: