From 7926fa41d76d048a99ebb79ba71f388edb4edba3 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Mon, 1 Feb 2021 23:04:05 +0100
Subject: [PATCH] events.pm: get_events without setting listen keys

The option set_no_listen_keys can be used to not check and generate missing
listening keys.
---
 lib/calcms/events.pm | 5 ++++-
 lib/calcms/series.pm | 3 ++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/calcms/events.pm b/lib/calcms/events.pm
index cc01c56..9054ed4 100644
--- a/lib/calcms/events.pm
+++ b/lib/calcms/events.pm
@@ -180,7 +180,7 @@ sub modify_results ($$$$) {
 
         $result = calc_dates( $config, $result, $params, $previous_result, $time_diff );
         
-        set_listen_key($config, $result);
+        set_listen_key($config, $result) unless $params->{set_no_listen_keys};
 
         $result->{event_uri} = '';
         if ( ( defined $result->{program} ) && ( $result->{program} ne '' ) ) {
@@ -1752,6 +1752,8 @@ sub check_params ($$) {
     my $recordings = 0;
     $recordings = 1 if ( defined $params->{recordings} ) && ( $params->{recordings} eq '1' );
 
+    my $set_no_listen_keys = ($params->{recordings}//'') ? 1:0;
+
     my $checked = {
         date                 => $date,
         time                 => $time,
@@ -1790,6 +1792,7 @@ sub check_params ($$) {
         disable_event_sync   => $disable_event_sync,
         extern               => $extern,
         recordings           => $recordings,
+        set_no_listen_keys   => $set_no_listen_keys
     };
 
     return $checked;
diff --git a/lib/calcms/series.pm b/lib/calcms/series.pm
index 8dd5183..a6c8cb2 100644
--- a/lib/calcms/series.pm
+++ b/lib/calcms/series.pm
@@ -529,7 +529,8 @@ sub get_events ($$) {
             base_url => '',
             params   => {
                 checked => {
-                    template => ''
+                    template => '',
+                    set_no_listen_keys => ($options->{set_no_listen_keys}//'') ? 1:0
                 }
             }
         },