123 lines
3.2 KiB
Perl
123 lines
3.2 KiB
Perl
#!/usr/bin/perl -w
|
|
######################################################################
|
|
#
|
|
# $Id: statistics.pl 148 2009-10-13 15:02:22Z alba $
|
|
#
|
|
# Copyright 2009 Alexander Bartolich
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
######################################################################
|
|
use strict;
|
|
use warnings;
|
|
use MOD::Utils();
|
|
use MOD::DBIUtilsPublic();
|
|
use Data::Dumper;
|
|
|
|
######################################################################
|
|
sub format_time($)
|
|
######################################################################
|
|
{
|
|
my ( $seconds ) = @_;
|
|
|
|
my $hours = $seconds / 3600;
|
|
$seconds %= 3600;
|
|
my $minutes = $seconds / 60;
|
|
$seconds %= 60;
|
|
|
|
return sprintf '%02d:%02d:%02d', $hours, $minutes, $seconds;
|
|
}
|
|
|
|
######################################################################
|
|
sub format_item($)
|
|
######################################################################
|
|
{
|
|
my ( $r ) = @_;
|
|
|
|
return sprintf
|
|
"%5d %9s %9s %9s %9s",
|
|
$r->{'count'},
|
|
format_time($r->{'min'}),
|
|
format_time($r->{'max'}),
|
|
format_time($r->{'avg'}),
|
|
format_time($r->{'median'})
|
|
;
|
|
}
|
|
|
|
######################################################################
|
|
sub print_stats($$)
|
|
######################################################################
|
|
{
|
|
my ( $status, $r_stats ) = @_;
|
|
|
|
return unless ($r_stats->{'total'}->{'count'});
|
|
|
|
print "\n";
|
|
if ($status eq 'all')
|
|
{ print " All posts.\n"; }
|
|
else
|
|
{ printf " Posts of type %s.\n", $status; }
|
|
print "\n";
|
|
|
|
for my $year(sort keys %$r_stats)
|
|
{
|
|
next if ($year eq 'total');
|
|
my $r_month = $r_stats->{$year};
|
|
|
|
for my $month(sort keys %$r_month)
|
|
{
|
|
next if ($month eq 'total');
|
|
my $r_mday = $r_month->{$month};
|
|
|
|
print "yyyy-mm-dd posts min max avg median\n";
|
|
print "========================================================\n";
|
|
for my $mday(sort keys %$r_mday)
|
|
{
|
|
next if ($mday eq 'total');
|
|
my $r = $r_mday->{$mday};
|
|
printf "%04d-%02d-%02d %s\n", $year, $month, $mday, format_item($r);
|
|
}
|
|
|
|
my $r = $r_mday->{'total'};
|
|
print "--------------------------------------------------------\n";
|
|
printf "%04d-%02d %s\n", $year, $month, format_item($r);
|
|
print "\n";
|
|
}
|
|
|
|
my $r = $r_month->{'total'};
|
|
print "========================================================\n";
|
|
printf "%04d %s\n", $year, format_item($r);
|
|
print "========================================================\n";
|
|
print "\n";
|
|
}
|
|
|
|
}
|
|
|
|
######################################################################
|
|
# MAIN
|
|
######################################################################
|
|
|
|
my %config = MOD::Utils::read_private_config($ARGV[0]);
|
|
my $db = MOD::DBIUtilsPublic->new(\%config);
|
|
my $statistics = $db->get_statistics();
|
|
|
|
my $all = $statistics->{'all'};
|
|
|
|
for my $status(
|
|
'all',
|
|
'pending',
|
|
'moderated',
|
|
'spam',
|
|
'rejected',
|
|
'deleted',
|
|
'posted')
|
|
{
|
|
print_stats($status, $statistics->{$status});
|
|
}
|
|
|
|
# print Dumper($statistics);
|
|
|
|
1;
|