use DBQ instead of DBQ_PARAMS

diff --git a/bin/dbq b/bin/dbq
index ec3b38f1d83ba6034a7b7d86c0c055b31b99fa75..6e24ff1e9e6a45feb84037870b746310d54748c5 100755 (executable)
--- a/bin/dbq
+++ b/bin/dbq
@@ -35,6 +35,15 @@ my %PARAM = (
 
 $PARAM{'format'} = 'csv' unless -t STDOUT;
 %PARAM = map {$_=>$PARAM{$_}} grep {$PARAM{$_} ne ''} keys %PARAM;
+
+# DBQ
+if ($ENV{$UC_NAME}) {
+  for (split(' ',$ENV{$UC_NAME})) {
+    /^(\w+)=(.*?)$/ and $PARAM{$1} = $2;
+  }
+}
+
+# DBQ_PARAMS
 if ($ENV{$UC_NAME.'_PARAMS'}) {
   for (split(' ',$ENV{$UC_NAME.'_PARAMS'})) {
     /^(\w+)=(.*?)$/ and $PARAM{$1} = $2;