# Drop address from blockhash.
delete ($blockhash{$address});
+ # Drop address from counthash if the address has been unblocked
+ # by the user. This happens when the called module is "Socket".
+ if ($module eq "Socket") {
+ delete ($counthash{$address});
+ }
+
# Everything worked well, return nothing.
return undef;
}
my $amount = scalar(keys(%ignorehash));
# Write out log message.
- $logger->Log("debug", "Ignore list currently contains $amount entries.");
+ $logger->Log("debug", "Ignore list currently contains $amount entries:");
+
+ # Sort the ignore hash.
+ my @sorted_addresses = &Guardian::Base::SortAddressHash(\%ignorehash);
+
+ # Loop through the entire array.
+ foreach my $address (@sorted_addresses) {
+ # Log the ignored address.
+ $logger->Log("debug", "\- $address");
+ }
+
+ # Finished return nothing.
+ return;
}
#