#! /usr/bin/env perl

use strict;
use warnings;

my $IP = shift;
my $JAIL='blacklistip';
my $BLACKLIST='/etc/fail2ban/ip.blacklist';
my $FAIL2BAN_CLIENT = '/usr/bin/fail2ban-client';



if ( $IP && $IP =~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ ) {
   open BANNED, ">>$BLACKLIST" or die "Could not append $BLACKLIST: $!\n";
   print BANNED "$IP\n";
   close BANNED;
   `$FAIL2BAN_CLIENT set $JAIL banip $IP`;
} else {
   print "Usage: $0 IP_ADDRESS\n";
}

1;