unblockip (PL)

dev017

Jul 29th, 2023 (edited)

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Bash 0.78 KB | None | 0 0

raw download clone embed print report

#!/usr/bin/perl
use strict;
use warnings;
my @allowed_ips = qw(
127.0.0.1
192.168.1.1
10.0.0.1
);
my $user_ip = $ENV{'REMOTE_ADDR'};
if (not grep { $_ eq $user_ip } @allowed_ips) {
die "o seu IP não está autorizado a realizar esta ação.";
}
my $blocked_ips_file = '/path/to/blocked_ips.txt';
open my $fh, '<', $blocked_ips_file or die "não foi possível abrir o arquivo '$blocked_ips_file': $!";
my @blocked_ips = <$fh>;
close $fh;
if (grep { $_ eq $user_ip } @blocked_ips) {
splice @blocked_ips, grep { $_ eq $user_ip }, 1;
open my $fh, '>', $blocked_ips_file or die "não foi possível abrir o arquivo '$blocked_ips_file' para gravação: $!";
print $fh @blocked_ips;
close $fh;
}
print "o IP $user_ip foi desbloqueado.";

Add Comment

Please, Sign In to add comment