events.cgi: add read-only-mode

lib/calcms/aggregator.pm

@@ -230,6 +230,7 @@ sub check_params($$) {
         till_date => $till_date,
         event_id  => $event_id,
         debug => $debug,
+        ro    => $params->{ro}//'' ? 1 : 0
     };
 }
 

lib/calcms/events.pm

@@ -1828,7 +1828,8 @@ sub check_params ($$) {
         disable_event_sync   => $disable_event_sync,
         extern               => $extern,
         recordings           => $recordings,
-        set_no_listen_keys   => $set_no_listen_keys
+        set_no_listen_keys   => $set_no_listen_keys,
+        ro                   => ($params->{ro}//'') ? 1 : 0
     };
 
     return $checked;

website/agenda/aggregate.cgi

@@ -42,6 +42,7 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
     $params->{exclude_locations}    = 1;
     $params->{exclude_projects}     = 1;
     $params->{exclude_event_images} = 1;
+    $params->{ro} = 1;
     $params->{recordings}           = 1;
 
     my $request = {

website/agenda/events.cgi

@@ -22,6 +22,7 @@ if ( $0 =~ /events.*?\.cgi$/ ) {
     $params->{exclude_locations}    = 1;
     $params->{exclude_projects}     = 1;
     $params->{exclude_event_images} = 1;
+    $params->{ro} = 1;
 
     my $request = {
         url    => $ENV{QUERY_STRING},