add playout section
This commit is contained in:
Milan
309
website/agenda/planung/event_history.cgi
Normal file → Executable file
309
website/agenda/planung/event_history.cgi
Normal file → Executable file
@@ -6,6 +6,7 @@ use URI::Escape;
|
||||
use Encode;
|
||||
use Data::Dumper;
|
||||
use MIME::Base64;
|
||||
|
||||
#use Text::Diff ();
|
||||
use Text::Diff::FormattedHTML;
|
||||
|
||||
@@ -16,50 +17,54 @@ use template;
|
||||
use db;
|
||||
use auth;
|
||||
use uac;
|
||||
|
||||
#use roles;
|
||||
use time;
|
||||
use markup;
|
||||
use studios;
|
||||
use event_history;
|
||||
use events;
|
||||
|
||||
#use series;
|
||||
#use series_dates;
|
||||
use series_events;
|
||||
use localization;
|
||||
binmode STDOUT, ":utf8";
|
||||
|
||||
my $r=shift;
|
||||
(my $cgi, my $params, my $error)=params::get($r);
|
||||
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, $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}});
|
||||
$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'));
|
||||
my $user_presets = uac::get_user_presets( $config, { user => $user, 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' ) );
|
||||
|
||||
my $request={
|
||||
url => $ENV{QUERY_STRING}||'',
|
||||
params => {
|
||||
original => $params,
|
||||
checked => check_params($params),
|
||||
},
|
||||
my $request = {
|
||||
url => $ENV{QUERY_STRING} || '',
|
||||
params => {
|
||||
original => $params,
|
||||
checked => check_params($params),
|
||||
},
|
||||
};
|
||||
|
||||
#print STDERR Dumper($request)."\n";
|
||||
|
||||
#set user at params->presets->user
|
||||
$request = uac::prepare_request($request, $user_presets);
|
||||
$request = uac::prepare_request( $request, $user_presets );
|
||||
log::init($request);
|
||||
|
||||
$params=$request->{params}->{checked};
|
||||
$params = $request->{params}->{checked};
|
||||
|
||||
#show 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;
|
||||
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;
|
||||
|
||||
print q{
|
||||
<script src="js/datetime.js" type="text/javascript"></script>
|
||||
@@ -67,166 +72,170 @@ print q{
|
||||
<link rel="stylesheet" href="css/event.css" type="text/css" />
|
||||
};
|
||||
|
||||
$config->{access}->{write}=0;
|
||||
if($params->{action} eq'diff'){
|
||||
compare($config, $request);
|
||||
return;
|
||||
$config->{access}->{write} = 0;
|
||||
if ( $params->{action} eq 'diff' ) {
|
||||
compare( $config, $request );
|
||||
return;
|
||||
}
|
||||
show_history($config, $request);
|
||||
show_history( $config, $request );
|
||||
|
||||
#show existing event history
|
||||
sub show_history{
|
||||
my $config=shift;
|
||||
my $request=shift;
|
||||
sub show_history {
|
||||
my $config = shift;
|
||||
my $request = shift;
|
||||
|
||||
my $params=$request->{params}->{checked};
|
||||
my $permissions=$request->{permissions};
|
||||
for my $attr ('studio_id'){ # 'series_id','event_id'
|
||||
unless (defined $params->{$attr}){
|
||||
uac::print_error("missing ".$attr." to show changes");
|
||||
return;
|
||||
}
|
||||
}
|
||||
my $params = $request->{params}->{checked};
|
||||
my $permissions = $request->{permissions};
|
||||
for my $attr ('studio_id') { # 'series_id','event_id'
|
||||
unless ( defined $params->{$attr} ) {
|
||||
uac::print_error( "missing " . $attr . " to show changes" );
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
unless($permissions->{read_event}==1){
|
||||
uac::print_error("missing permissions to show changes");
|
||||
return;
|
||||
}
|
||||
unless ( $permissions->{read_event} == 1 ) {
|
||||
uac::print_error("missing permissions to show changes");
|
||||
return;
|
||||
}
|
||||
|
||||
my $options={
|
||||
project_id => $params->{project_id},
|
||||
studio_id => $params->{studio_id},
|
||||
limit => 200
|
||||
};
|
||||
$options->{series_id} = $params->{series_id} if defined $params->{series_id};
|
||||
$options->{event_id} = $params->{event_id} if defined $params->{event_id};
|
||||
my $options = {
|
||||
project_id => $params->{project_id},
|
||||
studio_id => $params->{studio_id},
|
||||
limit => 200
|
||||
};
|
||||
$options->{series_id} = $params->{series_id} if defined $params->{series_id};
|
||||
$options->{event_id} = $params->{event_id} if defined $params->{event_id};
|
||||
|
||||
my $events=event_history::get($config, $options);
|
||||
#print STDERR Dumper($events);
|
||||
return unless defined $events;
|
||||
$params->{events}=$events;
|
||||
my $events = event_history::get( $config, $options );
|
||||
|
||||
for my $permission (keys %{$permissions}){
|
||||
$params->{'allow'}->{$permission}=$request->{permissions}->{$permission};
|
||||
}
|
||||
|
||||
#print STDERR Dumper($params);
|
||||
$params->{loc} = localization::get($config, {user=>$params->{presets}->{user}, file=>'event_history'});
|
||||
#print STDERR Dumper($events);
|
||||
return unless defined $events;
|
||||
$params->{events} = $events;
|
||||
|
||||
template::process('print', template::check('event_history'), $params);
|
||||
for my $permission ( keys %{$permissions} ) {
|
||||
$params->{'allow'}->{$permission} = $request->{permissions}->{$permission};
|
||||
}
|
||||
|
||||
#print STDERR Dumper($params);
|
||||
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'event_history' } );
|
||||
|
||||
template::process( 'print', template::check('event_history'), $params );
|
||||
}
|
||||
|
||||
#show existing event history
|
||||
sub compare{
|
||||
my $config=shift;
|
||||
my $request=shift;
|
||||
sub compare {
|
||||
my $config = shift;
|
||||
my $request = shift;
|
||||
|
||||
my $params=$request->{params}->{checked};
|
||||
my $permissions=$request->{permissions};
|
||||
for my $attr ('project_id','studio_id','event_id','v1','v2'){
|
||||
unless (defined $params->{$attr}){
|
||||
uac::print_error("missing ".$attr." to show changes");
|
||||
return;
|
||||
}
|
||||
}
|
||||
my $params = $request->{params}->{checked};
|
||||
my $permissions = $request->{permissions};
|
||||
for my $attr ( 'project_id', 'studio_id', 'event_id', 'v1', 'v2' ) {
|
||||
unless ( defined $params->{$attr} ) {
|
||||
uac::print_error( "missing " . $attr . " to show changes" );
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
unless($permissions->{read_event}==1){
|
||||
uac::print_error("missing permissions to show changes");
|
||||
return;
|
||||
}
|
||||
unless ( $permissions->{read_event} == 1 ) {
|
||||
uac::print_error("missing permissions to show changes");
|
||||
return;
|
||||
}
|
||||
|
||||
print qq{<link href="css/diff.css" rel="stylesheet">}."\n";
|
||||
print qq{<link href="css/diff.css" rel="stylesheet">} . "\n";
|
||||
|
||||
if ($params->{v1} > $params->{v2}){
|
||||
my $t = $params->{v1};
|
||||
$params->{v1} = $params->{v2};
|
||||
$params->{v2} = $t;
|
||||
}
|
||||
if ( $params->{v1} > $params->{v2} ) {
|
||||
my $t = $params->{v1};
|
||||
$params->{v1} = $params->{v2};
|
||||
$params->{v2} = $t;
|
||||
}
|
||||
|
||||
my $options={
|
||||
project_id => $params->{project_id},
|
||||
studio_id => $params->{studio_id},
|
||||
series_id => $params->{series_id},
|
||||
event_id => $params->{event_id},
|
||||
change_id => $params->{v1},
|
||||
limit => 2
|
||||
};
|
||||
my $options = {
|
||||
project_id => $params->{project_id},
|
||||
studio_id => $params->{studio_id},
|
||||
series_id => $params->{series_id},
|
||||
event_id => $params->{event_id},
|
||||
change_id => $params->{v1},
|
||||
limit => 2
|
||||
};
|
||||
|
||||
my $events=event_history::get($config, $options);
|
||||
return unless @$events==1;
|
||||
my $v1=$events->[0];
|
||||
|
||||
$options->{change_id}=$params->{v2};
|
||||
$events=event_history::get($config, $options);
|
||||
return unless @$events==1;
|
||||
my $v2=$events->[0];
|
||||
my $events = event_history::get( $config, $options );
|
||||
return unless @$events == 1;
|
||||
my $v1 = $events->[0];
|
||||
|
||||
my $t1=eventToText($v1);
|
||||
my $t2=eventToText($v2);
|
||||
$options->{change_id} = $params->{v2};
|
||||
$events = event_history::get( $config, $options );
|
||||
return unless @$events == 1;
|
||||
my $v2 = $events->[0];
|
||||
|
||||
if($t1 eq $t2){
|
||||
print "no changes\n";
|
||||
return;
|
||||
}
|
||||
my $t1 = eventToText($v1);
|
||||
my $t2 = eventToText($v2);
|
||||
|
||||
#print "<style>".diff_css."</style>";
|
||||
#print '<pre>';
|
||||
#my $diff=diff_strings( { vertical => 1 }, $t1, $t2);
|
||||
my $diff=diff_strings( { }, $t1, $t2);
|
||||
#print Text::Diff::diff(\$t1, \$t2, { STYLE => "Table" });
|
||||
#print Text::Diff::diff($v1, $v2, { STYLE => "Table" });
|
||||
print $diff;
|
||||
#print '</pre>';
|
||||
if ( $t1 eq $t2 ) {
|
||||
print "no changes\n";
|
||||
return;
|
||||
}
|
||||
|
||||
#print "<style>".diff_css."</style>";
|
||||
#print '<pre>';
|
||||
#my $diff=diff_strings( { vertical => 1 }, $t1, $t2);
|
||||
my $diff = diff_strings( {}, $t1, $t2 );
|
||||
|
||||
#print Text::Diff::diff(\$t1, \$t2, { STYLE => "Table" });
|
||||
#print Text::Diff::diff($v1, $v2, { STYLE => "Table" });
|
||||
print $diff;
|
||||
|
||||
#print '</pre>';
|
||||
}
|
||||
|
||||
sub eventToText{
|
||||
my $event=shift;
|
||||
|
||||
my $s=events::get_keys($event)->{full_title}."\n";
|
||||
$s.=$event->{excerpt}."\n";
|
||||
$s.=$event->{user_excerpt}."\n";
|
||||
$s.=$event->{topic}."\n";
|
||||
$s.=$event->{content}."\n";
|
||||
#print STDERR "DUMP\n$s";
|
||||
return $s;
|
||||
sub eventToText {
|
||||
my $event = shift;
|
||||
|
||||
my $s = events::get_keys($event)->{full_title} . "\n";
|
||||
$s .= $event->{excerpt} . "\n";
|
||||
$s .= $event->{user_excerpt} . "\n";
|
||||
$s .= $event->{topic} . "\n";
|
||||
$s .= $event->{content} . "\n";
|
||||
|
||||
#print STDERR "DUMP\n$s";
|
||||
return $s;
|
||||
|
||||
}
|
||||
|
||||
sub check_params{
|
||||
my $params=shift;
|
||||
sub check_params {
|
||||
my $params = shift;
|
||||
|
||||
my $checked={};
|
||||
my $template='';
|
||||
$checked->{template}=template::check($params->{template},'event_history');
|
||||
my $checked = {};
|
||||
my $template = '';
|
||||
$checked->{template} = template::check( $params->{template}, 'event_history' );
|
||||
|
||||
my $debug=$params->{debug} || '';
|
||||
if ($debug=~/([a-z\_\,]+)/){
|
||||
$debug=$1;
|
||||
}
|
||||
$checked->{debug}=$debug;
|
||||
my $debug = $params->{debug} || '';
|
||||
if ( $debug =~ /([a-z\_\,]+)/ ) {
|
||||
$debug = $1;
|
||||
}
|
||||
$checked->{debug} = $debug;
|
||||
|
||||
#numeric values
|
||||
for my $param ('id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'event_id', 'v1', 'v2'){
|
||||
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;
|
||||
}
|
||||
#numeric values
|
||||
for my $param ( 'id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'event_id', 'v1', 'v2' ) {
|
||||
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
|
||||
$checked->{$param} = $params->{$param};
|
||||
}
|
||||
}
|
||||
|
||||
#actions and roles
|
||||
$checked->{action}='';
|
||||
if (defined $params->{action}){
|
||||
if ($params->{action}=~/^(show|diff)$/){
|
||||
$checked->{action}=$params->{action};
|
||||
}
|
||||
}
|
||||
#print STDERR Dumper($checked);
|
||||
return $checked;
|
||||
if ( defined $checked->{studio_id} ) {
|
||||
$checked->{default_studio_id} = $checked->{studio_id};
|
||||
} else {
|
||||
$checked->{studio_id} = -1;
|
||||
}
|
||||
|
||||
#actions and roles
|
||||
$checked->{action} = '';
|
||||
if ( defined $params->{action} ) {
|
||||
if ( $params->{action} =~ /^(show|diff)$/ ) {
|
||||
$checked->{action} = $params->{action};
|
||||
}
|
||||
}
|
||||
|
||||
#print STDERR Dumper($checked);
|
||||
return $checked;
|
||||
}
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user