Revision 246

Date:
2009/11/26 21:56:45
Author:
dpavlin
Revision Log:
filter output data by date
Files:

Legend:

 
Added
 
Removed
 
Modified
  • trunk/views/pxelator/dnsd-date.pl

     
    5 5 my $t = int( $rec->{package}->{time} / 86400 ) * 86400;
    6 6 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);
    7 7 my $date = sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday);
    8
    9 return unless $date gt '2009-10';
    10
    8 11 $out->{'date-domain,count+'}->{ "$date $domain" }++;
    9 12 $out->{'date,domains+'}->{$date}++;
    10 13 $out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/;