| Current Path : /proc/self/root/scripts/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //proc/self/root/scripts/unblockip |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/unblockip Copyright 2022 cPanel, L.L.C.
# All rights reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
print "What ip do you want to unblock? ";
my $ip = <STDIN>;
$ip =~ s/\n//g;
open( HA, "/etc/hosts.deny" );
my @HA = <HA>;
close(HA);
open( HA, ">/etc/hosts.deny" );
foreach my $line (@HA) {
if ( $line !~ / ${ip}$/ ) {
print HA $line;
}
}
close(HA);
system("/sbin/ip -4 route del $ip");