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);

        return unless $date gt '2009-10';

        $out->{'date-domain,count+'}->{ "$date $domain" }++;
        $out->{'date,domains+'}->{$date}++;
        $out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/;
        $out->{'date,hr+'}->{$date}++ if $domain =~ m/hr/;
        $out->{'date,amazon+'}->{$date}++ if $domain =~ m/amazon/;
        $out->{'date,google+'}->{$date}++ if $domain =~ m/(google|gmail)/;
        $out->{'date,facebook+'}->{$date}++ if $domain =~ m/(facebook|fbcdn)/;
        $out->{'date,rev+'}->{$date}++ if $domain =~ m/in-addr/;
}

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
9	return unless $date gt '2009-10';
10
11	$out->{'date-domain,count+'}->{ "$date $domain" }++;
12	$out->{'date,domains+'}->{$date}++;
13	$out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/;
14	$out->{'date,hr+'}->{$date}++ if $domain =~ m/hr/;
15	$out->{'date,amazon+'}->{$date}++ if $domain =~ m/amazon/;
16	$out->{'date,google+'}->{$date}++ if $domain =~ m/(google\|gmail)/;
17	$out->{'date,facebook+'}->{$date}++ if $domain =~ m/(facebook\|fbcdn)/;
18	$out->{'date,rev+'}->{$date}++ if $domain =~ m/in-addr/;
19	}
20