From cb96be957c1b095272d4fec7161f56bdc3c27b43 Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Wed, 13 Apr 2016 10:28:49 +0100
Subject: [PATCH] DBQ_PARAMS

---
 bin/dbq | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/bin/dbq b/bin/dbq
index 2e00472c..be92e302 100755
--- a/bin/dbq
+++ b/bin/dbq
@@ -25,10 +25,15 @@ my $UC_NAME = uc($NAME);
 my %PARAM = (
   'format' => $ENV{$UC_NAME.'_FORMAT'} ? $ENV{$UC_NAME.'_FORMAT'} : 'nc',
 # NB 09.04.16   'action' => $ENV{$UC_NAME.'_PARAM'} ? $ENV{$UC_NAME.'_PARAM'} : 'rows',
-  'db' => $ENV{$UC_NAME.'_DB'} ? $ENV{$UC_NAME.'_DB'} : '',
+# NB 13.04.16   'db' => $ENV{$UC_NAME.'_DB'} ? $ENV{$UC_NAME.'_DB'} : '',
   'txt_errors' => $ENV{$UC_NAME.'_TXT_ERRORS'} ? $ENV{$UC_NAME.'_TXT_ERRORS'} : '1',
 );
 %PARAM = map {$_=>$PARAM{$_}} grep {$PARAM{$_} ne ''} keys %PARAM;
+if ($ENV{$UC_NAME.'_PARAMS'}) {
+  for (split(' ',$ENV{$UC_NAME.'_PARAMS'})) {
+    /^(\w+)=(.*?)$/ and $PARAM{$1} = $2;
+  }
+}
 
 my %CMD_ALIASE = (
 # NB 09.04.16   'd' => 'db',
-- 
2.47.3