Rewrite logwatch script: changed to PERL instead of BASH.

Initial code, summary only.
This commit is contained in:
Asif Bacchus 2018-09-27 16:40:53 -06:00
parent 47acc2684c
commit 462d081b14

View File

@ -1,44 +1,77 @@
#!/bin/bash
#!/usr/bin/perl
#############################################################################
# $Id$
#############################################################################
# Log: CloudFlare updater script (cfddns)
# Revision 1.0 2018/09/26
# Written by Asif Bacchus
#############################################################################
### Script to parse cfddns.sh log file and display important information
###
### Levels:
### Levels are defined in this script as 0-4, 5 & 5+
### Levels 0-4 (same): Basic information reporting
### Reports only critical information such as errors, update successes and
### failures.
### Level 5: Recommended information reporting level
### Adds informational messages such as the hostnames being updated and the
### IP address being used for that update.
### Level 5+ (same): Verbose logging
### This will just reprint the entire log. This should only be used when
### checking the actual logfile is not possible or you prefer looking at it
### via Logwatch for some reason. Note: ANSI colouring is removed by this
### script to faciliate Logwatch conversion to HTML. Therefore, viewing
### that actual log file is highly recommended instead of via this level of
### reporting in Logwatch.
use strict;
### Get Logwatch detail level
my $detailLevel = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
### Create temporary file for assembling log entries
cfddnsTmpFile=$(mktemp -p "${LOGWATCH_TEMP_DIR}")
### Declare variables
my $summaryErr;
my $summaryStatusUpToDate;
my $summaryStatusNeedsUpdating;
my $summarySuccess;
### Assemble the temp file according to desired Logwatch detail level
if [ "$LOGWATCH_DETAIL_LEVEL" -lt 5 ]; then
# get error, success and status messages
{ grep '\-- \[ERROR\]' ; grep '\-- \[SUCCESS\]' ; \
grep '\-- \[STATUS\]' ; } >> "$cfddnsTmpFile"
elif [ "$LOGWATCH_DETAIL_LEVEL" -eq 5 ]; then
# get error, success, status and info messages
{ grep '\-- \[ERROR\]' ; grep '\-- \[SUCCESS\]' ; \
grep '\-- \[STATUS\]' ; grep '\-- \[INFO\]' ; } >> "$cfddnsTmpFile"
elif [ "$LOGWATCH_DETAIL_LEVEL" -gt 5 ]; then
cat
fi
my %reportHash = ();
my $key;
### Strip ANSI escape codes and sort entries according to timestamps
sed -e 's,\x1B\[[0-9;]*[a-zA-Z],,g' "${cfddnsTmpFile}" | sort -n
### Clean-up and exit
rm -f "${cfddnsTmpFile}" > /dev/null 2>&1
exit 0
### Minimal detail level: provide summary data only
if ($detailLevel == 0) {
### Process logfile and summarize message types
while (defined(my $ThisLine = <STDIN>)) {
if ($ThisLine =~ /\-- \[ERROR\] /) {
$summaryErr++;
}
elsif ($ThisLine =~ /up-to-date./) {
$summaryStatusUpToDate++;
}
elsif ($ThisLine =~ /needs updating.../) {
$summaryStatusNeedsUpdating++;
}
elsif ($ThisLine =~ /\-- \[SUCCESS\] /) {
$summarySuccess++;
}
}
### Fill hashtable with headings and summary counts
if ($summaryStatusNeedsUpdating > 0) {
$reportHash{"Entries needing updates"} = $summaryStatusNeedsUpdating;
}
if ($summarySuccess > 0) {
$reportHash{"Entries successfully updated"} = $summarySuccess;
}
if ($summaryStatusUpToDate > 0) {
$reportHash{"Entries already up-to-date"} = $summaryStatusUpToDate;
}
if ($summaryErr > 0) {
$reportHash{"Errors encountered"} = $summaryErr;
}
### Print hash table
foreach $key (sort keys %reportHash) {
print "$key: $reportHash{$key}\n";
}
}
### Exit gracefully
exit (0);
# vi: shiftwidth=3 tabstop=3 et
# Local Variables:
# mode: perl
# perl-indent-level: 3
# indent-tabs-mode: nil
# End: