From cfe9059adb23318b05df9414eeb297e2752a1e70 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Sat, 14 Nov 2020 18:59:18 +0100
Subject: [PATCH] website/agenda/all-events.cgi: query events of all projects
 and studios

events sets a filter to included/excluded projects, studios and
locations. all-events.cgi does not set this filter and can be used to
query events from any project.
---
 website/agenda/all-events.cgi | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 website/agenda/all-events.cgi

diff --git a/website/agenda/all-events.cgi b/website/agenda/all-events.cgi
new file mode 100644
index 0000000..46d0cd3
--- /dev/null
+++ b/website/agenda/all-events.cgi
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+use params();
+use config();
+use events();
+
+binmode STDOUT, ":encoding(UTF-8)";
+
+my $r = shift;
+( my $cgi, my $params, my $error ) = params::get($r);
+if ( $0 =~ /all-events.*?\.cgi$/ ) {
+
+    my $config = config::getFromScriptLocation();
+
+    $params->{template} = '' unless defined $params->{template};
+    $params->{recordings} = 1 if $params->{template} =~ /events_playout/;
+    $params->{exclude_event_images} = 1;
+
+    my $request = {
+        url    => $ENV{QUERY_STRING},
+        params => {
+            original => $params,
+            checked  => events::check_params( $config, $params ),
+        },
+    };
+
+    events::get_cached_or_render( 'print', $config, $request );
+}
+
+1;