bf2128f13c
all roles having read-user-stats enabled can show a list of user sessions (last login, creation times, and active flag) to find unused accounts which could be deactivated.
146 lines
4.1 KiB
Perl
Executable File
146 lines
4.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
|
|
use Data::Dumper;
|
|
|
|
use config();
|
|
use log();
|
|
use template();
|
|
use auth();
|
|
use uac();
|
|
use roles();
|
|
use project();
|
|
use studios();
|
|
use params();
|
|
use user_settings();
|
|
use user_stats();
|
|
use localization();
|
|
|
|
my $r = shift;
|
|
( my $cgi, my $params, my $error ) = params::get($r);
|
|
|
|
my $config = config::get('../config/config.cgi');
|
|
my $debug = $config->{system}->{debug};
|
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
|
|
|
my $user_presets = uac::get_user_presets(
|
|
$config,
|
|
{
|
|
user => $user,
|
|
project_id => $params->{project_id},
|
|
studio_id => $params->{studio_id}
|
|
}
|
|
);
|
|
$params->{default_studio_id} = $user_presets->{studio_id};
|
|
$params = uac::setDefaultStudio( $params, $user_presets );
|
|
$params = uac::setDefaultProject( $params, $user_presets );
|
|
|
|
|
|
my $request = {
|
|
url => $ENV{QUERY_STRING} || '',
|
|
params => {
|
|
original => $params,
|
|
checked => check_params( $config, $params ),
|
|
},
|
|
};
|
|
$request = uac::prepare_request( $request, $user_presets );
|
|
$params = $request->{params}->{checked};
|
|
|
|
#process header
|
|
my $headerParams = uac::set_template_permissions( $request->{permissions}, $params );
|
|
$headerParams->{loc} = localization::get( $config, { user => $user, file => 'menu' } );
|
|
template::process( $config, 'print', template::check( $config, 'default.html' ), $headerParams );
|
|
return unless uac::check( $config, $params, $user_presets ) == 1;
|
|
|
|
our $errors = [];
|
|
|
|
if ($params->{action} eq 'show-active-users'){
|
|
show_active_users($config, $request);
|
|
return;
|
|
};
|
|
if ($params->{action} eq 'show-user-stats'){
|
|
show_user_stats( $config, $request );
|
|
return;
|
|
};
|
|
|
|
sub show_user_stats {
|
|
my $config = shift;
|
|
my $request = shift;
|
|
|
|
my $params = $request->{params}->{checked};
|
|
my $permissions = $request->{permissions};
|
|
unless ( $permissions->{read_user_stats} ) {
|
|
uac::permissions_denied('read_user_stats');
|
|
return;
|
|
}
|
|
$params->{user_stats} = user_stats::get_stats( $config, $params );
|
|
$params->{permissions} = $permissions;
|
|
$params->{errors} = $errors;
|
|
|
|
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'user-stats' } );
|
|
uac::set_template_permissions( $permissions, $params );
|
|
my $template = template::check( $config, 'user-stats' );
|
|
template::process( $config, 'print', $template, $params );
|
|
}
|
|
|
|
sub show_active_users{
|
|
my $config = shift;
|
|
my $request = shift;
|
|
|
|
my $params = $request->{params}->{checked};
|
|
my $permissions = $request->{permissions};
|
|
unless ( $permissions->{read_user_stats} ) {
|
|
uac::permissions_denied('read_user_stats');
|
|
return;
|
|
}
|
|
my $user_stats = user_stats::get_active_users( $config, $params );
|
|
for my $user (@$user_stats){
|
|
$user->{disabled} = $user->{disabled} ? 'x' : '-';
|
|
}
|
|
$params->{user_stats} = $user_stats;
|
|
$params->{permissions} = $permissions;
|
|
$params->{errors} = $errors;
|
|
|
|
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'user-stats' } );
|
|
uac::set_template_permissions( $permissions, $params );
|
|
my $template = template::check( $config, 'user-active' );
|
|
template::process( $config, 'print', $template, $params );
|
|
}
|
|
|
|
sub check_params {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
|
|
my $checked = {};
|
|
|
|
$checked->{action} = '';
|
|
if ( defined $params->{action} ) {
|
|
if ( $params->{action} =~ /^(show-user-stats|show-active-users)$/ ) {
|
|
$checked->{action} = $params->{action};
|
|
}
|
|
}
|
|
|
|
#numeric values
|
|
for my $param ( 'project_id', 'default_studio_id', 'studio_id', 'series_id' ) {
|
|
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
|
|
$checked->{$param} = $params->{$param};
|
|
}
|
|
}
|
|
if ( defined $checked->{studio_id} ) {
|
|
$checked->{default_studio_id} = $checked->{studio_id};
|
|
} else {
|
|
$checked->{studio_id} = -1;
|
|
}
|
|
|
|
return $checked;
|
|
}
|
|
|
|
sub error {
|
|
push @$errors, { error => $_[0] };
|
|
}
|
|
|