copy current state of medienstaatsvertrag.org, to be verified

website/agenda/planung/user_stats.cgi

@@ -0,0 +1,109 @@
+#! /usr/bin/perl -w 
+
+use warnings "all";
+use strict;
+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($cgi, $config);
+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->{studio_id}=$params->{default_studio_id} if ((!(defined $params->{action}))||($params->{action}eq'')||($params->{action}eq'login'));
+$params->{project_id}=$user_presets->{project_id} if ((!(defined $params->{action}))||($params->{action}eq'')||($params->{action}eq'login'));
+
+my $request={
+	url	=> $ENV{QUERY_STRING}||'',
+	params	=> {
+		original => $params,
+		checked  => check_params($params), 
+	},
+};
+$request = uac::prepare_request($request, $user_presets);
+log::init($request);
+
+$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('print', template::check('default.html'), $headerParams);
+return unless uac::check($config, $params, $user_presets)==1;
+
+our $errors=[];
+
+show_stats($config,$request);
+
+
+sub show_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;
+	}
+	print STDERR "continue\n";
+    $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);
+	template::process('print', $params->{template}, $params);
+}
+
+
+sub check_params{
+	my $params=shift;
+
+	my $checked={};
+
+	#template
+	my $template='';
+	$template=template::check($params->{template},'user_stats');
+	$checked->{template}=$template;
+
+	#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]};
+}
+