File Coverage

lib/Wireguard/WGmeta/Wrapper/Bridge.pm

Criterion	Covered	Total	%
statement	24	68	35.2
branch	0	12	0.0
condition			n/a
subroutine	8	12	66.6
pod	3	4	75.0
total	35	96	36.4

=head1 NAME

WGmeta::Wrapper::Bridge - Interface with shell using IPC::Open3

=head1 METHODS

=cut

package Wireguard::WGmeta::Wrapper::Bridge;
use strict;
use warnings FATAL => 'all';
use experimental 'signatures';

use base 'Exporter';
our @EXPORT = qw(gen_keypair get_pub_key get_wg_show run_external);

use Symbol 'gensym';
use IPC::Open3;

use constant FALSE => 0;
use constant TRUE => 1;


=head2 gen_keypair()

Runs the C command and returns a private and the corresponding public-key

B

Two strings: private-key and public-key

=cut
sub gen_keypair() {
    unless (defined $ENV{WGmeta_NO_WG}){
        my (@out_priv, undef) = run_external('wg genkey');
        my (@out_pub, undef) = run_external('wg pubkey', $out_priv[0]);
        chomp @out_priv;
        chomp @out_pub;
        return $out_priv[0], $out_pub[0];
    }
    return 'dummy_private_key', 'dummy_public_key';
}
=head2 get_pub_key($priv_key)

Runs C on C<$priv_key>.

B

=over 1

=item

C<$priv_key> A valid private key

=back

B

A string containing the derived publickey.

=cut
sub get_pub_key($priv_key){
    unless (defined $ENV{WGmeta_NO_WG}){
        my (@out, undef) = run_external('wg pubkey', $priv_key);
        chomp @out;
        return $out[0];
    }
    return 'dummy_pubkey_from_privkey';

}

=head2 get_wg_show()

Runs C and captures the output into str_out and str_err.

B

Please refer to L

B

First array of STD_OUT

=cut
sub get_wg_show() {
    unless (defined $ENV{WGmeta_NO_WG}){
        my $cmd = 'wg show all dump';
        my (@out, undef) = run_external($cmd);
        chomp @out;
        return @out;
    }


}

=head2 run_external($command_line [, $input, $soft_fail])

Runs an external program and throws an exception (or a warning if C<$soft_fail> is true) if the return code is != 0

B

=over 1

=item *

C<$command_line> Complete commandline for the external program to execute.

=item *

C<[$input = undef]> If defined, this is feed into STD_IN of C<$command_line>.

=item *

C<[$soft_fail = FALSE]> If set to true, a warning is thrown instead of an exception

=back

B

Exception if return code is not 0 (if C<$soft_fail> is set to true, just a warning)

B

Returns two lists with all lines of I and I

=cut
sub run_external($command_line, $input = undef, $soft_fail = FALSE) {
    my $pid = open3(my $std_in, my $std_out, my $std_err = gensym, $command_line);
    if (defined($input)) {
        print $std_in $input;
    }
    close $std_in;
    my @output = <$std_out>;
    my @err = <$std_err>;
    close $std_out;
    close $std_err;

    waitpid($pid, 0);

    my $child_exit_status = $? >> 8;
    if ($child_exit_status != 0) {
        if ($soft_fail == TRUE) {
            warn "Command `$command_line` failed @err";
        }
        else {
            die "Command `$command_line` failed @err";
        }

    }
    return @output, @err;
}

1;