bk: Подготовка к сбору статистики

app/bin/migrations/2.4.2.sql

@@ -0,0 +1,11 @@
+CREATE TABLE IF NOT EXISTS `statistics` (
+  `date` date NOT NULL,
+  `kind` varchar(32) NOT NULL DEFAULT '0.00',
+  `field` varchar(32) NOT NULL DEFAULT '0',
+  `count` int(11) NOT NULL DEFAULT '0',
+  `sum` decimal(12,2) NOT NULL DEFAULT '0.00',
+  `min` decimal(12,2) NOT NULL DEFAULT '0.00',
+  `max` decimal(12,2) NOT NULL DEFAULT '0.00',
+  `avg` decimal(12,2) NOT NULL DEFAULT '0.00',
+  UNIQUE KEY (`date`, `kind`, `field`)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4;

app/lib/Core/Base.pm

@@ -30,6 +30,7 @@ our @EXPORT = qw(
     cache
     get_smart_args
     first_item
+    stats
 );
 
 use vars qw($AUTOLOAD);
@@ -614,4 +615,39 @@ sub cfg {
     return wantarray ? %{ $data } : $data;
 }
 
+sub stats_fields {
+    my $self = shift;
+
+    my $structure = $self->structure;
+    my @fields;
+
+    for my $field (keys %$structure) {
+        push @fields, $field if $structure->{$field}->{user_for_stats};
+    }
+
+    return @fields;
+}
+
+sub stats {
+    my ($self, $action, $args) = @_;
+
+    my @fields = $self->stats_fields;
+    return unless @fields;
+
+    for my $field (@fields) {
+
+        next unless exists $args->{$field};
+
+        my $value = $self->structure->{$field}->{count_for_stats}
+            ? 1
+            : $args->{$field};
+
+        $self->srv('statistics')->add(
+            $self->kind,
+            $field,
+            $value
+        );
+    }
+}
+
 1;

app/lib/Core/Bonus.pm

@@ -27,6 +27,7 @@ sub structure {
             type => 'number',
             required => 1,
             title => 'кол-во бонусов',
+            user_for_stats => 1,
         },
         comment => {
             type => 'json',

app/lib/Core/Pay.pm

@@ -33,6 +33,7 @@ sub structure {
             type => 'number',
             required => 1,
             title => 'сумма платежа',
+            user_for_stats => 1,
         },
         date => {
             type => 'now',

app/lib/Core/Sql/Data.pm

@@ -568,6 +568,8 @@ sub add {
     my $self = shift;
     my %args = ( @_ );
 
+    $self->stats('add', \%args);
+
     $args{table}||= $self->table;
     my $table = delete $args{table};
 

app/lib/Core/Statistics.pm

@@ -0,0 +1,84 @@
+package Core::Statistics;
+
+use v5.14;
+use utf8;
+use parent 'Core::Base';
+use Core::Base;
+use Core::Utils qw(
+    now
+);
+use Core::System::ServiceManager qw( logger );
+
+sub table { return 'statistics' };
+
+sub structure {
+    return {
+        date => {
+            type => 'date',
+            key => 1,
+            title => 'дата',
+        },
+        kind => {
+            type => 'text',
+            title => 'контроллер',
+        },
+        field => {
+            type => 'text',
+            title => 'тип',
+        },
+        count => {
+            type => 'number',
+            title => 'кол-во',
+        },
+        sum => {
+            type => 'number',
+            title => 'сумма',
+        },
+        min => {
+            type => 'number',
+            title => 'минимальная сумма',
+        },
+        max => {
+            type => 'number',
+            title => 'максимальная сумма',
+        },
+        avg => {
+            type => 'number',
+            title => 'средняя сумма',
+        },
+    };
+}
+
+sub add {
+    my ($self, $kind, $field, $value) = @_;
+
+    return unless defined $value;
+
+    my $date = now('date');
+
+    $kind = lc $kind;
+
+    $self->do(q{
+        INSERT INTO statistics
+        (`date`,`kind`,`field`,`count`,`sum`,`min`,`max`,`avg`)
+        VALUES (?, ?, ?, 1, ?, ?, ?, ?)
+
+        ON DUPLICATE KEY UPDATE
+            count = count + 1,
+            sum = sum + VALUES(sum),
+            min = LEAST(min, VALUES(min)),
+            max = GREATEST(max, VALUES(max)),
+            avg = (sum + VALUES(sum)) / (count + 1)
+    },
+        $date,
+        $kind,
+        $field,
+        $value + 0,
+        $value + 0,
+        $value + 0,
+        $value + 0
+    );
+
+}
+
+1;

app/lib/Core/User.pm

@@ -41,6 +41,8 @@ sub structure {
             type => 'text',
             required => 1,
             title => 'логин',
+            user_for_stats => 1,
+            count_for_stats => 1,
         },
         password => {
             type => 'text',