|
|
|
@ -1,44 +1,119 @@
|
|
|
|
|
#!/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 hash table 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";
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
### Levels 1-4 provide the actual error, status and success messages instead of
|
|
|
|
|
### a summary count
|
|
|
|
|
elsif ($detailLevel >= 1 && $detailLevel <= 4) {
|
|
|
|
|
while (defined(my $ThisLine = <STDIN>)) {
|
|
|
|
|
if ($ThisLine =~ /\-- \[ERROR\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
elsif ($ThisLine =~ /\-- \[STATUS\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
elsif ($ThisLine =~ /\-- \[SUCCESS\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
### Level 5 is similiar to levels 1-4 except it also reports informational
|
|
|
|
|
### messages such as the current working IP address and hostnames being
|
|
|
|
|
### checked. This is useful when verifying the cfddns.sh script's operation.
|
|
|
|
|
elsif ($detailLevel == 5) {
|
|
|
|
|
while (defined(my $ThisLine = <STDIN>)) {
|
|
|
|
|
if ($ThisLine =~ /\-- \[ERROR\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
elsif ($ThisLine =~ /\-- \[STATUS\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
elsif ($ThisLine =~ /\-- \[SUCCESS\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
elsif ($ThisLine =~ /\-- \[INFO\] /) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
### Any level above 5 will echo the entire log including the debugging notes
|
|
|
|
|
### within the script meant for troubleshooting. Using this level of detail
|
|
|
|
|
### should only be done if you cannot view the actual log file directly for
|
|
|
|
|
### whatever reason. The actual log file is colour-coded for easier debugging.
|
|
|
|
|
elsif ($detailLevel > 5) {
|
|
|
|
|
while (defined(my $ThisLine = <STDIN>)) {
|
|
|
|
|
print $ThisLine;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
### Exit gracefully
|
|
|
|
|
exit (0);
|
|
|
|
|
|
|
|
|
|
# vi: shiftwidth=3 tabstop=3 et
|
|
|
|
|
# Local Variables:
|
|
|
|
|
# mode: perl
|
|
|
|
|
# perl-indent-level: 3
|
|
|
|
|
# indent-tabs-mode: nil
|
|
|
|
|
# End:
|