views/pxelator/ip-date.pl


if ( my $ip = $rec->{ip} ) {

        $ip =~ s/\.\d+$/.0/;

        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,$ip+"}->{ $date }++;
}

1
2	if ( my $ip = $rec->{ip} ) {
3
4	$ip =~ s/\.\d+$/.0/;
5
6	my $t = int( $rec->{package}->{time} / 86400 ) * 86400;
7	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);
8	my $date = sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday);
9
10	$out->{"date,$ip+"}->{ $date }++;
11	}
12