1 |
|
2 |
if ( $rec->{package}->{name} eq 'dnsd' ) { |
3 |
my $domain = $rec->{qname}; |
4 |
$domain =~ s{^.+\.+([^\.]+)\.([^\.]+)$}{$1.$2}; |
5 |
my $t = int( $rec->{package}->{time} / 86400 ) * 86400; |
6 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t); |
7 |
my $date = sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday); |
8 |
$out->{'date-domain,count+'}->{ "$date $domain" }++; |
9 |
$out->{'date,domains+'}->{$date}++; |
10 |
$out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/; |
11 |
$out->{'date,hr+'}->{$date}++ if $domain =~ m/hr/; |
12 |
$out->{'date,amazon+'}->{$date}++ if $domain =~ m/amazon/; |
13 |
$out->{'date,google+'}->{$date}++ if $domain =~ m/google/; |
14 |
} |
15 |
|