1883 lines
57 KiB
Perl
Executable File
1883 lines
57 KiB
Perl
Executable File
#! /usr/bin/perl -w
|
|
|
|
use warnings "all";
|
|
use strict;
|
|
use Data::Dumper;
|
|
use URI::Escape;
|
|
use Encode;
|
|
use utf8;
|
|
|
|
use params;
|
|
use config;
|
|
use log;
|
|
use template;
|
|
use calendar;
|
|
use auth;
|
|
use uac;
|
|
use roles;
|
|
use project;
|
|
use studios;
|
|
use events;
|
|
use series;
|
|
use markup;
|
|
use series_dates;
|
|
use studio_timeslot_dates;
|
|
use work_dates;
|
|
use playout;
|
|
use markup;
|
|
use user_settings;
|
|
use localization;
|
|
use DateTime;
|
|
use audio_recordings;
|
|
|
|
binmode STDOUT, ":utf8";
|
|
|
|
my $r = shift;
|
|
( my $cgi, my $params, my $error ) = params::get($r);
|
|
|
|
my $config = config::get('../config/config.cgi');
|
|
my $debug = $config->{system}->{debug};
|
|
my ( $user, $expires ) = auth::get_user( $cgi, $config );
|
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
|
|
|
my $user_presets = uac::get_user_presets(
|
|
$config,
|
|
{
|
|
user => $user,
|
|
project_id => $params->{project_id},
|
|
studio_id => $params->{studio_id}
|
|
}
|
|
);
|
|
$params->{default_studio_id} = $user_presets->{studio_id};
|
|
$params->{project_id} = $user_presets->{project_id}
|
|
if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
|
|
$params->{expires} = $expires;
|
|
|
|
#print STDERR Dumper($params);
|
|
|
|
my $scriptName = 'calendar.cgi';
|
|
|
|
#add "all" studio to select box
|
|
unshift @{ $user_presets->{studios} },
|
|
{
|
|
id => -1,
|
|
name => '-all-'
|
|
};
|
|
|
|
# select studios, TODO: do in JS
|
|
if ( $params->{studio_id} eq '-1' ) {
|
|
for my $studio ( @{ $user_presets->{studios} } ) {
|
|
delete $studio->{selected};
|
|
$studio->{selected} = 1 if $params->{studio_id} eq $studio->{id};
|
|
}
|
|
}
|
|
|
|
my $request = {
|
|
url => $ENV{QUERY_STRING} || '',
|
|
params => {
|
|
original => $params,
|
|
checked => check_params( $params, $config ),
|
|
},
|
|
};
|
|
|
|
$request = uac::prepare_request( $request, $user_presets );
|
|
log::init($request);
|
|
|
|
$params = $request->{params}->{checked};
|
|
|
|
#print STDERR Dumper($request);
|
|
if (
|
|
(
|
|
( defined $params->{action} ) && ( ( $params->{action} eq 'show' )
|
|
|| ( $params->{action} eq 'edit_event' ) )
|
|
)
|
|
|| ( $params->{part} == 1 )
|
|
)
|
|
{
|
|
print "Content-type:text/html; charset=UTF-8;\n\n";
|
|
} else {
|
|
|
|
#process header
|
|
my $headerParams = uac::set_template_permissions( $request->{permissions}, $params );
|
|
$headerParams->{loc} = localization::get( $config, { user => $user, file => 'menu' } );
|
|
template::process( 'print', template::check('default.html'), $headerParams );
|
|
print q{
|
|
<link href="css/jquery-ui-timepicker.css" type="text/css" rel="stylesheet" />
|
|
<link rel="stylesheet" href="css/calendar.css" type="text/css" />
|
|
|
|
<script src="js/jquery-ui-timepicker.js" type="text/javascript"></script>
|
|
<script src="js/calendar.js" type="text/javascript"></script>
|
|
<script src="js/datetime.js" type="text/javascript"></script>
|
|
};
|
|
if ( $params->{list} eq '1' ) {
|
|
print q{
|
|
<!--<link href="css/theme.default.css" rel="stylesheet">-->
|
|
<script src="js/jquery.tablesorter.min.js"></script>
|
|
<script src="js/jquery.tablesorter.widgets.min.js"></script>
|
|
};
|
|
}
|
|
}
|
|
|
|
if ( defined $user_presets->{error} ) {
|
|
print "<br><br>";
|
|
uac::print_error( $user_presets->{error} );
|
|
return;
|
|
}
|
|
|
|
$config->{access}->{write} = 0;
|
|
unless ( defined $params->{project_id} ) {
|
|
uac::print_error("Please select a project");
|
|
return;
|
|
}
|
|
|
|
if ( $params->{project_id} ne '-1' ) {
|
|
if ( project::check( $config, { project_id => $params->{project_id} } ) ne '1' ) {
|
|
uac::print_error("invalid project");
|
|
return;
|
|
}
|
|
}
|
|
|
|
unless ( defined $params->{studio_id} ) {
|
|
uac::print_error("Please select a studio");
|
|
return;
|
|
}
|
|
if ( $params->{studio_id} ne '-1' ) {
|
|
if ( studios::check( $config, { studio_id => $params->{studio_id} } ) ne '1' ) {
|
|
uac::print_error("invalid studio");
|
|
return;
|
|
}
|
|
}
|
|
|
|
my $start_of_day = $params->{day_start};
|
|
my $end_of_day = $start_of_day;
|
|
$end_of_day += 24 if ( $end_of_day <= $start_of_day );
|
|
our $hour_height = 60;
|
|
our $yzoom = 1.5;
|
|
|
|
showCalendar(
|
|
$config, $request,
|
|
{
|
|
hour_height => $hour_height,
|
|
yzoom => $yzoom,
|
|
start_of_day => $start_of_day,
|
|
end_of_day => $end_of_day,
|
|
}
|
|
);
|
|
|
|
sub showCalendar {
|
|
my $config = shift;
|
|
my $request = shift;
|
|
my $cal_options = shift;
|
|
|
|
my $hour_height = $cal_options->{hour_height};
|
|
my $yzoom = $cal_options->{yzoom};
|
|
my $start_of_day = $cal_options->{start_of_day};
|
|
my $end_of_day = $cal_options->{end_of_day};
|
|
|
|
my $params = $request->{params}->{checked};
|
|
my $permissions = $request->{permissions};
|
|
unless ( $permissions->{read_series} == 1 ) {
|
|
uac::permissions_denied('read_series');
|
|
return;
|
|
}
|
|
|
|
#get range from user settings
|
|
my $user_settings = user_settings::get( $config, { user => $params->{presets}->{user} } );
|
|
$params->{range} = $user_settings->{range} unless defined $params->{range};
|
|
$params->{range} = 28 unless defined $params->{range};
|
|
|
|
#get colors from user settings
|
|
print user_settings::getColorCss( $config, { user => $params->{presets}->{user} } ) if $params->{part} == 0;
|
|
|
|
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'all,calendar' } );
|
|
my $language = $user_settings->{language} || 'en';
|
|
$params->{language} = $language;
|
|
print localization::getJavascript( $params->{loc} ) if $params->{part} == 0;
|
|
|
|
my $calendar = getCalendar( $config, $params, $language );
|
|
my $options = {};
|
|
my $events = [];
|
|
|
|
if ( ( $params->{part} == 1 ) || ( $params->{list} == 1 ) ) {
|
|
|
|
#set date range
|
|
my $from = $calendar->{from_date};
|
|
my $till = $calendar->{till_date};
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
|
|
#build event filter
|
|
$options = {
|
|
project_id => $project_id,
|
|
template => 'no',
|
|
limit => 600,
|
|
get => 'no_content',
|
|
from_date => $from,
|
|
till_date => $till,
|
|
date_range_include => 1,
|
|
archive => 'all',
|
|
};
|
|
|
|
# set options depending on switches
|
|
if ( $params->{studio_id} ne '-1' ) {
|
|
$options->{studio_id} = $studio_id;
|
|
my $location = $params->{presets}->{studio}->{location};
|
|
$options->{location} = $location if $location =~ /\S/;
|
|
}
|
|
|
|
if ( $params->{project_id} ne '-1' ) {
|
|
$options->{project_id} = $project_id;
|
|
my $project = $params->{presets}->{project}->{name};
|
|
$options->{project} = $project if $project =~ /\S/;
|
|
}
|
|
|
|
if ( defined $params->{series_id} ) {
|
|
$options->{series_id} = $params->{series_id};
|
|
delete $options->{from_date};
|
|
delete $options->{till_date};
|
|
delete $options->{date_range_include};
|
|
}
|
|
|
|
if ( $params->{search} =~ /\S/ ) {
|
|
$options->{search} = $params->{search};
|
|
delete $options->{from_date} if ( $params->{list} == 1 );
|
|
delete $options->{till_date} if ( $params->{list} == 1 );
|
|
delete $options->{date_range_include} if ( $params->{list} == 1 );
|
|
}
|
|
|
|
$options->{draft}=0 unless $params->{list}==1;
|
|
|
|
#get events sorted by date
|
|
$events = getSeriesEvents( $config, $request, $options, $params );
|
|
unless ( $params->{list} == 1 ) {
|
|
for my $event (@$events) {
|
|
$event->{origStart} = $event->{start};
|
|
}
|
|
$events = break_dates( $events, $start_of_day );
|
|
}
|
|
|
|
# recalc after break (for list only?)
|
|
for my $event (@$events) {
|
|
|
|
#if ($event->{splitCount}>0){
|
|
delete $event->{day};
|
|
delete $event->{start_date};
|
|
delete $event->{end_date};
|
|
$event = events::calc_dates( $config, $event );
|
|
|
|
#}
|
|
}
|
|
|
|
my $events_by_start = {};
|
|
for my $event (@$events) {
|
|
$events_by_start->{ $event->{start} } = $event;
|
|
}
|
|
|
|
#build series filter
|
|
$options = {
|
|
project_id => $project_id,
|
|
studio_id => $studio_id,
|
|
from => $from,
|
|
till => $till,
|
|
date_range_include => 1,
|
|
exclude => 0
|
|
};
|
|
|
|
if ( defined $params->{series_id} ) {
|
|
$options->{series_id} = $params->{series_id};
|
|
delete $options->{from};
|
|
delete $options->{till};
|
|
delete $options->{date_range_include};
|
|
}
|
|
|
|
if ( $params->{search} =~ /\S/ ) {
|
|
$options->{search} = $params->{search};
|
|
delete $options->{from} if ( $params->{list} == 1 );
|
|
delete $options->{till} if ( $params->{list} == 1 );
|
|
delete $options->{date_range_include} if ( $params->{list} == 1 );
|
|
}
|
|
|
|
#get all series dates
|
|
my $series_dates = series_dates::get_series( $config, $options );
|
|
my $id = 0;
|
|
for my $date (@$series_dates) {
|
|
$date->{schedule} = 1;
|
|
|
|
#$date->{event_id}=-1;
|
|
$date->{event_id} = $id;
|
|
$date->{origStart} = $date->{start};
|
|
delete $date->{day};
|
|
delete $date->{start_date};
|
|
delete $date->{end_date};
|
|
$id++;
|
|
}
|
|
unless ( $params->{list} == 1 ) {
|
|
$series_dates = break_dates( $series_dates, $start_of_day );
|
|
}
|
|
|
|
#merge series and events
|
|
for my $date (@$series_dates) {
|
|
$date = events::calc_dates( $config, $date );
|
|
push @$events, $date;
|
|
}
|
|
|
|
#get timeslot_dates
|
|
my $studio_dates = studio_timeslot_dates::get( $config, $options );
|
|
|
|
#print STDERR Dumper($options);
|
|
$id = 0;
|
|
for my $date (@$studio_dates) {
|
|
$date->{grid} = 1;
|
|
$date->{series_id} = -1;
|
|
|
|
#$date->{event_id}=-1;
|
|
$date->{event_id} = $id;
|
|
$date->{origStart} = $date->{start};
|
|
delete $date->{day};
|
|
delete $date->{start_date};
|
|
delete $date->{end_date};
|
|
$id++;
|
|
}
|
|
unless ( $params->{list} == 1 ) {
|
|
$studio_dates = break_dates( $studio_dates, $start_of_day );
|
|
}
|
|
|
|
for my $date (@$studio_dates) {
|
|
$date = events::calc_dates( $config, $date );
|
|
push @$events, $date;
|
|
}
|
|
|
|
#get work_dates
|
|
my $work_dates = work_dates::get( $config, $options );
|
|
for my $date (@$work_dates) {
|
|
$date->{work} = 1;
|
|
$date->{series_id} = -1;
|
|
$date->{event_id} = -1;
|
|
$date->{origStart} = $date->{start};
|
|
delete $date->{day};
|
|
delete $date->{start_date};
|
|
delete $date->{end_date};
|
|
}
|
|
unless ( $params->{list} == 1 ) {
|
|
$work_dates = break_dates( $work_dates, $start_of_day );
|
|
}
|
|
|
|
for my $date (@$work_dates) {
|
|
$date = events::calc_dates( $config, $date );
|
|
push @$events, $date;
|
|
}
|
|
|
|
#get playout
|
|
delete $options->{exclude};
|
|
my $playout_dates = playout::get( $config, $options );
|
|
$id = 0;
|
|
for my $date (@$playout_dates) {
|
|
my $format = undef;
|
|
if ( defined $date->{'format'} ) {
|
|
$format =
|
|
( $date->{'format'} || '' ) . " " . ( $date->{'format_version'} || '' ) . " " . ( $date->{'format_profile'} || '' );
|
|
$format =~ s/MPEG Audio Version 1 Layer 3/MP3/g;
|
|
$format .= ' ' . ( $date->{'format_settings'} || '' ) if defined $date->{'format_settings'};
|
|
$format .= '<br>';
|
|
}
|
|
|
|
#print STDERR Dumper($date);
|
|
$date->{play} = 1;
|
|
$date->{series_id} = -1;
|
|
$date->{event_id} = $id;
|
|
$date->{title} = '';
|
|
$date->{title} .= '<b>errors</b>: ' . $date->{errors} . '<br>' if defined $date->{errors};
|
|
$date->{title} .= formatDuration( $date->{duration} ) . "s<br>" if defined $date->{duration};
|
|
$date->{title} .= formatLoudness( "L:", $date->{rms_left} ) . ' dB, ' if defined $date->{rms_left};
|
|
$date->{title} .= formatLoudness( "R:", $date->{rms_right} ) . ' dB<br>' if defined $date->{rms_right};
|
|
$date->{title} .= formatBitrate( $date->{bitrate} ) . ' ' . $date->{bitrate_mode} . '<br>' if defined $date->{bitrate};
|
|
$date->{title} .= '<b>replay gain</b> ' . sprintf( "%.1f", $date->{replay_gain} ) . '<br>' if defined $date->{replay_gain};
|
|
$date->{title} .= ( ( $date->{sampling_rate} || '0' ) / 1000 ) . ' kHz<br>' if defined $date->{sampling_rate};
|
|
$date->{title} .= ( $date->{channels} || '' ) . ' channels<br>' if defined $date->{channels};
|
|
$date->{title} .= int( ( $date->{'stream_size'} || '0' ) / ( 1024 * 1024 ) ) . 'MB<br>' if defined $date->{'stream_size'};
|
|
$date->{title} .= $format if defined $format;
|
|
$date->{title} .= '<b>library</b>: ' . ( $date->{writing_library} || '' ) . '<br>' if defined $date->{'writing_library'};
|
|
$date->{title} .= '<b>path</b>: ' . ( $date->{file} || '' ) . '<br>' if defined $date->{file};
|
|
|
|
#$date->{title}.= '<b>rms_image</b>: ' .($date->{rms_image}||'').'<br>' if defined $date->{rms_image};
|
|
|
|
$date->{rms_image} = uri_unescape( $date->{rms_image} ) if defined $date->{rms_image};
|
|
|
|
$date->{origStart} = $date->{start};
|
|
|
|
# set end date seconds to 00 to handle error at break_dates/join_dates
|
|
$date->{end} =~ s/(\d\d\:\d\d)\:\d\d/$1\:00/;
|
|
delete $date->{day};
|
|
delete $date->{start_date};
|
|
delete $date->{end_date};
|
|
$id++;
|
|
}
|
|
|
|
unless ( $params->{list} == 1 ) {
|
|
$playout_dates = break_dates( $playout_dates, $start_of_day );
|
|
}
|
|
|
|
for my $date (@$playout_dates) {
|
|
$date = events::calc_dates( $config, $date );
|
|
if ( defined $events_by_start->{ $date->{start} } ) {
|
|
$events_by_start->{ $date->{start} }->{duration} = $date->{duration} || 0;
|
|
$events_by_start->{ $date->{start} }->{rms_left} = $date->{rms_left} || 0;
|
|
$events_by_start->{ $date->{start} }->{rms_right} = $date->{rms_right} || 0;
|
|
$events_by_start->{ $date->{start} }->{playout_modified_at} = $date->{modified_at};
|
|
$events_by_start->{ $date->{start} }->{playout_updated_at} = $date->{updated_at} ;
|
|
}
|
|
push @$events, $date;
|
|
}
|
|
|
|
}
|
|
|
|
#output
|
|
printToolbar( $config, $params, $calendar ) if $params->{part} == 0;
|
|
|
|
#if($params->{part}==1){
|
|
print qq{
|
|
<script>
|
|
var current_date="$calendar->{month} $calendar->{year}";
|
|
var previous_date="$calendar->{previous_date}";
|
|
var next_date="$calendar->{next_date}";
|
|
</script>
|
|
};
|
|
|
|
#}
|
|
|
|
#filter events by time
|
|
unless ( $params->{list} == 1 ) {
|
|
$events = filterEvents( $events, $options, $start_of_day );
|
|
}
|
|
|
|
#sort events by start
|
|
@$events = sort { $a->{start} cmp $b->{start} } @$events;
|
|
|
|
#for my $date(@$events){debugDate($date);}
|
|
|
|
#separate by day (e.g. to 6 pm)
|
|
my $events_by_day = {};
|
|
for my $event (@$events) {
|
|
my $day = time::datetime_to_date( time::add_hours_to_datetime( $event->{start}, -$start_of_day ) );
|
|
push @{ $events_by_day->{$day} }, $event;
|
|
}
|
|
|
|
#get min and max hour from all events
|
|
unless ( $params->{list} == 1 ) {
|
|
my $min_hour = 48;
|
|
my $max_hour = 0;
|
|
|
|
for my $event (@$events) {
|
|
if ( $event->{start} =~ /(\d\d)\:\d\d\:\d\d$/ ) {
|
|
my $hour = $1;
|
|
$hour += 24 if $hour < $start_of_day;
|
|
$min_hour = $hour if ( ( $hour < $min_hour ) && ( $hour >= $start_of_day ) );
|
|
}
|
|
if ( $event->{end} =~ /(\d\d)\:\d\d\:\d\d$/ ) {
|
|
my $hour = $1;
|
|
$hour += 24 if $hour <= $start_of_day;
|
|
$max_hour = $hour if ( ( $hour > $max_hour ) && ( $hour <= $end_of_day ) );
|
|
}
|
|
}
|
|
$cal_options->{min_hour} = $min_hour;
|
|
$cal_options->{max_hour} = $max_hour;
|
|
}
|
|
|
|
#print STDERR $start_of_day." ".$cal_options->{min_hour}."\n";
|
|
|
|
# calculate positions and find schedule errors (depending on position)
|
|
for my $date ( sort ( keys %$events_by_day ) ) {
|
|
for my $events ( $events_by_day->{$date} ) {
|
|
calc_positions( $events, $cal_options );
|
|
find_errors($events);
|
|
}
|
|
}
|
|
|
|
for my $event (@$events){
|
|
next unless defined $event->{uploaded_at};
|
|
#print STDERR "uploadAt=$event->{uploaded_at}, playoutModified:$event->{playout_modified_at}, playoutUpdatedAt:$event->{playout_updated_at}\n";
|
|
next if (defined $event->{playout_updated_at}) && ( $event->{uploaded_at} lt $event->{playout_updated_at} );
|
|
#print STDERR Dumper($event);
|
|
$event->{upload} ='pending' ;
|
|
#$event->{title}.='<br>pending';
|
|
}
|
|
|
|
if ( $params->{list} == 1 ) {
|
|
showEventList( $config, $permissions, $params, $events_by_day );
|
|
} else {
|
|
if ( $params->{part} == 0 ) {
|
|
print qq{<div id="calendarTable"> </div>};
|
|
}
|
|
if ( $params->{part} == 1 ) {
|
|
calcCalendarTable( $config, $permissions, $params, $calendar, $events_by_day, $cal_options );
|
|
printTableHeader( $config, $permissions, $params, $cal_options );
|
|
printTableBody( $config, $permissions, $params, $cal_options );
|
|
}
|
|
if ( $params->{part} == 0 ) {
|
|
printSeries( $config, $permissions, $params, $cal_options );
|
|
print qq{
|
|
</div><!--content-->
|
|
</center>
|
|
};
|
|
}
|
|
|
|
# time has to be set when events come in
|
|
printJavascript( $config, $permissions, $params, $cal_options );
|
|
if ( $params->{part} == 0 ) {
|
|
print qq{
|
|
</body>
|
|
</html>
|
|
};
|
|
}
|
|
if ( $params->{part} == 1 ) {
|
|
}
|
|
}
|
|
}
|
|
|
|
sub formatLoudness {
|
|
my $label = shift;
|
|
my $value = shift;
|
|
return '' unless defined $value;
|
|
return '' if $value == 0;
|
|
return '' if $value eq '';
|
|
|
|
#print STDERR "'$value'\n";
|
|
$value = sprintf( "%.1f", $value );
|
|
my $class = 'ok';
|
|
$class = 'warn' if $value > -18.5;
|
|
$class = 'error' if $value > -16.0;
|
|
$class = 'warn' if $value < -24.0;
|
|
$class = 'error' if $value < -27.0;
|
|
return qq{$label<span class="$class">} . $value . qq{</span>};
|
|
}
|
|
|
|
sub formatDuration {
|
|
my $duration = shift;
|
|
return '' unless defined $duration;
|
|
return '' if $duration eq '';
|
|
my $result = int( ( $duration + 3600 ) * 10 + 0.5) % 600;
|
|
my $class = "ok";
|
|
$class = "warn" if $result > 1;
|
|
$class = "error" if $result > 10;
|
|
return sprintf( qq{<span class="%s">%.01f</span>}, $class, $duration );
|
|
}
|
|
|
|
sub formatBitrate {
|
|
my $bitrate = shift;
|
|
return '' if $bitrate eq '';
|
|
if ( $bitrate >= 200 ) {
|
|
return qq{<span class="warn">$bitrate</span>};
|
|
} elsif ( $bitrate < 190 ) {
|
|
return qq{<span class="error">$bitrate</span>};
|
|
} else {
|
|
return qq{<span class="ok">$bitrate</span>};
|
|
}
|
|
}
|
|
|
|
sub debugDate {
|
|
my $date = shift;
|
|
$date->{program} = '' unless defined $date->{program};
|
|
$date->{series_name} = '' unless defined $date->{series_name};
|
|
$date->{title} = '' unless defined $date->{title};
|
|
$date->{splitCount} = 0 unless defined $date->{splitCount};
|
|
my $dt = ( $date->{start} || '' ) . " " . ( $date->{end} | '' );
|
|
my $da = ( $date->{start_date} || '' ) . " " . ( $date->{end_date} || '' );
|
|
my $type = "schedule:" . ( $date->{schedule} || "" ) . " grid:" . ( $date->{grid} || "" );
|
|
|
|
#print STDERR "$dt $da count:$date->{splitCount} $type $date->{program}-$date->{series_name}-$date->{title}\n";
|
|
}
|
|
|
|
# break dates at start_of_day
|
|
|
|
sub break_dates {
|
|
my $dates = shift;
|
|
my $start_of_day = shift;
|
|
|
|
#return $dates if $start_of_day eq '0';
|
|
|
|
for my $date (@$dates) {
|
|
next unless defined $date;
|
|
|
|
$date->{splitCount} = 0 unless defined $date->{splitCount};
|
|
|
|
#debugDate($date);
|
|
|
|
next if $date->{splitCount} > 6;
|
|
my $nextDayStart = breaks_day( $date->{start}, $date->{end}, $start_of_day );
|
|
next if $nextDayStart eq '0';
|
|
|
|
# add new entry
|
|
my $entry = {};
|
|
for my $key ( keys %$date ) {
|
|
$entry->{$key} = $date->{$key};
|
|
}
|
|
$entry->{start} = $nextDayStart;
|
|
$entry->{splitCount}++;
|
|
push @$dates, $entry;
|
|
|
|
# print STDERR "add $entry->{start} $entry->{end} count:$entry->{splitCount} $entry->{program}-$entry->{series_name}-$entry->{title}\n";
|
|
|
|
#modify existing entry
|
|
my $start_date = time::datetime_to_date( $date->{start} );
|
|
$date->{end} = $nextDayStart;
|
|
$date->{splitCount}++;
|
|
|
|
# print STDERR "set $date->{start} $date->{end} count:$date->{splitCount} $date->{program}-$date->{series_name}-$date->{title}\n";
|
|
}
|
|
|
|
return join_dates( $dates, $start_of_day );
|
|
}
|
|
|
|
# check if event breaks the start of day (e.g. 06:00)
|
|
sub breaks_day {
|
|
my $start = shift;
|
|
my $end = shift;
|
|
my $start_of_day = shift;
|
|
|
|
my $starts = time::datetime_to_array($start);
|
|
my $startDate = time::array_to_date($starts);
|
|
my $startTime = time::array_to_time($starts);
|
|
$start = $startDate . ' ' . $startTime;
|
|
|
|
my $ends = time::datetime_to_array($end);
|
|
my $endDate = time::array_to_date($ends);
|
|
my $endTime = time::array_to_time($ends);
|
|
$end = $endDate . ' ' . $endTime;
|
|
|
|
my $dayStartTime = time::array_to_time($start_of_day);
|
|
my $dayStart = $startDate . ' ' . $dayStartTime;
|
|
|
|
# start before 6:00 of same day
|
|
return $dayStart if ( $start lt $dayStart ) && ( $end gt $dayStart );
|
|
|
|
# start before 6:00 of next day
|
|
my $nextDayStart = time::add_days_to_datetime( $dayStart, 1 );
|
|
|
|
#$nextDayStart=~s/:00$//;
|
|
return $nextDayStart if ( $start lt $nextDayStart ) && ( $end gt $nextDayStart );
|
|
|
|
return 0;
|
|
}
|
|
|
|
# merge events with same seriesId and eventId at 00:00
|
|
sub join_dates {
|
|
my $dates = shift;
|
|
my $start_of_day = shift;
|
|
|
|
return $dates if $start_of_day == 0;
|
|
@$dates = sort { $a->{start} cmp $b->{start} } @$dates;
|
|
|
|
my $prev_date = undef;
|
|
for my $date (@$dates) {
|
|
next unless defined $date;
|
|
unless ( defined $prev_date ) {
|
|
$prev_date = $date;
|
|
next;
|
|
}
|
|
if ( ( $date->{event_id} == $prev_date->{event_id} )
|
|
&& ( $date->{series_id} == $prev_date->{series_id} )
|
|
&& ( $date->{start} eq $prev_date->{end} )
|
|
&& ( $date->{start} =~ /00\:00\:\d\d/ ) )
|
|
{
|
|
$prev_date->{end} = $date->{end};
|
|
$date = undef;
|
|
next;
|
|
}
|
|
$prev_date = $date;
|
|
}
|
|
|
|
my $results = [];
|
|
for my $date (@$dates) {
|
|
next unless defined $date;
|
|
push @$results, $date;
|
|
}
|
|
|
|
return $results;
|
|
}
|
|
|
|
sub filterEvents {
|
|
my $events = shift;
|
|
my $options = shift;
|
|
my $start_of_day = shift;
|
|
|
|
return [] unless defined $options->{from};
|
|
return [] unless defined $options->{till};
|
|
|
|
my $dayStartTime = time::array_to_time($start_of_day);
|
|
my $startDatetime = $options->{from} . ' ' . $dayStartTime;
|
|
my $endDatetime = $options->{till} . ' ' . $dayStartTime;
|
|
|
|
my $results = [];
|
|
for my $date (@$events) {
|
|
next if ( ( $date->{start} ge $endDatetime ) || ( $date->{end} le $startDatetime ) );
|
|
push @$results, $date;
|
|
}
|
|
return $results;
|
|
}
|
|
|
|
sub showEventList {
|
|
my $config = shift;
|
|
my $permissions = shift;
|
|
my $params = shift;
|
|
my $events_by_day = shift;
|
|
my $language = $params->{language};
|
|
|
|
print qq{
|
|
<div id="event_list">
|
|
<table>
|
|
<thead>
|
|
<tr>
|
|
<th class="day_of_year">$params->{loc}->{label_day_of_year}</th>
|
|
<th class="weekday">$params->{loc}->{label_weekday}</th>
|
|
<th class="start_date">$params->{loc}->{label_start}</th>
|
|
<th class="start_time">$params->{loc}->{label_end}</th>
|
|
<th class="series_name">$params->{loc}->{label_series}</th>
|
|
<th class="title">$params->{loc}->{label_title}</th>
|
|
<th class="episode">$params->{loc}->{label_episode}</th>
|
|
<th class="rerun" title="$params->{loc}->{label_rerun}"><img src="image/32/rerun.png"></th>
|
|
<th class="live" title="$params->{loc}->{label_live}"><img src="image/32/live.png"></th>
|
|
<th class="draft" title="$params->{loc}->{label_draft}"><img src="image/32/draft.png"></th>
|
|
<th class="archive" title="$params->{loc}->{label_archived}"><img src="image/32/archived.png"></th>
|
|
</tr>
|
|
</thead>
|
|
<tbody>
|
|
} if $params->{part} == 0;
|
|
my $i = 1;
|
|
|
|
my $scheduled_events = {};
|
|
for my $date ( reverse sort ( keys %$events_by_day ) ) {
|
|
for my $event ( reverse @{ $events_by_day->{$date} } ) {
|
|
next unless defined $event;
|
|
next if defined $event->{grid};
|
|
next if defined $event->{work};
|
|
next if defined $event->{play};
|
|
|
|
#schedules with matching date are marked to be hidden in find_errors
|
|
next if defined $event->{hide};
|
|
$event->{project_id} = $params->{project_id};
|
|
$event->{studio_id} = $params->{studio_id};
|
|
$event->{series_id} = '-1' unless defined $event->{series_id};
|
|
$event->{event_id} = '-1' unless defined $event->{event_id};
|
|
my $id = 'event_' . $event->{project_id} . '_' . $event->{studio_id} . '_' . $event->{series_id} . '_' . $event->{event_id};
|
|
|
|
my $class = 'event';
|
|
$class = $event->{class} if defined $event->{class};
|
|
$class = 'schedule' if defined $event->{schedule};
|
|
if ( $class =~ /(event|schedule)/ ) {
|
|
$class .= ' scheduled' if defined $event->{scheduled};
|
|
$class .= ' error' if defined $event->{error};
|
|
$class .= ' no_series' if ( ( $class eq 'event' ) && ( $event->{series_id} eq '-1' ) );
|
|
|
|
for my $filter ( 'rerun', 'archived', 'playout', 'published', 'live', 'disable_event_sync', 'draft' ) {
|
|
$class .= ' ' . $filter if ( ( defined $event->{$filter} ) && ( $event->{$filter} eq '1' ) );
|
|
}
|
|
$class .= ' preproduced' unless ( ( defined $event->{'live'} ) && ( $event->{'live'} eq '1' ) );
|
|
$class .= ' no_playout' unless ( ( defined $event->{'playout'} ) && ( $event->{'playout'} eq '1' ) );
|
|
$class .= ' no_rerun' unless ( ( defined $event->{'rerun'} ) && ( $event->{'rerun'} eq '1' ) );
|
|
}
|
|
|
|
$event->{start} ||= '';
|
|
$event->{weekday_short_name} ||= '';
|
|
$event->{start_date_name} ||= '';
|
|
$event->{start_time_name} ||= '';
|
|
$event->{end_time} ||= '';
|
|
$event->{series_name} ||= '';
|
|
$event->{title} ||= '';
|
|
$event->{user_title} ||= '';
|
|
$event->{episode} ||= '';
|
|
$event->{rerun} ||= '';
|
|
$event->{draft} ||= '';
|
|
$id ||= '';
|
|
$class ||= '';
|
|
|
|
my $archived = $event->{archived} || '-';
|
|
$archived = '-' if $archived eq '0';
|
|
$archived = 'x' if $archived eq '1';
|
|
|
|
my $live = $event->{live} || '-';
|
|
$live = '-' if $live eq '0';
|
|
$live = 'x' if $live eq '1';
|
|
|
|
my $rerun = $event->{rerun} || '-';
|
|
|
|
#$rerun='-' if $rerun eq '0';
|
|
#$rerun='x' if $rerun eq '1';
|
|
$rerun = " [" . markup::base26( $event->{recurrence_count} + 1 ) . "]"
|
|
if ( defined $event->{recurrence_count} ) && ( $event->{recurrence_count} ne '' ) && ( $event->{recurrence_count} > 0 );
|
|
|
|
|
|
my $draft = $event->{draft} || '0';
|
|
$draft='-' if $draft eq '0';
|
|
$draft='x' if $draft eq '1';
|
|
|
|
my $title = $event->{title};
|
|
$title .= ': ' . $event->{user_title} if $event->{user_title} ne '';
|
|
|
|
print qq!<tr id="$id" class="$class" date="$event->{start}" >!
|
|
. qq!<td class="day_of_year">!
|
|
. time::dayOfYear( $event->{start} )
|
|
. q!</td>!
|
|
. qq!<td class="weekday">$event->{weekday_short_name},</td>!
|
|
. qq!<td class="start_date">$event->{start_date_name}</td>!
|
|
. qq!<td class="start_time">$event->{start_time_name} - $event->{end_time}</td>!
|
|
. qq!<td class="series_name">$event->{series_name}</td>!
|
|
. qq!<td class="title">$title</td>!
|
|
. qq!<td class="episode">$event->{episode}</td>!
|
|
. qq!<td class="rerun">$rerun</td>!
|
|
. qq!<td class="draft">$draft</td>!
|
|
. qq!<td class="live">$live</td>!
|
|
. qq!<td class="archived">$archived</td>!
|
|
. qq!</tr>! . "\n";
|
|
}
|
|
$i++;
|
|
}
|
|
print qq{
|
|
</tbody>
|
|
</table>
|
|
</div>
|
|
} if $params->{part} == 0;
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
|
|
#add handler for events not assigned to series
|
|
if ( ( $params->{studio_id} ne '' ) && ( $params->{studio_id} ne '-1' ) ) {
|
|
my $series = series::get(
|
|
$config,
|
|
{
|
|
project_id => $project_id,
|
|
studio_id => $studio_id
|
|
}
|
|
);
|
|
print q{<div id="event_no_series" style="display:none">};
|
|
print addEventsToSeries( $series, $params )
|
|
if ( ( defined $permissions->{assign_series_events} ) && ( $permissions->{assign_series_events} eq '1' ) );
|
|
print createSeries($params) if ( ( defined $permissions->{create_series} ) && ( $permissions->{create_series} eq '1' ) );
|
|
print q{</div>};
|
|
}
|
|
|
|
print qq{
|
|
</div><!--content-->
|
|
</center>
|
|
<script>
|
|
var region='} . $params->{loc}->{region} . q{';
|
|
var calendarTable=0;
|
|
var label_events='} . $params->{loc}->{label_events} . q{';
|
|
var label_schedule='} . $params->{loc}->{label_schedule} . q{';
|
|
var label_worktime='} . $params->{loc}->{label_worktime} . q{';
|
|
var label_playout='} . $params->{loc}->{label_playout} . q{';
|
|
</script>
|
|
</body>
|
|
</html>
|
|
} if $params->{part} == 0;
|
|
|
|
}
|
|
|
|
sub calcCalendarTable {
|
|
my $config = shift;
|
|
my $permissions = shift;
|
|
my $params = shift;
|
|
my $calendar = shift;
|
|
my $events_by_day = shift;
|
|
my $cal_options = shift;
|
|
|
|
my $start_of_day = $cal_options->{start_of_day};
|
|
my $end_of_day = $cal_options->{end_of_day};
|
|
my $min_hour = $cal_options->{min_hour};
|
|
my $max_hour = $cal_options->{max_hour};
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
my $language = $params->{language};
|
|
|
|
#insert time column
|
|
for my $hour ( $min_hour .. $max_hour ) {
|
|
push @{ $events_by_day->{0} },
|
|
{
|
|
start => sprintf( '%02d:00', $hour % 24 ),
|
|
start_time => sprintf( '%02d:00', $hour ),
|
|
end_time => sprintf( '%02d:00', $hour + 1 ),
|
|
series_id => -1,
|
|
event_id => -1,
|
|
project_id => $project_id,
|
|
studio_id => $studio_id,
|
|
class => 'time',
|
|
time => sprintf( '%02d', $hour % 24 )
|
|
};
|
|
}
|
|
|
|
#insert current time
|
|
my $now = time::get_datetime( time::time_to_datetime(), $config->{date}->{time_zone} );
|
|
my $time = '00:00';
|
|
my $date = '';
|
|
if ( $now =~ /(\d\d\d\d\-\d\d\-\d\d)[ T](\d\d\:\d\d)/ ) {
|
|
$date = $1;
|
|
$time = $2;
|
|
}
|
|
|
|
push @{ $events_by_day->{0} },
|
|
{
|
|
start => $time,
|
|
start_time => $time,
|
|
end_time => $time,
|
|
series_id => -1,
|
|
event_id => -1,
|
|
project_id => -1,
|
|
studio_id => -1,
|
|
class => 'time now',
|
|
time => $time,
|
|
};
|
|
calc_positions( $events_by_day->{0}, $cal_options );
|
|
|
|
#print Dumper($events_by_day);
|
|
my $yoffset = $min_hour * $hour_height;
|
|
my @days = sort keys %$events_by_day;
|
|
|
|
$cal_options->{days} = \@days;
|
|
$cal_options->{yoffset} = $yoffset;
|
|
$cal_options->{events_by_day} = $events_by_day;
|
|
$cal_options->{date} = $date;
|
|
|
|
}
|
|
|
|
sub printTableHeader {
|
|
my $config = shift;
|
|
my $permissions = shift;
|
|
my $params = shift;
|
|
my $cal_options = shift;
|
|
|
|
my $days = $cal_options->{days};
|
|
my $events_by_day = $cal_options->{events_by_day};
|
|
my $yoffset = $cal_options->{yoffset};
|
|
my $date = $cal_options->{date};
|
|
my $min_hour = $cal_options->{min_hour};
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
my $language = $params->{language};
|
|
|
|
#print row with weekday and date
|
|
my $out = '';
|
|
|
|
my $numberOfDays = scalar(@$days);
|
|
my $width = int( 85 / $numberOfDays );
|
|
$out .= qq!
|
|
<script>
|
|
var days=$numberOfDays;
|
|
</script>
|
|
<style>
|
|
#calendar div.time,
|
|
#calendar_weekdays div.date,
|
|
#calendar div.event,
|
|
#calendar div.schedule,
|
|
#calendar div.work,
|
|
#calendar div.play,
|
|
#calendar div.grid {
|
|
width: $width%
|
|
}
|
|
</style>
|
|
!;
|
|
|
|
$out .= q{
|
|
<div id="calendar_weekdays" style="visibility:hidden">
|
|
<table>
|
|
<tbody>
|
|
<tr>
|
|
};
|
|
|
|
my $next_day_found = 0;
|
|
|
|
#print navigation and weekday
|
|
my $ypos = 0;
|
|
my $old_week = undef;
|
|
my $dt = undef;
|
|
for my $day (@$days) {
|
|
my $events = $events_by_day->{$day};
|
|
|
|
if ( $day ne '0' ) {
|
|
$dt = time::get_datetime( $day . 'T00:00:00', $config->{date}->{time_zone} );
|
|
my $week = $dt->week_number();
|
|
if ( ( defined $old_week ) && ( $week ne $old_week ) ) {
|
|
$out .= qq{<td class="week"><div class="week"></div></td>};
|
|
}
|
|
$old_week = $week;
|
|
}
|
|
|
|
#header
|
|
$out .= qq{<td>};
|
|
my $event = $events->[0];
|
|
my $content = '';
|
|
my $class = 'date';
|
|
if ( $day eq '0' ) {
|
|
$out .= qq{<div id="position"></div></td>};
|
|
next;
|
|
} else {
|
|
|
|
#print weekday
|
|
$dt->set_locale($language);
|
|
$content = $dt->day_name() . '<br>';
|
|
$content .= $dt->strftime('%d. %b %Y') . '<br>';
|
|
$content .= time::dayOfYear( $event->{start} ) . '<br>';
|
|
|
|
#$class="date";
|
|
if ( ( $day ge $date ) && ( $next_day_found == 0 ) ) {
|
|
$class = "date today";
|
|
$next_day_found = 1;
|
|
}
|
|
}
|
|
|
|
#insert date name
|
|
my $hour = $min_hour;
|
|
my $date = $day;
|
|
$event = {
|
|
start => sprintf( '%02d:00', $hour % 24 ),
|
|
start_time => sprintf( '%02d:00', $hour ),
|
|
end_time => sprintf( '%02d:30', $hour + 1 ),
|
|
project_id => $project_id,
|
|
studio_id => $studio_id,
|
|
content => $content,
|
|
class => $class,
|
|
date => $date
|
|
};
|
|
|
|
calc_positions( [$event], $cal_options );
|
|
$out .= print_event( $params, $event, $ypos, $yoffset, $yzoom );
|
|
|
|
$out .= '</td>';
|
|
}
|
|
$out .= q{
|
|
</tr>
|
|
</tbody>
|
|
</table>
|
|
</div>
|
|
};
|
|
print $out;
|
|
}
|
|
|
|
sub printTableBody {
|
|
my $config = shift;
|
|
my $permissions = shift;
|
|
my $params = shift;
|
|
my $cal_options = shift;
|
|
|
|
my $days = $cal_options->{days};
|
|
my $events_by_day = $cal_options->{events_by_day};
|
|
my $yoffset = $cal_options->{yoffset};
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
|
|
if ( scalar( @{$days} ) == 0 ) {
|
|
uac::print_info("no dates found at the selected time span");
|
|
}
|
|
|
|
my $out = q{
|
|
<div id="calendar" style="display:none">
|
|
<table>
|
|
<tbody>
|
|
<tr>
|
|
};
|
|
|
|
#print events with weekday and date
|
|
my $ypos = 1;
|
|
my $dt = undef;
|
|
my $old_week = undef;
|
|
|
|
#print Dumper($days);
|
|
for my $day (@$days) {
|
|
my $events = $events_by_day->{$day};
|
|
|
|
if ( $day ne '0' ) {
|
|
$dt = time::get_datetime( $day . 'T00:00:00', $config->{date}->{time_zone} );
|
|
my $week = $dt->week_number();
|
|
if ( ( defined $old_week ) && ( $week ne $old_week ) ) {
|
|
$out .= qq{<td class="week"><div class="week"></div></td>};
|
|
}
|
|
$old_week = $week;
|
|
}
|
|
|
|
$out .= qq{<td>}; # width="$width">};
|
|
|
|
for my $event (@$events) {
|
|
my $content = '';
|
|
if ( ( defined $event->{series_name} ) && ( $event->{series_name} ne '' ) ) {
|
|
$event->{series_name} = $params->{loc}->{single_event}
|
|
if $event->{series_name} eq '' || $event->{series_name} eq '_single_';
|
|
$content = '<b>' . $event->{series_name} . '</b><br>';
|
|
}
|
|
|
|
if ( ( defined $event->{title} ) && ( defined $event->{title} ne '' ) ) {
|
|
$content .= $event->{title};
|
|
unless ( $event->{title} =~ /\#\d+/ ) {
|
|
$content .= ' #' . $event->{episode} if ( ( defined $event->{episode} ) && ( $event->{episode} ne '' ) );
|
|
}
|
|
}
|
|
$content = $event->{start} if $day eq '0';
|
|
$event->{project_id} = $project_id unless defined $event->{project_id};
|
|
$event->{studio_id} = $studio_id unless defined $event->{studio_id};
|
|
$event->{content} = $content unless ( ( defined $event->{class} ) && ( $event->{class} eq 'time now' ) );
|
|
$event->{class} = 'event' if $day ne '0';
|
|
$event->{class} = 'grid' if ( ( defined $event->{grid} ) && ( $event->{grid} == 1 ) );
|
|
$event->{class} = 'schedule' if ( ( defined $event->{schedule} ) && ( $event->{schedule} == 1 ) );
|
|
$event->{class} = 'work' if ( ( defined $event->{work} ) && ( $event->{work} == 1 ) );
|
|
$event->{class} = 'play' if ( ( defined $event->{play} ) && ( $event->{play} == 1 ) );
|
|
|
|
if ( $event->{class} eq 'event' ) {
|
|
$event->{content} .= '<br><span class="weak">';
|
|
$event->{content} .= formatDuration( $event->{duration} ) . 's ' if defined $event->{duration};
|
|
$event->{content} .= formatLoudness( 'L', $event->{rms_left} ) . ' ' if defined $event->{rms_left};
|
|
$event->{content} .= formatLoudness( 'R', $event->{rms_right} ) if defined $event->{rms_right};
|
|
$event->{content} .= '</span>';
|
|
}
|
|
|
|
$out .= print_event( $params, $event, $ypos, $yoffset, $yzoom );
|
|
|
|
$ypos++;
|
|
}
|
|
$out .= '</td>';
|
|
}
|
|
$out .= q{
|
|
</tr>
|
|
</tbody>
|
|
</table>
|
|
</div><!--table-->
|
|
};
|
|
|
|
print $out;
|
|
}
|
|
|
|
sub printSeries {
|
|
my $config = shift;
|
|
my $permissions = shift;
|
|
my $params = shift;
|
|
my $cal_options = shift;
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
|
|
my $series = series::get(
|
|
$config,
|
|
{
|
|
project_id => $project_id,
|
|
studio_id => $studio_id
|
|
}
|
|
);
|
|
|
|
my $out = '';
|
|
|
|
#add schedule entry for series
|
|
if ( ( defined $permissions->{update_schedule} ) && ( $permissions->{update_schedule} eq '1' ) && ( @$series > 0 ) ) {
|
|
$out .= q{<div id="series" style="display:none">};
|
|
$out .= addSeries( $series, $params );
|
|
$out .= q{</div>};
|
|
}
|
|
|
|
if ( ( $params->{studio_id} ne '' ) && ( $params->{studio_id} ne '-1' ) ) {
|
|
$out .= q{<div id="event_no_series" style="display:none">};
|
|
$out .= addEventsToSeries( $series, $params )
|
|
if ( ( defined $permissions->{assign_series_events} ) && ( $permissions->{assign_series_events} eq '1' ) );
|
|
$out .= createSeries($params) if ( ( defined $permissions->{create_series} ) && ( $permissions->{create_series} eq '1' ) );
|
|
$out .= q{</div>};
|
|
}
|
|
|
|
$out .= q{
|
|
<div id="no_studio_selected" style="display:none">
|
|
} . $params->{loc}->{label_no_studio_selected} . q{
|
|
</div>
|
|
};
|
|
print $out;
|
|
}
|
|
|
|
sub printJavascript {
|
|
my $config = shift;
|
|
my $permissions = shift;
|
|
my $params = shift;
|
|
my $cal_options = shift;
|
|
|
|
my $startOfDay = $cal_options->{min_hour} % 24;
|
|
|
|
#print STDERR "js: ".$cal_options->{min_hour}." ".$startOfDay."\n";
|
|
my $out = q{
|
|
<script>
|
|
var region='} . $params->{loc}->{region} . q{';
|
|
var calendarTable=1;
|
|
var startOfDay=} . $startOfDay . q{;
|
|
var label_events='} . $params->{loc}->{label_events} . q{';
|
|
var label_schedule='} . $params->{loc}->{label_schedule} . q{';
|
|
var label_worktime='} . $params->{loc}->{label_worktime} . q{';
|
|
var label_playout='} . $params->{loc}->{label_playout} . q{';
|
|
</script>
|
|
};
|
|
print $out;
|
|
}
|
|
|
|
#TODO: Javascript
|
|
|
|
sub addCalendarButton {
|
|
my $params = shift;
|
|
my $calendar = shift;
|
|
|
|
#add calendar button
|
|
my $content = qq{
|
|
<div id="previous_month"><a id="previous">«</a></div>
|
|
<div id="selectDate">
|
|
<input id="start_date"/>
|
|
<div id="current_date">$calendar->{month} $calendar->{year}</div>
|
|
</div>
|
|
<div id="next_month"><a id="next">»</a></div>
|
|
};
|
|
return $content;
|
|
}
|
|
|
|
sub addSeries {
|
|
my $series = shift;
|
|
my $params = shift;
|
|
|
|
return unless defined $series;
|
|
return unless @$series > 0;
|
|
|
|
my $out = '';
|
|
$out .= q{
|
|
<table>
|
|
<tr>
|
|
<td>} . $params->{loc}->{label_series} . q{</td>
|
|
<td><select id="series_select" name="series_id">
|
|
};
|
|
|
|
for my $serie (@$series) {
|
|
my $id = $serie->{series_id} || -1;
|
|
my $duration = $serie->{duration} || 0;
|
|
my $name = $serie->{series_name} || '';
|
|
my $title = $serie->{title} || '';
|
|
$name = $params->{loc}->{single_events} if $serie->{has_single_events} eq '1';
|
|
$title = ' - ' . $title if $title ne '';
|
|
|
|
$out .= '<option value="' . $id . '" duration="' . $duration . '">' . $name . $title . '</option>' . "\n";
|
|
}
|
|
|
|
#print Dumper($series);
|
|
|
|
$out .= q{
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td>} . $params->{loc}->{label_date} . q{</td>
|
|
<td><input id="series_date" name="start_date" value=""></td>
|
|
</tr>
|
|
<tr>
|
|
<td>} . $params->{loc}->{label_duration} . q{</td>
|
|
<td><input id="series_duration" value="60"></td>
|
|
</tr>
|
|
</table>
|
|
</div>
|
|
};
|
|
return $out;
|
|
|
|
}
|
|
|
|
# create form to add events to series (that are not assigned to series, yet)
|
|
sub addEventsToSeries {
|
|
my $series = shift;
|
|
my $params = shift;
|
|
|
|
return unless defined $series;
|
|
return unless @$series > 0;
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
|
|
my $out = '';
|
|
$out .= qq{
|
|
<div>
|
|
<b>} . $params->{loc}->{label_assign_event_series} . qq{</b>
|
|
<form id="assign_series_events" method="post" action="series.cgi">
|
|
<input type="hidden" name="project_id" value="$project_id">
|
|
<input type="hidden" name="studio_id" value="$studio_id">
|
|
<input type="hidden" name="event_id">
|
|
<table>
|
|
<tr>
|
|
<td>} . $params->{loc}->{label_series} . qq{</td>
|
|
<td><select id="select_series" name="series_id">
|
|
};
|
|
|
|
for my $serie (@$series) {
|
|
my $id = $serie->{series_id} || -1;
|
|
my $duration = $serie->{duration} || '';
|
|
my $name = $serie->{series_name} || '';
|
|
my $title = $serie->{title} || '';
|
|
$name = $params->{loc}->{single_events} if $serie->{has_single_events} == 1;
|
|
$title = ' - ' . $title if $title ne '';
|
|
$out .= '<option value="' . $id . '" duration="' . $duration . '">' . $name . $title . '</option>' . "\n";
|
|
}
|
|
|
|
#print Dumper($series);
|
|
|
|
$out .= q{
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr><td></td>
|
|
<td>
|
|
<button type="submit" name="action" value="assign_event">}
|
|
. $params->{loc}->{button_assign_event_series}
|
|
. q{</button>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
</div>
|
|
};
|
|
return $out;
|
|
}
|
|
|
|
# insert form to create series on not assigned events
|
|
sub createSeries {
|
|
my $params = shift;
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
return qq{
|
|
<div>
|
|
<b>} . $params->{loc}->{label_create_series} . qq{</b>
|
|
<form method="post" action="series.cgi">
|
|
<input type="hidden" name="project_id" value="$project_id">
|
|
<input type="hidden" name="studio_id" value="$studio_id">
|
|
<table>
|
|
<tr><td class="label">} . $params->{loc}->{label_name} . qq{</td> <td><input name="series_name"></td></tr>
|
|
<tr><td class="label">} . $params->{loc}->{label_title} . qq{</td> <td><input name="title"></td></tr>
|
|
<tr><td></td>
|
|
<td>
|
|
<button type="submit" name="action" value="create">} . $params->{loc}->{button_create_series} . qq{</button>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
</div>
|
|
};
|
|
}
|
|
|
|
sub print_event {
|
|
my $params = shift;
|
|
my $event = shift;
|
|
my $ypos = shift;
|
|
my $yoffset = shift;
|
|
my $yzoom = shift;
|
|
|
|
$event->{project_id} = '-1' unless defined $event->{project_id};
|
|
$event->{studio_id} = '-1' unless defined $event->{studio_id};
|
|
$event->{series_id} = '-1' unless defined $event->{series_id};
|
|
$event->{event_id} = '-1' unless defined $event->{event_id};
|
|
|
|
my $id = 'event_' . $event->{project_id} . '_' . $event->{studio_id} . '_' . $event->{series_id} . '_' . $event->{event_id};
|
|
$id = 'grid_' . $event->{project_id} . '_' . $event->{studio_id} . '_' . $event->{series_id} if defined $event->{grid};
|
|
$id = 'work_' . $event->{project_id} . '_' . $event->{studio_id} . '_' . $event->{schedule_id} if defined $event->{work};
|
|
$id = 'play_' . $event->{project_id} . '_' . $event->{studio_id} if defined $event->{play};
|
|
|
|
my $class = $event->{class} || '';
|
|
my $showIcons = 0;
|
|
if ( $class =~ /(event|schedule)/ ) {
|
|
$class .= ' scheduled' if defined $event->{scheduled};
|
|
$class .= ' no_series' if ( ( $class eq 'event' ) && ( $event->{series_id} eq '-1' ) );
|
|
$class .= " error x$event->{error}" if defined $event->{error};
|
|
|
|
for my $filter ( 'rerun', 'archived', 'playout', 'published', 'live', 'disable_event_sync', 'draft' ) {
|
|
$class .= ' ' . $filter if ( ( defined $event->{$filter} ) && ( $event->{$filter} eq '1' ) );
|
|
}
|
|
$class .= ' preproduced' unless ( ( defined $event->{'live'} ) && ( $event->{'live'} eq '1' ) );
|
|
$class .= ' no_playout' unless ( ( defined $event->{'playout'} ) && ( $event->{'playout'} eq '1' ) );
|
|
$class .= ' no_rerun' unless ( ( defined $event->{'rerun'} ) && ( $event->{'rerun'} eq '1' ) );
|
|
$showIcons = 1;
|
|
}
|
|
|
|
my $ystart = $event->{ystart} - $yoffset;
|
|
my $yend = $event->{yend} - $yoffset - 10;
|
|
|
|
$ystart = int( $ystart * $yzoom );
|
|
$yend = int( $yend * $yzoom );
|
|
my $height = $yend - $ystart + 2;
|
|
|
|
if ( $ypos > 0 ) {
|
|
$height = q{height:} . ($height) . 'px;';
|
|
} else {
|
|
$height = '';
|
|
}
|
|
|
|
my $date = $event->{origStart} || $event->{start} || '';
|
|
$date = $event->{time} if defined $event->{time};
|
|
$date = $event->{date} if defined $event->{date};
|
|
my $content = $event->{content} || '';
|
|
|
|
if ( $class =~ /schedule/ ) {
|
|
my $frequency = getFrequency($event);
|
|
$content .= "<br>($frequency)" if defined $frequency;
|
|
}
|
|
|
|
my $attr = '';
|
|
if ( $class =~ /play/ ) {
|
|
$attr .= ' rms="' . $event->{rms_image} . '"' if defined $event->{rms_image};
|
|
$attr .= ' start="' . $event->{start} . '"' if defined $event->{start};
|
|
}
|
|
|
|
if (defined $event->{upload}){
|
|
$content.='<br>uploading <progress max="10" ></progress> ';
|
|
}
|
|
|
|
if ($showIcons) {
|
|
$content = '<div class="text">' . $content . '</div><div class="icons"></div>';
|
|
}
|
|
|
|
return
|
|
q{<div }
|
|
. qq{class="$class" id="$id" style="}
|
|
. $height . q{top:}
|
|
. $ystart . q{px;"}
|
|
. qq{ date="$date"}
|
|
. qq{ $attr}
|
|
. qq{>$content</div>} . "\n";
|
|
}
|
|
|
|
sub getFrequency {
|
|
my $event = shift;
|
|
|
|
my $period_type = $event->{period_type};
|
|
return undef unless defined $period_type;
|
|
return undef if $period_type ne 'days';
|
|
|
|
my $frequency = $event->{frequency};
|
|
return undef unless defined $frequency;
|
|
return undef unless $frequency > 0;
|
|
|
|
if ( ( $frequency >= 7 ) && ( ( $frequency % 7 ) == 0 ) ) {
|
|
$frequency /= 7;
|
|
return '1 week' if $frequency == 1;
|
|
return $frequency .= ' weeks';
|
|
}
|
|
|
|
return '1 day' if $frequency == 1;
|
|
return $frequency .= ' days';
|
|
}
|
|
|
|
sub calc_positions {
|
|
my $events = $_[0];
|
|
my $cal_options = $_[1];
|
|
|
|
my $start_of_day = $cal_options->{start_of_day};
|
|
|
|
for my $event (@$events) {
|
|
my ( $start_hour, $start_min ) = getTime( $event->{start_time} );
|
|
my ( $end_hour, $end_min ) = getTime( $event->{end_time} );
|
|
|
|
$start_hour += 24 if $start_hour < $start_of_day;
|
|
$end_hour += 24 if $end_hour <= $start_of_day;
|
|
$event->{ystart} = $start_hour * 60 + $start_min;
|
|
$event->{yend} = $end_hour * 60 + $end_min;
|
|
}
|
|
}
|
|
|
|
sub find_errors {
|
|
my $events = $_[0];
|
|
|
|
for my $event (@$events) {
|
|
next if defined $event->{grid};
|
|
next if defined $event->{work};
|
|
next if defined $event->{play};
|
|
next if (defined $event->{draft}) && ($event->{draft} == 1);
|
|
next unless defined $event->{ystart};
|
|
next unless defined $event->{yend};
|
|
$event->{check_errors} = 1;
|
|
}
|
|
|
|
#check next events
|
|
for my $i ( 0 .. @$events - 1 ) {
|
|
my $event = $events->[$i];
|
|
next unless defined $event->{check_errors};
|
|
|
|
#look for conflicts with next 5 events of day
|
|
my $min_index = $i + 1;
|
|
next if $min_index >= @$events;
|
|
my $max_index = $i + 8;
|
|
$max_index = @$events - 1 if $max_index >= @$events;
|
|
for my $j ( $min_index .. $max_index ) {
|
|
my $event2 = $events->[$j];
|
|
next unless defined $event2->{check_errors};
|
|
|
|
#mark events if same start,stop,series_id, one is schedule one is event
|
|
if ( ( defined $event->{series_id} )
|
|
&& ( defined $event2->{series_id} )
|
|
&& ( $event->{series_id} == $event2->{series_id} ) )
|
|
{
|
|
if ( ( $event->{ystart} eq $event2->{ystart} )
|
|
&& ( $event->{yend} eq $event2->{yend} ) )
|
|
{
|
|
if ( ( defined $event->{schedule} ) && ( !( defined $event2->{schedule} ) ) ) {
|
|
$event->{hide} = 1;
|
|
$event2->{scheduled} = 1;
|
|
next;
|
|
}
|
|
if ( ( !( defined $event->{schedule} ) ) && ( defined $event2->{schedule} ) ) {
|
|
$event->{scheduled} = 1;
|
|
$event2->{hide} = 1;
|
|
next;
|
|
}
|
|
} elsif ( ( $event->{ystart} >= $event2->{ystart} )
|
|
&& ( $event->{scheduled} == 1 )
|
|
&& ( $event2->{scheduled} == 1 ) )
|
|
{
|
|
#subsequent schedules
|
|
$event->{error}++;
|
|
$event2->{error} = 1 unless defined $event2->{error};
|
|
$event2->{error}++;
|
|
next;
|
|
}
|
|
} elsif ( $event->{ystart} >= $event2->{ystart} ) {
|
|
|
|
#errors on multiple schedules or events
|
|
$event->{error}++;
|
|
$event2->{error} = 1 unless defined $event2->{error};
|
|
$event2->{error}++;
|
|
}
|
|
}
|
|
}
|
|
|
|
#remove error tags from correctly scheduled entries (subsequent entries with same series id)
|
|
for my $event (@$events) {
|
|
delete $event->{error}
|
|
if (
|
|
( defined $event->{error} )
|
|
&& ( ( ( defined $event->{scheduled} ) && ( $event->{scheduled} == 1 ) )
|
|
|| ( ( defined $event->{hide} ) && ( $event->{hide} == 1 ) ) )
|
|
);
|
|
}
|
|
}
|
|
|
|
sub printToolbar {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
my $calendar = shift;
|
|
|
|
#print Dumper($params);
|
|
my $today = time::time_to_date();
|
|
|
|
#setToday (TODO:javascript)
|
|
my $toolbar = '<div id="toolbar">';
|
|
|
|
#$toolbar.='<div class="cal_nav">'.addCalendarButton($params, $calendar).'</div>';
|
|
$toolbar .= addCalendarButton( $params, $calendar );
|
|
$toolbar .= qq{<button id="setToday">} . $params->{loc}->{button_today} . qq{</button>};
|
|
|
|
#ranges
|
|
my $ranges = {
|
|
$params->{loc}->{label_month} => 'month',
|
|
$params->{loc}->{label_4_weeks} => '28',
|
|
$params->{loc}->{label_2_weeks} => '14',
|
|
$params->{loc}->{label_1_week} => '7',
|
|
$params->{loc}->{label_day} => '1',
|
|
};
|
|
$toolbar .= qq{
|
|
<select id="range" name="range" onchange="reloadCalendar()" value="$params->{range}">
|
|
};
|
|
|
|
# my $options=[];
|
|
for my $range (
|
|
$params->{loc}->{label_month}, $params->{loc}->{label_4_weeks}, $params->{loc}->{label_2_weeks},
|
|
$params->{loc}->{label_1_week}, $params->{loc}->{label_day}
|
|
)
|
|
{
|
|
my $value = $ranges->{$range} || '';
|
|
$toolbar .= qq{<option name="$range" value="$value">} . $range . '</option>';
|
|
}
|
|
$toolbar .= q{
|
|
</select>
|
|
};
|
|
|
|
# start of day
|
|
my $day_start = $params->{day_start} || '';
|
|
$toolbar .= qq{
|
|
<select id="day_start" name="day_start" onchange="reloadCalendar()" value="$day_start">
|
|
};
|
|
for my $hour ( 0 .. 24 ) {
|
|
my $selected = '';
|
|
$selected = 'selected="selected"' if $hour eq $day_start;
|
|
$toolbar .= qq{<option value="$hour">} . sprintf( "%02d:00", $hour ) . '</option>';
|
|
}
|
|
$toolbar .= q{
|
|
</select>
|
|
};
|
|
|
|
#filter
|
|
my $filter = $params->{filter} || '';
|
|
$toolbar .= qq{
|
|
<select id="filter" name="filter" onchange="reloadCalendar()">
|
|
};
|
|
|
|
for my $filter ( 'no markup', 'conflicts', 'rerun', 'archived', 'playout', 'published', 'live', 'disable_event_sync', 'draft' ) {
|
|
my $key = $filter;
|
|
$key =~ s/ /_/g;
|
|
|
|
$toolbar .= qq{<option value="$filter">} . $params->{loc}->{ 'label_' . $key } . '</option>';
|
|
}
|
|
|
|
$toolbar .= q{
|
|
</select>
|
|
};
|
|
|
|
#search
|
|
$toolbar .= qq{
|
|
<form class="search">
|
|
<input type="hidden" name="project_id" value="$params->{project_id}">
|
|
<input type="hidden" name="studio_id" value="$params->{studio_id}">
|
|
<input type="hidden" name="date" value="$params->{date}">
|
|
<input type="hidden" name="list" value="1">
|
|
<input class="search" name="search" value="$params->{search}" placeholder="} . $params->{loc}->{button_search} . qq{">
|
|
<button type="submit" name="action" value="search">} . $params->{loc}->{button_search} . qq{</button>
|
|
</form>
|
|
};
|
|
|
|
#
|
|
$toolbar .= qq{
|
|
<button id="editSeries">} . $params->{loc}->{button_edit_series} . qq{</button>
|
|
} if $params->{list} == 1;
|
|
|
|
$toolbar .= qq{
|
|
</div>
|
|
};
|
|
|
|
print $toolbar;
|
|
}
|
|
|
|
sub getTime {
|
|
my $time = shift;
|
|
if ( $time =~ /^(\d\d)\:(\d\d)/ ) {
|
|
return ( $1, $2 );
|
|
}
|
|
return ( -1, -1 );
|
|
}
|
|
|
|
sub getCalendar {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
my $language = shift;
|
|
|
|
my $from_date = getFromDate( $config, $params );
|
|
my $till_date = getTillDate( $config, $params );
|
|
my $range = $params->{range};
|
|
|
|
my $previous = '';
|
|
my $next = '';
|
|
if ( $range eq 'month' ) {
|
|
$previous = time::get_datetime( $from_date, $config->{date}->{time_zone} )->subtract( months => 1 )->set_day(1)->date();
|
|
$next = time::get_datetime( $from_date, $config->{date}->{time_zone} )->add( months => 1 )->set_day(1)->date();
|
|
} else {
|
|
$previous = time::get_datetime( $from_date, $config->{date}->{time_zone} )->subtract( days => $range )->date();
|
|
$next = time::get_datetime( $from_date, $config->{date}->{time_zone} )->add( days => $range )->date();
|
|
}
|
|
my ( $year, $month, $day ) = split( /\-/, $from_date );
|
|
$month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
|
|
|
|
return {
|
|
from_date => $from_date,
|
|
till_date => $till_date,
|
|
next_date => $next,
|
|
previous_date => $previous,
|
|
month => $month,
|
|
year => $year
|
|
};
|
|
|
|
}
|
|
|
|
sub getFromDate {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
|
|
if ( $params->{from_date} ne '' ) {
|
|
return $params->{from_date};
|
|
}
|
|
my $date = $params->{date};
|
|
if ( $date eq '' ) {
|
|
$date = DateTime->now( time_zone => $config->{date}->{time_zone} )->date();
|
|
}
|
|
|
|
if ( $params->{range} eq '28' ) {
|
|
|
|
#get start of 4 week period
|
|
$date = time::get_datetime( $date, $config->{date}->{time_zone} )->truncate( to => 'week' )->ymd();
|
|
}
|
|
if ( $params->{range} eq 'month' ) {
|
|
|
|
#get first day of month
|
|
return time::get_datetime( $date, $config->{date}->{time_zone} )->set_day(1)->date();
|
|
}
|
|
|
|
#get date
|
|
return time::get_datetime( $date, $config->{date}->{time_zone} )->date();
|
|
}
|
|
|
|
sub getTillDate {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
if ( $params->{till_date} ne '' ) {
|
|
return $params->{till_date};
|
|
}
|
|
my $date = $params->{date} || '';
|
|
if ( $date eq '' ) {
|
|
$date = DateTime->now( time_zone => $config->{date}->{time_zone} )->date();
|
|
}
|
|
if ( $params->{range} eq '28' ) {
|
|
$date = time::get_datetime( $date, $config->{date}->{time_zone} )->truncate( to => 'week' )->ymd();
|
|
}
|
|
if ( $params->{range} eq 'month' ) {
|
|
|
|
#get last day of month
|
|
return time::get_datetime( $date, $config->{date}->{time_zone} )->set_day(1)->add( months => 1 )->subtract( days => 1 )->date();
|
|
}
|
|
|
|
#add range to date
|
|
return time::get_datetime( $date, $config->{date}->{time_zone} )->add( days => $params->{range} )->date();
|
|
}
|
|
|
|
sub getSeriesEvents {
|
|
my $config = shift;
|
|
my $request = shift;
|
|
my $options = shift;
|
|
my $params = shift;
|
|
|
|
#get events by series id
|
|
my $series_id = $request->{params}->{checked}->{series_id};
|
|
if ( defined $series_id ) {
|
|
my $events = series::get_events( $request->{config}, $options );
|
|
return $events;
|
|
}
|
|
|
|
#get events (directly from database to get the ones, not assigned, yet)
|
|
delete $options->{studio_id};
|
|
delete $options->{project_id};
|
|
$options->{recordings}=1;
|
|
|
|
my $request2 = {
|
|
params => {
|
|
checked => events::check_params( $config, $options )
|
|
},
|
|
config => $request->{config},
|
|
permissions => $request->{permissions}
|
|
};
|
|
$request2->{params}->{checked}->{published} = 'all';
|
|
$request2->{params}->{checked}->{draft} = '1' if $params->{list}==1;
|
|
|
|
#delete $request2->{params}->{checked}->{locations_to_exclude}
|
|
# if ( ( $params->{studio_id} == -1 ) && ( defined $request2->{params}->{checked}->{locations_to_exclude} ) );
|
|
|
|
my $events = events::get( $config, $request2 );
|
|
|
|
#print STDERR Dumper($request2->{params}->{checked});
|
|
#print STDERR Dumper($events);
|
|
series::add_series_ids_to_events( $request->{config}, $events );
|
|
|
|
my $studios = studios::get(
|
|
$request->{config},
|
|
{
|
|
project_id => $options->{project_id}
|
|
}
|
|
);
|
|
my $studio_id_by_location = {};
|
|
for my $studio (@$studios) {
|
|
$studio_id_by_location->{ $studio->{location} } = $studio->{id};
|
|
}
|
|
|
|
for my $event (@$events) {
|
|
$event->{project_id} = $options->{project_id} unless defined $event->{project_id};
|
|
$event->{studio_id} = $studio_id_by_location->{ $event->{location} } unless defined $event->{studio_id};
|
|
}
|
|
|
|
return $events;
|
|
}
|
|
|
|
sub check_params {
|
|
my $params = shift;
|
|
my $config = shift;
|
|
|
|
my $checked = {};
|
|
my $template = '';
|
|
$checked->{template} = template::check( $params->{template}, 'series' );
|
|
|
|
my $debug = $params->{debug} || '';
|
|
if ( $debug =~ /([a-z\_\,]+)/ ) {
|
|
$debug = $1;
|
|
}
|
|
$checked->{debug} = $debug;
|
|
|
|
#numeric values
|
|
$checked->{part} = 0;
|
|
$checked->{list} = 0;
|
|
for my $param ( 'id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'event_id', 'part', 'list', 'day_start' )
|
|
{
|
|
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
|
|
$checked->{$param} = $params->{$param};
|
|
}
|
|
}
|
|
|
|
$checked->{day_start} = $config->{date}->{day_starting_hour} unless defined $checked->{day_start};
|
|
$checked->{day_start} %= 24;
|
|
|
|
if ( defined $checked->{studio_id} ) {
|
|
|
|
# a studio is selected, use the studio from parameter
|
|
$checked->{default_studio_id} = $checked->{studio_id};
|
|
} elsif ( ( defined $params->{studio_id} ) && ( $params->{studio_id} eq '-1' ) ) {
|
|
|
|
# all studios selected, use -1
|
|
$checked->{studio_id} = -1;
|
|
} else {
|
|
|
|
# no studio given, use default studio
|
|
$checked->{studio_id} = $checked->{default_studio_id};
|
|
}
|
|
|
|
$checked->{open_end} = 1;
|
|
for my $param ('open_end') {
|
|
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
|
|
$checked->{$param} = $params->{$param};
|
|
}
|
|
}
|
|
|
|
#scalars
|
|
$checked->{search} = '';
|
|
$checked->{filter} = '';
|
|
|
|
#$checked->{range}='month';
|
|
for my $param ( 'search', 'filter', 'range' ) {
|
|
if ( defined $params->{$param} ) {
|
|
$checked->{$param} = $params->{$param};
|
|
$checked->{$param} =~ s/^\s+//g;
|
|
$checked->{$param} =~ s/\s+$//g;
|
|
}
|
|
}
|
|
|
|
for my $param ('expires') {
|
|
$checked->{$param} = time::check_datetime( $params->{$param} );
|
|
}
|
|
|
|
for my $param ( 'date', 'from_date', 'till_date' ) {
|
|
$checked->{$param} = time::check_date( $params->{$param} );
|
|
}
|
|
|
|
for my $param ( 'series_name', 'title', 'excerpt', 'content', 'program', 'category', 'image', 'user_content' ) {
|
|
if ( defined $params->{$param} ) {
|
|
|
|
#$checked->{$param}=uri_unescape();
|
|
$checked->{$param} = $params->{$param};
|
|
$checked->{$param} =~ s/^\s+//g;
|
|
$checked->{$param} =~ s/\s+$//g;
|
|
}
|
|
}
|
|
|
|
#actions and roles
|
|
if ( defined $params->{action} ) {
|
|
if ( $params->{action} =~ /^(add_user|remove_user|delete|save|details|show|edit_event|save_event)$/ ) {
|
|
$checked->{action} = $params->{action};
|
|
}
|
|
}
|
|
|
|
return $checked;
|
|
}
|
|
|