/[simile]/sparklines/create.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 /sparklines/create.pl

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

revision 23 by dpavlin, Fri Oct 17 11:32:35 2008 UTC revision 25 by dpavlin, Fri Oct 17 14:23:04 2008 UTC
# Line 31  foreach my $file ( @ARGV ) { Line 31  foreach my $file ( @ARGV ) {
31                  if ( ! defined $data->{$instance} ) {                  if ( ! defined $data->{$instance} ) {
32                          $data->{$instance} = [];                          $data->{$instance} = [];
33                          $json->{$instance}->{$type}->{sum} = 0;                          $json->{$instance}->{$type}->{sum} = 0;
34                          $json->{$instance}->{$type}->{min} = 0;  #                       $json->{$instance}->{$type}->{min} = 0;
35                          $json->{$instance}->{$type}->{max} = 0;  #                       $json->{$instance}->{$type}->{max} = 0;
36                  }                  }
37    
38                  $max_month = $month if $month > $max_month;                  $max_month = $month if $month > $max_month;
# Line 50  foreach my $file ( @ARGV ) { Line 50  foreach my $file ( @ARGV ) {
50                          push @x, $month;                          push @x, $month;
51                          my $y = $data->{$instance}->[$month] || 0;                          my $y = $data->{$instance}->[$month] || 0;
52                          push @y, $y;                          push @y, $y;
53                          $json->{$instance}->{$type}->{min} = $y if $json->{$instance}->{$type}->{min} > $y;  #                       $json->{$instance}->{$type}->{min} = $y if $json->{$instance}->{$type}->{min} > $y;
54                          $json->{$instance}->{$type}->{max} = $y if $json->{$instance}->{$type}->{max} < $y;  #                       $json->{$instance}->{$type}->{max} = $y if $json->{$instance}->{$type}->{max} < $y;
55                          $json->{$instance}->{$type}->{sum} += $y;                          $json->{$instance}->{$type}->{sum} += $y;
56                  }                  }
57                  warn "x = ",dump( @x ), "\ny = ", dump( @y ) if $debug;                  warn "x = ",dump( @x ), "\ny = ", dump( @y ) if $debug;
# Line 80  foreach my $instance ( keys %$json ) { Line 80  foreach my $instance ( keys %$json ) {
80          push @items, $item;          push @items, $item;
81  }  }
82    
83    warn dump( @items );
84    
85  write_file( 'sparklines.js', to_json({ items => \@items }) );  write_file( 'sparklines.js', to_json({ items => \@items }) );
86    
Legend:
Removed from v.23  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.26