thh/huhu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Initial checkin.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2022-01-29 10:22:11 +01:00
commit 30132626b8
68 changed files with 5497 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

123
bin/statistics.pl Normal file
View file

@ -0,0 +1,123 @@
#!/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;