File Coverage

lib/Wireguard/WGmeta/Cli/Commands/Apply.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	4	0.0
condition			n/a
subroutine	5	8	62.5
pod	2	2	100.0
total	22	49	44.9

package Wireguard::WGmeta::Cli::Commands::Apply;
use strict;
use warnings FATAL => 'all';

use experimental 'signatures';

use parent 'Wireguard::WGmeta::Cli::Commands::Command';

use Wireguard::WGmeta::Wrapper::Bridge;


sub entry_point($self) {
    if ($self->_retrieve_or_die($self->{input_args}, 0) eq 'help') {
        $self->cmd_help();
    }
    $self->check_privileges();
    $self->_run_command();
}

sub _run_command($self) {
    my $interface = $self->_retrieve_or_die($self->{input_args}, 0);

    # please note that there ar potential problems with this commend as mentioned here: https://github.com/WireGuard/wireguard-tools/pull/3
    my $cmd_line = "su -c 'wg syncconf $interface <(wg-quick strip $interface)'";
    unless (defined $ENV{WGmeta_NO_WG}) {
        run_external($cmd_line);
    } else  {
        print "Faked apply \n";
    }
}

sub cmd_help($self) {
    print "Usage: wg-meta apply \n";
    exit;
}

1;