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

Updated comments

Browse Source
This commit is contained in:
Asif Bacchus 2018-09-27 16:57:41 -06:00
parent 3b92b2c509
commit f0bc037416
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@ my $key;
### Minimal detail level: provide summary data only ### Minimal detail level: provide summary data only
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\] /) { if ($ThisLine =~ /\-- \[ERROR\] /) {
$summaryErr++; $summaryErr++;
@ -43,7 +43,7 @@ if ($detailLevel == 0) {
} }
} }
### Fill hashtable with headings and summary counts ### fill hash table with headings and summary counts
if ($summaryStatusNeedsUpdating > 0) { if ($summaryStatusNeedsUpdating > 0) {
$reportHash{"Entries needing updates"} = $summaryStatusNeedsUpdating; $reportHash{"Entries needing updates"} = $summaryStatusNeedsUpdating;
} }
@ -57,7 +57,7 @@ if ($detailLevel == 0) {
$reportHash{"Errors encountered"} = $summaryErr; $reportHash{"Errors encountered"} = $summaryErr;
} }
### Print hash table ### print hash table
foreach $key (sort keys %reportHash) { foreach $key (sort keys %reportHash) {
print "$key: $reportHash{$key}\n"; print "$key: $reportHash{$key}\n";
} }
@ -105,8 +105,7 @@ elsif ($detailLevel == 5) {
### Any level above 5 will echo the entire log including the debugging notes ### Any level above 5 will echo the entire log including the debugging notes
### within the script meant for troubleshooting. Using this level of detail ### 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 ### 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 ### whatever reason. The actual log file is colour-coded for easier debugging.
### which is also the only reason to have Logwatch set to report at this detail.
elsif ($detailLevel > 5) { elsif ($detailLevel > 5) {
while (defined(my $ThisLine = <STDIN>)) { while (defined(my $ThisLine = <STDIN>)) {
print $ThisLine; print $ThisLine;