123 lines
3.6 KiB
Perl
123 lines
3.6 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
|
|
use GD::Graph::bars;
|
|
|
|
$maint{'genstatspics'} = sub
|
|
{
|
|
my $dbh = LJ::get_db_writer();
|
|
my $sth;
|
|
|
|
### get posts by day data from summary table
|
|
print "-I- new accounts by day.\n";
|
|
$sth = $dbh->prepare("SELECT DATE_FORMAT(statkey, '%m-%d') AS 'day', statval AS 'new' FROM stats WHERE statcat='newbyday' ORDER BY statkey DESC LIMIT 60");
|
|
$sth->execute;
|
|
if ($dbh->err) { die $dbh->errstr; }
|
|
|
|
my @data;
|
|
my $i;
|
|
my $max;
|
|
while ($_ = $sth->fetchrow_hashref)
|
|
{
|
|
my $val = $_->{'new'};
|
|
unshift @{$data[0]}, ($i++ % 5 == 0 ? $_->{'day'} : "");
|
|
unshift @{$data[1]}, $val;
|
|
if ($val > $max) { $max = $val; }
|
|
}
|
|
|
|
# posts by day graph
|
|
my $g = GD::Graph::bars->new(520, 350);
|
|
$g->set(
|
|
x_label => 'Day',
|
|
y_label => 'Accounts',
|
|
title => 'New accounts per day',
|
|
tranparent => 0,
|
|
y_max_value => $max,
|
|
);
|
|
|
|
my $gd = $g->plot(\@data);
|
|
open(IMG, ">$LJ::HTDOCS/stats/newbyday.png") or die $!;
|
|
binmode IMG;
|
|
print IMG $gd->png;
|
|
close IMG;
|
|
|
|
unless ($LJ::DISABLED{'stats-postsbyday'}) {
|
|
print "-I- posts in last 60 days.\n";
|
|
|
|
### suck the data in
|
|
$sth = $dbh->prepare("SELECT DATE_FORMAT(statkey, '%m-%d') AS 'day', statval AS 'posts' FROM stats WHERE statcat='postsbyday' ORDER BY statkey DESC LIMIT 60");
|
|
$sth->execute;
|
|
if ($dbh->err) { die $dbh->errstr; }
|
|
|
|
### analyze the last 60 days data
|
|
|
|
my @data;
|
|
my $i;
|
|
my $max;
|
|
while ($_ = $sth->fetchrow_hashref)
|
|
{
|
|
my $val = $_->{'posts'};
|
|
unshift @{$data[0]}, ($i++ % 5 == 0 ? $_->{'day'} : "");
|
|
unshift @{$data[1]}, $val;
|
|
if ($val > $max) { $max = $val; }
|
|
}
|
|
|
|
# posts by day graph
|
|
my $g = GD::Graph::bars->new(520, 350);
|
|
$g->set(
|
|
x_label => 'Day',
|
|
y_label => 'Posts',
|
|
title => 'Posts per day',
|
|
tranparent => 0,
|
|
y_max_value => $max,
|
|
);
|
|
|
|
my $gd = $g->plot(\@data);
|
|
open(IMG, ">$LJ::HTDOCS/stats/postsbyday.png") or die $!;
|
|
binmode IMG;
|
|
print IMG $gd->png;
|
|
close IMG;
|
|
|
|
print "-I- posts by week.\n";
|
|
|
|
### suck the data in
|
|
$sth = $dbh->prepare("SELECT DATE_FORMAT(statkey, '%X-%V') AS 'week', SUM(statval) AS 'posts' FROM stats WHERE statcat='postsbyday' AND DATE_FORMAT(statkey, '%X-%V') <> DATE_FORMAT(NOW(), '%X-%V') AND statkey>'1999-06-01' GROUP BY 1 ORDER BY statkey DESC");
|
|
$sth->execute;
|
|
if ($dbh->err) { die $dbh->errstr; }
|
|
|
|
### analyze the last 60 days data
|
|
|
|
my @data;
|
|
my $i;
|
|
my $max;
|
|
while ($_ = $sth->fetchrow_hashref)
|
|
{
|
|
my $val = $_->{'posts'};
|
|
unshift @{$data[0]}, ($i++ % 10 == 0 ? $_->{'week'} : "");
|
|
unshift @{$data[1]}, $val;
|
|
if ($val > $max) { $max = $val; }
|
|
}
|
|
|
|
# posts by week graph
|
|
my $g = GD::Graph::bars->new(520, 350);
|
|
$g->set(
|
|
x_label => 'Week',
|
|
y_label => 'Posts',
|
|
title => 'Posts per week',
|
|
tranparent => 0,
|
|
y_max_value => $max,
|
|
);
|
|
|
|
my $gd = $g->plot(\@data);
|
|
open(IMG, ">$LJ::HTDOCS/stats/postsbyweek.png") or die $!;
|
|
binmode IMG;
|
|
print IMG $gd->png;
|
|
close IMG;
|
|
}
|
|
|
|
print "-I- done.\n";
|
|
|
|
};
|
|
|
|
1;
|