#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# Feel free to mess with these ...
DEFAULT_BACKGROUND => 'black', # Choose registered colour (like 'black')
DEFAULT_TEXT_COLOUR => 'white', # Choose registered colour (like 'black')
# Feel free to mess with these ...
DEFAULT_BACKGROUND => 'black', # Choose registered colour (like 'black')
DEFAULT_TEXT_COLOUR => 'white', # Choose registered colour (like 'black')
} elsif ($c =~ m/^Connection timeout:/) {
# Connection timeout: http://c.tile.openstreetmap.org/18/136116/87842.png
$stats{'connection-timeout'}++;
} elsif ($c =~ m/^Connection timeout:/) {
# Connection timeout: http://c.tile.openstreetmap.org/18/136116/87842.png
$stats{'connection-timeout'}++;
if ($c =~ m/^A HTTP\/1\.1 response without/ or
$c =~ m/^Keeping the server header 'Connection: keep-alive' around./)
if ($c =~ m/^A HTTP\/1\.1 response without/ or
$c =~ m/^Keeping the server header 'Connection: keep-alive' around./)
'empty-responses-on-reused-connections' => 0,
'fast-redirections' => 0,
'blocked' => 0,
'empty-responses-on-reused-connections' => 0,
'fast-redirections' => 0,
'blocked' => 0,
'reused-connections' => 0,
'server-keep-alive' => 0,
'closed-client-connections' => 0,
'reused-connections' => 0,
'server-keep-alive' => 0,
'closed-client-connections' => 0,
get_percentage($stats{requests}, $stats{'fast-redirections'}) . ")\n";
print "Connection timeouts: " . $stats{'connection-timeout'} . " (" .
get_percentage($stats{requests}, $stats{'connection-timeout'}) . ")\n";
get_percentage($stats{requests}, $stats{'fast-redirections'}) . ")\n";
print "Connection timeouts: " . $stats{'connection-timeout'} . " (" .
get_percentage($stats{requests}, $stats{'connection-timeout'}) . ")\n";
print "Outgoing requests: " . $outgoing_requests . " (" .
get_percentage($stats{requests}, $outgoing_requests) . ")\n";
print "Server keep-alive offers: " . $stats{'server-keep-alive'} . " (" .
print "Outgoing requests: " . $outgoing_requests . " (" .
get_percentage($stats{requests}, $outgoing_requests) . ")\n";
print "Server keep-alive offers: " . $stats{'server-keep-alive'} . " (" .