my %ip6s = ();
my @blrule4s = ();
my @blrule6s = ();
-my $whitelist = qr/^(?:127.|85.68.182.45|195.25.233.49|94.23.226.160|::1|2001:41d0:2:65a0:)/;
+my $whitelist = qr/^(?:127.|5.9.143.173|85.68.182.45|195.25.233.49|::1|2a01:4f8:190:22a6:)/;
my @userlist = ('rapsys');
# Extract sshd.service scan
@blrule4s = map { chomp($_); if (/^#/) { $_; } else { (); } } <$fh>;
# Prepend header
+push @blrule4s, "WHITELIST\tnet:5.9.143.173\tall";
push @blrule4s, "WHITELIST\tnet:85.68.182.45\tall";
-push @blrule4s, "WHITELIST\tnet:94.23.226.160\tall";
push @blrule4s, "WHITELIST\tnet:195.25.233.49\tall";
# Build blacklist