| … | |
… | |
| 16 | } elsif (/^i/) { |
16 | } elsif (/^i/) { |
| 17 | my @data; |
17 | my @data; |
| 18 | for (values %conn::conn) { |
18 | for (values %conn::conn) { |
| 19 | for (values %$_) { |
19 | for (values %$_) { |
| 20 | next unless $_; |
20 | next unless $_; |
| 21 | push @data, "$_: $_->{remote_addr} $_->{uri}\n"; |
21 | push @data, "$_->{country}/$_->{remote_addr} $_->{method} $_->{uri}\n"; |
| 22 | } |
22 | } |
| 23 | } |
23 | } |
| 24 | print $fh sort @data; |
24 | print $fh sort @data; |
| 25 | print $fh scalar@data, " connections\n";#d# |
25 | print $fh scalar@data, " connections\n";#d# |
| 26 | } elsif (/^ref/) { |
26 | } elsif (/^ref/) { |
