Как мне разорвать соединение OpenVPN с помощью Perl?

Question

Есть ли способ уничтожить пользовательское соединение OpenVPN командой Linux или Perl?

Answer 1

для отключения подключенного пользователя:

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

но сначала вы должны отключить пользователя.

Answer 2

если вы запустите openvpn как команду с модулем Perl Proc :: Background, вы также можете убить его с помощью того же 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

использование tcpkill ip host 192.168.1.2

Answer 4

Системный вызов

для программы tcpkill .

Answer 5

Если вы запускаете OpenVPN автоматически как сервис во время загрузки, самый простой способ сделать это:

service openvpn stop

из командной строки (или выполнить его из perl)

/etc/init.d/openvpn stop

Вы можете убить его напрямую, как это предлагают другие, но использование предоставленного метода для остановки службы сделает любую дополнительную очистку, необходимую OpenVPN (например, очистка файлов блокировки, запуск файлов pid и т. Д.)AFIAK убивает OpenVPN в текущей версии, но кто знает, что будет с будущей версией.