| Server IP : 23.111.136.34 / Your IP : 216.73.216.136 Web Server : Apache System : Linux servidor.eurohost.com.br 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : meusitei ( 1072) PHP Version : 5.6.40 Disable Function : show_source, system, shell_exec, passthru, proc_open MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/src/csf/ |
Upload File : |
#!/usr/bin/perl
use strict;
use warnings;
my @cmd = @ARGV;
if ($cmd[0] eq "-a" or $cmd[0] eq "--allow") {
$cmd[0] = "--add";
system("csf",@cmd);
}
elsif ($cmd[0] eq "-d" or $cmd[0] eq "--deny") {
$cmd[0] = "--deny";
system("csf",@cmd);
}
elsif ($cmd[0] eq "-u" or $cmd[0] eq "--remove" or $cmd[0] eq "--unban") {
$cmd[1] =~ s/\^|\$//g;
$cmd[0] = "--addrm";
system("csf",@cmd);
$cmd[0] = "--denyrm";
system("csf",@cmd);
$cmd[0] = "--temprm";
system("csf",@cmd);
}
elsif ($cmd[0] eq "-s" or $cmd[0] eq "--start") {
$cmd[0] = "--start";
system("csf",@cmd);
}
elsif ($cmd[0] eq "-f" or $cmd[0] eq "--flush" or $cmd[0] eq "--stop") {
$cmd[0] = "--stop";
system("csf",@cmd);
}
elsif ($cmd[0] eq "-r" or $cmd[0] eq "--restart") {
$cmd[0] = "--restart";
system("csf",@cmd);
}
elsif ($cmd[0] eq "-l" or $cmd[0] eq "--list") {
$cmd[0] = "--status";
system("csf",@cmd);
} else {
print "Unknown command, please use csf directly instead of this apf stub\n";
}
exit;