csf/apf_stub.pl at main · Black-HOST/csf · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/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;