diff --git a/website/agenda/checkip.cgi b/website/agenda/checkip.cgi new file mode 100755 index 0000000..b86e9d9 --- /dev/null +++ b/website/agenda/checkip.cgi @@ -0,0 +1,4 @@ +#!/bin/perl + +print "Content-type:text/plain\n\nCurrent IP Address:".$ENV{REMOTE_ADDR}."\n"; + diff --git a/website/agenda/planung/css/images/chess.gif b/website/agenda/planung/css/images/chess.gif new file mode 100644 index 0000000..506823f Binary files /dev/null and b/website/agenda/planung/css/images/chess.gif differ diff --git a/website/agenda/planung/css/images/ui-icons_444444_256x240.png b/website/agenda/planung/css/images/ui-icons_444444_256x240.png new file mode 100644 index 0000000..c2daae1 Binary files /dev/null and b/website/agenda/planung/css/images/ui-icons_444444_256x240.png differ diff --git a/website/agenda/planung/css/images/ui-icons_555555_256x240.png b/website/agenda/planung/css/images/ui-icons_555555_256x240.png new file mode 100644 index 0000000..4784928 Binary files /dev/null and b/website/agenda/planung/css/images/ui-icons_555555_256x240.png differ diff --git a/website/agenda/planung/css/images/ui-icons_777620_256x240.png b/website/agenda/planung/css/images/ui-icons_777620_256x240.png new file mode 100644 index 0000000..d2f58d2 Binary files /dev/null and b/website/agenda/planung/css/images/ui-icons_777620_256x240.png differ diff --git a/website/agenda/planung/css/images/ui-icons_777777_256x240.png b/website/agenda/planung/css/images/ui-icons_777777_256x240.png new file mode 100644 index 0000000..1d53258 Binary files /dev/null and b/website/agenda/planung/css/images/ui-icons_777777_256x240.png differ diff --git a/website/agenda/planung/css/images/ui-icons_cc0000_256x240.png b/website/agenda/planung/css/images/ui-icons_cc0000_256x240.png new file mode 100644 index 0000000..2825f20 Binary files /dev/null and b/website/agenda/planung/css/images/ui-icons_cc0000_256x240.png differ diff --git a/website/agenda/planung/css/images/ui-icons_ffffff_256x240.png b/website/agenda/planung/css/images/ui-icons_ffffff_256x240.png new file mode 100644 index 0000000..136a4f9 Binary files /dev/null and b/website/agenda/planung/css/images/ui-icons_ffffff_256x240.png differ diff --git a/website/agenda/planung/image/128/radio.png b/website/agenda/planung/image/128/radio.png new file mode 100644 index 0000000..79126d7 Binary files /dev/null and b/website/agenda/planung/image/128/radio.png differ diff --git a/website/agenda/planung/image/16/radio.png b/website/agenda/planung/image/16/radio.png new file mode 100644 index 0000000..cf2fcf2 Binary files /dev/null and b/website/agenda/planung/image/16/radio.png differ diff --git a/website/agenda/planung/image/32/radio.png b/website/agenda/planung/image/32/radio.png new file mode 100644 index 0000000..0b33adb Binary files /dev/null and b/website/agenda/planung/image/32/radio.png differ diff --git a/website/agenda/planung/image/64/radio.png b/website/agenda/planung/image/64/radio.png new file mode 100644 index 0000000..e0afb4f Binary files /dev/null and b/website/agenda/planung/image/64/radio.png differ diff --git a/website/agenda/planung/templates/seriesNames.html b/website/agenda/planung/templates/seriesNames.html new file mode 100644 index 0000000..5b8ba79 --- /dev/null +++ b/website/agenda/planung/templates/seriesNames.html @@ -0,0 +1,6 @@ +
+ +
+ +
+ diff --git a/website/agenda/series.cgi b/website/agenda/series.cgi new file mode 100644 index 0000000..763c272 --- /dev/null +++ b/website/agenda/series.cgi @@ -0,0 +1,116 @@ +#!/usr/bin/perl -w + +use warnings "all"; +use strict; +use Data::Dumper; + +use params; +use config; +#use log; +use template; +#use auth; +#use uac; +#use roles; +#use project; +use studios; +#use events; +use series; +#use series_schedule; +#use series_events; +#use series_dates; +#use user_stats; +#use markup; +#use URI::Escape; +#use Encode; +#use localization; + +binmode STDOUT, ":utf8"; +print "Content-Type: text/html; charset=utf-8\n\n"; + +my $r = shift; +( my $cgi, my $params, my $error ) = params::get($r); + +my $config = config::get('config/config.cgi'); + +$params = check_params($params); + +list_series( $config, $params ); + +sub list_series { + my $config = shift; + my $params = shift; + + $config->{access}->{write} = 0; + + my $project_id = $params->{project_id}; + my $studio_id = $params->{studio_id}; + my $location = $params->{location}; + + if (defined $location){ + my $studios = studios::get( + $config, + { + project_id => $project_id, + location => $location + } + ); + + $studio_id = $studios->[0]->{id}; + } + + my $conditions = {}; + $conditions->{project_id} = $project_id if defined $project_id; + $conditions->{studio_id} = $studio_id if defined $studio_id; + + if (scalar (keys %$conditions) == 0){ + $params->{info} .= "missing parameters"; + return; + } + $params->{info}.= Dumper($conditions); + + my $series = series::get_event_age( $config, $conditions ); + my $series2 = []; + for my $serie ( sort { lc $a->{series_name} cmp lc $b->{series_name} } (@$series) ) { + next if $serie->{days_over} > 80 ; + next if $serie->{days_over} == 0 ; + next unless defined $serie->{series_name}; + next if $serie->{series_name} eq '_single_'; + push @$series2, $serie; + } + $params->{series} = $series2; + + $params->{info}.="no results found" if scalar(@$series)==0; + $params->{info}=''; + + template::process( 'print', 'templates/series.html', $params ); +} + + +sub check_params { + my $params = shift; + + my $checked = {}; + + my $debug = $params->{debug} || ''; + if ( $debug =~ /([a-z\_\,]+)/ ) { + $debug = $1; + } + $checked->{debug} = $debug; + + for my $param ('project_id', 'studio_id') { + if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) { + $checked->{$param} = $params->{$param}; + } + } + + for my $param ( 'location') { + if ( defined $params->{$param} ) { + $checked->{$param} = $params->{$param}; + $checked->{$param} =~ s/^\s+//g; + $checked->{$param} =~ s/\s+$//g; + } + } + + return $checked; +} + diff --git a/website/agenda/templates/series.html b/website/agenda/templates/series.html new file mode 100644 index 0000000..c7b2be9 --- /dev/null +++ b/website/agenda/templates/series.html @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + +
+

aktuelle Sendereihen

+
 + +
+ +
+ + - +
+ + + +
+ + +
+ +
+ + +