145 lines
4.0 KiB
Perl
145 lines
4.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
#############################################################################
|
|
# $Id$
|
|
#############################################################################
|
|
# Log: CloudFlare updater script (cfddns)
|
|
# Revision 2.1 2021/05/08
|
|
# Written by Asif Bacchus
|
|
#############################################################################
|
|
|
|
|
|
use strict;
|
|
|
|
### Get Logwatch detail level
|
|
my $detailLevel = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
|
|
|
|
|
|
### Declare variables
|
|
my $summaryErr;
|
|
my $summaryFailedUpdate;
|
|
my $summaryInvalidHost;
|
|
my $summaryUpdated;
|
|
my $summaryUpToDate;
|
|
my $summaryWarning;
|
|
|
|
my %reportHash = ();
|
|
my $key;
|
|
|
|
|
|
### Minimal detail level: provide summary data only
|
|
if ($detailLevel == 0) {
|
|
### process logfile and summarize message types
|
|
while (defined(my $ThisLine = <STDIN>)) {
|
|
if ($ThisLine =~ /ERR: Unable to update IP address/) {
|
|
$summaryFailedUpdate++;
|
|
}
|
|
elsif ($ThisLine =~ /ERROR: /) {
|
|
$summaryErr++;
|
|
}
|
|
elsif ($ThisLine =~ /WARN: Cannot find existing record/) {
|
|
$summaryInvalidHost++;
|
|
}
|
|
elsif ($ThisLine =~ /WARNING: /){
|
|
$summaryWarning++;
|
|
}
|
|
elsif ($ThisLine =~ /SUCCESS: /) {
|
|
$summaryUpdated++;
|
|
}
|
|
elsif ($ThisLine =~ /already up-to-date/) {
|
|
$summaryUpToDate++;
|
|
}
|
|
}
|
|
|
|
### fill hash table with headings and summary counts
|
|
if ($summaryUpdated > 0) {
|
|
$reportHash{"Entries successfully updated"} = $summaryUpdated;
|
|
}
|
|
if ($summaryUpToDate > 0) {
|
|
$reportHash{"Entries already up-to-date"} = $summaryUpToDate;
|
|
}
|
|
if ($summaryFailedUpdate > 0) {
|
|
$reportHash{"Hosts failed to update"} = $summaryFailedUpdate;
|
|
}
|
|
if ($summaryInvalidHost > 0) {
|
|
$reportHash{"Undefined hosts"} = $summaryInvalidHost;
|
|
}
|
|
if ($summaryWarning > 0) {
|
|
$reportHash{"Total warnings"} = $summaryWarning;
|
|
}
|
|
if ($summaryErr > 0) {
|
|
$reportHash{"Total errors"} = $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 =~ /ERR: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /WARN: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /SUCCESS: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /already up-to-date/) {
|
|
print $ThisLine;
|
|
}
|
|
}
|
|
}
|
|
### Level 5 includes warning and error tally count messages and Cloudflare
|
|
### debugging messages
|
|
elsif ($detailLevel == 5) {
|
|
while (defined(my $ThisLine = <STDIN>)) {
|
|
if ($ThisLine =~ /ERR: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /ERROR: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /CF-ERR: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /WARN: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /WARNING: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /SUCCESS: /) {
|
|
print $ThisLine;
|
|
}
|
|
elsif ($ThisLine =~ /already up-to-date/) {
|
|
print $ThisLine;
|
|
}
|
|
}
|
|
}
|
|
### Any level 6 or above will echo the entire log. The log itself is purposefully terse
|
|
### so while this level of detail is likely rarely needed, it is still not an overwhelming
|
|
### level of detail.
|
|
### Generally, however, 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:
|