dbg((ref $conn) . " connected $conn->{cnum} to $conn->{peerhost}:$conn->{peerport}") if isdbg('connll');
if ($conn->{on_connect}) {
dbg((ref $conn) . " connected $conn->{cnum} to $conn->{peerhost}:$conn->{peerport}") if isdbg('connll');
if ($conn->{on_connect}) {
- my ($pkg, $to_host, $to_port, $rproc, %args) = @_;
+ my ($pkg, $to_host, $to_port, %args) = @_;
my $sock;
$conn->{sock} = $sock = Mojo::IOLoop::Client->new;
$sock->on(connect => sub {$conn->_on_connect($_[1])} );
my $sock;
$conn->{sock} = $sock = Mojo::IOLoop::Client->new;
$sock->on(connect => sub {$conn->_on_connect($_[1])} );
$sock->on(close => sub {$conn->disconnect});
# copy any args like on_connect, on_disconnect etc
$sock->on(close => sub {$conn->disconnect});
# copy any args like on_connect, on_disconnect etc
$sock->on(read => sub {$conn->_rcv($_[1])});
$sock->timeout(0);
$sock->start;
dbg((ref $conn) . "accept $conn->{cnum} from $conn->{peerhost} $conn->{peerport}") if isdbg('connll');
$sock->on(read => sub {$conn->_rcv($_[1])});
$sock->timeout(0);
$sock->start;
dbg((ref $conn) . "accept $conn->{cnum} from $conn->{peerhost} $conn->{peerport}") if isdbg('connll');
- my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost} = $client->peerhost, $conn->{peerport} = $client->peerport);
+ my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost} = $handle->peerhost, $conn->{peerport} = $handle->peerport);
my $call = $conn->{call} || 'unallocated';
my $host = $conn->{peerhost} || '';
my $port = $conn->{peerport} || '';
my $call = $conn->{call} || 'unallocated';
my $host = $conn->{peerhost} || '';
my $port = $conn->{peerport} || '';