Catch an error in translating ctl actions

opendatasoft · Feb 6, 2017 · 742e897 · 742e897
1 parent 6205c38
commit 742e897
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/tools/Modsec2LRW.pm b/tools/Modsec2LRW.pm
@@ -810,7 +810,11 @@ sub translate_actions {
 		} elsif ($key eq 'ctl') {
 			my ($opt, $data) = split /=/, $value;
 
-			$ctl_lookup->{$opt}($data, $translation);
+			if (defined $ctl_lookup->{$opt}) {
+				$ctl_lookup->{$opt}($data, $translation);
+			} else {
+				warn "Cannot translate ctl option $opt";
+			}
 		} elsif ($key eq 'expirevar') {
 			my ($var, $time)           = split /=/, $value;
 			my ($collection, $element) = split /\./, $var;