如何使用 Perl 终止 OpenVPN 连接？

Question

有没有办法使用 Linux 或 Perl 命令终止用户 OpenVPN 连接？

Answer 1

使用tcpkill ip主机192.168.1.2

Answer 2

如果你使用 perl 模块 Proc::Background 作为命令启动 openvpn，你也可以使用相同的 Proc::Background 杀死他：

#!/usr/bin/perl

use strict;
use warnings;
use Proc::Background;

my $command = 'openvpn --config /etc/openvpn/client.conf';
my $proc = Proc::Background->new($command); $proc->alive;
print "started\n";
sleep (30);
if ($proc->alive == 1) { $proc->die; print "stopped\n";}

Answer 3

如果您在启动时将 OpenVPN 作为服务自动启动，最干净的方法是：

service openvpn stop

从命令行（或从 perl 执行它）

/etc/init.d/openvpn stop

您可以按照其他建议直接终止它，但使用提供的方法来停止服务将执行 OpenVPN 需要的任何附加清理（例如，清理锁定文件、运行 pid 文件等）。AFIAK

杀死 OpenVPN 在当前版本中会很好，但谁知道未来的版本。

Answer 4

用于断开连接的用户：

/usr/bin/openvpn-sudo-user kill \"username\"

但首先您应该禁用该用户。

Answer 5

对 tcpkill 程序的系统调用。