kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix array length determining and cleanup

Browse Source
This commit is contained in:
Milan
2018-08-31 23:15:57 +02:00
parent 05b1251c1a
commit 3e338758e9
42 changed files with 7588 additions and 7660 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
lib/calcms/UTF8DBI.pm
View File

@@ -1,48 +0,0 @@
# UTF8DBI.pm re-implementation by Pavel Kudinov http://search.cpan.org/~kudinov/
# originally from: http://dysphoria.net/code/perl-utf8/
# And patched again by Andrew Forrest, Jan 2007
use DBI 1.21;
use utf8;
use Encode();
package UTF8DBI;
use base DBI;
sub _utf8_ {
if ( ref $_ eq 'ARRAY' ) { _utf8_() foreach @$_ }
elsif ( ref $_ eq 'HASH' ) { _utf8_() foreach values %$_ }
else {
Encode::_utf8_on($_);
if ( Encode::is_utf8($_) && !Encode::is_utf8( $_, 1 ) ) {
#$_ = '⁂malformed-UTF8‼' #die "Malformed utf8 string in database"
#print data_string_desc($_)."\n"
#data_string_desc(STRING);
#Encode::decode_utf8($_);
#;
#Encode::_utf8_off($_);
#Encode::decode_utf8($_);
#Encode::encode_utf8($_);
}
}
$_;
}
package UTF8DBI::db;
use base DBI::db;
sub selectrow_arrayref { return UTF8DBI::_utf8_ for shift->SUPER::selectrow_arrayref(@_) }
sub selectrow_hashref { return UTF8DBI::_utf8_ for shift->SUPER::selectrow_hashref(@_) }
sub selectall_arrayref { return UTF8DBI::_utf8_ for shift->SUPER::selectall_arrayref(@_) }
sub selectall_hashref { return UTF8DBI::_utf8_ for shift->SUPER::selectall_hashref(@_) }
sub selectcol_arrayref { return UTF8DBI::_utf8_ for shift->SUPER::selectcol_arrayref(@_) }
sub selectrow_array { @{ shift->selectrow_arrayref(@_) } }
package UTF8DBI::st;
use base DBI::st;
sub fetch { return UTF8DBI::_utf8_ for shift->SUPER::fetch(@_) }
1;

14
lib/calcms/aggregator.pm
View File

@@ -115,9 +115,9 @@ sub get_calendar {
#set query string for caching
my $options = [];
push( @$options, 'date=' . $params->{date} ) if ( $params->{date} ne '' );
push( @$options, 'from_date=' . $params->{from_date} ) if ( $params->{from_date} ne '' );
push( @$options, 'till_date=' . $params->{till_date} ) if ( $params->{till_date} ne '' );
push @$options, 'date=' . $params->{date} if $params->{date} ne '';
push @$options, 'from_date=' . $params->{from_date} if $params->{from_date} ne '';
push @$options, 'till_date=' . $params->{till_date} if $params->{till_date} ne '';
$ENV{QUERY_STRING} = '' . join( "&", @$options );
my $content = '';
@@ -270,10 +270,10 @@ sub check_params {
#set query string for caching
if ( ( !exists $ENV{QUERY_STRING} ) || ( $ENV{QUERY_STRING} eq '' ) ) {
my $options = [];
push( @$options, 'date=' . $date ) if $date ne '';
push( @$options, 'from_date=' . $from_date ) if $from_date ne '';
push( @$options, 'till_date=' . $till_date ) if $till_date ne '';
push( @$options, 'event_id=' . $event_id ) if $event_id ne '';
push @$options, 'date=' . $date if $date ne '';
push @$options, 'from_date=' . $from_date if $from_date ne '';
push @$options, 'till_date=' . $till_date if $till_date ne '';
push @$options, 'event_id=' . $event_id if $event_id ne '';
$ENV{QUERY_STRING} = '' . join( "&", @$options );
}

4
lib/calcms/cache.pm
View File

@@ -147,8 +147,8 @@ sub set {
sub save {
my $cache = shift;
return if ( $cache->{action} ne 'save' );
return if ( ( !defined $cache->{filename} ) || ( $cache->{filename} eq '' ) );
return if $cache->{action} ne 'save';
return if ( !defined $cache->{filename} ) || ( $cache->{filename} eq '' );
log::save_file( $cache->{filename}, $cache->{content} );
chmod 0664, $cache->{filename};

4
lib/calcms/calendar.pm
View File

@@ -264,8 +264,8 @@ sub get {
};
$week_result->{class} .= ' selected'
if ( ( ( defined $params->{from_date} ) && ( $start_date eq $params->{from_date} ) )
|| ( ( defined $params->{till_date} ) && ( $end_date eq $params->{till_date} ) ) );
if ( ( defined $params->{from_date} ) && ( $start_date eq $params->{from_date} ) )
|| ( ( defined $params->{till_date} ) && ( $end_date eq $params->{till_date} ) );
$week_result->{class} .= " week_$weekCounter";
$week_result->{class} =~ s/^\s+//g;

870
lib/calcms/comments.pm
View File

File diff suppressed because it is too large Load Diff

9
lib/calcms/config.pm
View File

@@ -12,12 +12,7 @@ our $config = undef;
sub get {
my $filename = shift;
#return config if known
#my $age=(-M $filename);
#return $config::config if ((defined $config::config) && ($age <= $config::modified_at));
#reload config if changed
my $configuration = new Config::General(
-ConfigFile => $filename,
-UTF8 => 1
@@ -25,8 +20,6 @@ sub get {
$config::config = $configuration->{DefaultConfig}->{config};
$config::modified_at = $age;
#print STDERR "reload $filename\n";
return $config::config;
}

383
lib/calcms/creole_wiki.pm
View File

@@ -12,258 +12,259 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
#convert creole wiki text to event
sub extractEventFromWikiText {
my $params = shift;
my $event = shift;
$event = {} unless ( defined $event );
my $params = shift;
my $event = shift;
$event = {} unless ( defined $event );
my $title = $params->{title} || '';
my $content = $params->{content} || '';
my $local_media_url = $params->{local_media_url} || '';
my $title = $params->{title} || '';
my $content = $params->{content} || '';
my $local_media_url = $params->{local_media_url} || '';
#split content into excerpt, content and comments
$content =~ s/\s*\,\s*/, /g;
my @lines = split( /\s*\-{10,99}\s*/, $content );
my $lines = \@lines;
for my $line (@$lines) {
$line =~ s/^\s+|\s+$//g;
}
if ( @lines == 1 ) {
$event->{content} = shift @lines;
} elsif ( @lines == 2 ) {
$event->{excerpt} = shift @lines;
$event->{content} = shift @lines;
} else {
$event->{excerpt} = shift @lines;
$event->{content} = shift @lines;
$event->{comments} = join( "--------------------\n", @lines );
}
if ( defined $event->{excerpt} ) {
$event->{excerpt} = markup::html_to_plain( $event->{excerpt} );
}
#split content into excerpt, content and comments
$content =~ s/\s*\,\s*/, /g;
my @lines = split( /\s*\-{10,99}\s*/, $content );
my $lines = \@lines;
for my $line (@$lines) {
$line =~ s/^\s+|\s+$//g;
}
if ( @lines == 1 ) {
$event->{content} = shift @lines;
} elsif ( @lines == 2 ) {
$event->{excerpt} = shift @lines;
$event->{content} = shift @lines;
} else {
$event->{excerpt} = shift @lines;
$event->{content} = shift @lines;
$event->{comments} = join( "--------------------\n", @lines );
}
if ( defined $event->{excerpt} ) {
$event->{excerpt} = markup::html_to_plain( $event->{excerpt} );
}
#extract program from title
$event->{program} = '';
#extract program from title
$event->{program} = '';
if ( $title =~ /^(.*?)\:/ ) {
my $program = $1;
unless ( $program =~ /\s\-\s/ ) {
$event->{program} = $program;
$event->{program} =~ s/^\s+|\s+$//g;
$event->{program} =~ s/\s+/ /g;
$title =~ s/^.*?\:\s+//gi;
}
}
if ( $title =~ /^(.*?)\:/ ) {
my $program = $1;
unless ( $program =~ /\s\-\s/ ) {
$event->{program} = $program;
$event->{program} =~ s/^\s+|\s+$//g;
$event->{program} =~ s/\s+/ /g;
$title =~ s/^.*?\:\s+//gi;
}
}
#extract series_name from title
$event->{series_name} = '';
if ( $title =~ /^(.*?)\s+\-\s+/ ) {
$event->{series_name} = $1;
$event->{series_name} =~ s/^\s+|\s+$//g;
$event->{series_name} =~ s/\s+/ /g;
$title =~ s/^(.*?)\s+\-\s+//gi;
}
#extract series_name from title
$event->{series_name} = '';
if ( $title =~ /^(.*?)\s+\-\s+/ ) {
$event->{series_name} = $1;
$event->{series_name} =~ s/^\s+|\s+$//g;
$event->{series_name} =~ s/\s+/ /g;
$title =~ s/^(.*?)\s+\-\s+//gi;
}
#extract categories from title
my @categories = ();
while ( $title =~ /\((.*?),(.*?)\)/ ) {
my $category = $1;
$category =~ s/\s+/ /g;
$category =~ s/^\s+|\s+$//g;
$category =~ s/\&/\+/g;
push @categories, $category if ( defined $category && $category =~ /\S/ );
#extract categories from title
my @categories = ();
while ( $title =~ /\((.*?),(.*?)\)/ ) {
my $category = $1;
$category =~ s/\s+/ /g;
$category =~ s/^\s+|\s+$//g;
$category =~ s/\&/\+/g;
push @categories, $category if ( defined $category && $category =~ /\S/ );
$category = '';
$category = $2 if ( defined $2 );
$category =~ s/\s+/ /g;
$category =~ s/^\s+|\s+$//g;
$category =~ s/\&/\+/g;
push @categories, $category if ( defined $category && $category =~ /\S/ );
$title =~ s/\((.*?),(.*?)\)/\($2\)/;
}
if ( $title =~ /\((.*?)\)/ ) {
my $category = $1;
$category =~ s/\s+/ /g;
$category =~ s/^\s+|\s+$//g;
$category =~ s/\&/\+/g;
$category = '';
$category = $2 if ( defined $2 );
$category =~ s/\s+/ /g;
$category =~ s/^\s+|\s+$//g;
$category =~ s/\&/\+/g;
push @categories, $category if ( defined $category && $category =~ /\S/ );
$title =~ s/\((.*?),(.*?)\)/\($2\)/;
}
if ( $title =~ /\((.*?)\)/ ) {
my $category = $1;
$category =~ s/\s+/ /g;
$category =~ s/^\s+|\s+$//g;
$category =~ s/\&/\+/g;
# print $category."\n";
push @categories, $category if ( defined $category && $category =~ /\S/ );
$title =~ s/\((.*?)\)//;
}
$event->{categories} = \@categories if ( @categories > 0 );
$event->{title} = $title;
$event->{title} =~ s/^\s+|\s+$//g;
# print $category."\n";
push @categories, $category if ( defined $category && $category =~ /\S/ );
$title =~ s/\((.*?)\)//;
}
$event->{categories} = \@categories if ( @categories > 0 );
$event->{title} = $title;
$event->{title} =~ s/^\s+|\s+$//g;
if ( defined $event->{content} ) {
if ( defined $event->{content} ) {
#extract podcast_url from content link 'podcast'
my $podcast_url = '';
if ( $event->{content} =~ /\[\[\s*([^\|\]]+)\s*\|\s*podcast\s*\]\]/i ) {
$podcast_url = $1;
#extract podcast_url from content link 'podcast'
my $podcast_url = '';
if ( $event->{content} =~ /\[\[\s*([^\|\]]+)\s*\|\s*podcast\s*\]\]/i ) {
$podcast_url = $1;
# $podcast_url=~s/\|.*//g;
# print "found podcast:".$podcast_url."\n";
}
$event->{podcast_url} = $podcast_url;
# $podcast_url=~s/\|.*//g;
# print "found podcast:".$podcast_url."\n";
}
$event->{podcast_url} = $podcast_url;
#extract media_url from content link 'download'
my $media_url = '';
if ( $event->{content} =~ /\[\[\s*([^\|\]]+)\s*\|\s*(direct\s+)?download\s*\]\]/i ) {
$media_url = $1;
#extract media_url from content link 'download'
my $media_url = '';
if ( $event->{content} =~ /\[\[\s*([^\|\]]+)\s*\|\s*(direct\s+)?download\s*\]\]/i ) {
$media_url = $1;
# $podcast_url=~s/\|.*//g;
# print "found media:".$media_url."\n";
}
$event->{media_url} = $media_url;
# $podcast_url=~s/\|.*//g;
# print "found media:".$media_url."\n";
}
$event->{media_url} = $media_url;
#replace "thumbs/xxx" link by link to local media URI
$event->{content} =~
s/\{\{\s*thumbs\/+(.*?)\s*\|\s*(.*?)\s*\}\}/\[\[$local_media_url\/images\/$1\|\{\{$local_media_url\/thumbs\/$1\|$2\}\}\]\]/g;
#replace "thumbs/xxx" link by link to local media URI
$event->{content} =~
s/\{\{\s*thumbs\/+(.*?)\s*\|\s*(.*?)\s*\}\}/\[\[$local_media_url\/images\/$1\|\{\{$local_media_url\/thumbs\/$1\|$2\}\}\]\]/g;
#extract image from content
if ( $event->{content} =~ /\{\{(.*?)(\||\}\})/ ) {
$event->{image} = $1;
}
}
#extract image from content
if ( $event->{content} =~ /\{\{(.*?)(\||\}\})/ ) {
$event->{image} = $1;
}
}
#meta
if ( defined $event->{comments} ) {
my $meta = extractMeta( $event->{comments} );
$event->{meta} = $meta if ( @$meta > 0 );
}
#meta
if ( defined $event->{comments} ) {
my $meta = extractMeta( $event->{comments} );
$event->{meta} = $meta if scalar @$meta > 0;
}
return $event;
return $event;
}
sub eventToWikiText {
my $event = shift;
my $local_media_url = $event->{local_media_url} || '';
my $event = shift;
my $local_media_url = $event->{local_media_url} || '';
$event->{program} =~ s/^\s+|\s+$//g;
$event->{series_name} =~ s/^\s+|\s+$//g;
$event->{title} =~ s/^\s+|\s+$//g;
$event->{excerpt} =~ s/^\s+|\s+$//g;
$event->{content} =~ s/^\s+|\s+$//g;
$event->{comments} =~ s/^\s+|\s+$//g;
$event->{program} =~ s/^\s+|\s+$//g;
$event->{series_name} =~ s/^\s+|\s+$//g;
$event->{title} =~ s/^\s+|\s+$//g;
$event->{excerpt} =~ s/^\s+|\s+$//g;
$event->{content} =~ s/^\s+|\s+$//g;
$event->{comments} =~ s/^\s+|\s+$//g;
my $title = '';
if ( $event->{program} ne '' ) {
$title = $event->{program};
$title .= ': ' if ( ( $event->{series_name} ne '' ) || ( $event->{title} ne '' ) );
}
if ( $event->{series_name} ne '' ) {
$title .= $event->{series_name};
$title .= ' - ' if ( $event->{title} ne '' );
}
$title .= $event->{title};
if ( $event->{categories} ) {
$title .= ' (' . join( ",", @{ $event->{categories} } ) . ')' if ( @{ $event->{categories} } > 0 );
}
my $title = '';
if ( $event->{program} ne '' ) {
$title = $event->{program};
$title .= ': ' if ( $event->{series_name} ne '' ) || ( $event->{title} ne '' );
}
if ( $event->{series_name} ne '' ) {
$title .= $event->{series_name};
$title .= ' - ' if ( $event->{title} ne '' );
}
$title .= $event->{title};
if ( $event->{categories} ) {
my $categories = $event->{categories};
$title .= ' (' . join( ",", @$categories ) . ')' if ( scalar @$categories > 0 );
}
my $meta = extractMeta( $event->{comments}, $event->{meta} );
my $meta = extractMeta( $event->{comments}, $event->{meta} );
#use Data::Dumper;print "extracted meta".Dumper($meta);
#use Data::Dumper;print "extracted meta".Dumper($meta);
$event->{comments} = removeMeta( $event->{comments} );
$event->{wiki_comments} = $event->{comments} . "\n\n" . metaToWiki($meta);
$event->{comments} = removeMeta( $event->{comments} );
$event->{wiki_comments} = $event->{comments} . "\n\n" . metaToWiki($meta);
#use Data::Dumper;print "event content".Dumper($event->{content});
#use Data::Dumper;print "event content".Dumper($event->{content});
#rich content editors:
#$event->{wiki_content}=markup::html_to_creole($event->{content});
#rich content editors:
#$event->{wiki_content}=markup::html_to_creole($event->{content});
#markup editors
$event->{wiki_content} = $event->{content};
#markup editors
$event->{wiki_content} = $event->{content};
# [[http://localhost/agenda_files/media/images/Vl8X7YmaWrmm9RMN_OMywA.jpg|{{http://localhost/agenda_files/media/thumbs/Vl8X7YmaWrmm9RMN_OMywA.jpg|}}]]
#replace "thumbs/xxx" link by link to local media URI
# while ($event->{wiki_content}=~/\[\[.*?\/+media\/+images\/+(.*?)\s*\|.*?\{\{.*?\/+media\/+thumbs\/+(.*?)\s*\|\s*(.*?)\s*\}\}\]\]/){
$event->{wiki_content} =~
s/\[\[.*?\/+media\/+images\/+(.*?)\s*\|.*?\{\{.*?\/+media\/+thumbs\/+(.*?)\s*\|\s*(.*?)\s*\}\}\]\]/\{\{thumbs\/$1\|$3\}\}/g;
$event->{wiki_content} =~
s/\[\[.*?\/+media\/+images\/+(.*?)\s*\|.*?\{\{.*?\/+media\/+thumbs\/+(.*?)\s*\|\s*(.*?)\s*\}\}\]\]/\{\{thumbs\/$1\|$3\}\}/g;
# }
# }
my $wiki_content = join( "\n" . ( "-" x 20 ) . "\n", ( $event->{excerpt}, $event->{wiki_content} ) );
$wiki_content .= "\n" . ( "-" x 20 ) . "\n" . $event->{wiki_comments} if ( $event->{wiki_comments} =~ /\S/ );
my $wiki_content = join( "\n" . ( "-" x 20 ) . "\n", ( $event->{excerpt}, $event->{wiki_content} ) );
$wiki_content .= "\n" . ( "-" x 20 ) . "\n" . $event->{wiki_comments} if ( $event->{wiki_comments} =~ /\S/ );
return {
title => $title,
content => $event->{content},
wiki_content => $wiki_content
};
return {
title => $title,
content => $event->{content},
wiki_content => $wiki_content
};
}
#extrace meta tags from comment text
sub extractMeta {
my $comments = shift;
my $meta = shift;
my $comments = shift;
my $meta = shift;
$meta = [] unless ( defined $meta );
$meta = [] unless ( defined $meta );
#push meta tags into meta list
if ( defined $comments ) {
#push meta tags into meta list
if ( defined $comments ) {
#build index for meta already defined
my $meta_keys = {};
for my $pair (@$meta) {
$meta_keys->{ $pair->{name} . '=' . $pair->{value} } = 1;
}
#build index for meta already defined
my $meta_keys = {};
for my $pair (@$meta) {
$meta_keys->{ $pair->{name} . '=' . $pair->{value} } = 1;
}
while ( $comments =~ /\~\~META\:(.+?)\=(.+?)\~\~/g ) {
my $name = $1;
my $value = $2;
while ( $comments =~ /\~\~META\:(.+?)\=(.+?)\~\~/g ) {
my $name = $1;
my $value = $2;
#fix meta values
$name = lc($name);
$name =~ s/^\s+|\s+$//g;
$value =~ s/^\s+|\s+$//g;
#fix meta values
$name = lc($name);
$name =~ s/^\s+|\s+$//g;
$value =~ s/^\s+|\s+$//g;
#insert into list, if not defined yet
unless ( ( $name eq '' ) || ( $value eq '' ) || ( exists $meta_keys->{ $name . '=' . $value } ) ) {
push @$meta,
{
name => $name,
value => $value,
};
$meta_keys->{ $name . '=' . $value } = 1;
}
}
}
#insert into list, if not defined yet
unless ( ( $name eq '' ) || ( $value eq '' ) || ( exists $meta_keys->{ $name . '=' . $value } ) ) {
push @$meta,
{
name => $name,
value => $value,
};
$meta_keys->{ $name . '=' . $value } = 1;
}
}
}
# use Data::Dumper;print Dumper($meta);
return $meta;
# use Data::Dumper;print Dumper($meta);
return $meta;
}
#remove meta tags from comment text
sub removeMeta {
my $comments = shift || '';
my $comments = shift || '';
my $result = '';
for my $line ( split( /\n/, $comments ) ) {
$result .= $line unless ( $line =~ /\~\~META\:(.+?)\=(.+?)\~\~/g );
}
my $result = '';
for my $line ( split( /\n/, $comments ) ) {
$result .= $line unless ( $line =~ /\~\~META\:(.+?)\=(.+?)\~\~/g );
}
#use Data::Dumper;print "removed metsas:".Dumper($result);
$result =~ s/^\s+//g;
$result =~ s/\s+$//g;
#use Data::Dumper;print "removed metsas:".Dumper($result);
$result =~ s/^\s+//g;
$result =~ s/\s+$//g;
return $result;
return $result;
}
#add meta tags to comment text
sub metaToWiki {
my $meta = shift;
my $meta = shift;
my $result = '';
for my $pair (@$meta) {
my $result = '';
for my $pair (@$meta) {
# use Data::Dumper;print Dumper($pair);
$result .= '~~META:' . $pair->{name} . '=' . $pair->{value} . '~~' . "\n";
}
return $result;
# use Data::Dumper;print Dumper($pair);
$result .= '~~META:' . $pair->{name} . '=' . $pair->{value} . '~~' . "\n";
}
return $result;
#use Data::Dumper;print Dumper($meta);
#use Data::Dumper;print Dumper($meta);
}

2
lib/calcms/db.pm
View File

@@ -32,7 +32,7 @@ sub connect {
my $options = shift;
my $request = shift;
return $request->{connection} if ( ( defined $request ) && ( defined $request->{connection} ) );
return $request->{connection} if ( defined $request ) && ( defined $request->{connection} );
my $access_options = $options->{access};

6
lib/calcms/eventOps.pm
View File

@@ -37,7 +37,7 @@ sub setAttributesFromSeriesTemplate {
series_id => $params->{series_id},
}
);
if ( @$series != 1 ) {
if ( scalar @$series != 1 ) {
uac::print_error("series not found");
return undef;
}
@@ -261,7 +261,7 @@ sub createEvent {
series_id => $event->{series_id},
}
);
if ( @$series != 1 ) {
if ( scalar @$series != 1 ) {
uac::print_error("series not found");
return undef;
}
@@ -279,7 +279,7 @@ sub createEvent {
uac::print_error("studio not found");
return undef;
}
unless ( @$studios == 1 ) {
unless ( scalar @$studios == 1 ) {
uac::print_error("studio not found");
return undef;
}

200
lib/calcms/event_history.pm
View File

@@ -13,62 +13,62 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_event_history' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_event_history' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
return undef unless defined $condition->{studio_id};
return undef unless defined $condition->{studio_id};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{event_id} ) && ( $condition->{event_id} ne '' ) ) {
push @conditions, 'event_id=?';
push @bind_values, $condition->{event_id};
}
if ( ( defined $condition->{event_id} ) && ( $condition->{event_id} ne '' ) ) {
push @conditions, 'event_id=?';
push @bind_values, $condition->{event_id};
}
if ( ( defined $condition->{change_id} ) && ( $condition->{change_id} ne '' ) ) {
push @conditions, 'id=?';
push @bind_values, $condition->{change_id};
}
if ( ( defined $condition->{change_id} ) && ( $condition->{change_id} ne '' ) ) {
push @conditions, 'id=?';
push @bind_values, $condition->{change_id};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select *
from calcms_event_history
$conditions
@@ -76,102 +76,100 @@ sub get {
$limit
};
#print STDERR Dumper($query).Dumper(\@bind_values);
#print STDERR Dumper($query).Dumper(\@bind_values);
my $changes = db::get( $dbh, $query, \@bind_values );
my $changes = db::get( $dbh, $query, \@bind_values );
#print STDERR Dumper($changes);
for my $change (@$changes) {
$change->{change_id} = $change->{id};
delete $change->{id};
}
return $changes;
for my $change (@$changes) {
$change->{change_id} = $change->{id};
delete $change->{id};
}
return $changes;
}
sub get_by_id {
my $config = shift;
my $id = shift;
my $config = shift;
my $id = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $query = qq{
my $query = qq{
select *
from calcms_event_history
where event_id=?
};
my $studios = db::get( $dbh, $query, [$id] );
return undef if ( @$studios != 1 );
return $studios->[0];
my $studios = db::get( $dbh, $query, [$id] );
return undef if ( @$studios != 1 );
return $studios->[0];
}
sub insert {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
$entry->{modified_at} = time::time_to_datetime( time() );
$entry->{modified_at} = time::time_to_datetime( time() );
$entry->{event_id} = $entry->{id} if ( ( defined $entry->{id} ) && ( !( defined $entry->{event_id} ) ) );
delete $entry->{id};
$entry->{event_id} = $entry->{id} if ( defined $entry->{id} ) && ( !( defined $entry->{event_id} ) );
delete $entry->{id};
#TODO:filter for existing attributes
my $columns = get_columns($config);
my $event = {};
for my $column ( keys %$columns ) {
$event->{$column} = $entry->{$column} if defined $entry->{$column};
}
#TODO:filter for existing attributes
my $columns = get_columns($config);
my $event = {};
for my $column ( keys %$columns ) {
$event->{$column} = $entry->{$column} if defined $entry->{$column};
}
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_event_history', $event );
return $id;
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_event_history', $event );
return $id;
}
# insert event
sub insert_by_event_id {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
return undef unless defined $options->{series_id};
return undef unless defined $options->{event_id};
return undef unless defined $options->{user};
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
return undef unless defined $options->{series_id};
return undef unless defined $options->{event_id};
return undef unless defined $options->{user};
my $sql = q{
my $sql = q{
select * from calcms_events
where id=?
};
my $bind_values = [ $options->{event_id} ];
my $dbh = db::connect($config);
my $results = db::get( $dbh, $sql, $bind_values );
if ( @$results != 1 ) {
print STDERR "cannot find event with event_id=$options->{event_id}";
return 0;
}
my $bind_values = [ $options->{event_id} ];
my $dbh = db::connect($config);
my $results = db::get( $dbh, $sql, $bind_values );
if ( @$results != 1 ) {
print STDERR "cannot find event with event_id=$options->{event_id}";
return 0;
}
# add to history
my $event = $results->[0];
$event->{project_id} = $options->{project_id};
$event->{studio_id} = $options->{studio_id};
$event->{series_id} = $options->{series_id};
$event->{event_id} = $options->{event_id};
$event->{user} = $options->{user};
$event->{deleted} = 1;
event_history::insert( $config, $event );
# add to history
my $event = $results->[0];
$event->{project_id} = $options->{project_id};
$event->{studio_id} = $options->{studio_id};
$event->{series_id} = $options->{series_id};
$event->{event_id} = $options->{event_id};
$event->{user} = $options->{user};
$event->{deleted} = 1;
event_history::insert( $config, $event );
}
sub delete {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
my $dbh = db::connect($config);
db::put( $dbh, 'delete from calcms_event_history where event_id=?', [ $entry->{id} ] );
my $dbh = db::connect($config);
db::put( $dbh, 'delete from calcms_event_history where event_id=?', [ $entry->{id} ] );
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

2737
lib/calcms/events.pm
View File

File diff suppressed because it is too large Load Diff

4
lib/calcms/mail.pm
View File

@@ -14,11 +14,7 @@ sub send {
'Data' => $mail->{'Data'},
);
#print '<pre>';
$msg->print( \*STDERR );
#print '</pre>';
$msg->send;
}

3
lib/calcms/playout.pm
View File

@@ -145,9 +145,6 @@ sub sync {
my $studio_id = $options->{studio_id};
my $updates = $options->{events};
#print STDERR "sync\n";
#print STDERR Dumper($updates);
# get new entries by date
my $update_by_date = {};
for my $entry (@$updates) {

556
lib/calcms/project.pm
View File

@@ -30,46 +30,46 @@ sub debug;
# get project columns
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_projects' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_projects' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
# get projects
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) {
push @conditions, 'name=?';
push @bind_values, $condition->{name};
}
if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) {
push @conditions, 'name=?';
push @bind_values, $condition->{name};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select *
from calcms_projects
$conditions
@@ -77,423 +77,423 @@ sub get {
$limit
};
#print STDERR Dumper($query).Dumper(\@bind_values);
#print STDERR Dumper($query).Dumper(\@bind_values);
my $projects = db::get( $dbh, $query, \@bind_values );
return $projects;
my $projects = db::get( $dbh, $query, \@bind_values );
return $projects;
}
# requires at least project_id
sub getImageById {
my $config = shift;
my $conditions = shift;
my $config = shift;
my $conditions = shift;
return undef unless defined $conditions->{project_id};
my $projects = project::get( $config, $conditions );
return undef if scalar(@$projects) != 1;
return $projects->[0]->{image};
return undef unless defined $conditions->{project_id};
my $projects = project::get( $config, $conditions );
return undef if scalar(@$projects) != 1;
return $projects->[0]->{image};
}
sub get_date_range {
my $config = shift;
my $query = qq{
my $config = shift;
my $query = qq{
select min(start_date) start_date, max(end_date) end_date
from calcms_projects
};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $projects = db::get( $dbh, $query );
return $projects->[0];
my $projects = db::get( $dbh, $query );
return $projects->[0];
}
# insert project
sub insert {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
my $columns = get_columns($config);
my $project = {};
for my $column ( keys %$columns ) {
$project->{$column} = $entry->{$column} if defined $entry->{$column};
}
my $columns = get_columns($config);
my $project = {};
for my $column ( keys %$columns ) {
$project->{$column} = $entry->{$column} if defined $entry->{$column};
}
$project->{image} = images::normalizeName( $project->{image} ) if defined $project->{image};
$project->{image} = images::normalizeName( $project->{image} ) if defined $project->{image};
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_projects', $project );
return $id;
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_projects', $project );
return $id;
}
# update project
sub update {
my $config = shift;
my $project = shift;
my $config = shift;
my $project = shift;
my $columns = project::get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $project->{$column} if defined $project->{$column};
}
my $columns = project::get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $project->{$column} if defined $project->{$column};
}
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{project_id};
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{project_id};
my $query = qq{
my $query = qq{
update calcms_projects
set $values
where project_id=?
};
#print STDERR Dumper($query).Dumper(\@bind_values);
my $dbh = db::connect($config);
db::put( $dbh, $query, \@bind_values );
#print STDERR Dumper($query).Dumper(\@bind_values);
my $dbh = db::connect($config);
db::put( $dbh, $query, \@bind_values );
}
# delete project
sub delete {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
my $dbh = db::connect($config);
db::put( $dbh, 'delete from calcms_projects where project_id=?', [ $entry->{project_id} ] );
my $dbh = db::connect($config);
db::put( $dbh, 'delete from calcms_projects where project_id=?', [ $entry->{project_id} ] );
}
# get studios of a project
sub get_studios {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
return undef unless defined $options->{project_id};
my $project_id = $options->{project_id};
return undef unless defined $options->{project_id};
my $project_id = $options->{project_id};
my $query = qq{
my $query = qq{
select *
from calcms_project_studios
where project_id=?
};
my $dbh = db::connect($config);
my $project_studios = db::get( $dbh, $query, [$project_id] );
my $dbh = db::connect($config);
my $project_studios = db::get( $dbh, $query, [$project_id] );
return $project_studios;
return $project_studios;
}
sub get_studio_assignments {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $options->{project_id};
}
if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $options->{project_id};
}
if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $options->{studio_id};
}
if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $options->{studio_id};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select *
from calcms_project_studios
$conditions
};
my $dbh = db::connect($config);
my $results = db::get( $dbh, $query, \@bind_values );
my $dbh = db::connect($config);
my $results = db::get( $dbh, $query, \@bind_values );
return $results;
return $results;
}
# is studio assigned to project
sub is_studio_assigned {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return 0 unless defined $entry->{project_id};
return 0 unless defined $entry->{studio_id};
return 0 unless defined $entry->{project_id};
return 0 unless defined $entry->{studio_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $query = qq{
my $query = qq{
select *
from calcms_project_studios
where project_id=? and studio_id=?
};
my $bind_values = [ $project_id, $studio_id ];
my $bind_values = [ $project_id, $studio_id ];
my $dbh = db::connect($config);
my $project_studios = db::get( $dbh, $query, $bind_values );
return 1 if @$project_studios == 1;
return 0;
my $dbh = db::connect($config);
my $project_studios = db::get( $dbh, $query, $bind_values );
return 1 if scalar @$project_studios == 1;
return 0;
}
# assign studio to project
sub assign_studio {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
if ( is_studio_assigned($entry) ) {
print STDERR "studio $entry->{studio_id} already assigned to project $entry->{project_id}\n";
return 1;
}
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_project_studios', $entry );
return $id;
if ( is_studio_assigned($entry) ) {
print STDERR "studio $entry->{studio_id} already assigned to project $entry->{project_id}\n";
return 1;
}
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_project_studios', $entry );
return $id;
}
# unassign studio from project
sub unassign_studio {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $sql = 'delete from calcms_project_studios where project_id=? and studio_id=?';
my $bind_values = [ $project_id, $studio_id ];
my $dbh = db::connect($config);
return db::put( $dbh, $sql, $bind_values );
my $sql = 'delete from calcms_project_studios where project_id=? and studio_id=?';
my $bind_values = [ $project_id, $studio_id ];
my $dbh = db::connect($config);
return db::put( $dbh, $sql, $bind_values );
}
# get series by project and studio
sub get_series {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
my $project_id = $options->{project_id};
my $studio_id = $options->{studio_id};
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
my $project_id = $options->{project_id};
my $studio_id = $options->{studio_id};
my $query = qq{
my $query = qq{
select *
from calcms_project_series
where project_id=? and studio_id=?
};
my $bind_values = [ $project_id, $studio_id ];
my $dbh = db::connect($config);
my $project_series = db::get( $dbh, $query, $bind_values );
my $bind_values = [ $project_id, $studio_id ];
my $dbh = db::connect($config);
my $project_series = db::get( $dbh, $query, $bind_values );
return $project_series;
return $project_series;
}
sub get_series_assignments {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $options->{project_id};
}
if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $options->{project_id};
}
if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $options->{studio_id};
}
if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $options->{studio_id};
}
if ( ( defined $options->{series_id} ) && ( $options->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $options->{series_id};
}
if ( ( defined $options->{series_id} ) && ( $options->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $options->{series_id};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select *
from calcms_project_series
$conditions
};
my $dbh = db::connect($config);
my $results = db::get( $dbh, $query, \@bind_values );
my $dbh = db::connect($config);
my $results = db::get( $dbh, $query, \@bind_values );
return $results;
return $results;
}
# is series assigned to project and studio
sub is_series_assigned {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return 0 unless defined $entry->{project_id};
return 0 unless defined $entry->{studio_id};
return 0 unless defined $entry->{series_id};
return 0 unless defined $entry->{project_id};
return 0 unless defined $entry->{studio_id};
return 0 unless defined $entry->{series_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $series_id = $entry->{series_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $series_id = $entry->{series_id};
my $query = qq{
my $query = qq{
select *
from calcms_project_series
where project_id=? and studio_id=? and series_id=?
};
my $bind_values = [ $project_id, $studio_id, $series_id ];
my $bind_values = [ $project_id, $studio_id, $series_id ];
my $dbh = db::connect($config);
my $project_series = db::get( $dbh, $query, $bind_values );
return 1 if @$project_series == 1;
return 0;
my $dbh = db::connect($config);
my $project_series = db::get( $dbh, $query, $bind_values );
return 1 if scalar @$project_series == 1;
return 0;
}
# assign series to project and studio
sub assign_series {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $series_id = $entry->{series_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $series_id = $entry->{series_id};
if ( is_series_assigned($entry) ) {
print STDERR "series $series_id already assigned to project $project_id and studio $studio_id\n";
return return undef;
}
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_project_series', $entry );
print STDERR "assigned series $series_id to project $project_id and studio $studio_id\n";
return $id;
if ( is_series_assigned($entry) ) {
print STDERR "series $series_id already assigned to project $project_id and studio $studio_id\n";
return return undef;
}
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_project_series', $entry );
print STDERR "assigned series $series_id to project $project_id and studio $studio_id\n";
return $id;
}
# unassign series from project
# TODO: remove series _single_ if no event is assigned to
sub unassign_series {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $series_id = $entry->{series_id};
my $project_id = $entry->{project_id};
my $studio_id = $entry->{studio_id};
my $series_id = $entry->{series_id};
my $sql = 'delete from calcms_project_series where project_id=? and studio_id=? and series_id=?';
my $bind_values = [ $project_id, $studio_id, $series_id ];
my $dbh = db::connect($config);
return db::put( $dbh, $sql, $bind_values );
my $sql = 'delete from calcms_project_series where project_id=? and studio_id=? and series_id=?';
my $bind_values = [ $project_id, $studio_id, $series_id ];
my $dbh = db::connect($config);
return db::put( $dbh, $sql, $bind_values );
}
sub get_with_dates {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
my $language = $config->{date}->{language} || 'en';
my $projects = project::get( $config, {} );
my $language = $config->{date}->{language} || 'en';
my $projects = project::get( $config, {} );
foreach my $project ( reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects) ) {
$project->{months} = get_months( $config, $project, $language );
$project->{user} = $ENV{REMOTE_USER};
$project->{current} = 1 if ( $project->{name} eq $config::config->{project} );
}
foreach my $project ( reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects) ) {
$project->{months} = get_months( $config, $project, $language );
$project->{user} = $ENV{REMOTE_USER};
$project->{current} = 1 if ( $project->{name} eq $config::config->{project} );
}
return $projects;
return $projects;
}
#TODO: add config
sub get_sorted {
my $config = shift;
my $projects = project::get( $config, {} );
my @projects = reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects);
my $config = shift;
my $projects = project::get( $config, {} );
my @projects = reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects);
unshift @projects,
{
name => 'all',
title => 'alle',
priority => '0',
start_date => $projects[-1]->{start_date},
end_date => $projects[0]->{end_date},
};
return \@projects;
unshift @projects,
{
name => 'all',
title => 'alle',
priority => '0',
start_date => $projects[-1]->{start_date},
end_date => $projects[0]->{end_date},
};
return \@projects;
}
# internal
sub get_months {
my $config = shift;
my $project = shift;
my $language = shift || $config->{date}->{language} || 'en';
my $config = shift;
my $project = shift;
my $language = shift || $config->{date}->{language} || 'en';
my $start = $project->{start_date};
my $end = $project->{end_date};
my $start = $project->{start_date};
my $end = $project->{end_date};
( my $start_year, my $start_month, my $start_day ) = split( /\-/, $start );
my $last_day = Date::Calc::Days_in_Month( $start_year, $start_month );
$start_day = 1 if ( $start_day < 1 );
$start_day = $last_day if ( $start_day gt $last_day );
( my $start_year, my $start_month, my $start_day ) = split( /\-/, $start );
my $last_day = Date::Calc::Days_in_Month( $start_year, $start_month );
$start_day = 1 if ( $start_day < 1 );
$start_day = $last_day if ( $start_day gt $last_day );
( my $end_year, my $end_month, my $end_day ) = split( /\-/, $end );
$last_day = Date::Calc::Days_in_Month( $end_year, $end_month );
$end_day = 1 if ( $end_day < 1 );
$end_day = $last_day if ( $end_day gt $last_day );
( my $end_year, my $end_month, my $end_day ) = split( /\-/, $end );
$last_day = Date::Calc::Days_in_Month( $end_year, $end_month );
$end_day = 1 if ( $end_day < 1 );
$end_day = $last_day if ( $end_day gt $last_day );
my @months = ();
for my $year ( $start_year .. $end_year ) {
my $m1 = 1;
my $m2 = 12;
$m1 = $start_month if $year eq $start_year;
$m2 = $end_month if $year eq $end_year;
my @months = ();
for my $year ( $start_year .. $end_year ) {
my $m1 = 1;
my $m2 = 12;
$m1 = $start_month if $year eq $start_year;
$m2 = $end_month if $year eq $end_year;
for my $month ( $m1 .. $m2 ) {
my $d1 = 1;
my $d2 = Date::Calc::Days_in_Month( $year, $month );
$d1 = $start_day if $month eq $start_month;
$d2 = $end_day if $month eq $end_month;
push @months,
{
start => time::array_to_date( $year, $month, $d1 ),
end => time::array_to_date( $year, $month, $d2 ),
year => $year,
month => $month,
month_name => $time::names->{$language}->{months_abbr}->[ $month - 1 ],
title => $project->{title},
user => $ENV{REMOTE_USER}
};
}
}
@months = reverse @months;
return \@months;
for my $month ( $m1 .. $m2 ) {
my $d1 = 1;
my $d2 = Date::Calc::Days_in_Month( $year, $month );
$d1 = $start_day if $month eq $start_month;
$d2 = $end_day if $month eq $end_month;
push @months,
{
start => time::array_to_date( $year, $month, $d1 ),
end => time::array_to_date( $year, $month, $d2 ),
year => $year,
month => $month,
month_name => $time::names->{$language}->{months_abbr}->[ $month - 1 ],
title => $project->{title},
user => $ENV{REMOTE_USER}
};
}
}
@months = reverse @months;
return \@months;
}
# check project_id
sub check {
my $config = shift;
my $options = shift;
return "missing project_id at checking project" unless defined $options->{project_id};
return "Please select a project" if ( $options->{project_id} eq '-1' );
return "Please select a project" if ( $options->{project_id} eq '' );
my $projects = project::get( $config, { project_id => $options->{project_id} } );
return "Sorry. unknown project" unless defined $projects;
return 1;
my $config = shift;
my $options = shift;
return "missing project_id at checking project" unless defined $options->{project_id};
return "Please select a project" if ( $options->{project_id} eq '-1' );
return "Please select a project" if ( $options->{project_id} eq '' );
my $projects = project::get( $config, { project_id => $options->{project_id} } );
return "Sorry. unknown project" unless defined $projects;
return 1;
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

9
lib/calcms/projects.pm
View File

@@ -1,9 +0,0 @@
use warnings "all";
use strict;
package projects;
print STDERR "projects.pm is not used anymore!\n";
#do not delete last line!
1;

1710
lib/calcms/series.pm
View File

File diff suppressed because it is too large Load Diff

774
lib/calcms/series_dates.pm
View File

@@ -22,72 +22,72 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_series_dates' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_series_dates' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
# get all series_dates for studio_id and series_id within given time range
# calculate start_date, end_date, weeday, day from start and end(datetime)
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
push @conditions, 'start=?';
push @bind_values, $condition->{start_at};
}
if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
push @conditions, 'start=?';
push @bind_values, $condition->{start_at};
}
if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
push @conditions, 'start_date>=?';
push @bind_values, $condition->{from};
}
if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
push @conditions, 'start_date>=?';
push @bind_values, $condition->{from};
}
if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
push @conditions, 'end_date<?';
push @bind_values, $condition->{till};
}
if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
push @conditions, 'end_date<?';
push @bind_values, $condition->{till};
}
if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
push @conditions, 'id=?';
push @bind_values, $condition->{schedule_id};
}
if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
push @conditions, 'id=?';
push @bind_values, $condition->{schedule_id};
}
if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
push @conditions, 'exclude=?';
push @bind_values, $condition->{exclude};
}
if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
push @conditions, 'exclude=?';
push @bind_values, $condition->{exclude};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select date(start) start_date
,date(end) end_date
,dayname(start) weekday
@@ -105,129 +105,129 @@ sub get {
order by start
};
#print STDERR $query."\n";
#print STDERR Dumper(\@bind_values);
#print STDERR $query."\n";
#print STDERR Dumper(\@bind_values);
my $entries = db::get( $dbh, $query, \@bind_values );
for my $entry (@$entries) {
$entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
}
my $entries = db::get( $dbh, $query, \@bind_values );
for my $entry (@$entries) {
$entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
}
return $entries;
return $entries;
}
#check if event is scheduled (on permission check)
sub is_event_scheduled {
my $request = shift;
my $options = shift;
my $request = shift;
my $options = shift;
return 0 unless defined $options->{project_id};
return 0 unless defined $options->{studio_id};
return 0 unless defined $options->{series_id};
return 0 unless defined $options->{start_at};
return 0 unless defined $options->{project_id};
return 0 unless defined $options->{studio_id};
return 0 unless defined $options->{series_id};
return 0 unless defined $options->{start_at};
my $config = $request->{config};
my $schedules = series_dates::get(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
start_at => $options->{start_at}
}
);
return 0 if ( @$schedules != 1 );
return 1;
my $config = $request->{config};
my $schedules = series_dates::get(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
start_at => $options->{start_at}
}
);
return 0 if scalar @$schedules != 1;
return 1;
}
#get all series for given studio_id, time range and search
sub get_series {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $date_range_include = 0;
$date_range_include = 1 if ( defined $condition->{date_range_include} ) && ( $condition->{date_range_include} == 1 );
my $date_range_include = 0;
$date_range_include = 1 if ( defined $condition->{date_range_include} ) && ( $condition->{date_range_include} == 1 );
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
push @conditions, 'd.series_id=s.id';
push @conditions, 'd.series_id=s.id';
# push @conditions, 'd.studio_id=s.studio_id';
# push @conditions, 'd.studio_id=s.studio_id';
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'd.project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'd.project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'd.studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'd.studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'd.series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'd.series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
push @conditions, 'd.start=?';
push @bind_values, $condition->{start_at};
}
if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
push @conditions, 'd.start=?';
push @bind_values, $condition->{start_at};
}
if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'd.end_date>=?';
push @bind_values, $condition->{from};
} else {
push @conditions, 'd.start_date>=?';
push @bind_values, $condition->{from};
}
}
if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'd.end_date>=?';
push @bind_values, $condition->{from};
} else {
push @conditions, 'd.start_date>=?';
push @bind_values, $condition->{from};
}
}
if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'd.start_date<=?';
push @bind_values, $condition->{till};
} else {
push @conditions, 'd.end_date<?';
push @bind_values, $condition->{till};
}
}
if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'd.start_date<=?';
push @bind_values, $condition->{till};
} else {
push @conditions, 'd.end_date<?';
push @bind_values, $condition->{till};
}
}
if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
push @conditions, 'd.id=?';
push @bind_values, $condition->{schedule_id};
}
if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
push @conditions, 'd.id=?';
push @bind_values, $condition->{schedule_id};
}
if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
push @conditions, 'd.exclude=?';
push @bind_values, $condition->{exclude};
}
if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
push @conditions, 'd.exclude=?';
push @bind_values, $condition->{exclude};
}
my $search_cond = '';
if ( ( defined $condition->{search} ) && ( $condition->{search} ne '' ) ) {
my $search = lc $condition->{search};
$search =~ s/[^a-z0-9\_\.\-\:\!öäüßÖÄÜ \&]/%/;
$search =~ s/\%+/\%/;
$search =~ s/^[\%\s]+//;
$search =~ s/[\%\s]+$//;
if ( $search ne '' ) {
$search = '%' . $search . '%';
my @attr = ( 's.title', 's.series_name', 's.excerpt', 's.category', 's.content' );
push @conditions, "(" . join( " or ", map { 'lower(' . $_ . ') like ?' } @attr ) . ")";
for my $attr (@attr) {
push @bind_values, $search;
}
}
}
my $search_cond = '';
if ( ( defined $condition->{search} ) && ( $condition->{search} ne '' ) ) {
my $search = lc $condition->{search};
$search =~ s/[^a-z0-9\_\.\-\:\!öäüßÖÄÜ \&]/%/;
$search =~ s/\%+/\%/;
$search =~ s/^[\%\s]+//;
$search =~ s/[\%\s]+$//;
if ( $search ne '' ) {
$search = '%' . $search . '%';
my @attr = ( 's.title', 's.series_name', 's.excerpt', 's.category', 's.content' );
push @conditions, "(" . join( " or ", map { 'lower(' . $_ . ') like ?' } @attr ) . ")";
for my $attr (@attr) {
push @bind_values, $search;
}
}
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select date(d.start) start_date
,date(d.end) end_date
,dayname(d.start) weekday
@@ -248,333 +248,333 @@ sub get_series {
order by start
};
my $entries = db::get( $dbh, $query, \@bind_values );
my $entries = db::get( $dbh, $query, \@bind_values );
for my $entry (@$entries) {
$entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
}
for my $entry (@$entries) {
$entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
}
# add series schedule
$entries = series_dates::addSeriesScheduleAttributes( $config, $entries );
# add series schedule
$entries = series_dates::addSeriesScheduleAttributes( $config, $entries );
return $entries;
return $entries;
}
sub addSeriesScheduleAttributes {
my $config = shift;
my $entries = shift;
my $config = shift;
my $entries = shift;
my $scheduleIds = {};
my $scheduleIds = {};
# get series schedule ids used at entries
for my $entry (@$entries) {
$scheduleIds->{ $entry->{series_schedule_id} } = 1;
}
my @scheduleIds = keys %$scheduleIds;
return $entries if scalar(@scheduleIds) == 0;
# get series schedule ids used at entries
for my $entry (@$entries) {
$scheduleIds->{ $entry->{series_schedule_id} } = 1;
}
my @scheduleIds = keys %$scheduleIds;
return $entries if scalar(@scheduleIds) == 0;
# get schedules with schedule ids
my $schedules = series_schedule::get(
$config,
{
schedule_ids => \@scheduleIds
}
);
# get schedules with schedule ids
my $schedules = series_schedule::get(
$config,
{
schedule_ids => \@scheduleIds
}
);
# get schedules by id
my $scheduleById = {};
for my $schedule (@$schedules) {
$scheduleById->{ $schedule->{schedule_id} } = $schedule;
}
# get schedules by id
my $scheduleById = {};
for my $schedule (@$schedules) {
$scheduleById->{ $schedule->{schedule_id} } = $schedule;
}
for my $entry (@$entries) {
$entry->{frequency} = $scheduleById->{ $entry->{series_schedule_id} }->{frequency};
$entry->{period_type} = $scheduleById->{ $entry->{series_schedule_id} }->{period_type};
}
for my $entry (@$entries) {
$entry->{frequency} = $scheduleById->{ $entry->{series_schedule_id} }->{frequency};
$entry->{period_type} = $scheduleById->{ $entry->{series_schedule_id} }->{period_type};
}
return $entries;
return $entries;
}
#update series dates for all schedules of a series and studio_id
sub update {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
#delete all dates for series (by studio and series id)
series_dates::delete( $config, $entry );
#delete all dates for series (by studio and series id)
series_dates::delete( $config, $entry );
my $day_start = $config->{date}->{day_starting_hour};
my $day_start = $config->{date}->{day_starting_hour};
#get all schedules for series ordered by exclude, date
my $schedules = series_schedule::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
#get all schedules for series ordered by exclude, date
my $schedules = series_schedule::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
#add scheduled series dates and remove exluded dates
my $series_dates = {};
#add scheduled series dates and remove exluded dates
my $series_dates = {};
#TODO:set schedules exclude to 0 if not 1
#insert all normal dates (not excludes)
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 0 } );
for my $date (@$dates) {
$date->{exclude} = 0;
$series_dates->{ $date->{start} } = $date;
#TODO:set schedules exclude to 0 if not 1
#insert all normal dates (not excludes)
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 0 } );
for my $date (@$dates) {
$date->{exclude} = 0;
$series_dates->{ $date->{start} } = $date;
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#insert / overwrite all exlude dates
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 1 } );
for my $date (@$dates) {
$date->{exclude} = 1;
$series_dates->{ $date->{start} } = $date;
#insert / overwrite all exlude dates
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 1 } );
for my $date (@$dates) {
$date->{exclude} = 1;
$series_dates->{ $date->{start} } = $date;
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#print STDERR Dumper($series_dates->{'2014-02-05 19:00:00'});
#print STDERR Dumper($series_dates->{'2014-02-05 19:00:00'});
my $request = { config => $config };
my $request = { config => $config };
my $i = 0;
my $j = 0;
for my $date ( keys %$series_dates ) {
my $series_date = $series_dates->{$date};
my $i = 0;
my $j = 0;
for my $date ( keys %$series_dates ) {
my $series_date = $series_dates->{$date};
#insert date
my $entry = {
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
series_schedule_id => $series_date->{series_schedule_id},
start => $series_date->{start},
end => $series_date->{end},
exclude => $series_date->{exclude},
};
if ( studio_timeslot_dates::can_studio_edit_events( $config, $entry ) == 1 ) { # by studio_id, start, end
$entry->{start_date} = time::add_hours_to_datetime( $entry->{start}, -$day_start );
$entry->{end_date} = time::add_hours_to_datetime( $entry->{end}, -$day_start );
db::insert( $dbh, 'calcms_series_dates', $entry );
#insert date
my $entry = {
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
series_schedule_id => $series_date->{series_schedule_id},
start => $series_date->{start},
end => $series_date->{end},
exclude => $series_date->{exclude},
};
if ( studio_timeslot_dates::can_studio_edit_events( $config, $entry ) == 1 ) { # by studio_id, start, end
$entry->{start_date} = time::add_hours_to_datetime( $entry->{start}, -$day_start );
$entry->{end_date} = time::add_hours_to_datetime( $entry->{end}, -$day_start );
db::insert( $dbh, 'calcms_series_dates', $entry );
#print STDERR "$entry->{start_date}\n";
$i++;
} else {
$j++;
#print STDERR "$entry->{start_date}\n";
$i++;
} else {
$j++;
#print STDERR Dumper($entry);
}
}
#print STDERR Dumper($entry);
}
}
#print STDERR "$i series_dates updates\n";
return $j . " dates out of studio times, " . $i;
#print STDERR "$i series_dates updates\n";
return $j . " dates out of studio times, " . $i;
}
sub get_schedule_dates {
my $schedule = shift;
my $options = shift;
my $schedule = shift;
my $options = shift;
my $is_exclude = $options->{exclude} || 0;
my $dates = [];
return $dates if ( ( $is_exclude eq '1' ) && ( $schedule->{exclude} ne '1' ) );
return $dates if ( ( $is_exclude eq '0' ) && ( $schedule->{exclude} eq '1' ) );
my $is_exclude = $options->{exclude} || 0;
my $dates = [];
return $dates if ( $is_exclude eq '1' ) && ( $schedule->{exclude} ne '1' );
return $dates if ( $is_exclude eq '0' ) && ( $schedule->{exclude} eq '1' );
if ( $schedule->{period_type} eq 'single' ) {
$dates = get_single_date( $schedule->{start}, $schedule->{duration} );
} elsif ( $schedule->{period_type} eq 'days' ) {
$dates = get_dates( $schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{frequency} );
} elsif ( $schedule->{period_type} eq 'week_of_month' ) {
$dates = get_week_of_month_dates(
$schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{week_of_month},
$schedule->{weekday}, $schedule->{month}, $schedule->{nextDay}
);
} else {
print STDERR "unknown schedule period_type\n";
}
if ( $schedule->{period_type} eq 'single' ) {
$dates = get_single_date( $schedule->{start}, $schedule->{duration} );
} elsif ( $schedule->{period_type} eq 'days' ) {
$dates = get_dates( $schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{frequency} );
} elsif ( $schedule->{period_type} eq 'week_of_month' ) {
$dates = get_week_of_month_dates(
$schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{week_of_month},
$schedule->{weekday}, $schedule->{month}, $schedule->{nextDay}
);
} else {
print STDERR "unknown schedule period_type\n";
}
# set series schedule id
for my $date (@$dates) {
$date->{series_schedule_id} = $schedule->{schedule_id};
}
return $dates;
# set series schedule id
for my $date (@$dates) {
$date->{series_schedule_id} = $schedule->{schedule_id};
}
return $dates;
}
sub get_week_of_month_dates {
my $start = shift; # datetime string
my $end = shift; # datetime string
my $duration = shift; # in minutes
my $week = shift; # every nth week of month
my $weekday = shift; # weekday [1..7]
my $frequency = shift; # every 1st,2nd,3th time
my $nextDay = shift; # add 24 hours to start, (for night hours at last weekday of month)
my $start = shift; # datetime string
my $end = shift; # datetime string
my $duration = shift; # in minutes
my $week = shift; # every nth week of month
my $weekday = shift; # weekday [1..7]
my $frequency = shift; # every 1st,2nd,3th time
my $nextDay = shift; # add 24 hours to start, (for night hours at last weekday of month)
return undef if $start eq '';
return undef if $end eq '';
return undef if $duration eq '';
return undef if $week eq '';
return undef if $weekday eq '';
return undef if $frequency eq '';
return undef if $frequency == 0;
return undef if $start eq '';
return undef if $end eq '';
return undef if $duration eq '';
return undef if $week eq '';
return undef if $weekday eq '';
return undef if $frequency eq '';
return undef if $frequency == 0;
my $start_dates = time::get_nth_weekday_in_month( $start, $end, $week, $weekday );
my $start_dates = time::get_nth_weekday_in_month( $start, $end, $week, $weekday );
if ( ( defined $nextDay ) && ( $nextDay > 0 ) ) {
for ( my $i = 0 ; $i < @$start_dates ; $i++ ) {
$start_dates->[$i] = time::add_hours_to_datetime( $start_dates->[$i], 24 );
}
}
if ( ( defined $nextDay ) && ( $nextDay > 0 ) ) {
for ( my $i = 0 ; $i < @$start_dates ; $i++ ) {
$start_dates->[$i] = time::add_hours_to_datetime( $start_dates->[$i], 24 );
}
}
my $results = [];
my $results = [];
my $c = -1;
for my $start_datetime (@$start_dates) {
$c++;
my @start = @{ time::datetime_to_array($start_datetime) };
next unless @start >= 6;
next if ( ( $c % $frequency ) != 0 );
my $c = -1;
for my $start_datetime (@$start_dates) {
$c++;
my @start = @{ time::datetime_to_array($start_datetime) };
next unless @start >= 6;
next if ( $c % $frequency ) != 0;
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $end_datetime = time::array_to_datetime( \@end_datetime );
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $end_datetime = time::array_to_datetime( \@end_datetime );
push @$results,
{
start => $start_datetime,
end => $end_datetime
};
}
return $results;
push @$results,
{
start => $start_datetime,
end => $end_datetime
};
}
return $results;
}
#add duration to a single date
sub get_single_date {
my $start_datetime = shift;
my $duration = shift;
my $start_datetime = shift;
my $duration = shift;
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $date = {
start => $start_datetime,
end => time::array_to_datetime( \@end_datetime )
};
return [$date];
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $date = {
start => $start_datetime,
end => time::array_to_datetime( \@end_datetime )
};
return [$date];
}
#calculate all dates between start_datetime and end_date with duration(minutes) and frequency(days)
sub get_dates {
my $start_datetime = shift;
my $end_date = shift;
my $duration = shift; # in minutes
my $frequency = shift; # in days
#print "start_datetime:$start_datetime end_date:$end_date duration:$duration frequency:$frequency\n";
my $start_datetime = shift;
my $end_date = shift;
my $duration = shift; # in minutes
my $frequency = shift; # in days
#print "start_datetime:$start_datetime end_date:$end_date duration:$duration frequency:$frequency\n";
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @start_date = ( $start[0], $start[1], $start[2] );
my $start_time = sprintf( '%02d:%02d:%02d', $start[3], $start[4], $start[5] );
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @start_date = ( $start[0], $start[1], $start[2] );
my $start_time = sprintf( '%02d:%02d:%02d', $start[3], $start[4], $start[5] );
#print STDERR "$start_datetime,$end_date,$duration,$frequency\n";
#print STDERR "$start_datetime,$end_date,$duration,$frequency\n";
#return on single date
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @start_date ) . ' ' . $start_time;
return undef if $duration eq '';
#return on single date
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @start_date ) . ' ' . $start_time;
return undef if $duration eq '';
return undef if ( ( $frequency eq '' ) || ( $end_date eq '' ) );
return undef if ( $frequency eq '' ) || ( $end_date eq '' );
#continue on recurring date
my @end = @{ time::datetime_to_array($end_date) };
return unless @end >= 3;
my @end_date = ( $end[0], $end[1], $end[2] );
#continue on recurring date
my @end = @{ time::datetime_to_array($end_date) };
return unless scalar @end >= 3;
my @end_date = ( $end[0], $end[1], $end[2] );
my $today = time::time_to_date();
my ( $year, $month, $day ) = split( /\-/, $today );
my $today = time::time_to_date();
my ( $year, $month, $day ) = split( /\-/, $today );
my $dates = [];
return $dates if ( $end_date lt $today );
return $dates if ( $frequency < 1 );
my $dates = [];
return $dates if $end_date lt $today;
return $dates if $frequency < 1;
my $j = Date::Calc::Delta_Days( @start_date, @end_date );
my $c = 0;
for ( my $i = 0 ; $i <= $j ; $i += $frequency ) {
my @date = Date::Calc::Add_Delta_Days( $start[0], $start[1], $start[2], $i );
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @date ) . ' ' . $start_time;
my $j = Date::Calc::Delta_Days( @start_date, @end_date );
my $c = 0;
for ( my $i = 0 ; $i <= $j ; $i += $frequency ) {
my @date = Date::Calc::Add_Delta_Days( $start[0], $start[1], $start[2], $i );
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @date ) . ' ' . $start_time;
#if($date->{start} gt $today){
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$date[0], $date[1], $date[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
$date->{end} = time::array_to_datetime( \@end_datetime );
push @$dates, $date;
#if($date->{start} gt $today){
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$date[0], $date[1], $date[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
$date->{end} = time::array_to_datetime( \@end_datetime );
push @$dates, $date;
#}
last if ( $c > 200 );
$c++;
}
return $dates;
#}
last if ( $c > 200 );
$c++;
}
return $dates;
}
#remove all series_dates for studio_id and series_id
sub delete {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return unless defined $entry->{project_id};
return unless defined $entry->{studio_id};
return unless defined $entry->{series_id};
return unless defined $entry->{project_id};
return unless defined $entry->{studio_id};
return unless defined $entry->{series_id};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $query = qq{
my $query = qq{
delete
from calcms_series_dates
where project_id=? and studio_id=? and series_id=?
};
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id} ];
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id} ];
#print '<pre>$query'.$query.Dumper($bind_values).'</pre>';
db::put( $dbh, $query, $bind_values );
#print '<pre>$query'.$query.Dumper($bind_values).'</pre>';
db::put( $dbh, $query, $bind_values );
}
# get all series dates where no event has been created for
sub getDatesWithoutEvent {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
return unless defined $options->{project_id};
return unless defined $options->{studio_id};
return unless defined $options->{from};
return unless defined $options->{till};
return unless defined $options->{project_id};
return unless defined $options->{studio_id};
return unless defined $options->{from};
return unless defined $options->{till};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $query = q{
my $query = q{
SELECT sd.*
FROM calcms_series_dates sd LEFT JOIN calcms_events e
on (sd.start = e.start)
@@ -587,15 +587,15 @@ sub getDatesWithoutEvent {
order by sd.start
};
my $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{from}, $options->{till} ];
my $entries = db::get( $dbh, $query, $bind_values );
return $entries;
my $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{from}, $options->{till} ];
my $entries = db::get( $dbh, $query, $bind_values );
return $entries;
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

702
lib/calcms/series_events.pm
View File

@@ -39,147 +39,147 @@ sub debug;
# do not check for project,studio,series
# all changed columns are returned for history handling
sub save_content {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
return undef unless ( defined $entry->{id} );
return undef unless ( defined $entry->{id} );
for my $attr ( keys %$entry ) {
next unless defined $entry->{$attr};
$entry->{$attr} =~ s/^\s+//g;
$entry->{$attr} =~ s/\s+$//g;
}
for my $attr ( keys %$entry ) {
next unless defined $entry->{$attr};
$entry->{$attr} =~ s/^\s+//g;
$entry->{$attr} =~ s/\s+$//g;
}
for my $attr ( 'image', 'series_image' ) {
$entry->{$attr} = images::normalizeName( $entry->{$attr} ) if defined $entry->{$attr};
}
for my $attr ( 'image', 'series_image' ) {
$entry->{$attr} = images::normalizeName( $entry->{$attr} ) if defined $entry->{$attr};
}
#print STDERR Dumper(\$entry->{content});
for my $attr ( 'content', 'topic' ) {
if ( defined $entry->{$attr} ) {
$entry->{ 'html_' . $attr } = markup::creole_to_html( $entry->{$attr} );
#print STDERR Dumper(\$entry->{content});
for my $attr ( 'content', 'topic' ) {
if ( defined $entry->{$attr} ) {
$entry->{ 'html_' . $attr } = markup::creole_to_html( $entry->{$attr} );
#$entry->{'html_'.$attr}=~s/([^\>])\n+([^\<])/$1<br\/><br\/>$2/g;
#$entry->{'html_'.$attr}=~s/^\s*(<p>)?//g;
#$entry->{'html_'.$attr}=~s/(<\/p>)?\s*$//g;
}
}
#$entry->{'html_'.$attr}=~s/([^\>])\n+([^\<])/$1<br\/><br\/>$2/g;
#$entry->{'html_'.$attr}=~s/^\s*(<p>)?//g;
#$entry->{'html_'.$attr}=~s/(<\/p>)?\s*$//g;
}
}
#print STDERR Dumper(\$entry->{series_image});
#print STDERR "ok2\n";
#return;
$entry->{modified_at} = time::time_to_datetime( time() );
#print STDERR Dumper(\$entry->{series_image});
#print STDERR "ok2\n";
#return;
$entry->{modified_at} = time::time_to_datetime( time() );
#return;
#update only existing atributes
#return;
#update only existing atributes
#TODO: double check series_name (needed for reassignment but not for editing...)
my @keys = ();
for my $key (
'series_name', 'title', 'excerpt', 'content',
'html_content', 'user_title', 'user_excerpt', 'topic',
'html_topic', 'episode', 'image', 'image_label',
'series_image', 'series_image_label', 'podcast_url', 'archive_url',
'live', 'published', 'playout', 'archived',
'rerun', 'draft', 'disable_event_sync', 'modified_by'
)
{
push @keys, $key if defined $entry->{$key};
}
$entry->{episode} = undef if ( defined $entry->{episode} ) && ( $entry->{episode} eq '0' );
$entry->{published} = 0 if ( defined $entry->{draft} ) && ( $entry->{draft} eq '1' );
#TODO: double check series_name (needed for reassignment but not for editing...)
my @keys = ();
for my $key (
'series_name', 'title', 'excerpt', 'content',
'html_content', 'user_title', 'user_excerpt', 'topic',
'html_topic', 'episode', 'image', 'image_label',
'series_image', 'series_image_label', 'podcast_url', 'archive_url',
'live', 'published', 'playout', 'archived',
'rerun', 'draft', 'disable_event_sync', 'modified_by'
)
{
push @keys, $key if defined $entry->{$key};
}
$entry->{episode} = undef if ( defined $entry->{episode} ) && ( $entry->{episode} eq '0' );
$entry->{published} = 0 if ( defined $entry->{draft} ) && ( $entry->{draft} eq '1' );
my $values = join( ",", map { $_ . '=?' } (@keys) );
my @bind_values = map { $entry->{$_} } (@keys);
my $values = join( ",", map { $_ . '=?' } (@keys) );
my @bind_values = map { $entry->{$_} } (@keys);
push @bind_values, $entry->{id};
my $query = qq{
push @bind_values, $entry->{id};
my $query = qq{
update calcms_events
set $values
where id=?
};
#print STDERR "update:".$query.Dumper(\@bind_values);
my $result = db::put( $dbh, $query, \@bind_values );
unless ( defined $result ) {
print STDERR "error on updating event\n";
return undef;
}
#print STDERR "update:".$query.Dumper(\@bind_values);
my $result = db::put( $dbh, $query, \@bind_values );
unless ( defined $result ) {
print STDERR "error on updating event\n";
return undef;
}
#print STDERR "result=$result\n";
#print STDERR "entr after update".Dumper($entry);
return $entry;
#print STDERR "result=$result\n";
#print STDERR "entr after update".Dumper($entry);
return $entry;
}
# save event time by id
# do not check project, studio, series
# for history handling all changed columns are returned
sub save_event_time {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless ( defined $entry->{id} );
return undef unless ( defined $entry->{duration} );
return undef unless ( defined $entry->{start_date} );
return undef unless ( defined $entry->{id} );
return undef unless ( defined $entry->{duration} );
return undef unless ( defined $entry->{start_date} );
my $dbh = db::connect($config);
my $event = {
id => $entry->{id},
start => $entry->{start_date},
end => time::add_minutes_to_datetime( $entry->{start_date}, $entry->{duration} )
};
my $dbh = db::connect($config);
my $event = {
id => $entry->{id},
start => $entry->{start_date},
end => time::add_minutes_to_datetime( $entry->{start_date}, $entry->{duration} )
};
my $day_start = $config->{date}->{day_starting_hour};
my $event_hour = int( ( split( /[\-\:\sT]/, $event->{start} ) )[3] );
my $day_start = $config->{date}->{day_starting_hour};
my $event_hour = int( ( split( /[\-\:\sT]/, $event->{start} ) )[3] );
my @update_columns = ();
my $bind_values = [];
push @update_columns, 'start=?';
push @$bind_values, $event->{start};
my @update_columns = ();
my $bind_values = [];
push @update_columns, 'start=?';
push @$bind_values, $event->{start};
push @update_columns, 'end=?';
push @$bind_values, $event->{end};
push @update_columns, 'end=?';
push @$bind_values, $event->{end};
# add start date
my $start_date = time::add_hours_to_datetime( $event->{start}, -$day_start );
push @update_columns, 'start_date=?';
push @$bind_values, $start_date;
$event->{start_date} = $start_date;
# add start date
my $start_date = time::add_hours_to_datetime( $event->{start}, -$day_start );
push @update_columns, 'start_date=?';
push @$bind_values, $start_date;
$event->{start_date} = $start_date;
# add end date
my $end_date = time::add_hours_to_datetime( $event->{end}, -$day_start );
push @update_columns, 'end_date=?';
push @$bind_values, $end_date;
$event->{end_date} = $end_date;
# add end date
my $end_date = time::add_hours_to_datetime( $event->{end}, -$day_start );
push @update_columns, 'end_date=?';
push @$bind_values, $end_date;
$event->{end_date} = $end_date;
my $update_columns = join( ",\n", @update_columns );
my $update_sql = qq{
my $update_columns = join( ",\n", @update_columns );
my $update_sql = qq{
update calcms_events
set $update_columns
where id=?
};
push @$bind_values, $event->{id};
push @$bind_values, $event->{id};
#print STDERR $update_sql."\n".Dumper($bind_values)."\n";
db::put( $dbh, $update_sql, $bind_values );
return $event;
#print STDERR $update_sql."\n".Dumper($bind_values)."\n";
db::put( $dbh, $update_sql, $bind_values );
return $event;
}
sub set_playout_status {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{start};
return undef unless defined $entry->{playout};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{start};
return undef unless defined $entry->{playout};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
# check if event is assigned to project and studio
my $sql = qq{
# check if event is assigned to project and studio
my $sql = qq{
select se.event_id event_id
from calcms_series_events se, calcms_events e
where
@@ -188,82 +188,82 @@ sub set_playout_status {
and se.project_id=?
and se.studio_id=?
};
my $bind_values = [ $entry->{start}, $entry->{project_id}, $entry->{studio_id} ];
my $bind_values = [ $entry->{start}, $entry->{project_id}, $entry->{studio_id} ];
#print STDERR Dumper($sql).Dumper($bind_values);
my $events = db::get( $dbh, $sql, $bind_values );
#print STDERR Dumper($sql).Dumper($bind_values);
my $events = db::get( $dbh, $sql, $bind_values );
#print STDERR Dumper($events);
return undef if scalar(@$events) != 1;
my $event_id = $events->[0]->{event_id};
$sql = qq{
#print STDERR Dumper($events);
return undef if scalar(@$events) != 1;
my $event_id = $events->[0]->{event_id};
$sql = qq{
update calcms_events
set playout=?
where id=?
and start=?
};
$bind_values = [ $entry->{playout}, $event_id, $entry->{start} ];
$bind_values = [ $entry->{playout}, $event_id, $entry->{start} ];
#print STDERR $sql."\n".Dumper($bind_values)."\n";
my $result = db::put( $dbh, $sql, $bind_values );
return $result;
#print STDERR $sql."\n".Dumper($bind_values)."\n";
my $result = db::put( $dbh, $sql, $bind_values );
return $result;
}
# is event assigned to project, studio and series?
sub is_event_assigned {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return 0 unless defined $entry->{project_id};
return 0 unless defined $entry->{studio_id};
return 0 unless defined $entry->{series_id};
return 0 unless defined $entry->{event_id};
return 0 unless defined $entry->{project_id};
return 0 unless defined $entry->{studio_id};
return 0 unless defined $entry->{series_id};
return 0 unless defined $entry->{event_id};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $sql = q{
my $sql = q{
select * from calcms_series_events
where project_id=? and studio_id=? and series_id=? and event_id=?
};
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ];
my $results = db::get( $dbh, $sql, $bind_values );
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ];
my $results = db::get( $dbh, $sql, $bind_values );
return 1 if @$results >= 1;
return 0;
return 1 if scalar @$results >= 1;
return 0;
}
sub delete_event {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
return undef unless defined $entry->{event_id};
return undef unless defined $entry->{user};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{series_id};
return undef unless defined $entry->{event_id};
return undef unless defined $entry->{user};
#is event assigned to project, studio and series?
unless ( is_event_assigned( $config, $entry ) == 1 ) {
print STDERR
#is event assigned to project, studio and series?
unless ( is_event_assigned( $config, $entry ) == 1 ) {
print STDERR
"cannot delete event with project_id=$entry->{project_id}, studio_id=$entry->{studio_id}, series_id=$entry->{series_id}, event_id=$entry->{event_id}";
return 0;
}
return 0;
}
event_history::insert_by_event_id( $config, $entry );
event_history::insert_by_event_id( $config, $entry );
#delete the association
series::unassign_event( $config, $entry );
#delete the association
series::unassign_event( $config, $entry );
# delete the event
my $dbh = db::connect($config);
my $sql = q{
# delete the event
my $dbh = db::connect($config);
my $sql = q{
delete from calcms_events
where id=?
};
my $bind_values = [ $entry->{event_id} ];
db::put( $dbh, $sql, $bind_values );
my $bind_values = [ $entry->{event_id} ];
db::put( $dbh, $sql, $bind_values );
return 1;
return 1;
}
#check permissions
@@ -272,141 +272,141 @@ sub delete_event {
# key check_for: user, studio, series, events, schedule
# return error text or 1 if okay
sub check_permission {
my $request = shift;
my $options = shift;
my $request = shift;
my $options = shift;
return "missing permission at check" unless defined $options->{permission};
return "missing check_for at check" unless defined $options->{check_for};
return "missing user at check" unless defined $request->{user};
return "missing project_id at check" unless defined $options->{project_id};
return "missing studio_id at check" unless defined $options->{studio_id};
return "missing series_id at check" unless defined $options->{series_id};
return "missing permission at check" unless defined $options->{permission};
return "missing check_for at check" unless defined $options->{check_for};
return "missing user at check" unless defined $request->{user};
return "missing project_id at check" unless defined $options->{project_id};
return "missing studio_id at check" unless defined $options->{studio_id};
return "missing series_id at check" unless defined $options->{series_id};
my $permissions = $request->{permissions};
my $config = $request->{config};
my $permissions = $request->{permissions};
my $config = $request->{config};
my $studio_check = studios::check( $config, $options );
return $studio_check if ( $studio_check ne '1' );
print STDERR "check studio ok\n";
my $studio_check = studios::check( $config, $options );
return $studio_check if ( $studio_check ne '1' );
print STDERR "check studio ok\n";
my $project_check = project::check( $config, $options );
return $project_check if ( $project_check ne '1' );
print STDERR "check project ok\n";
my $project_check = project::check( $config, $options );
return $project_check if ( $project_check ne '1' );
print STDERR "check project ok\n";
#check if permissions are set (like create_event)
my $found = 0;
for my $permission ( split /\,/, $options->{permission} ) {
$found = 1 if ( ( defined $permissions->{$permission} ) && ( $permissions->{$permission} ) eq '1' );
}
return 'missing permission to ' . $options->{permission} if $found == 0;
delete $options->{permission};
#check if permissions are set (like create_event)
my $found = 0;
for my $permission ( split /\,/, $options->{permission} ) {
$found = 1 if ( defined $permissions->{$permission} ) && ( $permissions->{$permission} ) eq '1' ;
}
return 'missing permission to ' . $options->{permission} if $found == 0;
delete $options->{permission};
#convert check list to hash
my $check = {};
for my $permission ( @{ $options->{check_for} } ) {
$check->{$permission} = 1;
}
delete $options->{check_for};
#convert check list to hash
my $check = {};
for my $permission ( @{ $options->{check_for} } ) {
$check->{$permission} = 1;
}
delete $options->{check_for};
# is project assigned to studio
return "studio is not assigned to project" unless project::is_studio_assigned( $config, $options ) == 1;
# is project assigned to studio
return "studio is not assigned to project" unless project::is_studio_assigned( $config, $options ) == 1;
#get studio names
my $studios = studios::get(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id}
}
);
return "unknown studio" unless defined $studios;
return "unknown studio" unless ( @$studios == 1 );
my $studio = $studios->[0];
my $studio_name = $studio->{name} || '';
#get studio names
my $studios = studios::get(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id}
}
);
return "unknown studio" unless defined $studios;
return "unknown studio" unless scalar @$studios == 1;
my $studio = $studios->[0];
my $studio_name = $studio->{name} || '';
#get series names
my $series = series::get(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id}
}
);
my $series_name = $series->[0]->{series_name} || '';
$series_name .= ' - ' . $series->[0]->{title} if $series->[0]->{series_name} ne '';
#get series names
my $series = series::get(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id}
}
);
my $series_name = $series->[0]->{series_name} || '';
$series_name .= ' - ' . $series->[0]->{title} if $series->[0]->{series_name} ne '';
my $draft = 0;
$draft = 1 if ( defined $options->{draft} ) && ( $options->{draft} == 1 );
my $draft = 0;
$draft = 1 if ( defined $options->{draft} ) && ( $options->{draft} == 1 );
#check all items from checklist
if ( ( defined $check->{user} ) && ( uac::is_user_assigned_to_studio( $request, $options ) == 0 ) ) {
return "User '$request->{user}' is not assigned to studio $studio_name ($options->{studio_id})";
}
#check all items from checklist
if ( ( defined $check->{user} ) && ( uac::is_user_assigned_to_studio( $request, $options ) == 0 ) ) {
return "User '$request->{user}' is not assigned to studio $studio_name ($options->{studio_id})";
}
if ( ( defined $check->{studio} ) && ( project::is_series_assigned( $config, $options ) == 0 ) ) {
return "Series '$series_name' ($options->{series_id}) is not assigned to studio '$studio_name' ($options->{studio_id})";
}
if ( ( defined $check->{studio} ) && ( project::is_series_assigned( $config, $options ) == 0 ) ) {
return "Series '$series_name' ($options->{series_id}) is not assigned to studio '$studio_name' ($options->{studio_id})";
}
# check series and can user update events
if ( ( defined $check->{series} ) && ( series::can_user_update_events( $request, $options ) == 0 ) ) {
return "unknown series" unless defined $series;
return "User $request->{user} cannot update events for series '$series_name' ($options->{series_id})";
}
# check series and can user update events
if ( ( defined $check->{series} ) && ( series::can_user_update_events( $request, $options ) == 0 ) ) {
return "unknown series" unless defined $series;
return "User $request->{user} cannot update events for series '$series_name' ($options->{series_id})";
}
# check series and can user create events
if ( ( defined $check->{create_events} ) && ( series::can_user_create_events( $request, $options ) == 0 ) ) {
return "unknown series" unless defined $series;
return "User $request->{user} cannot create events for series '$series_name' ($options->{series_id})";
}
# check series and can user create events
if ( ( defined $check->{create_events} ) && ( series::can_user_create_events( $request, $options ) == 0 ) ) {
return "unknown series" unless defined $series;
return "User $request->{user} cannot create events for series '$series_name' ($options->{series_id})";
}
if ( ( $draft == 0 )
&& ( defined $check->{studio_timeslots} )
&& ( studio_timeslot_dates::can_studio_edit_events( $config, $options ) == 0 ) )
{
return "requested time is not assigned to studio '$studio_name' ($options->{studio_id})";
}
if ( ( $draft == 0 )
&& ( defined $check->{studio_timeslots} )
&& ( studio_timeslot_dates::can_studio_edit_events( $config, $options ) == 0 ) )
{
return "requested time is not assigned to studio '$studio_name' ($options->{studio_id})";
}
#check if event is assigned to user,project,studio,series,location
if ( defined $check->{events} ) {
return "missing event_id" unless defined $options->{event_id};
my $result = series::is_event_assigned_to_user( $request, $options );
return $result if $result ne '1';
}
#check if event is assigned to user,project,studio,series,location
if ( defined $check->{events} ) {
return "missing event_id" unless defined $options->{event_id};
my $result = series::is_event_assigned_to_user( $request, $options );
return $result if $result ne '1';
}
# prevent editing events that are over for more than 14 days
if ( ( $draft == 0 ) && ( defined $check->{event_age} ) ) {
if (
series::is_event_older_than_days(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
event_id => $options->{event_id},
max_age => 14
}
) == 1
)
{
return "show is over for more than 2 weeks"
unless ( ( defined $permissions->{update_event_after_week} )
&& ( $permissions->{update_event_after_week} eq '1' ) );
}
}
# prevent editing events that are over for more than 14 days
if ( ( $draft == 0 ) && ( defined $check->{event_age} ) ) {
if (
series::is_event_older_than_days(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
event_id => $options->{event_id},
max_age => 14
}
) == 1
)
{
return "show is over for more than 2 weeks"
unless ( ( defined $permissions->{update_event_after_week} )
&& ( $permissions->{update_event_after_week} eq '1' ) );
}
}
#check if schedule event exists for given date
if ( ( $draft == 0 ) && ( defined $check->{schedule} ) ) {
return "unknown series" unless defined $series;
return "missing start_at at check_permission" unless defined $options->{start_date};
#check if schedule event exists for given date
if ( ( $draft == 0 ) && ( defined $check->{schedule} ) ) {
return "unknown series" unless defined $series;
return "missing start_at at check_permission" unless defined $options->{start_date};
#TODO: check "is_event_scheduled" if start_at could be moved to start_date
$options->{start_at} = $options->{start_date};
return "No event scheduled for series '$series_name' ($options->{series_id})"
if ( series_dates::is_event_scheduled( $request, $options ) == 0 );
}
#TODO: check "is_event_scheduled" if start_at could be moved to start_date
$options->{start_at} = $options->{start_date};
return "No event scheduled for series '$series_name' ($options->{series_id})"
if ( series_dates::is_event_scheduled( $request, $options ) == 0 );
}
return '1';
return '1';
}
#not handled, yet:
@@ -415,126 +415,126 @@ sub check_permission {
#insert event
sub insert_event {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
my $project_id = $options->{project_id};
my $studio = $options->{studio};
my $serie = $options->{serie};
my $params = $options->{event};
my $user = $options->{user};
my $project_id = $options->{project_id};
my $studio = $options->{studio};
my $serie = $options->{serie};
my $params = $options->{event};
my $user = $options->{user};
return 0 unless defined $studio;
return 0 unless defined $serie;
return 0 unless defined $params;
return 0 unless defined $user;
return 0 unless defined $studio->{location};
return 0 unless defined $studio;
return 0 unless defined $serie;
return 0 unless defined $params;
return 0 unless defined $user;
return 0 unless defined $studio->{location};
my $projects = project::get( $config, { project_id => $project_id } );
if ( @$projects == 0 ) {
print STDERR "project not found at insert event\n";
return 0;
}
my $projectName = $projects->[0]->{name};
my $event = {
project => $projectName,
location => $studio->{location}, # location from studio
};
my $projects = project::get( $config, { project_id => $project_id } );
if ( scalar @$projects == 0 ) {
print STDERR "project not found at insert event\n";
return 0;
}
my $projectName = $projects->[0]->{name};
my $event = {
project => $projectName,
location => $studio->{location}, # location from studio
};
#print '<pre>';
$event = series_events::add_event_dates( $config, $event, $params );
#print '<pre>';
$event = series_events::add_event_dates( $config, $event, $params );
#get event content from series
for my $attr ( 'program', 'series_name', 'title', 'excerpt', 'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url' ) {
$event->{$attr} = $serie->{$attr} if defined $serie->{$attr};
}
$event->{series_image} = $serie->{image} if defined $serie->{image};
$event->{series_image_label} = $serie->{licence} if defined $serie->{licence};
#get event content from series
for my $attr ( 'program', 'series_name', 'title', 'excerpt', 'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url' ) {
$event->{$attr} = $serie->{$attr} if defined $serie->{$attr};
}
$event->{series_image} = $serie->{image} if defined $serie->{image};
$event->{series_image_label} = $serie->{licence} if defined $serie->{licence};
#overwrite series values from parameters
for my $attr (
'program', 'series_name', 'title', 'user_title', 'excerpt', 'user_except',
'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url'
)
{
$event->{$attr} = $params->{$attr} if defined $params->{$attr};
}
$event->{'html_content'} = markup::creole_to_html( $event->{'content'} ) if defined $event->{'content'};
$event->{'html_topic'} = markup::creole_to_html( $event->{'topic'} ) if defined $event->{'topic'};
#overwrite series values from parameters
for my $attr (
'program', 'series_name', 'title', 'user_title', 'excerpt', 'user_except',
'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url'
)
{
$event->{$attr} = $params->{$attr} if defined $params->{$attr};
}
$event->{'html_content'} = markup::creole_to_html( $event->{'content'} ) if defined $event->{'content'};
$event->{'html_topic'} = markup::creole_to_html( $event->{'topic'} ) if defined $event->{'topic'};
#add event status
for my $attr ( 'live', 'published', 'playout', 'archived', 'rerun', 'draft', 'disable_event_sync' ) {
$event->{$attr} = $params->{$attr} || 0;
}
#add event status
for my $attr ( 'live', 'published', 'playout', 'archived', 'rerun', 'draft', 'disable_event_sync' ) {
$event->{$attr} = $params->{$attr} || 0;
}
if ( $serie->{has_single_events} eq '1' ) {
delete $event->{series_name};
delete $event->{episode};
}
if ( $serie->{has_single_events} eq '1' ) {
delete $event->{series_name};
delete $event->{episode};
}
$event->{modified_at} = time::time_to_datetime( time() );
$event->{created_at} = time::time_to_datetime( time() );
$event->{modified_by} = $user;
$event->{modified_at} = time::time_to_datetime( time() );
$event->{created_at} = time::time_to_datetime( time() );
$event->{modified_by} = $user;
#print STDERR Dumper($event);
my $dbh = db::connect($config);
my $event_id = db::insert( $dbh, 'calcms_events', $event );
#print STDERR Dumper($event);
my $dbh = db::connect($config);
my $event_id = db::insert( $dbh, 'calcms_events', $event );
#add to history
$event->{project_id} = $project_id;
$event->{studio_id} = $studio->{id};
$event->{series_id} = $serie->{series_id};
$event->{event_id} = $event_id;
event_history::insert( $config, $event );
return $event_id;
#add to history
$event->{project_id} = $project_id;
$event->{studio_id} = $studio->{id};
$event->{series_id} = $serie->{series_id};
$event->{event_id} = $event_id;
event_history::insert( $config, $event );
return $event_id;
}
#set start, end, start-date, end_date to an event
sub add_event_dates {
my $config = shift;
my $event = shift;
my $params = shift;
my $config = shift;
my $event = shift;
my $params = shift;
#start and end datetime
$event->{start} = $params->{start_date};
$event->{end} = time::add_minutes_to_datetime( $params->{start_date}, $params->{duration} );
#start and end datetime
$event->{start} = $params->{start_date};
$event->{end} = time::add_minutes_to_datetime( $params->{start_date}, $params->{duration} );
#set program days
my $day_start = $config->{date}->{day_starting_hour};
$event->{start_date} = time::date_cond( time::add_hours_to_datetime( $event->{start}, -$day_start ) );
$event->{end_date} = time::date_cond( time::add_hours_to_datetime( $event->{end}, -$day_start ) );
return $event;
#set program days
my $day_start = $config->{date}->{day_starting_hour};
$event->{start_date} = time::date_cond( time::add_hours_to_datetime( $event->{start}, -$day_start ) );
$event->{end_date} = time::date_cond( time::add_hours_to_datetime( $event->{end}, -$day_start ) );
return $event;
}
sub update_series_images {
my $config = shift;
my $options = shift;
my $config = shift;
my $options = shift;
return "missing project_id" unless defined $options->{project_id};
return "missing studio_id" unless defined $options->{studio_id};
return "missing series_id" unless defined $options->{series_id};
return "missing series_image" unless defined $options->{series_image};
return "missing project_id" unless defined $options->{project_id};
return "missing studio_id" unless defined $options->{studio_id};
return "missing series_id" unless defined $options->{series_id};
return "missing series_image" unless defined $options->{series_image};
#print "save $options->{series_image}\n";
#print "save $options->{series_image}\n";
my $events = series::get_events(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
}
);
my $events = series::get_events(
$config,
{
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
}
);
for my $event (@$events) {
$event->{series_image} = $options->{series_image};
series_events::save_content( $config, $event );
}
for my $event (@$events) {
$event->{series_image} = $options->{series_image};
series_events::save_content( $config, $event );
}
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

1
lib/calcms/startup.pl
View File

@@ -2,6 +2,7 @@ use lib qw(/home/radio/calcms/calcms/);
use Data::Dumper;
use Apache::DBI();
#$Apache::DBI::DEBUG = 2;
use Time::Local();

186
lib/calcms/studios.pm
View File

@@ -16,157 +16,157 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_studios' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_studios' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
sub get {
my $config = shift;
my $condition = shift || {};
my $config = shift;
my $condition = shift || {};
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 's.id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 's.id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) {
push @conditions, 's.name=?';
push @bind_values, $condition->{name};
}
if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) {
push @conditions, 's.name=?';
push @bind_values, $condition->{name};
}
if ( ( defined $condition->{location} ) && ( $condition->{location} ne '' ) ) {
push @conditions, 's.location=?';
push @bind_values, $condition->{location};
}
if ( ( defined $condition->{location} ) && ( $condition->{location} ne '' ) ) {
push @conditions, 's.location=?';
push @bind_values, $condition->{location};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $query = '';
unless ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
$query = qq{
my $query = '';
unless ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
$query = qq{
select *
from calcms_studios s
$conditions
$limit
};
} else {
push @conditions, 's.id=ps.studio_id';
} else {
push @conditions, 's.id=ps.studio_id';
push @conditions, 'ps.project_id=?';
push @bind_values, $condition->{project_id};
my $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
$query = qq{
push @conditions, 'ps.project_id=?';
push @bind_values, $condition->{project_id};
my $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
$query = qq{
select *
from calcms_studios s, calcms_project_studios ps
$conditions
$limit
};
}
my $dbh = db::connect($config);
}
my $dbh = db::connect($config);
#print STDERR Dumper($query).Dumper(\@bind_values);
my $studios = db::get( $dbh, $query, \@bind_values );
return $studios;
#print STDERR Dumper($query).Dumper(\@bind_values);
my $studios = db::get( $dbh, $query, \@bind_values );
return $studios;
}
sub getImageById {
my $config = shift;
my $conditions = shift;
my $config = shift;
my $conditions = shift;
return undef unless defined $conditions->{project_id};
return undef unless defined $conditions->{studio_id};
my $studios = studios::get( $config, $conditions );
return undef if scalar(@$studios) != 1;
return $studios->[0]->{image};
return undef unless defined $conditions->{project_id};
return undef unless defined $conditions->{studio_id};
my $studios = studios::get( $config, $conditions );
return undef if scalar(@$studios) != 1;
return $studios->[0]->{image};
}
sub insert {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
$entry->{created_at} = time::time_to_datetime( time() );
$entry->{modified_at} = time::time_to_datetime( time() );
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
$entry->{created_at} = time::time_to_datetime( time() );
$entry->{modified_at} = time::time_to_datetime( time() );
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_studios', $entry );
return $id;
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_studios', $entry );
return $id;
}
sub update {
my $config = shift;
my $studio = shift;
my $config = shift;
my $studio = shift;
$studio->{modified_at} = time::time_to_datetime( time() );
$studio->{modified_at} = time::time_to_datetime( time() );
my $columns = get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $studio->{$column} if defined $studio->{$column};
}
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
my $columns = get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $studio->{$column} if defined $studio->{$column};
}
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{id};
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{id};
my $query = qq{
my $query = qq{
update calcms_studios
set $values
where id=?
};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
#print STDERR Dumper($query)." ".Dumper(\@bind_values);
db::put( $dbh, $query, \@bind_values );
#print STDERR Dumper($query)." ".Dumper(\@bind_values);
db::put( $dbh, $query, \@bind_values );
}
sub delete {
my $config = shift;
my $studio = shift;
my $config = shift;
my $studio = shift;
my $dbh = db::connect($config);
db::put( $dbh, 'delete from calcms_studios where id=?', [ $studio->{id} ] );
my $dbh = db::connect($config);
db::put( $dbh, 'delete from calcms_studios where id=?', [ $studio->{id} ] );
}
#TODO rename to check
sub check_studio {
my $config = shift;
my $options = shift;
return check( $config, $options );
my $config = shift;
my $options = shift;
return check( $config, $options );
}
sub check {
my $config = shift;
my $options = shift;
return "missing studio_id" unless defined $options->{studio_id};
return "Please select a studio" if ( $options->{studio_id} eq '-1' );
return "Please select a studio" if ( $options->{studio_id} eq '' );
my $studios = studios::get( $config, { studio_id => $options->{studio_id} } );
return "Sorry. unknown studio" unless defined $studios;
return "Sorry. unknown studio" unless @$studios == 1;
return 1;
my $config = shift;
my $options = shift;
return "missing studio_id" unless defined $options->{studio_id};
return "Please select a studio" if ( $options->{studio_id} eq '-1' );
return "Please select a studio" if ( $options->{studio_id} eq '' );
my $studios = studios::get( $config, { studio_id => $options->{studio_id} } );
return "Sorry. unknown studio" unless defined $studios;
return "Sorry. unknown studio" unless scalar @$studios == 1;
return 1;
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

308
lib/calcms/template.pm
View File

@@ -23,205 +23,205 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub process {
# my $output=$_[0];
my $filename = $_[1];
my $params = $_[2];
# my $output=$_[0];
my $filename = $_[1];
my $params = $_[2];
my $config = $config::config;
for my $key ( keys %{ $config::config->{locations} } ) {
$params->{$key} = $config::config->{locations}->{$key} if ( $key =~ /\_url$/ );
}
my $config = $config::config;
for my $key ( keys %{ $config::config->{locations} } ) {
$params->{$key} = $config::config->{locations}->{$key} if ( $key =~ /\_url$/ );
}
# add current project
unless ( defined $params->{project_title} ) {
my $projects = project::get_with_dates( $config, { name => $config->{project} } );
if ( @$projects == 1 ) {
my $project = $projects->[0];
foreach my $key ( keys %$project ) {
$params->{ 'project_' . $key } = $project->{$key};
}
}
}
# add current project
unless ( defined $params->{project_title} ) {
my $projects = project::get_with_dates( $config, { name => $config->{project} } );
if ( scalar @$projects == 1 ) {
my $project = $projects->[0];
foreach my $key ( keys %$project ) {
$params->{ 'project_' . $key } = $project->{$key};
}
}
}
$params->{user} = $ENV{REMOTE_USER} unless defined $params->{user};
$params->{user} = $ENV{REMOTE_USER} unless defined $params->{user};
my $user_permissions = roles::get_user_permissions();
for my $permission ( keys %$user_permissions ) {
$params->{$permission} = $user_permissions->{$permission} if ( $user_permissions->{$permission} eq '1' );
}
my $user_permissions = roles::get_user_permissions();
for my $permission ( keys %$user_permissions ) {
$params->{$permission} = $user_permissions->{$permission} if ( $user_permissions->{$permission} eq '1' );
}
$params->{jobs} = roles::get_user_jobs();
if ( ( $filename =~ /json\-p/ ) || (params::isJson) ) {
my $header = "Content-type:application/json; charset=utf-8\n\n";
my $json = JSON::to_json( $params, { pretty => 1 } );
$params->{jobs} = roles::get_user_jobs();
if ( ( $filename =~ /json\-p/ ) || (params::isJson) ) {
my $header = "Content-type:application/json; charset=utf-8\n\n";
my $json = JSON::to_json( $params, { pretty => 1 } );
# $json=$header.$params->{json_callback}.'['.$json.']';
$json = $header . $params->{json_callback} . $json;
if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
print $json. "\n";
} else {
$_[0] = $json . "\n";
}
return;
}
# $json=$header.$params->{json_callback}.'['.$json.']';
$json = $header . $params->{json_callback} . $json;
if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
print $json. "\n";
} else {
$_[0] = $json . "\n";
}
return;
}
#print STDERR $filename."\n";
log::error( $config, "cannot find template $filename " ) unless -e $filename;
log::error( $config, "cannot read template $filename " ) unless -r $filename;
#print STDERR $filename."\n";
log::error( $config, "cannot find template $filename " ) unless -e $filename;
log::error( $config, "cannot read template $filename " ) unless -r $filename;
my $default_escape = '0';
$default_escape = 'JS' if ( $filename =~ /\.js$/ );
$default_escape = 'JS' if ( $filename =~ /\.json$/ );
$default_escape = 'HTML_ALL' if ( $filename =~ /\.html$/ );
my $default_escape = '0';
$default_escape = 'JS' if ( $filename =~ /\.js$/ );
$default_escape = 'JS' if ( $filename =~ /\.json$/ );
$default_escape = 'HTML_ALL' if ( $filename =~ /\.html$/ );
my $html_template = undef;
my $html_template = undef;
unless ( $filename =~ /\.xml$/ ) {
$html_template = HTML::Template::Compiled->new(
filename => $filename,
die_on_bad_params => 0,
case_sensitive => 0,
loop_context_vars => 0,
global_vars => 0,
tagstyle => '-asp -comment',
default_escape => $default_escape,
cache => 0,
utf8 => 1,
);
} else {
$html_template = HTML::Template::Compiled->new(
filename => $filename,
die_on_bad_params => 0,
case_sensitive => 1,
loop_context_vars => 0,
global_vars => 0,
tagstyle => '-asp -comment',
default_escape => 'XML',
plugin => [qw(HTML::Template::Compiled::Plugin::XMLEscape)],
utf8 => 1
);
}
unless ( $filename =~ /\.xml$/ ) {
$html_template = HTML::Template::Compiled->new(
filename => $filename,
die_on_bad_params => 0,
case_sensitive => 0,
loop_context_vars => 0,
global_vars => 0,
tagstyle => '-asp -comment',
default_escape => $default_escape,
cache => 0,
utf8 => 1,
);
} else {
$html_template = HTML::Template::Compiled->new(
filename => $filename,
die_on_bad_params => 0,
case_sensitive => 1,
loop_context_vars => 0,
global_vars => 0,
tagstyle => '-asp -comment',
default_escape => 'XML',
plugin => [qw(HTML::Template::Compiled::Plugin::XMLEscape)],
utf8 => 1
);
}
#$params=
setRelativeUrls( $params, 0 ) unless ( defined $params->{extern} ) && ( $params->{extern} eq '1' );
#$params=
setRelativeUrls( $params, 0 ) unless ( defined $params->{extern} ) && ( $params->{extern} eq '1' );
# HTML::Template::Compiled->preload($cache_dir);
$html_template->param($params);
if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
print $html_template->output;
} else {
$_[0] = $html_template->output;
}
# HTML::Template::Compiled->preload($cache_dir);
$html_template->param($params);
if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
print $html_template->output;
} else {
$_[0] = $html_template->output;
}
}
# set relative urls in nested params structure
sub setRelativeUrls {
my $params = shift;
my $depth = shift || 0;
my $params = shift;
my $depth = shift || 0;
#print STDERR "setRelativeUrls depth:$depth ".ref($params)."\n";
#print STDERR "setRelativeUrls depth:$depth ".ref($params)."\n";
return unless defined $params;
return unless defined $params;
if ( $depth > 10 ) {
print STDERR "prevent deep recursion in template::setRelativeUrls()\n";
return;
}
if ( $depth > 10 ) {
print STDERR "prevent deep recursion in template::setRelativeUrls()\n";
return;
}
# set recursive for hash
if ( ref($params) eq 'HASH' ) {
for my $key ( keys %$params ) {
# set recursive for hash
if ( ref($params) eq 'HASH' ) {
for my $key ( keys %$params ) {
#next unless ($key eq 'icon') || ($key eq 'thumb');
my $val = $params->{$key};
next unless defined $val;
if ( ref($val) eq '' ) {
#next unless ($key eq 'icon') || ($key eq 'thumb');
my $val = $params->{$key};
next unless defined $val;
if ( ref($val) eq '' ) {
# make link relative
$params->{$key} =~ s/^https?\:(\/\/[^\/]+)/$1/;
} elsif ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
setRelativeUrls( $params->{$key}, $depth + 1 );
}
}
return $params;
}
# make link relative
$params->{$key} =~ s/^https?\:(\/\/[^\/]+)/$1/;
} elsif ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
setRelativeUrls( $params->{$key}, $depth + 1 );
}
}
return $params;
}
# set recursive for arrays
if ( ref($params) eq 'ARRAY' ) {
for my $i ( 0 .. @$params ) {
my $val = $params->[$i];
next unless defined $val;
if ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
setRelativeUrls( $params->[$i], $depth + 1 );
}
}
return $params;
}
# set recursive for arrays
if ( ref($params) eq 'ARRAY' ) {
for my $i ( 0 .. @$params ) {
my $val = $params->[$i];
next unless defined $val;
if ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
setRelativeUrls( $params->[$i], $depth + 1 );
}
}
return $params;
}
return $params;
return $params;
}
#requires read config
sub check {
my $template = shift || '';
my $default = shift;
my $template = shift || '';
my $default = shift;
if ( $template =~ /json\-p/ ) {
$template =~ s/[^a-zA-Z0-9\-\_\.]//g;
$template =~ s/\.{2,99}/\./g;
return $template;
}
if ( $template =~ /json\-p/ ) {
$template =~ s/[^a-zA-Z0-9\-\_\.]//g;
$template =~ s/\.{2,99}/\./g;
return $template;
}
my $config = $config::config;
if ( $template eq '' ) {
$template = $default;
} else {
$template =~ s/^\.\///gi;
my $config = $config::config;
if ( $template eq '' ) {
$template = $default;
} else {
$template =~ s/^\.\///gi;
#template does use ';' in filename
log::error( $config, 'invalid template!' ) if ( $template =~ /;/ );
#template does use ';' in filename
log::error( $config, 'invalid template!' ) if ( $template =~ /;/ );
#template does use '..' in filename
log::error( $config, 'invalid template!' ) if ( $template =~ /\.\./ );
}
#template does use '..' in filename
log::error( $config, 'invalid template!' ) if ( $template =~ /\.\./ );
}
#print STDERR $config::config->{cache}->{compress}."<.compres default:$template\n";
$template = ( split( /\//, $template ) )[-1];
my $cwd = Cwd::getcwd();
#print STDERR $config::config->{cache}->{compress}."<.compres default:$template\n";
$template = ( split( /\//, $template ) )[-1];
my $cwd = Cwd::getcwd();
$template .= '.html' unless ( $template =~ /\./ );
if ( ( $config::config->{cache}->{compress} eq '1' ) && ( -e $cwd . '/templates/compressed/' . $template ) ) {
$template = $cwd . '/templates/compressed/' . $template;
} elsif ( -e $cwd . '/templates/' . $template ) {
$template = $cwd . '/templates/' . $template;
} else {
log::error( $config, "template not found: '$cwd/$template'" );
$template .= '.html' unless ( $template =~ /\./ );
if ( ( $config::config->{cache}->{compress} eq '1' ) && ( -e $cwd . '/templates/compressed/' . $template ) ) {
$template = $cwd . '/templates/compressed/' . $template;
} elsif ( -e $cwd . '/templates/' . $template ) {
$template = $cwd . '/templates/' . $template;
} else {
log::error( $config, "template not found: '$cwd/$template'" );
}
}
log::error( $config, "missing permission to read template '$template'" ) unless ( -r $template );
return $template;
log::error( $config, "missing permission to read template '$template'" ) unless ( -r $template );
return $template;
}
#deprecated (for old admin only)
sub exit_on_missing_permission {
my $permission = shift;
my $user_permissions = roles::get_user_permissions();
if ( $user_permissions->{$permission} ne '1' ) {
print STDERR "missing permission to $permission\n";
template::process( 'print', template::check('default.html'), { error => 'sorry, missing permission!' } );
die();
my $permission = shift;
my $user_permissions = roles::get_user_permissions();
if ( $user_permissions->{$permission} ne '1' ) {
print STDERR "missing permission to $permission\n";
template::process( 'print', template::check('default.html'), { error => 'sorry, missing permission!' } );
die();
#exit;
}
#exit;
}
}
sub clear_cache {
HTML::Template::Compiled->clear_cache();
HTML::Template::Compiled->clear_cache();
# return;
# my $html_template = HTML::Template::Compiled->new();
# $html_template->clear_cache();
# return;
# my $html_template = HTML::Template::Compiled->new();
# $html_template->clear_cache();
}
#do not delete last line!

764
lib/calcms/time.pm
View File

@@ -32,584 +32,584 @@ our @EXPORT_OK = qw(
our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
our $names = {
'de' => {
months =>
[ 'Januar', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember' ],
months_abbr => [ 'Jan', 'Feb', 'Mär', 'Apr', 'Mai', 'Jun', 'Jul', 'Aug', 'Sep', 'Okt', 'Nov', 'Dez' ],
weekdays => [ 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag' ],
weekdays_abbr => [ 'Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa', 'So' ],
},
'en' => {
months =>
[ 'January', 'February', 'March', 'April', 'May', 'June', 'Jule', 'August', 'September', 'October', 'November', 'December' ],
months_abbr => [ 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ],
weekdays => [ 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday' ],
weekdays_abbr => [ 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su' ],
},
'de' => {
months =>
[ 'Januar', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember' ],
months_abbr => [ 'Jan', 'Feb', 'Mär', 'Apr', 'Mai', 'Jun', 'Jul', 'Aug', 'Sep', 'Okt', 'Nov', 'Dez' ],
weekdays => [ 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag' ],
weekdays_abbr => [ 'Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa', 'So' ],
},
'en' => {
months =>
[ 'January', 'February', 'March', 'April', 'May', 'June', 'Jule', 'August', 'September', 'October', 'November', 'December' ],
months_abbr => [ 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ],
weekdays => [ 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday' ],
weekdays_abbr => [ 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su' ],
},
};
our $durations = [
0, 5, 10, 15, 20, 30, 40, 45, 50, 60, 70, 75, 80, 90, 100, 105, 110, 115,
120, 135, 150, 165, 180, 195, 210, 225, 240, 300, 360, 420, 480, 540, 600, 660, 720, 1440
0, 5, 10, 15, 20, 30, 40, 45, 50, 60, 70, 75, 80, 90, 100, 105, 110, 115,
120, 135, 150, 165, 180, 195, 210, 225, 240, 300, 360, 420, 480, 540, 600, 660, 720, 1440
];
sub get_names {
my $language = shift || 'en';
return $time::names->{$language};
my $language = shift || 'en';
return $time::names->{$language};
}
sub get_all_names {
return $time::names;
return $time::names;
}
sub get_durations {
return $time::durations;
return $time::durations;
}
#TODO: build from datenames
our $weekday_index = {
'0' => 0,
'1' => 1,
'2' => 2,
'3' => 3,
'4' => 4,
'5' => 5,
'6' => 6,
'Mo' => 0,
'Tu' => 1,
'Di' => 1,
'We' => 2,
'Mi' => 2,
'Th' => 3,
'Do' => 3,
'Fr' => 4,
'Sa' => 5,
'Su' => 6,
'So' => 6
'0' => 0,
'1' => 1,
'2' => 2,
'3' => 3,
'4' => 4,
'5' => 5,
'6' => 6,
'Mo' => 0,
'Tu' => 1,
'Di' => 1,
'We' => 2,
'Mi' => 2,
'Th' => 3,
'Do' => 3,
'Fr' => 4,
'Sa' => 5,
'Su' => 6,
'So' => 6
};
sub get_weekdays {
return {
1 => 1,
2 => 2,
3 => 3,
4 => 4,
5 => 5,
6 => 6,
7 => 7,
'Mo' => 1,
'Tu' => 2,
'Di' => 2,
'We' => 3,
'Mi' => 3,
'Th' => 4,
'Do' => 4,
'Fr' => 5,
'Sa' => 6,
'Su' => 7,
'So' => 7
};
return {
1 => 1,
2 => 2,
3 => 3,
4 => 4,
5 => 5,
6 => 6,
7 => 7,
'Mo' => 1,
'Tu' => 2,
'Di' => 2,
'We' => 3,
'Mi' => 3,
'Th' => 4,
'Do' => 4,
'Fr' => 5,
'Sa' => 6,
'Su' => 7,
'So' => 7
};
}
#deprecated, for wordpress sync
sub format_datetime {
my $datetime = shift;
return $datetime if ( $datetime eq '' );
return add_hours_to_datetime( $datetime, 0 );
my $datetime = shift;
return $datetime if ( $datetime eq '' );
return add_hours_to_datetime( $datetime, 0 );
}
#deprecated
sub format_time {
my $t = $_[0];
my $t = $_[0];
my $year = $t->[5] + 1900;
my $month = $t->[4] + 1;
$month = '0' . $month if ( length($month) == 1 );
my $year = $t->[5] + 1900;
my $month = $t->[4] + 1;
$month = '0' . $month if ( length($month) == 1 );
my $day = $t->[3];
$day = '0' . $day if ( length($day) == 1 );
my $day = $t->[3];
$day = '0' . $day if ( length($day) == 1 );
my $hour = $t->[2];
$hour = '0' . $hour if ( length($hour) == 1 );
my $hour = $t->[2];
$hour = '0' . $hour if ( length($hour) == 1 );
my $minute = $t->[1];
$minute = '0' . $minute if ( length($minute) == 1 );
my $minute = $t->[1];
$minute = '0' . $minute if ( length($minute) == 1 );
return [ $day, $month, $year, $hour, $minute ];
return [ $day, $month, $year, $hour, $minute ];
}
# convert datetime to unix time
sub datetime_to_time {
my $datetime = $_[0];
my $datetime = $_[0];
# print $datetime."\n";
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)[T\s](\d+)\:(\d+)(\:(\d+))?/ ) {
my $year = $1;
my $month = $2 - 1;
my $day = $3;
my $hour = $4;
my $minute = $5;
my $second = $8 || 0;
return Time::Local::timelocal( $second, $minute, $hour, $day, $month, $year );
# print $datetime."\n";
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)[T\s](\d+)\:(\d+)(\:(\d+))?/ ) {
my $year = $1;
my $month = $2 - 1;
my $day = $3;
my $hour = $4;
my $minute = $5;
my $second = $8 || 0;
return Time::Local::timelocal( $second, $minute, $hour, $day, $month, $year );
} else {
print STDERR "datetime_to_time: no valid date time found! ($datetime )\n";
return -1;
}
} else {
print STDERR "datetime_to_time: no valid date time found! ($datetime )\n";
return -1;
}
}
#get rfc822 datetime string from datetime string
sub datetime_to_rfc822 {
my $datetime = $_[0];
my $time = datetime_to_time($datetime);
return POSIX::strftime( "%a, %d %b %Y %H:%M:%S %z", localtime($time) );
my $datetime = $_[0];
my $time = datetime_to_time($datetime);
return POSIX::strftime( "%a, %d %b %Y %H:%M:%S %z", localtime($time) );
}
#get seconds from epoch
sub datetime_to_utc {
my $datetime = shift;
my $time_zone = shift;
$datetime = get_datetime( $datetime, $time_zone );
return $datetime->epoch();
my $datetime = shift;
my $time_zone = shift;
$datetime = get_datetime( $datetime, $time_zone );
return $datetime->epoch();
}
# get full utc datetime including timezone offset
sub datetime_to_utc_datetime {
my $datetime = shift;
my $time_zone = shift;
$datetime = get_datetime( $datetime, $time_zone );
return $datetime->format_cldr("yyyy-MM-ddTHH:mm:ssZZZZZ");
my $datetime = shift;
my $time_zone = shift;
$datetime = get_datetime( $datetime, $time_zone );
return $datetime->format_cldr("yyyy-MM-ddTHH:mm:ssZZZZZ");
}
#add hours to datetime string
sub add_hours_to_datetime {
my $datetime = shift;
my $hours = shift;
$hours = 0 unless defined $hours;
return time_to_datetime( datetime_to_time($datetime) + ( 3600 * $hours ) );
my $datetime = shift;
my $hours = shift;
$hours = 0 unless defined $hours;
return time_to_datetime( datetime_to_time($datetime) + ( 3600 * $hours ) );
}
#add minutes to datetime string
sub add_minutes_to_datetime {
my $datetime = shift;
my $minutes = shift;
$minutes = 0 unless defined $minutes;
return time_to_datetime( datetime_to_time($datetime) + ( 60 * $minutes ) );
my $datetime = shift;
my $minutes = shift;
$minutes = 0 unless defined $minutes;
return time_to_datetime( datetime_to_time($datetime) + ( 60 * $minutes ) );
}
#add days to datetime string
sub add_days_to_datetime {
my $datetime = shift;
my $days = shift;
$days = 0 unless defined $days;
my $time = datetime_to_array($datetime);
my $datetime = shift;
my $days = shift;
$days = 0 unless defined $days;
my $time = datetime_to_array($datetime);
#print STDERR Dumper($time);
( $time->[0], $time->[1], $time->[2] ) = Date::Calc::Add_Delta_Days( $time->[0] + 0, $time->[1] + 0, $time->[2] + 0, $days );
return array_to_datetime($time);
#print STDERR Dumper($time);
( $time->[0], $time->[1], $time->[2] ) = Date::Calc::Add_Delta_Days( $time->[0] + 0, $time->[1] + 0, $time->[2] + 0, $days );
return array_to_datetime($time);
}
sub add_days_to_date {
my $datetime = shift;
my $days = shift;
$days = 0 unless defined $days;
my $date = date_to_array($datetime);
( $date->[0], $date->[1], $date->[2] ) = Date::Calc::Add_Delta_Days( $date->[0] + 0, $date->[1] + 0, $date->[2] + 0, $days );
return array_to_date($date);
my $datetime = shift;
my $days = shift;
$days = 0 unless defined $days;
my $date = date_to_array($datetime);
( $date->[0], $date->[1], $date->[2] ) = Date::Calc::Add_Delta_Days( $date->[0] + 0, $date->[1] + 0, $date->[2] + 0, $days );
return array_to_date($date);
}
# convert unix time to datetime format
sub time_to_datetime {
my $time = shift;
$time = time() unless ( ( defined $time ) && ( $time ne '' ) );
my @t = localtime($time);
return sprintf( '%04d-%02d-%02d %02d:%02d:%02d', $t[5] + 1900, $t[4] + 1, $t[3], $t[2], $t[1], $t[0] );
my $time = shift;
$time = time() unless ( defined $time ) && ( $time ne '' );
my @t = localtime($time);
return sprintf( '%04d-%02d-%02d %02d:%02d:%02d', $t[5] + 1900, $t[4] + 1, $t[3], $t[2], $t[1], $t[0] );
}
# convert unix time to date format
sub time_to_date {
my $time = shift;
$time = time() unless ( ( defined $time ) && ( $time ne '' ) );
my @t = localtime($time);
return sprintf( '%04d-%02d-%02d', $t[5] + 1900, $t[4] + 1, $t[3] );
my $time = shift;
$time = time() unless ( defined $time ) && ( $time ne '' );
my @t = localtime($time);
return sprintf( '%04d-%02d-%02d', $t[5] + 1900, $t[4] + 1, $t[3] );
}
# convert datetime to a array of date/time values
sub datetime_to_array {
my $datetime = $_[0] || '';
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)([T\s]+(\d+)\:(\d+)(\:(\d+))?)?/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
my $hour = $5 || '00';
my $minute = $6 || '00';
my $second = $8 || '00';
return [ $year, $month, $day, $hour, $minute, $second ];
}
return undef;
my $datetime = $_[0] || '';
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)([T\s]+(\d+)\:(\d+)(\:(\d+))?)?/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
my $hour = $5 || '00';
my $minute = $6 || '00';
my $second = $8 || '00';
return [ $year, $month, $day, $hour, $minute, $second ];
}
return undef;
}
# convert datetime to date
sub datetime_to_date {
my $datetime = $_[0] || '';
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return sprintf( "%04d-%02d-%02d", $year, $month, $day );
}
return undef;
my $datetime = $_[0] || '';
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return sprintf( "%04d-%02d-%02d", $year, $month, $day );
}
return undef;
}
#convert datetime array or single value to datetime string
sub array_to_datetime {
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date->[0], $date->[1], $date->[2], $date->[3], $date->[4], $date->[5] );
}
my $month = shift;
my $day = shift;
my $hour = shift || '0';
my $minute = shift || '0';
my $second = shift || '0';
return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date, $month, $day, $hour, $minute, $second );
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date->[0], $date->[1], $date->[2], $date->[3], $date->[4], $date->[5] );
}
my $month = shift;
my $day = shift;
my $hour = shift || '0';
my $minute = shift || '0';
my $second = shift || '0';
return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date, $month, $day, $hour, $minute, $second );
}
#convert date array or single values to date string
sub array_to_date {
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%04d-%02d-%02d", $date->[0], $date->[1], $date->[2] );
}
my $month = shift;
my $day = shift;
return sprintf( "%04d-%02d-%02d", $date, $month, $day );
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%04d-%02d-%02d", $date->[0], $date->[1], $date->[2] );
}
my $month = shift;
my $day = shift;
return sprintf( "%04d-%02d-%02d", $date, $month, $day );
}
sub array_to_time {
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%02d:%02d:%02d", $date->[3], $date->[4], $date->[5] );
}
my $minute = shift || 0;
my $second = shift || 0;
return sprintf( "%02d:%02d:%02d", $date, $minute, $second );
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%02d:%02d:%02d", $date->[3], $date->[4], $date->[5] );
}
my $minute = shift || 0;
my $second = shift || 0;
return sprintf( "%02d:%02d:%02d", $date, $minute, $second );
}
sub array_to_time_hm {
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%02d:%02d", $date->[3], $date->[4] );
}
my $minute = shift || 0;
return sprintf( "%02d:%02d", $date, $minute );
my $date = shift;
if ( ref($date) eq 'ARRAY' ) {
return sprintf( "%02d:%02d", $date->[3], $date->[4] );
}
my $minute = shift || 0;
return sprintf( "%02d:%02d", $date, $minute );
}
# get number of days between two days
sub days_between {
my $today = $_[0];
my $date = $_[1];
my $delta_days = eval { Date::Calc::Delta_Days( $today->[0], $today->[1], $today->[2], $date->[0], $date->[1], $date->[2] ) };
return $delta_days;
my $today = $_[0];
my $date = $_[1];
my $delta_days = eval { Date::Calc::Delta_Days( $today->[0], $today->[1], $today->[2], $date->[0], $date->[1], $date->[2] ) };
return $delta_days;
}
sub dayOfYear {
my $datetime = $_[0];
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return Date::Calc::Day_of_Year( $year, $month, $day );
}
return undef;
my $datetime = $_[0];
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return Date::Calc::Day_of_Year( $year, $month, $day );
}
return undef;
}
# get duration in minutes
sub get_duration {
my $start = shift;
my $end = shift;
my $timezone = shift;
$start = time::get_datetime( $start, $timezone );
$end = time::get_datetime( $end, $timezone );
my $duration = $end->epoch() - $start->epoch();
return $duration / 60;
my $start = shift;
my $end = shift;
my $timezone = shift;
$start = time::get_datetime( $start, $timezone );
$end = time::get_datetime( $end, $timezone );
my $duration = $end->epoch() - $start->epoch();
return $duration / 60;
}
# get duration in seconds
sub get_duration_seconds {
my $start = shift;
my $end = shift;
my $timezone = shift || 'UTC';
my $start = shift;
my $end = shift;
my $timezone = shift || 'UTC';
unless ( defined $start ) {
print STDERR "time::get_duration_seconds(): start is missing\n";
return 0;
}
unless ( defined $end ) {
print STDERR "time::get_duration_seconds(): end is missing\n";
return 0;
}
unless ( defined $start ) {
print STDERR "time::get_duration_seconds(): start is missing\n";
return 0;
}
unless ( defined $end ) {
print STDERR "time::get_duration_seconds(): end is missing\n";
return 0;
}
$start = time::get_datetime( $start, $timezone );
$end = time::get_datetime( $end, $timezone );
unless ( defined $start ) {
print STDERR "time::get_duration_seconds(): invalid start\n";
return 0;
}
unless ( defined $end ) {
print STDERR "time::get_duration_seconds(): invalid end\n";
return 0;
}
my $duration = $end->epoch() - $start->epoch();
return $duration;
$start = time::get_datetime( $start, $timezone );
$end = time::get_datetime( $end, $timezone );
unless ( defined $start ) {
print STDERR "time::get_duration_seconds(): invalid start\n";
return 0;
}
unless ( defined $end ) {
print STDERR "time::get_duration_seconds(): invalid end\n";
return 0;
}
my $duration = $end->epoch() - $start->epoch();
return $duration;
}
# convert date string to a array of date values
sub date_to_array {
my $datetime = $_[0];
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return [ $year, $month, $day ];
}
return undef;
my $datetime = $_[0];
if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return [ $year, $month, $day ];
}
return undef;
}
# parse date string and return date string
# pass 'today', return '' on parse error
sub date_cond {
my $date = shift;
my $date = shift;
return '' if ( $date eq '' );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return sprintf( "%04d-%02d-%02d", $year, $month, $day );
}
return 'today' if ( $date eq 'today' );
return '';
return '' if ( $date eq '' );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
my $year = $1;
my $month = $2;
my $day = $3;
return sprintf( "%04d-%02d-%02d", $year, $month, $day );
}
return 'today' if ( $date eq 'today' );
return '';
}
#parse time and return time string hh:mm:ss
#return hh:00 if time is 'now'
sub time_cond {
my $time = shift;
my $time = shift;
return '' if ( $time eq '' );
if ( $time =~ /(\d\d?)\:(\d\d?)(\:(\d\d))?/ ) {
my $hour = $1;
my $minute = $2;
my $second = $4 || '00';
return sprintf( "%02d:%02d:%02d", $hour, $minute, $second );
}
if ( $time eq 'now' ) {
my $date = datetime_to_array( time_to_datetime( time() ) );
my $hour = $date->[3] - 2;
$hour = 0 if ( $hour < 0 );
$time = sprintf( "%02d:00", $hour );
return $time;
}
return '';
return '' if ( $time eq '' );
if ( $time =~ /(\d\d?)\:(\d\d?)(\:(\d\d))?/ ) {
my $hour = $1;
my $minute = $2;
my $second = $4 || '00';
return sprintf( "%02d:%02d:%02d", $hour, $minute, $second );
}
if ( $time eq 'now' ) {
my $date = datetime_to_array( time_to_datetime( time() ) );
my $hour = $date->[3] - 2;
$hour = 0 if ( $hour < 0 );
$time = sprintf( "%02d:00", $hour );
return $time;
}
return '';
}
#parse date and time string and return yyyy-mm-ddThh:mm:ss
sub datetime_cond {
my $datetime = shift;
my $datetime = shift;
return '' if ( $datetime eq '' );
( my $date, my $time ) = split /[ T]/, $datetime;
$date = time::date_cond($date);
return '' if ( $date eq '' );
$time = time::time_cond($time);
return '' if ( $time eq '' );
return '' if ( $datetime eq '' );
( my $date, my $time ) = split /[ T]/, $datetime;
$date = time::date_cond($date);
return '' if ( $date eq '' );
$time = time::time_cond($time);
return '' if ( $time eq '' );
return $date . 'T' . $time;
return $date . 'T' . $time;
}
sub check_date {
my $date = shift;
my $date = shift;
return "" if ( ( !defined $date ) || ( $date eq '' ) );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
return $1 . '-' . $2 . '-' . $3;
} elsif ( $date =~ /(\d\d?)\.(\d\d?)\.(\d\d\d\d)/ ) {
return $3 . '-' . $2 . '-' . $1;
}
return $date if ( $date eq 'today' || $date eq 'tomorrow' || $date eq 'yesterday' );
return -1;
return "" if ( !defined $date ) || ( $date eq '' );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
return $1 . '-' . $2 . '-' . $3;
} elsif ( $date =~ /(\d\d?)\.(\d\d?)\.(\d\d\d\d)/ ) {
return $3 . '-' . $2 . '-' . $1;
}
return $date if ( $date eq 'today' || $date eq 'tomorrow' || $date eq 'yesterday' );
return -1;
#error("no valid date format given!");
#error("no valid date format given!");
}
sub check_time {
my $time = shift;
return "" if ( ( !defined $time ) || ( $time eq '' ) );
return $time if ( ( $time eq 'now' ) || ( $time eq 'future' ) );
if ( $time =~ /(\d\d?)\:(\d\d?)/ ) {
return $1 . ':' . $2;
}
return -1;
my $time = shift;
return "" if ( !defined $time ) || ( $time eq '' );
return $time if ( $time eq 'now' ) || ( $time eq 'future' );
if ( $time =~ /(\d\d?)\:(\d\d?)/ ) {
return $1 . ':' . $2;
}
return -1;
}
sub check_datetime {
my $date = shift;
my $date = shift;
return "" if ( ( !defined $date ) || ( $date eq '' ) );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[T ](\d\d?)\:(\d\d?)/ ) {
return sprintf( "%04d-%02d-%02dT%02d:%02d", $1, $2, $3, $4, $5 );
}
return -1;
return "" if ( !defined $date ) || ( $date eq '' );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[T ](\d\d?)\:(\d\d?)/ ) {
return sprintf( "%04d-%02d-%02dT%02d:%02d", $1, $2, $3, $4, $5 );
}
return -1;
}
sub check_year_month {
my $date = shift;
return -1 unless ( defined $date );
return $date if ( $date eq '' );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)/ ) {
return $1 . '-' . $2 . '-' . $3;
}
return -1;
my $date = shift;
return -1 unless ( defined $date );
return $date if ( $date eq '' );
if ( $date =~ /(\d\d\d\d)\-(\d\d?)/ ) {
return $1 . '-' . $2 . '-' . $3;
}
return -1;
}
#TODO: remove config dependency
sub date_time_format {
my $datetime = shift;
my $language = shift || $config::config->{date}->{language} || 'en';
if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[\sT](\d\d?\:\d\d?)/ ) {
my $time = $4;
my $day = $3;
my $month = $2;
my $year = $1;
my $datetime = shift;
my $language = shift || $config::config->{date}->{language} || 'en';
if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[\sT](\d\d?\:\d\d?)/ ) {
my $time = $4;
my $day = $3;
my $month = $2;
my $year = $1;
$month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
return "$day. $month $year $time";
}
return $datetime;
$month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
return "$day. $month $year $time";
}
return $datetime;
}
#format datetime to date string
#TODO: remove config dependency
sub date_format {
my $datetime = shift;
my $language = shift || $config::config->{date}->{language} || 'en';
my $datetime = shift;
my $language = shift || $config::config->{date}->{language} || 'en';
if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
my $day = $3;
my $month = $2;
my $year = $1;
$month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
return "$day. $month $year";
}
return $datetime;
if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
my $day = $3;
my $month = $2;
my $year = $1;
$month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
return "$day. $month $year";
}
return $datetime;
}
#format datetime to time string
sub time_format {
my $datetime = shift;
if ( defined $datetime && $datetime =~ /(\d\d?\:\d\d?)/ ) {
return $1;
}
return $datetime;
my $datetime = shift;
if ( defined $datetime && $datetime =~ /(\d\d?\:\d\d?)/ ) {
return $1;
}
return $datetime;
}
#get offset from given time_zone
sub utc_offset {
my $time_zone = shift;
my $time_zone = shift;
$a = DateTime->now();
$a->set_time_zone($time_zone);
return $a->strftime("%z");
$a = DateTime->now();
$a->set_time_zone($time_zone);
return $a->strftime("%z");
}
#get weekday from (yyyy,mm,dd)
sub weekday {
my ( $year, $month, $day ) = @_;
my $time = Time::Local::timelocal( 0, 0, 0, $day, $month - 1, $year );
return ( localtime($time) )[6];
my ( $year, $month, $day ) = @_;
my $time = Time::Local::timelocal( 0, 0, 0, $day, $month - 1, $year );
return ( localtime($time) )[6];
}
#get current date, related to starting day_starting_hour
#TODO: remove config dependency
sub get_event_date {
my $config = shift;
$config = $config::config unless defined $config;
my $config = shift;
$config = $config::config unless defined $config;
my $datetime = time::time_to_datetime( time() );
my $hour = ( time::datetime_to_array($datetime) )->[3];
my $datetime = time::time_to_datetime( time() );
my $hour = ( time::datetime_to_array($datetime) )->[3];
#print STDERR "datetime=$datetime hour=$hour\n";
#today: between 0:00 and starting_hour show last day
if ( $hour < $config->{date}->{day_starting_hour} ) {
my $date = time::datetime_to_array( time::add_days_to_datetime( $datetime, -1 ) );
return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
} else {
#print STDERR "datetime=$datetime hour=$hour\n";
#today: between 0:00 and starting_hour show last day
if ( $hour < $config->{date}->{day_starting_hour} ) {
my $date = time::datetime_to_array( time::add_days_to_datetime( $datetime, -1 ) );
return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
} else {
#today: between starting_hour and end of day show current day
my $date = time::datetime_to_array( time::time_to_datetime( time() ) );
return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
}
#today: between starting_hour and end of day show current day
my $date = time::datetime_to_array( time::time_to_datetime( time() ) );
return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
}
}
#get datetime object from datetime string
sub get_datetime {
my $datetime = shift;
my $timezone = shift;
my $datetime = shift;
my $timezone = shift;
return unless defined $datetime;
return if $datetime eq '';
my @l = @{ time::datetime_to_array($datetime) };
return undef if scalar(@l) == 0;
return unless defined $datetime;
return if $datetime eq '';
my @l = @{ time::datetime_to_array($datetime) };
return undef if scalar(@l) == 0;
# catch invalid datees
$datetime = undef;
eval {
$datetime = DateTime->new(
year => $l[0],
month => $l[1],
day => $l[2],
hour => $l[3],
minute => $l[4],
second => $l[5],
time_zone => $timezone
);
};
return undef unless defined $datetime;
$datetime->set_locale('de_DE');
return $datetime;
# catch invalid datees
$datetime = undef;
eval {
$datetime = DateTime->new(
year => $l[0],
month => $l[1],
day => $l[2],
hour => $l[3],
minute => $l[4],
second => $l[5],
time_zone => $timezone
);
};
return undef unless defined $datetime;
$datetime->set_locale('de_DE');
return $datetime;
}
#get list of nth weekday in month from start to end
sub get_nth_weekday_in_month {
my $start = shift; # datetime string
my $end = shift; # datetime string
my $nth = shift; # every nth week of month
my $weekday = shift; # weekday [1..7,'Mo'-'Su','Mo'-'Fr']
my $start = shift; # datetime string
my $end = shift; # datetime string
my $nth = shift; # every nth week of month
my $weekday = shift; # weekday [1..7,'Mo'-'Su','Mo'-'Fr']
return [] unless defined $start;
return [] unless defined $end;
return [] unless defined $nth;
return [] unless defined $weekday;
return [] unless defined $start;
return [] unless defined $end;
return [] unless defined $nth;
return [] unless defined $weekday;
my $weekdays = time::get_weekdays();
return [] unless defined $weekdays->{$weekday};
$weekday = $weekdays->{$weekday};
my $weekdays = time::get_weekdays();
return [] unless defined $weekdays->{$weekday};
$weekday = $weekdays->{$weekday};
my $dates = [];
my $dates = [];
if ( $start =~ /(\d\d\d\d)-(\d\d)-(\d\d)[ T](\d\d)\:(\d\d)/ ) {
my $hour = int($4);
my $min = int($5);
my $sec = 0;
my @date = Date::Manip::ParseRecur( "0:1*$nth:$weekday:$hour:$min:$sec", "", $start, $end );
for my $date (@date) {
if ( $date =~ /(\d\d\d\d)(\d\d)(\d\d)(\d\d)\:(\d\d)\:(\d\d)/ ) {
push @$dates, "$1-$2-$3 $4:$5:$6";
}
}
}
return $dates;
if ( $start =~ /(\d\d\d\d)-(\d\d)-(\d\d)[ T](\d\d)\:(\d\d)/ ) {
my $hour = int($4);
my $min = int($5);
my $sec = 0;
my @date = Date::Manip::ParseRecur( "0:1*$nth:$weekday:$hour:$min:$sec", "", $start, $end );
for my $date (@date) {
if ( $date =~ /(\d\d\d\d)(\d\d)(\d\d)(\d\d)\:(\d\d)\:(\d\d)/ ) {
push @$dates, "$1-$2-$3 $4:$5:$6";
}
}
}
return $dates;
}
#do not delete last line!

970
lib/calcms/uac.pm
View File

File diff suppressed because it is too large Load Diff

310
lib/calcms/user_settings.pm
View File

@@ -14,218 +14,218 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
our $defaultColors = [
{
name => 'color_event',
css => '#content .event',
color => '#c5e1a5'
},
{
name => 'color_draft',
css => '#content .draft',
color => '#eeeeee',
},
{
name => 'color_schedule',
css => '#content .schedule',
color => '#dde4e6',
},
{
name => 'color_published',
css => '#content .event.published',
color => '#a5d6a7',
},
{
name => 'color_no_series',
css => '#content .event.no_series',
color => '#fff59d',
},
{
name => 'color_marked',
css => '#content .event.marked',
color => '#81d4fa',
},
{
name => 'color_event_error',
css => '#content.conflicts .event.error',
color => '#ffab91',
},
{
name => 'color_schedule_error',
css => '#content.conflicts .schedule.error',
color => '#ffcc80'
},
{
name => 'color_work',
css => '#content .work',
color => '#b39ddb'
},
{
name => 'color_playout',
css => '#content .play',
color => '#90caf9'
}
{
name => 'color_event',
css => '#content .event',
color => '#c5e1a5'
},
{
name => 'color_draft',
css => '#content .draft',
color => '#eeeeee',
},
{
name => 'color_schedule',
css => '#content .schedule',
color => '#dde4e6',
},
{
name => 'color_published',
css => '#content .event.published',
color => '#a5d6a7',
},
{
name => 'color_no_series',
css => '#content .event.no_series',
color => '#fff59d',
},
{
name => 'color_marked',
css => '#content .event.marked',
color => '#81d4fa',
},
{
name => 'color_event_error',
css => '#content.conflicts .event.error',
color => '#ffab91',
},
{
name => 'color_schedule_error',
css => '#content.conflicts .schedule.error',
color => '#ffcc80'
},
{
name => 'color_work',
css => '#content .work',
color => '#b39ddb'
},
{
name => 'color_playout',
css => '#content .play',
color => '#90caf9'
}
];
sub getColors {
my $config = shift;
my $conditions = shift;
return unless defined $conditions->{user};
my $user = $conditions->{user};
my $config = shift;
my $conditions = shift;
return unless defined $conditions->{user};
my $user = $conditions->{user};
#get defaultColors
my $colors = [];
my $colorMap = {};
for my $defaultColor (@$defaultColors) {
my $color = {
name => $defaultColor->{name},
css => $defaultColor->{css},
color => $defaultColor->{color},
};
push @$colors, $color;
$colorMap->{ $color->{css} } = $color;
}
#get defaultColors
my $colors = [];
my $colorMap = {};
for my $defaultColor (@$defaultColors) {
my $color = {
name => $defaultColor->{name},
css => $defaultColor->{css},
color => $defaultColor->{color},
};
push @$colors, $color;
$colorMap->{ $color->{css} } = $color;
}
my $settings = user_settings::get( $config, { user => $user } );
$settings->{colors} |= '';
my $settings = user_settings::get( $config, { user => $user } );
$settings->{colors} |= '';
#overwrite colors from user settings
for my $line ( split( /\n+/, $settings->{colors} ) ) {
my ( $key, $value ) = split( /\=/, $line );
$key =~ s/^\s+//;
$key =~ s/\s+$//;
$value =~ s/^\s+//;
$value =~ s/\s+$//;
$colorMap->{$key}->{color} = $value if ( ( $key ne '' ) && ( $value ne '' ) && ( defined $colorMap->{$key} ) );
}
return $colors;
#overwrite colors from user settings
for my $line ( split( /\n+/, $settings->{colors} ) ) {
my ( $key, $value ) = split( /\=/, $line );
$key =~ s/^\s+//;
$key =~ s/\s+$//;
$value =~ s/^\s+//;
$value =~ s/\s+$//;
$colorMap->{$key}->{color} = $value if ( $key ne '' ) && ( $value ne '' ) && ( defined $colorMap->{$key} ) ;
}
return $colors;
}
sub getColorCss {
my $config = shift;
my $conditions = shift;
return unless defined $conditions->{user};
my $config = shift;
my $conditions = shift;
return unless defined $conditions->{user};
my $shift = 20;
my $limit = 220;
my $shift = 20;
my $limit = 220;
my $colors = getColors( $config, $conditions );
my $style = "<style>\n";
for my $color (@$colors) {
$style .= $color->{css} . "{\n\tbackground-color:" . $color->{color} . ";\n}\n";
my $c = $color->{color};
if ( $c =~ /#([a-fA-F0-9][a-fA-F0-9])([a-fA-F0-9][a-fA-F0-9])([a-fA-F0-9][a-fA-F0-9])/ ) {
my $r = hex($1);
my $g = hex($2);
my $b = hex($3);
if ( $r > $limit ) { $r -= $shift; }
else { $r += $shift; }
if ( $g > $limit ) { $g -= $shift; }
else { $g += $shift; }
if ( $b > $limit ) { $b -= $shift; }
else { $b += $shift; }
$c = sprintf( "#%x%x%x", $r, $g, $b );
$style .= $color->{css} . ":hover{\n\tbackground-color:" . $c . ";\n}\n";
}
}
$style .= "</style>\n";
return $style;
my $colors = getColors( $config, $conditions );
my $style = "<style>\n";
for my $color (@$colors) {
$style .= $color->{css} . "{\n\tbackground-color:" . $color->{color} . ";\n}\n";
my $c = $color->{color};
if ( $c =~ /#([a-fA-F0-9][a-fA-F0-9])([a-fA-F0-9][a-fA-F0-9])([a-fA-F0-9][a-fA-F0-9])/ ) {
my $r = hex($1);
my $g = hex($2);
my $b = hex($3);
if ( $r > $limit ) { $r -= $shift; }
else { $r += $shift; }
if ( $g > $limit ) { $g -= $shift; }
else { $g += $shift; }
if ( $b > $limit ) { $b -= $shift; }
else { $b += $shift; }
$c = sprintf( "#%x%x%x", $r, $g, $b );
$style .= $color->{css} . ":hover{\n\tbackground-color:" . $c . ";\n}\n";
}
}
$style .= "</style>\n";
return $style;
}
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_settings' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_settings' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
push @conditions, 'user=?';
push @bind_values, $condition->{user};
}
if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
push @conditions, 'user=?';
push @bind_values, $condition->{user};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select *
from calcms_user_settings
$conditions
};
#print $query."\n";
#print Dumper(\@bind_values);
#print $query."\n";
#print Dumper(\@bind_values);
my $entries = db::get( $dbh, $query, \@bind_values );
return $entries->[0] || undef;
my $entries = db::get( $dbh, $query, \@bind_values );
return $entries->[0] || undef;
}
sub insert {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return unless ( defined $entry->{user} );
return unless ( defined $entry->{colors} );
my $dbh = db::connect($config);
return db::insert( $dbh, 'calcms_user_settings', $entry );
return unless ( defined $entry->{user} );
return unless ( defined $entry->{colors} );
my $dbh = db::connect($config);
return db::insert( $dbh, 'calcms_user_settings', $entry );
}
sub update {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return unless ( defined $entry->{user} );
return unless ( defined $entry->{colors} );
return unless ( defined $entry->{user} );
return unless ( defined $entry->{colors} );
my $dbh = db::connect($config);
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{user};
my $dbh = db::connect($config);
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{user};
my $query = qq{
my $query = qq{
update calcms_user_settings
set $values
where user=?
};
db::put( $dbh, $query, \@bind_values );
print "done\n";
db::put( $dbh, $query, \@bind_values );
print "done\n";
}
sub delete {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return unless ( defined $entry->{user} );
return unless ( defined $entry->{user} );
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $query = qq{
my $query = qq{
delete
from calcms_user_settings
where user=?
};
my $bind_values = [ $entry->{user} ];
my $bind_values = [ $entry->{user} ];
#print '<pre>$query'.$query.Dumper($bind_values).'</pre>';
db::put( $dbh, $query, $bind_values );
#print '<pre>$query'.$query.Dumper($bind_values).'</pre>';
db::put( $dbh, $query, $bind_values );
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

300
lib/calcms/user_stats.pm
View File

@@ -13,55 +13,55 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_stats' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_stats' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
push @conditions, 'user=?';
push @bind_values, $condition->{user};
}
if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
push @conditions, 'user=?';
push @bind_values, $condition->{user};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select *
from calcms_user_stats
$conditions
@@ -69,50 +69,50 @@ sub get {
$limit
};
#print STDERR Dumper($query).Dumper(\@bind_values);
#print STDERR Dumper($query).Dumper(\@bind_values);
my $results = db::get( $dbh, $query, \@bind_values );
return $results;
my $results = db::get( $dbh, $query, \@bind_values );
return $results;
}
sub get_stats {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
push @conditions, 'series_id=?';
push @bind_values, $condition->{series_id};
}
if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
push @conditions, 'user=?';
push @bind_values, $condition->{user};
}
if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
push @conditions, 'user=?';
push @bind_values, $condition->{user};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $limit = '';
if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
$limit = 'limit ' . $condition->{limit};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select user, project_id, studio_id,
max(modified_at) modified_at,
sum(create_events) create_events,
@@ -127,126 +127,126 @@ sub get_stats {
$limit
};
#print STDERR Dumper($query).Dumper(\@bind_values);
#print STDERR Dumper($query).Dumper(\@bind_values);
my $results = db::get( $dbh, $query, \@bind_values );
for my $result (@$results) {
$result->{score} = 0;
for my $column ( 'create_events', 'update_events', 'delete_events', 'create_series', 'update_series', 'delete_series' ) {
$result->{score} += $result->{$column};
}
}
my @results = reverse sort { $a->{score} <=> $b->{score} } @$results;
return \@results;
my $results = db::get( $dbh, $query, \@bind_values );
for my $result (@$results) {
$result->{score} = 0;
for my $column ( 'create_events', 'update_events', 'delete_events', 'create_series', 'update_series', 'delete_series' ) {
$result->{score} += $result->{$column};
}
}
my @results = reverse sort { $a->{score} <=> $b->{score} } @$results;
return \@results;
}
sub insert {
my $config = shift;
my $stats = shift;
my $config = shift;
my $stats = shift;
return undef unless defined $stats->{project_id};
return undef unless defined $stats->{studio_id};
return undef unless defined $stats->{series_id};
return undef unless defined $stats->{user};
return undef unless defined $stats->{project_id};
return undef unless defined $stats->{studio_id};
return undef unless defined $stats->{series_id};
return undef unless defined $stats->{user};
#TODO:filter for existing attributes
my $columns = get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $stats->{$column} if defined $stats->{$column};
}
$entry->{modified_at} = time::time_to_datetime( time() );
#TODO:filter for existing attributes
my $columns = get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $stats->{$column} if defined $stats->{$column};
}
$entry->{modified_at} = time::time_to_datetime( time() );
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_user_stats', $entry );
return $id;
my $dbh = db::connect($config);
my $id = db::insert( $dbh, 'calcms_user_stats', $entry );
return $id;
}
# update project
sub update {
my $config = shift;
my $stats = shift;
my $config = shift;
my $stats = shift;
return undef unless defined $stats->{project_id};
return undef unless defined $stats->{studio_id};
return undef unless defined $stats->{series_id};
return undef unless defined $stats->{user};
return undef unless defined $stats->{project_id};
return undef unless defined $stats->{studio_id};
return undef unless defined $stats->{series_id};
return undef unless defined $stats->{user};
my $columns = get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $stats->{$column} if defined $stats->{$column};
}
$entry->{modified_at} = time::time_to_datetime( time() );
my $columns = get_columns($config);
my $entry = {};
for my $column ( keys %$columns ) {
$entry->{$column} = $stats->{$column} if defined $stats->{$column};
}
$entry->{modified_at} = time::time_to_datetime( time() );
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{user};
push @bind_values, $entry->{project_id};
push @bind_values, $entry->{studio_id};
push @bind_values, $entry->{series_id};
my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
my @bind_values = map { $entry->{$_} } ( keys %$entry );
push @bind_values, $entry->{user};
push @bind_values, $entry->{project_id};
push @bind_values, $entry->{studio_id};
push @bind_values, $entry->{series_id};
my $query = qq{
my $query = qq{
update calcms_user_stats
set $values
where user=? and project_id=? and studio_id=? and series_id=?
};
#print STDERR Dumper($query).Dumper(\@bind_values);
my $dbh = db::connect($config);
return db::put( $dbh, $query, \@bind_values );
#print STDERR Dumper($query).Dumper(\@bind_values);
my $dbh = db::connect($config);
return db::put( $dbh, $query, \@bind_values );
}
sub increase {
my $config = shift;
my $usecase = shift;
my $options = shift;
my $config = shift;
my $usecase = shift;
my $options = shift;
#print STDERR Dumper($usecase)." ".Dumper($options);
#print STDERR Dumper($usecase)." ".Dumper($options);
return undef unless defined $usecase;
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
return undef unless defined $options->{series_id};
return undef unless defined $options->{user};
return undef unless defined $usecase;
return undef unless defined $options->{project_id};
return undef unless defined $options->{studio_id};
return undef unless defined $options->{series_id};
return undef unless defined $options->{user};
#print STDERR "ok\n";
#print STDERR "ok\n";
my $columns = get_columns($config);
my $columns = get_columns($config);
#print STDERR "columns:".Dumper($columns);
return undef unless defined $columns->{$usecase};
#print STDERR "columns:".Dumper($columns);
return undef unless defined $columns->{$usecase};
my $entries = get( $config, $options );
my $entries = get( $config, $options );
#print STDERR "exist:".Dumper($columns);
#print STDERR "exist:".Dumper($columns);
if ( @$entries == 0 ) {
my $entry = {
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
user => $options->{user},
$usecase => 1,
};
if ( scalar @$entries == 0 ) {
my $entry = {
project_id => $options->{project_id},
studio_id => $options->{studio_id},
series_id => $options->{series_id},
user => $options->{user},
$usecase => 1,
};
#print STDERR "user_stats::insert\n";
return insert( $config, $entry );
} elsif ( @$entries == 1 ) {
my $entry = $entries->[0];
$entry->{$usecase}++ if defined
#print STDERR "user_stats::insert\n";
return insert( $config, $entry );
} elsif ( scalar @$entries == 1 ) {
my $entry = $entries->[0];
$entry->{$usecase}++ if defined
#print STDERR "user_stats::update\n";
return update( $config, $entry );
} else {
print STDERR "user_stats: to few options given: $usecase," . Dumper($options) . "\n";
}
#print STDERR "user_stats::update\n";
return update( $config, $entry );
} else {
print STDERR "user_stats: to few options given: $usecase," . Dumper($options) . "\n";
}
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

512
lib/calcms/work_dates.pm
View File

@@ -22,80 +22,80 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
my $config = shift;
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_work_dates' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_work_dates' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
# get all work_dates for studio_id and schedule_id within given time range
# calculate start_date, end_date, weeday, day from start and end(datetime)
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
my $date_range_include = 0;
$date_range_include = 1 if ( defined $condition->{date_range_include} ) && ( $condition->{date_range_include} == 1 );
my $date_range_include = 0;
$date_range_include = 1 if ( defined $condition->{date_range_include} ) && ( $condition->{date_range_include} == 1 );
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my @conditions = ();
my @bind_values = ();
my @conditions = ();
my @bind_values = ();
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
push @conditions, 'project_id=?';
push @bind_values, $condition->{project_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
push @conditions, 'studio_id=?';
push @bind_values, $condition->{studio_id};
}
if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
push @conditions, 'schedule_id=?';
push @bind_values, $condition->{schedule_id};
}
if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
push @conditions, 'schedule_id=?';
push @bind_values, $condition->{schedule_id};
}
if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
push @conditions, 'start=?';
push @bind_values, $condition->{start_at};
}
if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
push @conditions, 'start=?';
push @bind_values, $condition->{start_at};
}
if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'end_date>=?';
push @bind_values, $condition->{from};
} else {
push @conditions, 'start_date>=?';
push @bind_values, $condition->{from};
}
}
if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'end_date>=?';
push @bind_values, $condition->{from};
} else {
push @conditions, 'start_date>=?';
push @bind_values, $condition->{from};
}
}
if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'start_date<=?';
push @bind_values, $condition->{till};
} else {
push @conditions, 'end_date<=?';
push @bind_values, $condition->{till};
}
}
if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
if ( $date_range_include == 1 ) {
push @conditions, 'start_date<=?';
push @bind_values, $condition->{till};
} else {
push @conditions, 'end_date<=?';
push @bind_values, $condition->{till};
}
}
if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
push @conditions, 'exclude=?';
push @bind_values, $condition->{exclude};
}
if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
push @conditions, 'exclude=?';
push @bind_values, $condition->{exclude};
}
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $conditions = '';
$conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{
my $query = qq{
select date(start) start_date
,date(end) end_date
,dayname(start) weekday
@@ -114,281 +114,281 @@ sub get {
order by start
};
#print STDERR $query."\n";
#print STDERR Dumper(\@bind_values);
#print STDERR $query."\n";
#print STDERR Dumper(\@bind_values);
my $entries = db::get( $dbh, $query, \@bind_values );
for my $entry (@$entries) {
$entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
}
my $entries = db::get( $dbh, $query, \@bind_values );
for my $entry (@$entries) {
$entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
}
return $entries;
return $entries;
}
#update work dates for all schedules of a work and studio_id
sub update {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{schedule_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{schedule_id};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
#delete all existing work dates (by project, studio and schedule id)
work_dates::delete( $config, $entry );
#delete all existing work dates (by project, studio and schedule id)
work_dates::delete( $config, $entry );
my $day_start = $config->{date}->{day_starting_hour};
my $day_start = $config->{date}->{day_starting_hour};
#get all schedules for schedule id ordered by exclude, date
my $schedules = work_schedule::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
schedule_id => $entry->{schedule_id},
}
);
#get all schedules for schedule id ordered by exclude, date
my $schedules = work_schedule::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
schedule_id => $entry->{schedule_id},
}
);
#add scheduled work dates and remove exluded dates
my $work_dates = {};
#add scheduled work dates and remove exluded dates
my $work_dates = {};
#TODO:set schedules exclude to 0 if not 1
#insert all normal dates (not excludes)
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 0 } );
for my $date (@$dates) {
$date->{exclude} = 0;
$work_dates->{ $date->{start} } = $date;
#TODO:set schedules exclude to 0 if not 1
#insert all normal dates (not excludes)
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 0 } );
for my $date (@$dates) {
$date->{exclude} = 0;
$work_dates->{ $date->{start} } = $date;
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#insert / overwrite all exlude dates
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 1 } );
for my $date (@$dates) {
$date->{exclude} = 1;
$work_dates->{ $date->{start} } = $date;
#insert / overwrite all exlude dates
for my $schedule (@$schedules) {
my $dates = get_schedule_dates( $schedule, { exclude => 1 } );
for my $date (@$dates) {
$date->{exclude} = 1;
$work_dates->{ $date->{start} } = $date;
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
}
}
#print STDERR Dumper($work_dates->{'2014-02-05 19:00:00'});
#print STDERR Dumper($work_dates->{'2014-02-05 19:00:00'});
my $request = { config => $config };
my $request = { config => $config };
my $i = 0;
my $j = 0;
for my $date ( keys %$work_dates ) {
my $work_date = $work_dates->{$date};
my $i = 0;
my $j = 0;
for my $date ( keys %$work_dates ) {
my $work_date = $work_dates->{$date};
#insert date
my $entry = {
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
schedule_id => $entry->{schedule_id},
title => $entry->{title},
type => $entry->{type},
schedule_id => $entry->{schedule_id},
start => $work_date->{start},
end => $work_date->{end},
exclude => $work_date->{exclude}
};
if ( studio_timeslot_dates::can_studio_edit_events( $config, $entry ) == 1 ) { # by studio_id, start, end
$entry->{start_date} = time::add_hours_to_datetime( $entry->{start}, -$day_start );
$entry->{end_date} = time::add_hours_to_datetime( $entry->{end}, -$day_start );
db::insert( $dbh, 'calcms_work_dates', $entry );
#insert date
my $entry = {
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
schedule_id => $entry->{schedule_id},
title => $entry->{title},
type => $entry->{type},
schedule_id => $entry->{schedule_id},
start => $work_date->{start},
end => $work_date->{end},
exclude => $work_date->{exclude}
};
if ( studio_timeslot_dates::can_studio_edit_events( $config, $entry ) == 1 ) { # by studio_id, start, end
$entry->{start_date} = time::add_hours_to_datetime( $entry->{start}, -$day_start );
$entry->{end_date} = time::add_hours_to_datetime( $entry->{end}, -$day_start );
db::insert( $dbh, 'calcms_work_dates', $entry );
#print STDERR "$entry->{start_date}\n";
$i++;
} else {
$j++;
#print STDERR "$entry->{start_date}\n";
$i++;
} else {
$j++;
#print STDERR Dumper($entry);
}
}
#print STDERR Dumper($entry);
}
}
#print STDERR "$i work_dates updates\n";
return $j . " dates out of studio times, " . $i;
#print STDERR "$i work_dates updates\n";
return $j . " dates out of studio times, " . $i;
}
sub get_schedule_dates {
my $schedule = shift;
my $options = shift;
my $schedule = shift;
my $options = shift;
my $is_exclude = $options->{exclude} || 0;
my $dates = [];
return $dates if ( ( $is_exclude eq '1' ) && ( $schedule->{exclude} ne '1' ) );
return $dates if ( ( $is_exclude eq '0' ) && ( $schedule->{exclude} eq '1' ) );
my $is_exclude = $options->{exclude} || 0;
my $dates = [];
return $dates if ( $is_exclude eq '1' ) && ( $schedule->{exclude} ne '1' );
return $dates if ( $is_exclude eq '0' ) && ( $schedule->{exclude} eq '1' );
if ( $schedule->{period_type} eq 'single' ) {
$dates = get_single_date( $schedule->{start}, $schedule->{duration} );
} elsif ( $schedule->{period_type} eq 'days' ) {
$dates = get_dates( $schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{frequency} );
} elsif ( $schedule->{period_type} eq 'week_of_month' ) {
$dates = get_week_of_month_dates(
$schedule->{start}, $schedule->{end}, $schedule->{duration},
$schedule->{week_of_month}, $schedule->{weekday}, $schedule->{month}
);
} else {
print STDERR "unknown schedule period_type\n";
}
return $dates;
if ( $schedule->{period_type} eq 'single' ) {
$dates = get_single_date( $schedule->{start}, $schedule->{duration} );
} elsif ( $schedule->{period_type} eq 'days' ) {
$dates = get_dates( $schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{frequency} );
} elsif ( $schedule->{period_type} eq 'week_of_month' ) {
$dates = get_week_of_month_dates(
$schedule->{start}, $schedule->{end}, $schedule->{duration},
$schedule->{week_of_month}, $schedule->{weekday}, $schedule->{month}
);
} else {
print STDERR "unknown schedule period_type\n";
}
return $dates;
}
sub get_week_of_month_dates {
my $start = shift; # datetime string
my $end = shift; # datetime string
my $duration = shift; # in minutes
my $week = shift; # every nth week of month
my $weekday = shift; # weekday [1..7]
my $frequency = shift; # every 1st,2nd,3th time
my $start = shift; # datetime string
my $end = shift; # datetime string
my $duration = shift; # in minutes
my $week = shift; # every nth week of month
my $weekday = shift; # weekday [1..7]
my $frequency = shift; # every 1st,2nd,3th time
return undef if $start eq '';
return undef if $end eq '';
return undef if $duration eq '';
return undef if $week eq '';
return undef if $weekday eq '';
return undef if $frequency eq '';
return undef if $frequency == 0;
return undef if $start eq '';
return undef if $end eq '';
return undef if $duration eq '';
return undef if $week eq '';
return undef if $weekday eq '';
return undef if $frequency eq '';
return undef if $frequency == 0;
my $start_dates = time::get_nth_weekday_in_month( $start, $end, $week, $weekday );
my $start_dates = time::get_nth_weekday_in_month( $start, $end, $week, $weekday );
my $results = [];
my $results = [];
my $c = -1;
for my $start_datetime (@$start_dates) {
$c++;
my @start = @{ time::datetime_to_array($start_datetime) };
next unless @start >= 6;
next if ( ( $c % $frequency ) != 0 );
my $c = -1;
for my $start_datetime (@$start_dates) {
$c++;
my @start = @{ time::datetime_to_array($start_datetime) };
next unless @start >= 6;
next if ( $c % $frequency ) != 0;
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $end_datetime = time::array_to_datetime( \@end_datetime );
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $end_datetime = time::array_to_datetime( \@end_datetime );
push @$results,
{
start => $start_datetime,
end => $end_datetime
};
}
return $results;
push @$results,
{
start => $start_datetime,
end => $end_datetime
};
}
return $results;
}
#add duration to a single date
sub get_single_date {
my $start_datetime = shift;
my $duration = shift;
my $start_datetime = shift;
my $duration = shift;
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $date = {
start => $start_datetime,
end => time::array_to_datetime( \@end_datetime )
};
return [$date];
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$start[0], $start[1], $start[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
my $date = {
start => $start_datetime,
end => time::array_to_datetime( \@end_datetime )
};
return [$date];
}
#calculate all dates between start_datetime and end_date with duration(minutes) and frequency(days)
sub get_dates {
my $start_datetime = shift;
my $end_date = shift;
my $duration = shift; # in minutes
my $frequency = shift; # in days
#print "start_datetime:$start_datetime end_date:$end_date duration:$duration frequency:$frequency\n";
my $start_datetime = shift;
my $end_date = shift;
my $duration = shift; # in minutes
my $frequency = shift; # in days
#print "start_datetime:$start_datetime end_date:$end_date duration:$duration frequency:$frequency\n";
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @start_date = ( $start[0], $start[1], $start[2] );
my $start_time = sprintf( '%02d:%02d:%02d', $start[3], $start[4], $start[5] );
my @start = @{ time::datetime_to_array($start_datetime) };
return unless @start >= 6;
my @start_date = ( $start[0], $start[1], $start[2] );
my $start_time = sprintf( '%02d:%02d:%02d', $start[3], $start[4], $start[5] );
#print STDERR "$start_datetime,$end_date,$duration,$frequency\n";
#print STDERR "$start_datetime,$end_date,$duration,$frequency\n";
#return on single date
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @start_date ) . ' ' . $start_time;
return undef if $duration eq '';
#return on single date
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @start_date ) . ' ' . $start_time;
return undef if $duration eq '';
return undef if ( ( $frequency eq '' ) || ( $end_date eq '' ) );
return undef if ( $frequency eq '' ) || ( $end_date eq '' );
#continue on recurring date
my @end = @{ time::datetime_to_array($end_date) };
return unless @end >= 3;
my @end_date = ( $end[0], $end[1], $end[2] );
#continue on recurring date
my @end = @{ time::datetime_to_array($end_date) };
return unless @end >= 3;
my @end_date = ( $end[0], $end[1], $end[2] );
my $today = time::time_to_date();
my ( $year, $month, $day ) = split( /\-/, $today );
my $today = time::time_to_date();
my ( $year, $month, $day ) = split( /\-/, $today );
#do not show dates one month back
my $not_before = sprintf( "%04d-%02d-%02d", Date::Calc::Add_Delta_Days( $year, $month, $day, -30 ) );
#do not show dates one month back
my $not_before = sprintf( "%04d-%02d-%02d", Date::Calc::Add_Delta_Days( $year, $month, $day, -30 ) );
my $dates = [];
return $dates if ( $end_date lt $today );
return $dates if ( $frequency < 1 );
my $dates = [];
return $dates if ( $end_date lt $today );
return $dates if ( $frequency < 1 );
my $j = Date::Calc::Delta_Days( @start_date, @end_date );
my $c = 0;
for ( my $i = 0 ; $i <= $j ; $i += $frequency ) {
my @date = Date::Calc::Add_Delta_Days( $start[0], $start[1], $start[2], $i );
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @date ) . ' ' . $start_time;
my $j = Date::Calc::Delta_Days( @start_date, @end_date );
my $c = 0;
for ( my $i = 0 ; $i <= $j ; $i += $frequency ) {
my @date = Date::Calc::Add_Delta_Days( $start[0], $start[1], $start[2], $i );
my $date = {};
$date->{start} = sprintf( "%04d-%02d-%02d", @date ) . ' ' . $start_time;
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$date[0], $date[1], $date[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
$date->{end} = time::array_to_datetime( \@end_datetime );
my @end_datetime = Date::Calc::Add_Delta_DHMS(
$date[0], $date[1], $date[2], # start date
$start[3], $start[4], $start[5], # start time
0, 0, $duration, 0 # delta days, hours, minutes, seconds
);
$date->{end} = time::array_to_datetime( \@end_datetime );
last if ( $c > 200 );
$c++;
last if ( $c > 200 );
$c++;
next if $date->{end} lt $not_before;
push @$dates, $date;
next if $date->{end} lt $not_before;
push @$dates, $date;
}
return $dates;
}
return $dates;
}
#remove all work_dates for studio_id and schedule_id
sub delete {
my $config = shift;
my $entry = shift;
my $config = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{schedule_id};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{schedule_id};
my $dbh = db::connect($config);
my $dbh = db::connect($config);
my $query = qq{
my $query = qq{
delete
from calcms_work_dates
where project_id=? and studio_id=? and schedule_id=?
};
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{schedule_id} ];
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{schedule_id} ];
#print '<pre>$query'.$query.Dumper($bind_values).'</pre>';
return db::put( $dbh, $query, $bind_values );
#print '<pre>$query'.$query.Dumper($bind_values).'</pre>';
return db::put( $dbh, $query, $bind_values );
}
sub error {
my $msg = shift;
print "ERROR: $msg<br/>\n";
my $msg = shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!

267
website/agenda/planung/assign_series.cgi
View File

@@ -2,7 +2,6 @@
use warnings "all";
use strict;
use Data::Dumper;
use URI::Escape();
use Encode();
@@ -32,30 +31,30 @@ my $r = shift;
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 '' ) );
return if ( !defined $user ) || ( $user eq '' );
#print STDERR $params->{project_id}."\n";
my $user_presets = uac::get_user_presets(
$config,
{
project_id => $params->{project_id},
studio_id => $params->{studio_id},
user => $user
}
$config,
{
project_id => $params->{project_id},
studio_id => $params->{studio_id},
user => $user
}
);
$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' ) );
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' ) );
if ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
#print STDERR $params->{project_id}."\n";
my $request = {
url => $ENV{QUERY_STRING} || '',
params => {
original => $params,
checked => check_params($params),
},
url => $ENV{QUERY_STRING} || '',
params => {
original => $params,
checked => check_params($params),
},
};
$request = uac::prepare_request( $request, $user_presets );
@@ -76,170 +75,170 @@ print q{
my $permissions = $request->{permissions};
unless ( $permissions->{scan_series_events} == 1 ) {
uac::permissions_denied('scan_series_events');
return;
uac::permissions_denied('scan_series_events');
return;
}
if ( defined $params->{action} ) {
assign_series( $config, $request ) if ( $params->{action} eq 'assign_series' );
assign_series( $config, $request ) if $params->{action} eq 'assign_series';
}
show_events( $config, $request );
sub show_events {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $projects = project::get( $config, { project_id => $params->{project_id} } );
my $project = $projects->[0];
return unless ( @$projects == 1 );
my $projects = project::get( $config, { project_id => $params->{project_id} } );
my $project = $projects->[0];
return unless scalar @$projects == 1 ;
my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
my $studio = $studios->[0];
return unless ( @$studios == 1 );
my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
my $studio = $studios->[0];
return unless scalar @$studios == 1 ;
my $project_name = $project->{name};
my $studio_name = $studio->{location};
my $project_name = $project->{name};
my $studio_name = $studio->{location};
#get series_names
my $dbh = db::connect($config);
my $query = q{
#get series_names
my $dbh = db::connect($config);
my $query = q{
select project_id, studio_id, series_id, series_name, title
from calcms_series s, calcms_project_series ps
where s.id=ps.series_id
order by series_name, title
};
my $results = db::get( $dbh, $query );
my $results = db::get( $dbh, $query );
# get projects by id
my $projects_by_id = {};
$projects = project::get($config);
for my $project (@$projects) {
$projects_by_id->{ $project->{project_id} } = $project;
}
# get projects by id
my $projects_by_id = {};
$projects = project::get($config);
for my $project (@$projects) {
$projects_by_id->{ $project->{project_id} } = $project;
}
# get studios by id
my $studios_by_id = {};
$studios = studios::get($config);
for my $studio (@$studios) {
$studios_by_id->{ $studio->{id} } = $studio;
}
# get studios by id
my $studios_by_id = {};
$studios = studios::get($config);
for my $studio (@$studios) {
$studios_by_id->{ $studio->{id} } = $studio;
}
#add project and studio name to series
for my $result (@$results) {
$result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
$result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
$result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
}
$params->{series} = $results;
#add project and studio name to series
for my $result (@$results) {
$result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
$result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
$result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
}
$params->{series} = $results;
#fill template
$params->{project_name} = $project_name;
$params->{studio_name} = $studio_name;
#fill template
$params->{project_name} = $project_name;
$params->{studio_name} = $studio_name;
template::process( 'print', $params->{template}, $params );
template::process( 'print', $params->{template}, $params );
}
sub assign_series {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $entry = {};
for my $attr ( 'project_id', 'studio_id', 'series_id' ) {
if ( defined $params->{$attr} ) {
$entry->{$attr} = $params->{$attr};
} else {
uac::print_error( $attr . ' not given!' );
return;
}
}
my $entry = {};
for my $attr ( 'project_id', 'studio_id', 'series_id' ) {
if ( defined $params->{$attr} ) {
$entry->{$attr} = $params->{$attr};
} else {
uac::print_error( $attr . ' not given!' );
return;
}
}
$config->{access}->{write} = 1;
$config->{access}->{write} = 1;
#check if series is assigned to project/studio
my $series = series::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
#check if series is assigned to project/studio
my $series = series::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
#print Dumper($series);
if ( @$series == 0 ) {
#print Dumper($series);
if ( @$series == 0 ) {
# assign series to project/studio
project::assign_series(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
# assign series to project/studio
project::assign_series(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
#print "assign\n";
} else {
print STDERR
#print "assign\n";
} else {
print STDERR
"event $entry->{event_id} already assigned to project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}\n";
#print "is schon\n";
}
#print "is schon\n";
}
$config->{access}->{write} = 0;
uac::print_info("event successfully assigned to series");
$config->{access}->{write} = 0;
uac::print_info("event successfully assigned to series");
}
sub check_params {
my $params = shift;
my $params = shift;
my $checked = {};
my $checked = {};
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;
#actions and roles
$checked->{action} = '';
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(assign_series)$/ ) {
$checked->{action} = $params->{action};
}
}
#actions and roles
$checked->{action} = '';
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(assign_series)$/ ) {
$checked->{action} = $params->{action};
}
}
#numeric values
$checked->{exclude} = 0;
for my $param ( 'id', 'project_id', 'studio_id', 'series_id' ) {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
$checked->{$param} = $params->{$param};
}
}
#numeric values
$checked->{exclude} = 0;
for my $param ( 'id', 'project_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;
}
if ( defined $checked->{studio_id} ) {
$checked->{default_studio_id} = $checked->{studio_id};
} else {
$checked->{studio_id} = -1;
}
$checked->{template} = template::check( $params->{template}, 'assign_series' );
$checked->{template} = template::check( $params->{template}, 'assign_series' );
return $checked;
return $checked;
}
__DATA__

554
website/agenda/planung/assignments.cgi
View File

@@ -36,26 +36,26 @@ return if ( ( !defined $user ) || ( $user eq '' ) );
#print STDERR $params->{project_id}."\n";
my $user_presets = uac::get_user_presets(
$config,
{
project_id => $params->{project_id},
studio_id => $params->{studio_id},
user => $user
}
$config,
{
project_id => $params->{project_id},
studio_id => $params->{studio_id},
user => $user
}
);
$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' ) );
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' ) );
if ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
#print STDERR $params->{project_id}."\n";
my $request = {
url => $ENV{QUERY_STRING} || '',
params => {
original => $params,
checked => check_params($params),
},
url => $ENV{QUERY_STRING} || '',
params => {
original => $params,
checked => check_params($params),
},
};
$request = uac::prepare_request( $request, $user_presets );
@@ -76,86 +76,86 @@ print q{
my $permissions = $request->{permissions};
unless ( $permissions->{scan_series_events} == 1 ) {
uac::permissions_denied('scan_series_events');
return;
uac::permissions_denied('scan_series_events');
return;
}
if ( defined $params->{action} ) {
assign_events( $config, $request ) if ( $params->{action} eq 'assign_events' );
assign_events( $config, $request ) if ( $params->{action} eq 'assign_events' );
}
show_events( $config, $request );
sub show_events {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $projects = project::get( $config, { project_id => $params->{project_id} } );
my $project = $projects->[0];
my $projects = project::get( $config, { project_id => $params->{project_id} } );
my $project = $projects->[0];
#print STDERR Dumper($project);
return unless ( @$projects == 1 );
#print STDERR Dumper($project);
return unless ( @$projects == 1 );
my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
my $studio = $studios->[0];
my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
my $studio = $studios->[0];
#print STDERR Dumper($studio);
return unless ( @$studios == 1 );
#print STDERR Dumper($studio);
return unless ( @$studios == 1 );
my $project_name = $project->{name};
my $studio_name = $studio->{location};
my $project_name = $project->{name};
my $studio_name = $studio->{location};
#get series_names
my $dbh = db::connect($config);
my $query = q{
#get series_names
my $dbh = db::connect($config);
my $query = q{
select project_id, studio_id, series_id, series_name, title
from calcms_series s, calcms_project_series ps
where s.id=ps.series_id
order by series_name, title
};
my $results = db::get( $dbh, $query );
my $results = db::get( $dbh, $query );
# get projects by id
my $projects_by_id = {};
$projects = project::get($config);
for my $project (@$projects) {
$projects_by_id->{ $project->{project_id} } = $project;
}
# get projects by id
my $projects_by_id = {};
$projects = project::get($config);
for my $project (@$projects) {
$projects_by_id->{ $project->{project_id} } = $project;
}
# get studios by id
my $studios_by_id = {};
$studios = studios::get($config);
for my $studio (@$studios) {
$studios_by_id->{ $studio->{id} } = $studio;
}
# get studios by id
my $studios_by_id = {};
$studios = studios::get($config);
for my $studio (@$studios) {
$studios_by_id->{ $studio->{id} } = $studio;
}
#add project and studio name to series
for my $result (@$results) {
$result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
$result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
$result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
}
$params->{series} = $results;
#add project and studio name to series
for my $result (@$results) {
$result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
$result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
$result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
}
$params->{series} = $results;
# get events not assigned to series
my $conditions = [];
my $bind_values = [];
if ( $project_name ne '' ) {
push @$conditions, 'e.project=?';
push @$bind_values, $project_name;
}
if ( $studio_name ne '' ) {
push @$conditions, 'e.location=?';
push @$bind_values, $studio_name;
}
$conditions = ' and ' . join( ' and ', @$conditions ) if ( @$conditions > 0 );
$query = qq{
# get events not assigned to series
my $conditions = [];
my $bind_values = [];
if ( $project_name ne '' ) {
push @$conditions, 'e.project=?';
push @$bind_values, $project_name;
}
if ( $studio_name ne '' ) {
push @$conditions, 'e.location=?';
push @$bind_values, $studio_name;
}
$conditions = ' and ' . join( ' and ', @$conditions ) if scalar(@$conditions) > 0;
$query = qq{
select e.id, program, project, location, start, series_name, title, episode, rerun
from calcms_events e left join calcms_series_events se on se.event_id =e.id
where se.event_id is null
@@ -163,252 +163,252 @@ sub show_events {
order by series_name,title,start
limit 1000
};
print '<pre>' . Dumper($query) . Dumper($bind_values) . '</pre>';
$results = db::get( $dbh, $query, $bind_values );
print '<pre>' . Dumper($query) . Dumper($bind_values) . '</pre>';
$results = db::get( $dbh, $query, $bind_values );
# detect title and episode
for my $result (@$results) {
$result->{rerun} .= '';
if ( $result->{title} =~ /\#(\d+)([a-z])?\s*$/ ) {
$result->{episode} = $1 unless defined $result->{episode};
$result->{rerun} = $2 || '' unless ( $result->{rerun} =~ /\d/ );
$result->{title} =~ s/\#\d+[a-z]?\s*$//;
$result->{title} =~ s/\s+$//;
}
my $a = time::datetime_to_array( $result->{start} );
# detect title and episode
for my $result (@$results) {
$result->{rerun} .= '';
if ( $result->{title} =~ /\#(\d+)([a-z])?\s*$/ ) {
$result->{episode} = $1 unless defined $result->{episode};
$result->{rerun} = $2 || '' unless ( $result->{rerun} =~ /\d/ );
$result->{title} =~ s/\#\d+[a-z]?\s*$//;
$result->{title} =~ s/\s+$//;
}
my $a = time::datetime_to_array( $result->{start} );
#print STDERR "($a->[0],$a->[1],$a->[2])\n";
$result->{weekday} = time::weekday( $a->[0], $a->[1], $a->[2] );
$result->{weekday} = $time::names->{de}->{weekdays_abbr}->[ $result->{weekday} - 1 ];
}
#print STDERR "($a->[0],$a->[1],$a->[2])\n";
$result->{weekday} = time::weekday( $a->[0], $a->[1], $a->[2] );
$result->{weekday} = $time::names->{de}->{weekdays_abbr}->[ $result->{weekday} - 1 ];
}
#fill template
$params->{unassigned_events} = $results;
$params->{sum_events} = @$results;
$params->{project_name} = $project_name;
$params->{studio_name} = $studio_name;
#fill template
$params->{unassigned_events} = $results;
$params->{sum_events} = @$results;
$params->{project_name} = $project_name;
$params->{studio_name} = $studio_name;
template::process( 'print', $params->{template}, $params );
template::process( 'print', $params->{template}, $params );
}
sub assign_events {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
return;
}
my $entry = {};
for my $attr ( 'project_id', 'studio_id', 'series_id', 'event_ids' ) {
if ( defined $params->{$attr} ) {
$entry->{$attr} = $params->{$attr};
} else {
uac::print_error( $attr . ' not given!' );
return;
}
}
my $entry = {};
for my $attr ( 'project_id', 'studio_id', 'series_id', 'event_ids' ) {
if ( defined $params->{$attr} ) {
$entry->{$attr} = $params->{$attr};
} else {
uac::print_error( $attr . ' not given!' );
return;
}
}
$config->{access}->{write} = 1;
for my $event_id ( split( /[\,\s]+/, $params->{event_ids} ) ) {
next unless $event_id =~ /^\d+/;
$entry->{event_id} = $event_id;
$config->{access}->{write} = 1;
for my $event_id ( split( /[\,\s]+/, $params->{event_ids} ) ) {
next unless $event_id =~ /^\d+/;
$entry->{event_id} = $event_id;
#get and parse event
my $request2 = {
params => {
checked => events::check_params(
$config,
{
event_id => $entry->{event_id},
template => 'no',
limit => 1,
archive => 'all',
}
)
},
config => $request->{config},
permissions => $request->{permissions}
};
$request2->{params}->{checked}->{published} = 'all';
my $events = events::get( $config, $request2 );
my $event = $events->[0];
unless ( defined $event ) {
print STDERR
#get and parse event
my $request2 = {
params => {
checked => events::check_params(
$config,
{
event_id => $entry->{event_id},
template => 'no',
limit => 1,
archive => 'all',
}
)
},
config => $request->{config},
permissions => $request->{permissions}
};
$request2->{params}->{checked}->{published} = 'all';
my $events = events::get( $config, $request2 );
my $event = $events->[0];
unless ( defined $event ) {
print STDERR
"event not found for project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}, event $entry->{event_id}\n";
next;
}
print STDERR "'" . $event->{event_id} . "' '" . $event->{series_name} . "' '" . $event->{title} . "' '" . $event->{episode} . "'\n";
next;
}
print STDERR "'" . $event->{event_id} . "' '" . $event->{series_name} . "' '" . $event->{title} . "' '" . $event->{episode} . "'\n";
#next;
#next;
#check if series is assigned to project/studio
my $series = series::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
if ( @$series == 0 ) {
#check if series is assigned to project/studio
my $series = series::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
if ( scalar(@$series) == 0 ) {
# assign series to project/studio
project::assign_series(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
} else {
print STDERR
# assign series to project/studio
project::assign_series(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
} else {
print STDERR
"event $entry->{event_id} already asigned to project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}\n";
}
}
#get series
$series = series::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
if ( @$series == 1 ) {
my $serie = $series->[0];
#get series
$series = series::get(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
}
);
if ( scalar(@$series) == 1 ) {
my $serie = $series->[0];
#set event's series name to value from series
my $series_name = $serie->{series_name} || '';
if ( $series_name ne '' ) {
#set event's series name to value from series
my $series_name = $serie->{series_name} || '';
if ( $series_name ne '' ) {
# prepend series_name from event to title on adding to single_events series
my $title = $event->{title};
if ( $serie->{has_single_events} eq '1' ) {
$title = $event->{series_name} . ' - ' . $title if $event->{series_name} ne '';
}
# prepend series_name from event to title on adding to single_events series
my $title = $event->{title};
if ( $serie->{has_single_events} eq '1' ) {
$title = $event->{series_name} . ' - ' . $title if $event->{series_name} ne '';
}
# save event content
series_events::save_content(
$config,
{
studio_id => $entry->{studio_id},
id => $entry->{event_id}, #TODO: id=> event_id
series_name => $series_name,
title => $title,
episode => $event->{episode},
rerun => $event->{rerun},
modified_by => $params->{presets}->{user},
}
);
# save event content
series_events::save_content(
$config,
{
studio_id => $entry->{studio_id},
id => $entry->{event_id}, #TODO: id=> event_id
series_name => $series_name,
title => $title,
episode => $event->{episode},
rerun => $event->{rerun},
modified_by => $params->{presets}->{user},
}
);
# add to history
$event->{project_id} = $entry->{project_id};
$event->{studio_id} = $entry->{studio_id};
$event->{series_id} = $entry->{series_id};
$event->{event_id} = $entry->{event_id};
$event->{series_name} = $series_name;
$event->{title} = $title;
$event->{user} = $params->{presets}->{user};
event_history::insert( $config, $event );
# add to history
$event->{project_id} = $entry->{project_id};
$event->{studio_id} = $entry->{studio_id};
$event->{series_id} = $entry->{series_id};
$event->{event_id} = $entry->{event_id};
$event->{series_name} = $series_name;
$event->{title} = $title;
$event->{user} = $params->{presets}->{user};
event_history::insert( $config, $event );
# print STDERR "ok\n";
}
} else {
print STDERR "no series title found for studio $entry->{studio_id} series $entry->{series_id}, event $entry->{event_id}\n";
next;
}
# print STDERR "ok\n";
}
} else {
print STDERR "no series title found for studio $entry->{studio_id} series $entry->{series_id}, event $entry->{event_id}\n";
next;
}
#assign event
my $result = series::assign_event(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
event_id => $entry->{event_id},
manual => 1
}
);
unless ( defined $result ) {
uac::print_error("error on assigning event to series");
return undef;
}
}
#assign event
my $result = series::assign_event(
$config,
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
series_id => $entry->{series_id},
event_id => $entry->{event_id},
manual => 1
}
);
unless ( defined $result ) {
uac::print_error("error on assigning event to series");
return undef;
}
}
$config->{access}->{write} = 0;
uac::print_info("event successfully assigned to series");
$config->{access}->{write} = 0;
uac::print_info("event successfully assigned to series");
#$params->{getBack}=1;
#$params->{getBack}=1;
}
sub check_params {
my $params = shift;
my $params = shift;
my $checked = {};
my $checked = {};
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;
#actions and roles
$checked->{action} = '';
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(assign_events)$/ ) {
$checked->{action} = $params->{action};
}
}
#actions and roles
$checked->{action} = '';
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(assign_events)$/ ) {
$checked->{action} = $params->{action};
}
}
#numeric values
$checked->{exclude} = 0;
for my $param ( 'id', 'project_id', 'studio_id', 'series_id', 'event_id' ) {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
$checked->{$param} = $params->{$param};
}
}
#numeric values
$checked->{exclude} = 0;
for my $param ( 'id', 'project_id', 'studio_id', 'series_id', 'event_id' ) {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
$checked->{$param} = $params->{$param};
}
}
for my $param ('event_ids') {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^[\d,]+$/ ) ) {
$checked->{$param} = $params->{$param};
}
}
for my $param ('event_ids') {
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;
}
if ( defined $checked->{studio_id} ) {
$checked->{default_studio_id} = $checked->{studio_id};
} else {
$checked->{studio_id} = -1;
}
$checked->{template} = template::check( $params->{template}, 'assignments' );
$checked->{template} = template::check( $params->{template}, 'assignments' );
if ( ( defined $checked->{action} ) && ( $checked->{action} eq 'save_schedule' ) ) {
if ( ( defined $checked->{action} ) && ( $checked->{action} eq 'save_schedule' ) ) {
#set defaults
$checked->{create_events} = 0;
$checked->{publish_events} = 0;
}
for my $param ( 'frequency', 'duration', 'default_duration', 'create_events', 'publish_events', 'live', 'count_episodes' ) {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /(\d+)/ ) ) {
$checked->{$param} = $1;
}
}
#set defaults
$checked->{create_events} = 0;
$checked->{publish_events} = 0;
}
for my $param ( 'frequency', 'duration', 'default_duration', 'create_events', 'publish_events', 'live', 'count_episodes' ) {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /(\d+)/ ) ) {
$checked->{$param} = $1;
}
}
#scalars
for my $param ( 'search', 'from', 'till' ) {
if ( defined $params->{$param} ) {
$checked->{$param} = $params->{$param};
$checked->{$param} =~ s/^\s+//g;
$checked->{$param} =~ s/\s+$//g;
}
}
#scalars
for my $param ( 'search', 'from', 'till' ) {
if ( defined $params->{$param} ) {
$checked->{$param} = $params->{$param};
$checked->{$param} =~ s/^\s+//g;
$checked->{$param} =~ s/\s+$//g;
}
}
return $checked;
return $checked;
}
__DATA__

83
website/agenda/planung/audio_recordings.cgi
View File

@@ -6,7 +6,7 @@ use warnings;
use strict;
use Data::Dumper;
use CGI::Simple ();
use CGI::Simple ();
use ModPerl::Util ();
use Date::Calc();
use Time::Local();
@@ -141,8 +141,9 @@ sub uploadRecording {
#print STDERR Dumper($fh)."<br>";
my $fileInfo = uploadFile( $config, $fh, $params->{event_id}, $user, $params->{upload} );
$params->{error} .= $fileInfo->{error} if defined $fileInfo->{error};
$params->{path} = $fileInfo->{path};
$params->{size} = $fileInfo->{size};
$params->{path} = $fileInfo->{path};
$params->{size} = $fileInfo->{size};
#$params->{duration} = $fileInfo->{duration};
$params = updateDatabase( $config, $params, $user ) if $params->{error} eq '';
} else {
@@ -292,18 +293,19 @@ sub showAudioRecordings {
event_id => $params->{event_id},
}
);
#print Dumper($audioRecordings);
for my $recording (@$audioRecordings) {
$recording->{size} =~ s/(\d)(\d\d\d)$/$1\.$2/g;
$recording->{size} =~ s/(\d)(\d\d\d\.\d\d\d)$/$1\.$2/g;
$recording->{processed} = $recording->{processed} ? 'yes' : 'no';
$recording->{mastered} = $recording->{mastered} ? 'yes' : 'no';
$recording->{mastered} = $recording->{mastered} ? 'yes' : 'no';
$recording->{eventDuration} = getDuration( $recording->{eventDuration} );
$recording->{audioDuration} = getDuration( $recording->{audioDuration} );
$recording->{rmsLeft} ||= '-';
$recording->{rmsLeft} ||= '-';
$recording->{rmsRight} ||= '-';
}
@@ -323,19 +325,19 @@ sub showAudioRecordings {
}
sub getDuration{
my $duration=shift;
my $hour = int($duration / 3600);
$duration -= $hour * 3600;
sub getDuration {
my $duration = shift;
my $hour = int( $duration / 3600 );
$duration -= $hour * 3600;
my $minutes = int($duration / 60);
$duration -= $minutes * 60;
my $minutes = int( $duration / 60 );
$duration -= $minutes * 60;
my $seconds = int($duration);
$duration -= $seconds;
my $seconds = int($duration);
$duration -= $seconds;
my $milli= int(100 * $duration);
return sprintf("%02d:%02d:%02d.%02d",$hour, $minutes, $seconds, $milli);
my $milli = int( 100 * $duration );
return sprintf( "%02d:%02d:%02d.%02d", $hour, $minutes, $seconds, $milli );
}
sub uploadFile {
@@ -391,7 +393,7 @@ sub updateDatabase {
my $params = shift;
my $user = shift;
my $eventDuration = getEventDuration($config, $params->{event_id});
my $eventDuration = getEventDuration( $config, $params->{event_id} );
my $entry = {
project_id => $params->{project_id},
@@ -402,6 +404,7 @@ sub updateDatabase {
created_by => $user,
eventDuration => $eventDuration
};
#print STDERR "updateDatabase:" . Dumper($entry);
#connect
@@ -425,14 +428,14 @@ sub updateDatabase {
$params->{id} = $entry->{id};
} else {
print STDERR "insert\n";
$entry->{created_by} = $user;
$entry->{processed} = 0;
$entry->{mastered} = 0;
$entry->{rmsLeft} = 0.0;
$entry->{rmsRight} = 0.0;
$entry->{audioDuration} = 0.0;
$entry->{modified_at} = time();
$params->{id} = audio_recordings::insert( $config, $dbh, $entry );
$entry->{created_by} = $user;
$entry->{processed} = 0;
$entry->{mastered} = 0;
$entry->{rmsLeft} = 0.0;
$entry->{rmsRight} = 0.0;
$entry->{audioDuration} = 0.0;
$entry->{modified_at} = time();
$params->{id} = audio_recordings::insert( $config, $dbh, $entry );
}
$config->{access}->{write} = 0;
$params->{action_result} = 'done!';
@@ -504,15 +507,15 @@ sub checkFilename {
}
# return event duration in seconds
sub getEventDuration{
my $config = shift;
my $eventId = shift;
sub getEventDuration {
my $config = shift;
my $eventId = shift;
if ( $eventId < 1 ) {
print STDERR "invalid eventId $eventId\n";
return 0;
}
if ($eventId<1){
print STDERR "invalid eventId $eventId\n";
return 0;
}
my $request = {
params => {
checked => events::check_params(
@@ -524,16 +527,16 @@ sub getEventDuration{
}
)
},
config => $config
config => $config
};
$request->{params}->{checked}->{published}='all';
my $events = events::get( $config, $request );
if (scalar @$events == 0){
print STDERR "getEventDuration: no event found with event_id=$eventId\n";
$request->{params}->{checked}->{published} = 'all';
my $events = events::get( $config, $request );
if ( scalar @$events == 0 ) {
print STDERR "getEventDuration: no event found with event_id=$eventId\n";
}
my $event = $events->[0];
my $duration = time::get_duration_seconds( $event->{start}, $event->{end}, $config->{date}->{time_zone} );
return $duration;
my $event = $events->[0];
my $duration = time::get_duration_seconds( $event->{start}, $event->{end}, $config->{date}->{time_zone} );
return $duration;
}
sub check_params {

2506
website/agenda/planung/calendar.cgi
View File

File diff suppressed because it is too large Load Diff

410
website/agenda/planung/comment.cgi
View File

@@ -35,12 +35,12 @@ 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}
}
$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}
@@ -49,11 +49,11 @@ $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),
},
url => $ENV{QUERY_STRING} || '',
params => {
original => $params,
checked => check_params($params),
},
};
#set user at params->presets->user
@@ -64,261 +64,261 @@ $params = $request->{params}->{checked};
#print Dumper($params);
#show header
if ( ( params::isJson() ) || ( defined $params->{action} ) ) {
print "Content-Type:text/html; charset=utf-8;\n\n";
print "Content-Type:text/html; charset=utf-8;\n\n";
} else {
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 );
print q{
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 );
print q{
<script src="js/datetime.js" type="text/javascript"></script>
} unless (params::isJson);
}
return unless defined uac::check( $config, $params, $user_presets );
if ( defined $params->{action} ) {
if ( $params->{action} eq 'get_json' ) {
getJson( $config, $request );
return;
}
if ( $params->{action} eq 'setLock' ) {
setLock( $config, $request );
return;
}
if ( $params->{action} eq 'setRead' ) {
setRead( $config, $request );
return;
}
if ( $params->{action} eq 'get_json' ) {
getJson( $config, $request );
return;
}
if ( $params->{action} eq 'setLock' ) {
setLock( $config, $request );
return;
}
if ( $params->{action} eq 'setRead' ) {
setRead( $config, $request );
return;
}
}
$config->{access}->{write} = 0;
showComments( $config, $request );
sub showComments {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{read_comment} == 1 ) {
uac::permissions_denied('read_comment');
return;
}
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{read_comment} == 1 ) {
uac::permissions_denied('read_comment');
return;
}
for my $attr ( 'project_id', 'studio_id' ) {
unless ( defined $params->{$attr} ) {
uac::print_error( "missing " . $attr . " to show comment" );
return;
}
}
for my $attr ( 'project_id', 'studio_id' ) {
unless ( defined $params->{$attr} ) {
uac::print_error( "missing " . $attr . " to show comment" );
return;
}
}
$config->{access}->{write} = 0;
my $dbh = db::connect($config);
$config->{access}->{write} = 0;
my $dbh = db::connect($config);
my $comment = $params->{comment};
my $template_parameters = {};
my $comment = $params->{comment};
my $template_parameters = {};
#my $nodes={};
#my $sorted_nodes=[];
#my $nodes={};
#my $sorted_nodes=[];
my $results = [];
if ( $params->{search} ne '' ) {
$params->{comment}->{search} = $params->{search};
$results = comments::get_by_event( $dbh, $config, $request );
} elsif ( $comment->{event_id} ne '' ) {
$results = comments::get_by_event( $dbh, $config, $request );
} else {
$results = comments::get_by_time( $dbh, $config, $comment );
}
my $results = [];
if ( $params->{search} ne '' ) {
$params->{comment}->{search} = $params->{search};
$results = comments::get_by_event( $dbh, $config, $request );
} elsif ( $comment->{event_id} ne '' ) {
$results = comments::get_by_event( $dbh, $config, $request );
} else {
$results = comments::get_by_time( $dbh, $config, $comment );
}
my $events = [];
my $comment_count = 0;
if ( @$results > 0 ) {
my $comments = modify_comments( $request, $results );
my $events = [];
my $comment_count = 0;
if ( scalar(@$results) > 0 ) {
my $comments = modify_comments( $request, $results );
$comments = comments::sort( $config, $comments );
$comments = comments::sort( $config, $comments );
$events = comments::get_events( $dbh, $config, $request, $comments );
my $language = $config::config->{date}->{language} || 'en';
for my $event (@$events) {
$event->{start} = time::date_time_format( $event->{start}, $language );
$comment_count += $event->{comment_count} if ( defined $event->{comment_count} );
$event->{cache_base_url} = $config::config->{cache}->{base_url};
}
}
for my $param (%$comment) {
$template_parameters->{$param} = $comment->{$param};
}
$events = comments::get_events( $dbh, $config, $request, $comments );
my $language = $config::config->{date}->{language} || 'en';
for my $event (@$events) {
$event->{start} = time::date_time_format( $event->{start}, $language );
$comment_count += $event->{comment_count} if ( defined $event->{comment_count} );
$event->{cache_base_url} = $config::config->{cache}->{base_url};
}
}
for my $param (%$comment) {
$template_parameters->{$param} = $comment->{$param};
}
$template_parameters->{search} = markup::fix_utf8( $request->{params}->{original}->{search} );
$template_parameters->{events} = $events;
$template_parameters->{debug} = $config->{system}->{debug};
$template_parameters->{event_count} = @$events + 0;
$template_parameters->{comment_count} = $comment_count;
$template_parameters->{is_empty} = 1 if ( @$events == 0 );
$template_parameters->{projects} = project::get_with_dates($config);
$template_parameters->{controllers} = $config->{controllers};
$template_parameters->{allow} = $permissions;
$template_parameters->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'comment' } );
$template_parameters->{search} = markup::fix_utf8( $request->{params}->{original}->{search} );
$template_parameters->{events} = $events;
$template_parameters->{debug} = $config->{system}->{debug};
$template_parameters->{event_count} = scalar(@$events);
$template_parameters->{comment_count} = $comment_count;
$template_parameters->{is_empty} = 1 if scalar @$events == 0;
$template_parameters->{projects} = project::get_with_dates($config);
$template_parameters->{controllers} = $config->{controllers};
$template_parameters->{allow} = $permissions;
$template_parameters->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'comment' } );
#fill and output template
template::process( 'print', $params->{template}, $template_parameters );
#fill and output template
template::process( 'print', $params->{template}, $template_parameters );
}
sub modify_comments {
my $request = shift;
my $results = shift;
my $request = shift;
my $results = shift;
my $language = $config::config->{date}->{language} || 'en';
for my $result (@$results) {
$result->{start_date_name} = time::date_format( $result->{created_at}, $language );
$result->{start_time_name} = time::time_format( $result->{created_at} );
$result->{ $result->{lock_status} } = 1;
$result->{ $result->{news_status} } = 1;
}
return $results;
my $language = $config::config->{date}->{language} || 'en';
for my $result (@$results) {
$result->{start_date_name} = time::date_format( $result->{created_at}, $language );
$result->{start_time_name} = time::time_format( $result->{created_at} );
$result->{ $result->{lock_status} } = 1;
$result->{ $result->{news_status} } = 1;
}
return $results;
}
sub setLock {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{update_comment_status_lock} == 1 ) {
uac::permissions_denied('update_comment_status_lock');
return;
}
unless ( $permissions->{update_comment_status_lock} == 1 ) {
uac::permissions_denied('update_comment_status_lock');
return;
}
my $comment = $params->{comment};
$comment->{id} = $comment->{comment_id};
if ( $comment->{id} eq '' ) {
return;
}
my $comment = $params->{comment};
$comment->{id} = $comment->{comment_id};
if ( $comment->{id} eq '' ) {
return;
}
#todo change set_news_status to lock_status in comment module
$comment->{set_lock_status} = $comment->{lockStatus};
$comment->{set_lock_status} = 'blocked' unless $comment->{set_lock_status} eq 'show';
#todo change set_news_status to lock_status in comment module
$comment->{set_lock_status} = $comment->{lockStatus};
$comment->{set_lock_status} = 'blocked' unless $comment->{set_lock_status} eq 'show';
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
print STDERR "setLock " . Dumper($comment);
comments::set_lock_status( $dbh, $config, $comment );
print "done\n";
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
print STDERR "setLock " . Dumper($comment);
comments::set_lock_status( $dbh, $config, $comment );
print "done\n";
}
sub setRead {
my $config = shift;
my $request = shift;
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{update_comment_status_read} == 1 ) {
uac::permissions_denied('update_comment_status_read');
return;
}
unless ( $permissions->{update_comment_status_read} == 1 ) {
uac::permissions_denied('update_comment_status_read');
return;
}
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
my $comment = $params->{comment};
$comment->{id} = $comment->{comment_id};
if ( $comment->{id} eq '' ) {
return;
}
my $comment = $params->{comment};
$comment->{id} = $comment->{comment_id};
if ( $comment->{id} eq '' ) {
return;
}
#todo change set_news_status to read_status in comment module
$comment->{set_news_status} = $comment->{readStatus};
$comment->{set_news_status} = 'received' unless $comment->{set_news_status} eq 'unread';
#todo change set_news_status to read_status in comment module
$comment->{set_news_status} = $comment->{readStatus};
$comment->{set_news_status} = 'received' unless $comment->{set_news_status} eq 'unread';
print STDERR "setRead " . Dumper($comment);
comments::set_news_status( $dbh, $config, $comment );
print "done\n";
print STDERR "setRead " . Dumper($comment);
comments::set_news_status( $dbh, $config, $comment );
print "done\n";
}
sub check_params {
my $params = shift;
my $params = shift;
my $checked = {};
my $checked = {};
#actions
#actions
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(setLock|setRead|showComment)$/ ) {
$checked->{action} = $params->{action};
}
}
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(setLock|setRead|showComment)$/ ) {
$checked->{action} = $params->{action};
}
}
#template
my $template = '';
if ( defined $checked->{action} ) {
$template = template::check( $params->{template}, 'edit_comment' ) if $checked->{action} eq 'showComment';
} else {
$template = template::check( $params->{template}, 'comments' );
}
$checked->{template} = $template;
#template
my $template = '';
if ( defined $checked->{action} ) {
$template = template::check( $params->{template}, 'edit_comment' ) if $checked->{action} eq 'showComment';
} else {
$template = template::check( $params->{template}, 'comments' );
}
$checked->{template} = $template;
#numeric values
for my $param ( 'project_id', 'studio_id', 'default_studio_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;
}
#numeric values
for my $param ( 'project_id', 'studio_id', 'default_studio_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;
}
my $comment = {};
my $comment = {};
for my $key ('readStatus') {
my $value = $params->{$key};
$comment->{$key} = $value if ( defined $value ) && ( $value =~ /^(received|unread)$/ );
}
for my $key ('readStatus') {
my $value = $params->{$key};
$comment->{$key} = $value if ( defined $value ) && ( $value =~ /^(received|unread)$/ );
}
for my $key ('lockStatus') {
my $value = $params->{$key};
$comment->{$key} = $value if ( defined $value ) && ( $value =~ /^(blocked|show)$/ );
}
for my $key ('lockStatus') {
my $value = $params->{$key};
$comment->{$key} = $value if ( defined $value ) && ( $value =~ /^(blocked|show)$/ );
}
$comment->{event_start} = time::check_date( $params->{event_start} ) || '';
$comment->{from} = time::check_date( $params->{from} ) || '';
$comment->{till} = time::check_date( $params->{till} ) || '';
$comment->{event_start} = time::check_date( $params->{event_start} ) || '';
$comment->{from} = time::check_date( $params->{from} ) || '';
$comment->{till} = time::check_date( $params->{till} ) || '';
my $event_id = $params->{event_id} || '';
if ( $event_id =~ /^(\d+)$/ ) {
$comment->{event_id} = $1;
} else {
my $event_id = $params->{event_id} || '';
if ( $event_id =~ /^(\d+)$/ ) {
$comment->{event_id} = $1;
} else {
# error('invalid event_id');
}
$comment->{event_id} = '' unless defined $comment->{event_id};
# error('invalid event_id');
}
$comment->{event_id} = '' unless defined $comment->{event_id};
my $id = $params->{comment_id} || '';
if ( $id =~ /^(\d+)$/ ) {
$comment->{comment_id} = $1;
}
$comment->{comment_id} = '' unless defined $comment->{comment_id};
my $id = $params->{comment_id} || '';
if ( $id =~ /^(\d+)$/ ) {
$comment->{comment_id} = $1;
}
$comment->{comment_id} = '' unless defined $comment->{comment_id};
my $age = $params->{age} || '';
if ( $age =~ /^(\d+)$/ ) {
$comment->{age} = $1;
}
$comment->{age} = '365' unless defined $comment->{age};
my $age = $params->{age} || '';
if ( $age =~ /^(\d+)$/ ) {
$comment->{age} = $1;
}
$comment->{age} = '365' unless defined $comment->{age};
my $search = $params->{search} || '';
if ( ( defined $search ) && ( $search ne '' ) ) {
$search = substr( $search, 0, 100 );
$search =~ s/^\s+//gi;
$search =~ s/\s+$//gi;
$search =~ s/\-\-//gi;
$search =~ s/\;//gi;
$checked->{search} = $search if $search ne '';
}
$checked->{search} = '' unless defined $checked->{search};
$checked->{comment} = $comment;
my $search = $params->{search} || '';
if ( ( defined $search ) && ( $search ne '' ) ) {
$search = substr( $search, 0, 100 );
$search =~ s/^\s+//gi;
$search =~ s/\s+$//gi;
$search =~ s/\-\-//gi;
$search =~ s/\;//gi;
$checked->{search} = $search if $search ne '';
}
$checked->{search} = '' unless defined $checked->{search};
$checked->{comment} = $comment;
return $checked;
return $checked;
}

2
website/agenda/planung/event.cgi
View File

@@ -373,7 +373,7 @@ sub getJson {
}
);
if ( @$series == 1 ) {
if ( scalar @$series == 1 ) {
my $serie = $series->[0];
$event->{has_single_events} = $serie->{has_single_events};
if ( $event->{has_single_events} eq '1' ) {

4
website/agenda/planung/image.cgi
View File

@@ -71,7 +71,7 @@ return unless defined uac::check( $config, $params, $user_presets );
my $local_media_dir = $config->{locations}->{local_media_dir};
my $local_media_url = $config->{locations}->{local_media_url};
log::error( $config, 'cannot locate media dir' . $local_media_dir ) unless -e $local_media_dir;
log::error( $config, 'cannot locate media dir ' . $local_media_dir ) unless -e $local_media_dir;
uac::permissions_denied('reading from local media dir') unless -r $local_media_dir;
uac::permissions_denied('writing to local media dir') unless -w $local_media_dir;
@@ -179,7 +179,7 @@ sub show_image {
);
#print STDERR Dumper($imagesByNames);
$selectedImage = $imagesByNames->[0] if scalar(@$imagesByNames) > 0;
$selectedImage = $imagesByNames->[0] if scalar @$imagesByNames > 0;
}
my $finalResults = [];

1
website/agenda/planung/imageUpload.cgi
View File

@@ -350,6 +350,7 @@ sub process_image {
#$image->Normalize();
$image->Write( 'jpg:' . $image_path );
#write thumb
my $thumb = $image;
$thumb->Trim2Square;

2
website/agenda/planung/projects.cgi
View File

@@ -137,7 +137,7 @@ sub save_project {
return;
}
my $projects = project::get( $config, { name => $entry->{name} } );
if ( @$projects > 0 ) {
if ( scalar @$projects > 0 ) {
uac::print_error("project with name '$entry->{name}' already exists");
return;
}

6
website/agenda/planung/roles.cgi
View File

@@ -334,12 +334,6 @@ sub show_roles {
#add permission rows
$columns = sort_columns($columns);
# print '<pre>';
# for my $key (@$columns){
# printf (" %-40s => '',\n", "'".$key."'");
# }
# print '</pre>';
for my $key (@$columns) {
next
if ( $key eq 'level'

3
website/agenda/planung/series.cgi
View File

@@ -361,9 +361,6 @@ sub save_series {
}
);
#print STDERR "done\n";
#my @series_ids=@$series_ids;
if ( $params->{action} eq 'create' ) {
unless ( $permissions->{create_series} == 1 ) {

1
website/agenda/planung/show-playout.cgi
View File

@@ -18,7 +18,6 @@ use studios;
use series;
use template;
use playout;
binmode STDOUT, ":utf8";
my $r = shift;

5
website/agenda/planung/showImage.cgi Normal file → Executable file
View File

@@ -72,6 +72,11 @@ sub showImage {
}
my $filename = images::getInternalPath( $config, $params );
unless ( defined $filename ) {
uac::permissions_denied("could not find path");
return;
}
unless ( -e $filename ) {
uac::permissions_denied("read $filename");
return;

6
website/agenda/planung/studios.cgi
View File

@@ -106,7 +106,7 @@ sub delete_studio {
}
);
unless ( @$studio_assignments == 0 ) {
unless ( scalar @$studio_assignments == 0 ) {
uac::print_info("Studio unassigned from project");
uac::print_warn("Studio is assigned to other projects, so it will not be deleted");
return undef;
@@ -141,7 +141,7 @@ sub save_studio {
studios::update( $config, $entry );
} else {
my $studios = studios::get( $config, { name => $entry->{name} } );
if ( @$studios > 0 ) {
if ( scalar @$studios > 0 ) {
uac::print_error("studio with name '$entry->{name}' already exists");
return;
}
@@ -166,7 +166,7 @@ sub save_studio {
has_single_events => 1
}
);
if ( @$single_series == 0 ) {
if ( scalar @$single_series == 0 ) {
series::insert(
$config,
{

4
website/agenda/planung/templates/default.html
View File

@@ -51,10 +51,6 @@
<div> <a href="user_settings.cgi?project_id=<TMPL_VAR project_id>&studio_id=<TMPL_VAR default_studio_id>"><TMPL_VAR .loc.profile></a> </div>
<TMPL_IF .allow.is_admin>
<div> <a href="error_log.cgi"><TMPL_VAR .loc.errors></a> </div>
</TMPL_IF>
<div> <a href="help.cgi?project_id=<TMPL_VAR project_id>&studio_id=<TMPL_VAR default_studio_id>"><TMPL_VAR .loc.help></a> </div>
<select id="studio_id" name="studio_id" onchange="set_studio($(this).val())">

8
website/agenda/series_names.cgi
View File

@@ -56,8 +56,8 @@ my $dbh = db::connect($config);
my $template_parameters = {};
$template_parameters->{projects} = getProjects( $dbh, $config, $params );
$template_parameters->{debug} = $config->{system}->{debug};
$template_parameters->{server_cache} = $config->{cache}->{server_cache} if ( $config->{cache}->{server_cache} );
$template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache} if ( $config->{cache}->{use_client_cache} );
$template_parameters->{server_cache} = $config->{cache}->{server_cache} if $config->{cache}->{server_cache} ;
$template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache} if $config->{cache}->{use_client_cache} ;
#output template
my $template = $params->{template};
@@ -103,9 +103,9 @@ sub getProjects {
$project->{js_name} =~ s/\_+/\_/g;
#mark last series_name entry of all non empty projects
if ( ( defined $series_names ) && ( @$series_names > 0 ) ) {
if ( ( defined $series_names ) && ( scalar @$series_names > 0 ) ) {
$series_names->[-1]->{last} = 1;
$prev_series_names->[-1]->{last} = 0 if ( ( defined $prev_series_names ) && ( @$prev_series_names > 0 ) );
$prev_series_names->[-1]->{last} = 0 if ( defined $prev_series_names ) && ( sclar @$prev_series_names > 0 ) ;
$prev_series_names = $series_names;
}
push @$results, $project;