Force log_levels to the known values.
authorGreg Sabino Mullane <greg@endpoint.com>
Fri, 18 Jun 2010 19:19:51 +0000 (15:19 -0400)
committerGreg Sabino Mullane <greg@endpoint.com>
Fri, 18 Jun 2010 19:19:51 +0000 (15:19 -0400)
bucardo_ctl

index 79f4d63e11e0730075f164baf47381e4603276e7..b8d20467ed3e1504180184e73add0c08265a2378 100755 (executable)
@@ -5586,6 +5586,13 @@ sub config {
             die qq{Unknown setting "$setting"\n};
         }
 
+        ## Sanity checks
+        if ($setting eq 'log_level') {
+            if ($val !~ /^(?:terse|normal|verbose|debug)$/oi) {
+                die "Invalid log_level, must be terse, normal, verbose, or debug\n";
+            }
+        }
+
         $sth->execute($val,$setting);
         print qq{Set "$setting" to "$val"\n};