use Tak::Router;
use Tak::Client;
use Tak::ConnectionService;
+use Net::OpenSSH;
use Moo;
with 'Tak::Role::Service';
has connections => (is => 'ro', default => sub { Tak::Router->new });
+has ssh => (is => 'ro', default => sub { {} });
+
sub handle_create {
- my ($self) = @_;
- my $kid_pid = IPC::Open2::open2(my $kid_out, my $kid_in, $^X, '-')
- or die "Couldn't open2 child: $!";
+ my ($self, $on) = @_;
+ my ($kid_in, $kid_out, $kid_pid) = $self->_open($on);
$kid_in->print(io('maint/mk-fat |')->all, "__END__\n");
my $connection = Tak::ConnectionService->new(
read_fh => $kid_out, write_fh => $kid_in,
# actually, we should register with a monotonic id and
# stash the pid elsewhere. but meh for now.
my $pid = $client->do(meta => 'pid');
- $self->connections->register('|'.$pid, $connection);
- return ('proxy', '|'.$pid);
+ my $name = ($on||'|').':'.$pid;
+ my $conn_router = Tak::Router->new;
+ $conn_router->register(local => $connection->receiver->service);
+ $conn_router->register(remote => $connection);
+ $self->connections->register($name, $conn_router);
+ return ($name);
+}
+
+sub _open {
+ my ($self, $on) = @_;
+ unless ($on) {
+ my $kid_pid = IPC::Open2::open2(my $kid_out, my $kid_in, $^X, '-')
+ or die "Couldn't open2 child: $!";
+ return ($kid_in, $kid_out, $kid_pid);
+ }
+ my $ssh = $self->ssh->{$on} ||= Net::OpenSSH->new($on);
+ $ssh->error and
+ die "Couldn't establish ssh connection: ".$ssh->error;
+ return $ssh->open2('perl','-');
}
-sub start_proxy_request {
+sub start_connection_request {
my ($self, $req, @payload) = @_;;
$self->connections->start_request($req, @payload);
}
-sub receive_proxy {
+sub receive_connection {
my ($self, @payload) = @_;
$self->connections->receive(@payload);
}