| line |
l |
!l |
condition |
|
68
|
0 |
0 |
$args->{'session_class'} || 'Any::Daemon::HTTP::Session' |
|
70
|
0 |
0 |
$args->{'vhost_class'} || 'Any::Daemon::HTTP::VirtualHost' |
|
72
|
0 |
0 |
$args->{'proxy_class'} || 'Any::Daemon::HTTP::Proxy' |
|
84
|
0 |
0 |
$args->{'standard_headers'} || [] |
|
85
|
0 |
0 |
$args->{'on_error'} || sub {
$_[1];
}
|
|
248
|
0 |
0 |
$args->{'max_req_per_conn'} ||= 100 |
|
250
|
0 |
0 |
$args->{'max_time_per_conn'} ||= 120 |
|
251
|
0 |
0 |
$args->{'req_time_bonus'} //= 2 |
|
293
|
0 |
0 |
$req->header('Host') || 'default' |
|
365
|
0 |
0 |
$args{'new_child'} || 'newChild' |
|
366
|
0 |
0 |
$args{'new_connection'} ||= 'newConnection' |
|
383
|
0 |
0 |
$args{'max_conn_per_child'} || 10000 |
|
387
|
0 |
0 |
$args{'max_req_per_child'} || 100000 |
|
420
|
0 |
0 |
$args{'child_task'} ||= sub {
$self->psTitle("$title not used yet");
my $select = 'IO::Select'->new($self->sockets);
$self->$new_child($select);
CONNECTION: while (my(@ready) = $select->can_read) {
do {
foreach my $socket (@ready) {
next unless my $client = $socket->accept;
$client->sockopt(13, pack('II', 1, $linger)) if defined $linger;
$self->psTitle("$title handling " . $client->peerhost . ':' . $client->peerport . ' at ' . $client->sockhost . ':' . $client->sockport);
$req_count += $self->_connection($client, \%args);
$client->close;
last CONNECTION if $conn_count++ >= $max_conn or $req_count >= $max_req;
} ;
$self->psTitle("$title idle after $conn_count")
};
} ;
0;
}
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
50
|
0 |
0 |
0 |
$args->{'listen'} || $args->{'socket'} || $args->{'host'} |
|
75
|
0 |
0 |
0 |
$args->{'vhosts'} || $args->{'vhost'} |
|
78
|
0 |
0 |
0 |
$args->{'proxies'} || $args->{'proxy'} |
|
83
|
0 |
0 |
0 |
$args->{'server_id'} || basename($0) |
|
89
|
0 |
0 |
0 |
$args->{'handlers'} || $args->{'handler'} |
|
97
|
0 |
0 |
0 |
$args->{'documents'} or $handler |
|
112
|
0 |
0 |
0 |
$args{'protocol'} || ($port == 443 ? 'HTTPS' : 'HTTP') |
|
146
|
0 |
0 |
0 |
$socket or $! != 98 |
|
268
|
0 |
0 |
0 |
($client->sockdomain == 2 ? gethostbyaddr(inet_aton($ip), 2) : undef) || $ip |
|
299
|
0 |
0 |
0 |
$vhost ||= $self->virtualHost($1) |
|
353
|
5 |
4 |
16 |
s[/[^/.]+/+\.\.(/|\z)][/$1] or s[^/\.\.(/|\z)][/$1] |
|
|
9 |
7 |
9 |
s[/[^/.]+/+\.\.(/|\z)][/$1] or s[^/\.\.(/|\z)][/$1] or s[/{2,}][/] |
|
|
11 |
3 |
6 |
s[/[^/.]+/+\.\.(/|\z)][/$1] or s[^/\.\.(/|\z)][/$1] or s[/{2,}][/] or s[/\.(/|\z)][/] |
|
414
|
0 |
0 |
0 |
$conn_count++ >= $max_conn or $req_count >= $max_req |