DBQ_PARAMS

diff --git a/bin/dbq b/bin/dbq
index 2e00472c6979d3c3baa95b108038de4678606623..be92e302930f38800cefcb160189389e89337a54 100755 (executable)
--- 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',