asif/CloudflareDDNS
1
0
Fork 0
Code Issues Pull Requests Releases 2 Activity

refactor(LOGWATCH): use new log tags

Browse Source 
- update to reference new log tags
- adjust count to separate tally messages
- add CF-ERR tag reports
- re-add level 5 reporting detail
This commit is contained in:
Asif Bacchus 2021-05-09 10:43:05 -06:00
parent e344b027f9
commit dc13e1d412
1 changed files with 47 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
etc/logwatch/scripts/services/cfddns
View File

@ -4,7 +4,7 @@
# $Id$ # $Id$
############################################################################# #############################################################################
# Log: CloudFlare updater script (cfddns) # Log: CloudFlare updater script (cfddns)
# Revision 2.0 2021/05/08 # Revision 2.1 2021/05/08
# Written by Asif Bacchus # Written by Asif Bacchus
############################################################################# #############################################################################
@ -21,6 +21,7 @@ my $summaryFailedUpdate;
my $summaryInvalidHost; my $summaryInvalidHost;
my $summaryUpdated; my $summaryUpdated;
my $summaryUpToDate; my $summaryUpToDate;
my $summaryWarning;
my %reportHash = (); my %reportHash = ();
my $key; my $key;
@ -30,15 +31,18 @@ my $key;
if ($detailLevel == 0) { if ($detailLevel == 0) {
### process logfile and summarize message types ### process logfile and summarize message types
while (defined(my $ThisLine = <STDIN>)) { while (defined(my $ThisLine = <STDIN>)) {
if ($ThisLine =~ /ERROR: Unable to update IP address/) { if ($ThisLine =~ /ERR: Unable to update IP address/) {
$summaryFailedUpdate++; $summaryFailedUpdate++;
} }
elsif ($ThisLine =~ /ERROR: /) { elsif ($ThisLine =~ /ERROR: /) {
$summaryErr++; $summaryErr++;
} }
elsif ($ThisLine =~ /WARNING: Cannot find existing record/) { elsif ($ThisLine =~ /WARN: Cannot find existing record/) {
$summaryInvalidHost++; $summaryInvalidHost++;
} }
elsif ($ThisLine =~ /WARNING: /){
$summaryWarning++;
}
elsif ($ThisLine =~ /SUCCESS: /) { elsif ($ThisLine =~ /SUCCESS: /) {
$summaryUpdated++; $summaryUpdated++;
} }
@ -54,14 +58,17 @@ if ($detailLevel == 0) {
if ($summaryUpToDate > 0) { if ($summaryUpToDate > 0) {
$reportHash{"Entries already up-to-date"} = $summaryUpToDate; $reportHash{"Entries already up-to-date"} = $summaryUpToDate;
} }
if ($summaryInvalidHost > 0) {
$reportHash{"Undefined hosts"} = $summaryInvalidHost;
}
if ($summaryFailedUpdate > 0) { if ($summaryFailedUpdate > 0) {
$reportHash{"Hosts failed to update"} = $summaryFailedUpdate; $reportHash{"Hosts failed to update"} = $summaryFailedUpdate;
} }
if ($summaryInvalidHost > 0) {
$reportHash{"Undefined hosts"} = $summaryInvalidHost;
}
if ($summaryWarning > 0) {
$reportHash{"Total warnings"} = $summaryWarning;
}
if ($summaryErr > 0) { if ($summaryErr > 0) {
$reportHash{"Other errors"} = $summaryErr; $reportHash{"Total errors"} = $summaryErr;
} }
### print hash table ### print hash table
@ -73,18 +80,48 @@ if ($detailLevel == 0) {
### a summary count ### a summary count
elsif ($detailLevel >= 1 && $detailLevel <= 4) { elsif ($detailLevel >= 1 && $detailLevel <= 4) {
while (defined(my $ThisLine = <STDIN>)) { while (defined(my $ThisLine = <STDIN>)) {
if ($ThisLine =~ /ERROR: /) { if ($ThisLine =~ /ERR: /) {
print $ThisLine; print $ThisLine;
} }
elsif ($ThisLine =~ /WARNING: Cannot find existing/) { elsif ($ThisLine =~ /WARN: /) {
print $ThisLine; print $ThisLine;
} }
elsif ($ThisLine =~ /SUCCESS: /) { elsif ($ThisLine =~ /SUCCESS: /) {
print $ThisLine; print $ThisLine;
} }
elsif ($ThisLine =~ /already up-to-date/) {
print $ThisLine;
}
} }
} }
### Any level 5 or above will echo the entire log. The log itself is purposefully terse ### 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 ### so while this level of detail is likely rarely needed, it is still not an overwhelming
### level of detail. ### level of detail.
### Generally, however, using this level of detail should only be done if you cannot view ### Generally, however, using this level of detail should only be done if you cannot view
@ -96,8 +133,6 @@ elsif ($detailLevel > 5) {
} }
} }
### Exit gracefully ### Exit gracefully
exit (0); exit (0);