71 |
id => $instance, |
id => $instance, |
72 |
label => $instance, |
label => $instance, |
73 |
uri => "http://www.$instance.skole.hr", |
uri => "http://www.$instance.skole.hr", |
74 |
|
visits_sum => 0, |
75 |
|
visits_anonymous_sum => 0, |
76 |
|
changes_sum => 0, |
77 |
|
categories_changed_sum => 0, |
78 |
|
unique_users_sum => 0, |
79 |
}; |
}; |
80 |
foreach my $type ( keys %{ $json->{$instance} } ) { |
foreach my $type ( keys %{ $json->{$instance} } ) { |
81 |
foreach my $p ( keys %{ $json->{$instance}->{$type} } ) { |
foreach my $p ( keys %{ $json->{$instance}->{$type} } ) { |
82 |
$item->{ $type . '_' . $p } = $json->{$instance}->{$type}->{$p}; |
my $val = $json->{$instance}->{$type}->{$p}; |
83 |
|
$item->{ $type . '_' . $p } = $val; |
84 |
} |
} |
85 |
} |
} |
86 |
push @items, $item; |
push @items, $item; |
88 |
|
|
89 |
warn dump( @items ); |
warn dump( @items ); |
90 |
|
|
91 |
write_file( 'sparklines.js', to_json({ items => \@items }) ); |
my $items_json = to_json({ items => \@items }); |
92 |
|
$items_json =~ s/(_sum":)"(\d+)"/$1$2/gs; |
93 |
|
write_file( 'sparklines.js', $items_json ); |
94 |
|
|