/[Sack]/trunk/views/pxelator/dnsd-date.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/views/pxelator/dnsd-date.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 245 by dpavlin, Mon Nov 23 22:08:12 2009 UTC revision 246 by dpavlin, Thu Nov 26 21:56:45 2009 UTC
# Line 5  if ( $rec->{package}->{name} eq 'dnsd' ) Line 5  if ( $rec->{package}->{name} eq 'dnsd' )
5          my $t = int( $rec->{package}->{time} / 86400 ) * 86400;          my $t = int( $rec->{package}->{time} / 86400 ) * 86400;
6          my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);          my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);
7          my $date = sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday);          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" }++;          $out->{'date-domain,count+'}->{ "$date $domain" }++;
12          $out->{'date,domains+'}->{$date}++;          $out->{'date,domains+'}->{$date}++;
13          $out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/;          $out->{'date,ffzg+'}->{$date}++ if $domain =~ m/ffzg/;
Legend:
Removed from v.245  
changed lines
  Added in v.246
  ViewVC Help
Powered by ViewVC 1.1.26