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

refactoring

Browse Source 
update package definition
fix dependencies
remove global variables
This commit is contained in:
Milan
2018-09-02 09:39:24 +02:00
parent 3e338758e9
commit a6b656779b
71 changed files with 2135 additions and 2297 deletions
Download Patch File Download Diff File Expand all files Collapse all files

219
lib/calcms/audio_recordings.pm
View File

@@ -1,5 +1,3 @@
#!/bin/perl
package audio_recordings;
use warnings "all";
@@ -8,11 +6,8 @@ use strict;
use Data::Dumper;
use db();
require Exporter;
our @ISA = qw(Exporter);
use base 'Exporter';
our @EXPORT_OK = qw(get_columns get);
our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
# columns:
# id, project_id, studio_id, event_id
@@ -23,67 +18,67 @@ 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_audio_recordings' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_audio_recordings' );
my $columns = {};
for my $col (@$cols) {
$columns->{$col} = 1;
}
return $columns;
}
# get playout entries
sub get {
my $config = shift;
my $condition = shift;
my $config = shift;
my $condition = shift;
return undef unless defined $condition->{project_id};
return undef unless defined $condition->{studio_id};
return undef unless defined $condition->{project_id};
return undef unless defined $condition->{studio_id};
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->{id} ) && ( $condition->{id} ne '' ) ) {
push @$conditions, 'id=?';
push @$bind_values, $condition->{id};
}
if ( ( defined $condition->{id} ) && ( $condition->{id} ne '' ) ) {
push @$conditions, 'id=?';
push @$bind_values, $condition->{id};
}
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->{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->{path} ) && ( $condition->{path} ne '' ) ) {
push @$conditions, 'path=?';
push @$bind_values, $condition->{path};
}
if ( ( defined $condition->{path} ) && ( $condition->{path} ne '' ) ) {
push @$conditions, 'path=?';
push @$bind_values, $condition->{path};
}
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 $whereClause = '';
$whereClause = " where " . join( " and ", @$conditions ) if ( scalar @$conditions > 0 );
my $whereClause = '';
$whereClause = " where " . join( " and ", @$conditions ) if ( scalar @$conditions > 0 );
my $query = qq{
my $query = qq{
select id
,project_id
,studio_id
@@ -104,32 +99,32 @@ sub get {
order by created_at desc
};
#print STDERR Dumper($query).Dumper($bind_values);
my $entries = db::get( $dbh, $query, $bind_values );
return $entries;
#print STDERR Dumper($query).Dumper($bind_values);
my $entries = db::get( $dbh, $query, $bind_values );
return $entries;
}
# update playout entry if differs to old values
sub update {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my $config = shift;
my $dbh = shift;
my $entry = shift;
#print STDERR "update:".Dumper($entry);
#print STDERR "update:".Dumper($entry);
my $day_start = $config->{date}->{day_starting_hour};
my $day_start = $config->{date}->{day_starting_hour};
my $bind_values = [
$entry->{path}, $entry->{size},
$entry->{created_by}, $entry->{created_at},
$entry->{modified_at} || time::time_to_datetime( time() ), $entry->{processed},
$entry->{mastered}, $entry->{eventDuration},
$entry->{audioDuration}, $entry->{rmsLeft},
$entry->{rmsRight}, $entry->{project_id},
$entry->{studio_id}, $entry->{event_id}
];
my $bind_values = [
$entry->{path}, $entry->{size},
$entry->{created_by}, $entry->{created_at},
$entry->{modified_at} || time::time_to_datetime( time() ), $entry->{processed},
$entry->{mastered}, $entry->{eventDuration},
$entry->{audioDuration}, $entry->{rmsLeft},
$entry->{rmsRight}, $entry->{project_id},
$entry->{studio_id}, $entry->{event_id}
];
my $query = qq{
my $query = qq{
update calcms_audio_recordings
set path=?, size=?,
created_by=?, created_at=?,
@@ -139,71 +134,71 @@ sub update {
rmsLeft=?, rmsRight=?
where project_id=? and studio_id=? and event_id=?
};
if ( defined $entry->{id} ) {
$query .= ' and id=?';
push @$bind_values, $entry->{id};
}
if ( defined $entry->{id} ) {
$query .= ' and id=?';
push @$bind_values, $entry->{id};
}
#print STDERR Dumper($query).Dumper($bind_values);
return db::put( $dbh, $query, $bind_values );
#print STDERR Dumper($query).Dumper($bind_values);
return db::put( $dbh, $query, $bind_values );
}
# insert playout entry
sub insert {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my $config = shift;
my $dbh = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{event_id};
return undef unless defined $entry->{path};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{event_id};
return undef unless defined $entry->{path};
#print STDERR "insert into audio_recordings:".Dumper($entry);
return db::insert(
$dbh,
'calcms_audio_recordings',
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
event_id => $entry->{event_id},
path => $entry->{path},
size => $entry->{size},
created_by => $entry->{created_by},
eventDuration => $entry->{eventDuration},
audioDuration => $entry->{audioDuration},
rmsLeft => $entry->{rmsLeft},
rmsRight => $entry->{rmsRight},
processed => $entry->{processed},
mastered => $entry->{mastered} || '0',
}
);
#print STDERR "insert into audio_recordings:".Dumper($entry);
return db::insert(
$dbh,
'calcms_audio_recordings',
{
project_id => $entry->{project_id},
studio_id => $entry->{studio_id},
event_id => $entry->{event_id},
path => $entry->{path},
size => $entry->{size},
created_by => $entry->{created_by},
eventDuration => $entry->{eventDuration},
audioDuration => $entry->{audioDuration},
rmsLeft => $entry->{rmsLeft},
rmsRight => $entry->{rmsRight},
processed => $entry->{processed},
mastered => $entry->{mastered} || '0',
}
);
}
# delete playout entry
sub delete {
my $config = shift;
my $dbh = shift;
my $entry = shift;
my $config = shift;
my $dbh = shift;
my $entry = shift;
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{event_id};
return undef unless defined $entry->{path};
return undef unless defined $entry->{project_id};
return undef unless defined $entry->{studio_id};
return undef unless defined $entry->{event_id};
return undef unless defined $entry->{path};
my $query = qq{
my $query = qq{
delete
from calcms_audio_recordings
where project_id=? and studio_id=? and event_id=? and path=?
};
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{event_id}, $entry->{path} ];
return db::put( $dbh, $query, $bind_values );
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{event_id}, $entry->{path} ];
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!