From: Darold Gilles <gilles@darold.net>
Date: Wed, 12 Mar 2014 11:30:56 +0000 (+0100)
Subject: Allow use of Perl metacharacters like [..] in application name. Thanks to Magnus... 
X-Git-Tag: v5.1~36
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=debe87aab1284eaf923b077568157be467e5218b;p=pgbadger

Allow use of Perl metacharacters like [..] in application name. Thanks to Magnus Persson for the report.
---

diff --git a/pgbadger b/pgbadger
index 9cb410a..bb11661 100755
--- a/pgbadger
+++ b/pgbadger
@@ -7905,7 +7905,7 @@ sub validate_log_line
 	if ($#dbappname >= 0) {
 
 		# Log line does not match the required dbname
-		if (!$prefix_vars{'t_appname'} || !grep(/^$prefix_vars{'t_appname'}$/i, @dbappname)) {
+		if (!$prefix_vars{'t_appname'} || !grep(/^\Q$prefix_vars{'t_appname'}\E$/i, @dbappname)) {
 			return 0;
 		}
 	}
@@ -7919,7 +7919,7 @@ sub validate_log_line
 	if ($#exclude_appname >= 0) {
 
 		# Log line matches the excluded appname
-		if ($prefix_vars{'t_appname'} && grep(/^$prefix_vars{'t_appname'}$/i, @exclude_appname)) {
+		if ($prefix_vars{'t_appname'} && grep(/^\Q$prefix_vars{'t_appname'}\E$/i, @exclude_appname)) {
 			return 0;
 		}
 	}