| … | |
… | |
| 25 | my $rate = sprintf "%.1f", $_->{written} / ($::NOW - $_->{time}); |
25 | my $rate = sprintf "%.1f", $_->{written} / ($::NOW - $_->{time}); |
| 26 | push @data, "$_->{country}/$_->{remote_addr} $_->{written} $rate $_->{method} $_->{uri}\n"; |
26 | push @data, "$_->{country}/$_->{remote_addr} $_->{written} $rate $_->{method} $_->{uri}\n"; |
| 27 | } |
27 | } |
| 28 | } |
28 | } |
| 29 | print $fh sort @data; |
29 | print $fh sort @data; |
| 30 | print $fh scalar@data, " connections\n";#d# |
30 | print $fh scalar@data, " ($::conns) connections\n";#d# |
| 31 | print $fh "$::written bytes written in the last ",$::NOW - $last_ts, " seconds\n"; |
31 | print $fh "$::written bytes written in the last ",$::NOW - $last_ts, " seconds\n"; |
| 32 | printf $fh "(%.1f bytes/s)\n", $::written / ($::NOW - $last_ts); |
32 | printf $fh "(%.1f bytes/s)\n", $::written / ($::NOW - $last_ts); |
| 33 | ($last_ts, $::written) = ($::NOW, 0); |
33 | ($last_ts, $::written) = ($::NOW, 0); |
| 34 | } elsif (/^ref/) { |
34 | } elsif (/^ref/) { |
| 35 | read_blocklist; |
35 | read_blocklist; |
