$conn->{blocking} = 0;
my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost} = $sock->peerhost(), $conn->{peerport} = $sock->peerport());
+ dbg('connll', "accept $conn->{cnum} from $conn->{peerhost} $conn->{peerport}");
if ($eproc) {
$conn->{eproc} = $eproc;
Msg::set_event_handler ($sock, "error" => $eproc);
{
my $conn = shift;
dbg('connect', "timed out after $conn->{timeval} seconds");
- $conn->{timeout}->del;
- delete $conn->{timeout};
$conn->disconnect;
}
if ($f) {
while (<$f>) {
chomp;
- dbg('connll', $_);
- $conn->send_raw($_ . $conn->{lineend});
+ my $l = $_;
+ dbg('connll', "connect $conn->{cnum}: $l");
+ $conn->send_raw($l . $conn->{lineend});
}
$f->close;
}