copy current state of medienstaatsvertrag.org, to be verified

lib/calcms/studios.pm

@@ -0,0 +1,158 @@
+#!/bin/perl
+
+use CGI;
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
+use CGI::Session qw(-ip-match);
+use CGI::Cookie;
+#$CGI::Session::IP_MATCH=1;
+
+package studios; 
+use warnings "all";
+use strict;
+use Data::Dumper;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(get_columns get get_by_id insert update delete check check_studio);
+our %EXPORT_TAGS = ( 'all'  => [ @EXPORT_OK ] );
+
+sub debug;
+
+sub get_columns{
+	my $config=shift;
+
+	my $dbh=db::connect($config);
+	my $cols=db::get_columns($dbh, 'calcms_studios');
+	my $columns={};
+	for my $col (@$cols){
+		$columns->{$col}=1;
+	}
+	return $columns;
+}
+
+sub get{
+	my $config=shift;
+    my $condition=shift||{};
+
+	my @conditions=();
+	my @bind_values=();
+
+	if ((defined $condition->{studio_id}) && ($condition->{studio_id} ne '')){
+		push @conditions, 's.id=?';
+		push @bind_values, $condition->{studio_id};
+	}
+
+	if ((defined $condition->{name}) && ($condition->{name} ne '')){
+		push @conditions, 's.name=?';
+		push @bind_values, $condition->{name};
+	}
+
+    my $limit='';
+	if ((defined $condition->{limit}) && ($condition->{limit} ne '')){
+        $limit= 'limit '.$condition->{limit};
+    }
+
+    my $query='';
+	unless ((defined $condition->{project_id}) && ($condition->{project_id} ne '')){
+        my $conditions='';
+    	$conditions=" where ".join(" and ",@conditions) if (@conditions>0);
+	    $query=qq{
+		    select	*
+		    from 	calcms_studios s
+		    $conditions
+		    $limit
+	    };
+    }else{
+        push @conditions, 's.id=ps.studio_id';
+
+        push @conditions, 'ps.project_id=?';
+        push @bind_values, $condition->{project_id};
+    	my $conditions=" where ".join(" and ",@conditions) if (@conditions>0);
+	    $query=qq{
+		    select	*
+		    from 	calcms_studios s, calcms_project_studios ps
+		    $conditions
+		    $limit
+	    };
+    }
+	my $dbh=db::connect($config);
+    #print STDERR Dumper($query).Dumper(\@bind_values);
+	my $studios=db::get($dbh, $query,\@bind_values);
+	return $studios;
+}
+
+sub insert{
+	my $config=shift;
+	my $entry=shift;
+
+	$entry->{created_at} = time::time_to_datetime(time());
+	$entry->{modified_at}= time::time_to_datetime(time());
+	
+	my $dbh=db::connect($config);
+	my $id=db::insert($dbh, 'calcms_studios', $entry);
+    return $id;
+}
+
+
+sub update{
+	my $config=shift;
+	my $studio=shift;
+
+	$studio->{modified_at}= time::time_to_datetime(time());
+
+    my $columns=get_columns($config);
+    my $entry={};
+    for my $column (keys %$columns){
+        $entry->{$column}=$studio->{$column} if defined $studio->{$column};
+    }
+
+	my $values	=join(",", map {$_.'=?'} (keys %$entry));
+	my @bind_values	=map {$entry->{$_}} (keys %$entry);
+	push @bind_values,$entry->{id};
+
+	my $query=qq{
+		update calcms_studios 
+		set $values
+		where id=?
+	};
+
+	my $dbh=db::connect($config);
+	db::put($dbh, $query, \@bind_values);
+}
+
+sub delete{
+	my $config=shift;
+	my $studio=shift;
+	
+	my $dbh=db::connect($config);
+	db::put($dbh, 'delete from calcms_studios where id=?', [$studio->{id}]);
+}
+
+#TODO rename to check
+sub check_studio{
+    my $config=shift;
+    my $options=shift;
+    return check($config, $options);        
+}
+
+sub check{
+    my $config=shift;
+    my $options=shift;
+    return "missing studio_id"   unless defined $options->{studio_id};
+    return "Please select a studio"  if($options->{studio_id}eq'-1');
+    return "Please select a studio"  if($options->{studio_id}eq'');
+    my $studios=studios::get($config, {studio_id => $options->{studio_id}});
+    return "Sorry. unknown studio"      unless defined $studios;
+    return "Sorry. unknown studio"      unless @$studios==1;
+    return 1;
+}
+
+
+sub error{
+	my $msg=shift;
+	print "ERROR: $msg<br/>\n";
+}
+
+#do not delete last line!
+1;
+