remove debug
This commit is contained in:
@@ -15,7 +15,6 @@ my $cgi=new CGI();
|
|||||||
my $params=$cgi->Vars();
|
my $params=$cgi->Vars();
|
||||||
|
|
||||||
my $config =config::get('../../piradio.de/agenda/config/config.cgi');
|
my $config =config::get('../../piradio.de/agenda/config/config.cgi');
|
||||||
my $debug =$config->{system}->{debug};
|
|
||||||
|
|
||||||
$params=check_params($params);
|
$params=check_params($params);
|
||||||
our $errors=[];
|
our $errors=[];
|
||||||
|
|||||||
@@ -31,8 +31,6 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
my $config = config::getFromScriptLocation();
|
my $config = config::getFromScriptLocation();
|
||||||
|
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my $base_dir = $config->{locations}->{base_dir};
|
my $base_dir = $config->{locations}->{base_dir};
|
||||||
|
|
||||||
my $output_header = '';
|
my $output_header = '';
|
||||||
|
|||||||
@@ -19,8 +19,6 @@ if ( $0 =~ /cal.*?\.cgi$/ ) {
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::getFromScriptLocation();
|
my $config = config::getFromScriptLocation();
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
my $request = {
|
my $request = {
|
||||||
url => $ENV{QUERY_STRING},
|
url => $ENV{QUERY_STRING},
|
||||||
params => {
|
params => {
|
||||||
|
|||||||
@@ -20,8 +20,6 @@ binmode STDOUT, ":encoding(UTF-8)";
|
|||||||
|
|
||||||
if ( $0 =~ /comments.*?\.cgi$/ ) {
|
if ( $0 =~ /comments.*?\.cgi$/ ) {
|
||||||
my $config = config::get('config/config.cgi');
|
my $config = config::get('config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
my $request = {
|
my $request = {
|
||||||
url => $ENV{QUERY_STRING},
|
url => $ENV{QUERY_STRING},
|
||||||
params => {
|
params => {
|
||||||
|
|||||||
@@ -33,13 +33,6 @@ domain ${DOMAIN}
|
|||||||
|
|
||||||
<system>
|
<system>
|
||||||
config_file ${BASE_DIR}/agenda/config/config.cgi
|
config_file ${BASE_DIR}/agenda/config/config.cgi
|
||||||
|
|
||||||
log_file /var/www/vhosts/${DOMAIN}/logs/error_log
|
|
||||||
log_debug_file ${LOG_DIR}/${DOMAIN}/calcms.log
|
|
||||||
log_debug_memory_file ${LOG_DIR}/${DOMAIN}/calcms-mem.log
|
|
||||||
|
|
||||||
debug_memory 0
|
|
||||||
debug 0
|
|
||||||
</system>
|
</system>
|
||||||
|
|
||||||
<cache>
|
<cache>
|
||||||
|
|||||||
@@ -93,7 +93,6 @@ var calcms = (function($) {
|
|||||||
if (field != null && value != null && field != '') set(field, value);
|
if (field != null && value != null && field != '') set(field, value);
|
||||||
|
|
||||||
// read fields
|
// read fields
|
||||||
var debug = my.get('debug');
|
|
||||||
var from_date = my.get('from_date');
|
var from_date = my.get('from_date');
|
||||||
var till_date = my.get('till_date');
|
var till_date = my.get('till_date');
|
||||||
var date = my.get('date');
|
var date = my.get('date');
|
||||||
@@ -203,10 +202,6 @@ var calcms = (function($) {
|
|||||||
url += "&print=1";
|
url += "&print=1";
|
||||||
}
|
}
|
||||||
|
|
||||||
if (debug != '') {
|
|
||||||
url += '&debug=' + debug;
|
|
||||||
}
|
|
||||||
|
|
||||||
return url;
|
return url;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -401,9 +396,7 @@ var calcms = (function($) {
|
|||||||
|
|
||||||
// load calendar content
|
// load calendar content
|
||||||
my.showCalendar = function showCalendar(target, field) {
|
my.showCalendar = function showCalendar(target, field) {
|
||||||
var calendar_debug = my.get('calendar_debug');
|
|
||||||
var calendar_url = my.get('calendar_url');
|
var calendar_url = my.get('calendar_url');
|
||||||
var debug = my.get('debug');
|
|
||||||
var date = my.get('month');
|
var date = my.get('month');
|
||||||
|
|
||||||
var url = calendar_url;
|
var url = calendar_url;
|
||||||
@@ -411,9 +404,6 @@ var calcms = (function($) {
|
|||||||
if (field == 'month') {
|
if (field == 'month') {
|
||||||
url += '/' + date + '/';
|
url += '/' + date + '/';
|
||||||
}
|
}
|
||||||
if (debug != '') {
|
|
||||||
url += '&debug=' + debug;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (target == 'window') {
|
if (target == 'window') {
|
||||||
window.location.href = events_url + url;
|
window.location.href = events_url + url;
|
||||||
@@ -421,9 +411,6 @@ var calcms = (function($) {
|
|||||||
my.updateContainer('calcms_calendar', url);
|
my.updateContainer('calcms_calendar', url);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (calendar_debug != null) {
|
|
||||||
calendar_debug.innerHTML = url;
|
|
||||||
}
|
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -545,7 +532,6 @@ var calcms = (function($) {
|
|||||||
if (my.get('preloaded') == '') {
|
if (my.get('preloaded') == '') {
|
||||||
var program_url = my.get('program_url');
|
var program_url = my.get('program_url');
|
||||||
var series_name_url = my.get('series_name_url');
|
var series_name_url = my.get('series_name_url');
|
||||||
var debug = my.get('debug');
|
|
||||||
|
|
||||||
if (program_url != null && program_url != '')
|
if (program_url != null && program_url != '')
|
||||||
my.updateContainer('calcms_programs', program_url);
|
my.updateContainer('calcms_programs', program_url);
|
||||||
|
|||||||
@@ -32,7 +32,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( !defined $user ) || ( $user eq '' );
|
return if ( !defined $user ) || ( $user eq '' );
|
||||||
|
|
||||||
|
|||||||
@@ -31,7 +31,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -29,7 +29,6 @@ use time();
|
|||||||
binmode STDOUT, ":utf8";
|
binmode STDOUT, ":utf8";
|
||||||
|
|
||||||
our $config = config::get('../config/config.cgi');
|
our $config = config::get('../config/config.cgi');
|
||||||
our $debug = $config->{system}->{debug};
|
|
||||||
my $base_dir = $config->{locations}->{base_dir};
|
my $base_dir = $config->{locations}->{base_dir};
|
||||||
|
|
||||||
my $tempDir = '/var/tmp';
|
my $tempDir = '/var/tmp';
|
||||||
|
|||||||
@@ -42,7 +42,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( !defined $user ) || ( $user eq '' );
|
return if ( !defined $user ) || ( $user eq '' );
|
||||||
$config->{user} = $user;
|
$config->{user} = $user;
|
||||||
|
|||||||
@@ -32,7 +32,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( !defined $user ) || ( $user eq '' );
|
return if ( !defined $user ) || ( $user eq '' );
|
||||||
|
|
||||||
@@ -148,7 +147,6 @@ sub showComments {
|
|||||||
|
|
||||||
$template_parameters->{search} = markup::fix_utf8( $request->{params}->{original}->{search} );
|
$template_parameters->{search} = markup::fix_utf8( $request->{params}->{original}->{search} );
|
||||||
$template_parameters->{events} = $events;
|
$template_parameters->{events} = $events;
|
||||||
$template_parameters->{debug} = $config->{system}->{debug};
|
|
||||||
$template_parameters->{event_count} = scalar(@$events);
|
$template_parameters->{event_count} = scalar(@$events);
|
||||||
$template_parameters->{comment_count} = $comment_count;
|
$template_parameters->{comment_count} = $comment_count;
|
||||||
$template_parameters->{is_empty} = 1 if scalar @$events == 0;
|
$template_parameters->{is_empty} = 1 if scalar @$events == 0;
|
||||||
|
|||||||
@@ -26,7 +26,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -30,7 +30,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
my $user_presets = uac::get_user_presets(
|
my $user_presets = uac::get_user_presets(
|
||||||
|
|||||||
@@ -40,7 +40,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -25,7 +25,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -33,7 +33,6 @@ my $r = shift;
|
|||||||
my $cgi = undef;
|
my $cgi = undef;
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
our $debug = $config->{system}->{debug};
|
|
||||||
my $base_dir = $config->{locations}->{base_dir};
|
my $base_dir = $config->{locations}->{base_dir};
|
||||||
my $tmp_dir = '/var/tmp';
|
my $tmp_dir = '/var/tmp';
|
||||||
my $upload_limit = 2048 * 1000;
|
my $upload_limit = 2048 * 1000;
|
||||||
|
|||||||
@@ -33,7 +33,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -20,7 +20,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( $user eq '' );
|
return if ( $user eq '' );
|
||||||
|
|
||||||
|
|||||||
@@ -28,7 +28,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
@@ -243,12 +242,6 @@ sub check_params {
|
|||||||
my $template = '';
|
my $template = '';
|
||||||
$checked->{template} = template::check( $config, $params->{template}, 'notify-events' );
|
$checked->{template} = template::check( $config, $params->{template}, 'notify-events' );
|
||||||
|
|
||||||
my $debug = $params->{debug} || '';
|
|
||||||
if ( $debug =~ /([a-z\_\,]+)/ ) {
|
|
||||||
$debug = $1;
|
|
||||||
}
|
|
||||||
$checked->{debug} = $debug;
|
|
||||||
|
|
||||||
entry::set_numbers( $checked, $params, [
|
entry::set_numbers( $checked, $params, [
|
||||||
'event_id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'duration'
|
'event_id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'duration'
|
||||||
]);
|
]);
|
||||||
|
|||||||
@@ -32,7 +32,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -22,7 +22,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( $user eq '' );
|
return if ( $user eq '' );
|
||||||
|
|||||||
@@ -19,7 +19,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
$params = check_params( $config, $params );
|
$params = check_params( $config, $params );
|
||||||
|
|
||||||
|
|||||||
@@ -23,7 +23,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|||||||
@@ -22,7 +22,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -34,7 +34,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( !defined $user ) || ( $user eq '' );
|
return if ( !defined $user ) || ( $user eq '' );
|
||||||
|
|
||||||
|
|||||||
@@ -24,7 +24,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -22,7 +22,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -25,7 +25,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( !defined $user ) || ( $user eq '' );
|
return if ( !defined $user ) || ( $user eq '' );
|
||||||
|
|
||||||
|
|||||||
@@ -28,7 +28,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -22,7 +22,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( $user eq '' );
|
return if ( $user eq '' );
|
||||||
|
|||||||
@@ -32,7 +32,6 @@ binmode STDOUT, ":utf8";
|
|||||||
my $useCgi = 0;
|
my $useCgi = 0;
|
||||||
|
|
||||||
our $config = config::get('../config/config.cgi');
|
our $config = config::get('../config/config.cgi');
|
||||||
our $debug = $config->{system}->{debug};
|
|
||||||
my $base_dir = $config->{locations}->{base_dir};
|
my $base_dir = $config->{locations}->{base_dir};
|
||||||
|
|
||||||
my $tempDir = '/var/tmp';
|
my $tempDir = '/var/tmp';
|
||||||
|
|||||||
@@ -24,7 +24,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -24,7 +24,6 @@ use localization();
|
|||||||
my $r = shift;
|
my $r = shift;
|
||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -24,7 +24,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -23,7 +23,6 @@ binmode STDOUT, ":utf8";
|
|||||||
my $r = shift;
|
my $r = shift;
|
||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
my $user_presets = uac::get_user_presets(
|
my $user_presets = uac::get_user_presets(
|
||||||
|
|||||||
@@ -25,7 +25,6 @@ my $r = shift;
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::get('../config/config.cgi');
|
my $config = config::get('../config/config.cgi');
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
|
||||||
return if ( ( !defined $user ) || ( $user eq '' ) );
|
return if ( ( !defined $user ) || ( $user eq '' ) );
|
||||||
|
|
||||||
|
|||||||
@@ -19,7 +19,6 @@ binmode STDOUT, ":utf8";
|
|||||||
my $r = shift;
|
my $r = shift;
|
||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
my $config = config::getFromScriptLocation();
|
my $config = config::getFromScriptLocation();
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
|
|
||||||
#get request
|
#get request
|
||||||
my $request = {
|
my $request = {
|
||||||
@@ -38,7 +37,6 @@ my $dbh = db::connect($config);
|
|||||||
#fill template
|
#fill template
|
||||||
my $template_parameters = {};
|
my $template_parameters = {};
|
||||||
$template_parameters->{projects} = getProjects( $dbh, $config, $params );
|
$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->{server_cache} = $config->{cache}->{server_cache} if $config->{cache}->{server_cache};
|
||||||
|
|
||||||
#output template
|
#output template
|
||||||
@@ -96,7 +94,6 @@ sub getSeriesNames {
|
|||||||
my $project = shift;
|
my $project = shift;
|
||||||
my $params = shift;
|
my $params = shift;
|
||||||
|
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
my $bind_values = [];
|
my $bind_values = [];
|
||||||
|
|
||||||
my @conds = ();
|
my @conds = ();
|
||||||
|
|||||||
@@ -12,10 +12,6 @@ Access-Control-Allow-Origin: *
|
|||||||
<body>
|
<body>
|
||||||
|
|
||||||
<div >
|
<div >
|
||||||
<TMPL_IF debug>
|
|
||||||
<div id="calendar_debug"></div>
|
|
||||||
</TMPL_IF>
|
|
||||||
|
|
||||||
<table>
|
<table>
|
||||||
<thead>
|
<thead>
|
||||||
<tr>
|
<tr>
|
||||||
|
|||||||
@@ -30,7 +30,6 @@ if ( $0 =~ /upload_playout.*?\.cgi$/ ) {
|
|||||||
( my $cgi, my $params, my $error ) = params::get($r);
|
( my $cgi, my $params, my $error ) = params::get($r);
|
||||||
|
|
||||||
my $config = config::getFromScriptLocation();
|
my $config = config::getFromScriptLocation();
|
||||||
my $debug = $config->{system}->{debug};
|
|
||||||
print "Content-type:text/plain\n\n";
|
print "Content-type:text/plain\n\n";
|
||||||
|
|
||||||
my $json = JSON::decode_json($content);
|
my $json = JSON::decode_json($content);
|
||||||
|
|||||||
Reference in New Issue
Block a user