copy current state of medienstaatsvertrag.org, to be verified

website/agenda/planung/error_log.cgi

@@ -0,0 +1,85 @@
+#! /usr/bin/perl -I../lib
+
+use warnings "all";
+use strict;
+use Data::Dumper;
+use HTML::Template;
+#use URI::Escape;
+#use Encode;
+
+use config;
+use log;
+use template;
+use params;
+use config;
+use auth;
+use localization;
+use studios;
+
+binmode STDOUT, ":utf8";
+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, studio_id=>$params->{studio_id}});
+my $request={
+	url	=> $ENV{QUERY_STRING}||'',
+	params	=> {
+		original => $params,
+		checked => $params
+#		checked  => check_params($params), 
+	},
+};
+$request = uac::prepare_request($request, $user_presets);
+log::init($request);
+
+#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);
+
+#filter
+my $lines = $cgi->param('lines');
+$lines=100 if $lines eq '';
+
+my $filter='' ;
+$filter=' |grep -v "Use of uninitialized value in | grep -v redefined " ' if ($cgi->param('warn') eq '1');
+
+#get file
+my $file=$config->{system}->{log_file};
+if ($cgi->param('log')eq'app'){
+	$file=$config->{system}->{log_debug_file};
+}
+if ($cgi->param('log')eq'mem'){
+	$file=$config->{system}->{log_debug_memory_file};
+}
+if ($cgi->param('log')eq'job'){
+	$file=$config->{system}->{job_log};
+}
+
+#output header
+my $out='';
+template::process('print','templates/error_log.html', $params);
+
+#get log
+my $cmd="tail -$lines ".$file.$filter;
+print '<pre>'.$cmd.'</pre>';
+
+my $log= `$cmd`;
+$log=join("\n",reverse(split("\n",$log)));
+
+#replace 
+if ($cgi->param('log')eq'app'){
+	$log=~s/\\n/<br>/gi;
+}else{
+	$log=~s/</\&lt;/gi;
+	$log=~s/\\n/<\/pre><pre>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;/gi;
+}
+
+#output content
+print $log;
+