views/pxelator/dnsd-date.pl


if ( $rec->{package}->{name} eq 'dnsd' ) {
        my $domain = $rec->{qname};
        $domain =~ s{^.+\.+([^\.]+)\.([^\.]+)$}{$1.$2};
        my $t = int( $rec->{package}->{time} / 86400 ) * 86400;
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);
        my $date = sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday);
        $out->{'date-domain,count+'}->{ "$date $domain" }++;
        $out->{'date,domains+'}->{$date}++;
        $out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/;
}

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	}
12