|
Lines 137-142
Link Here
|
| 137 |
die "could not connect to $target->{url}: $!"; |
137 |
die "could not connect to $target->{url}: $!"; |
| 138 |
} |
138 |
} |
| 139 |
|
139 |
|
|
|
140 |
$socket->sockopt(Socket::SO_KEEPALIVE, 1); |
| 141 |
$socket->setsockopt(Socket::IPPROTO_TCP, Socket::TCP_KEEPIDLE, 2 * 60); |
| 142 |
$socket->setsockopt(Socket::IPPROTO_TCP, Socket::TCP_KEEPINTVL, 30); |
| 143 |
$socket->setsockopt(Socket::IPPROTO_TCP, Socket::TCP_KEEPCNT, 3); |
| 144 |
|
| 140 |
if(defined($target->{request})) { |
145 |
if(defined($target->{request})) { |
| 141 |
print($socket $target->{request}); |
146 |
print($socket $target->{request}); |
| 142 |
} |
147 |
} |
