The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
App-BCSSH-0.002001
River stage zero No dependents
3 ++
/ App::BCSSH::Proxy

NAME

App::BCSSH::Proxy - ssh-agent proxy with message intercept

SYNOPSIS

    my $proxy = App::BCSSH::Proxy->new(
        agent_path => $agent_path,
        handlers => {
            (BCSSH_COMMAND) => sub {
                my ($message, $send, $socket) = @_;
                ...;
            },
        },
    );
    $ENV{SSH_AUTH_SOCK} = $proxy->socket_path;
    $proxy->proxy(\*STDIN);