bin/dbq

diff --git a/bin/dbq b/bin/dbq
index 95ac9bb17b3736c205202753e6ca27d63cf3a0bd..4dbc8b2028193c221ba053e5c8b23a741ca903d6 100755 (executable)
--- a/bin/dbq
+++ b/bin/dbq
@@ -28,7 +28,7 @@ my $VERSION = '0.0.1';
 my ($NAME) = $0 =~ m,([^/]+)$,;
 my $UC_NAME = uc($NAME);
 my %PARAM = (
-  'format' => $ENV{$UC_NAME.'_FORMAT'} ? $ENV{$UC_NAME.'_FORMAT'} : 'human',
+  'format' => $ENV{$UC_NAME.'_FORMAT'} ? $ENV{$UC_NAME.'_FORMAT'} : 'csv',
   'config.txt_errors' => $ENV{$UC_NAME.'_TXT_ERRORS'} ? $ENV{$UC_NAME.'_TXT_ERRORS'} : '1',
   'rows_head_char' => "\r",
 );
@@ -113,6 +113,12 @@ my $url = ($ENV{$UC_NAME.'_URL'} ? $ENV{$UC_NAME.'_URL'} :
   ( -e $ROOT_DIR.'/lib/php/db/dbq.php' ? $ROOT_DIR.'/lib/php/db/dbq.php' : '' )
 );
 
+# /url/... with no domain
+if (!$Opt{ssh} and @ARGV and $ARGV[0] =~ m|^/|) {
+  $url = 'https://api.nbdom.net'.shift(@ARGV);
+  @EXEC = grep {$_ ne $url} @EXEC;
+}
+
 if (!$Opt{ssh} and @ARGV and ($ARGV[0] =~ m|^\w+://| or -e $ARGV[0] )) {
   $url = shift @ARGV;
   @EXEC = grep {$_ ne $url} @EXEC;
@@ -188,7 +194,7 @@ while (my ($k,$v) = each %PARAM) {
 #
 # Parser
 #
-if ( $Opt{cut} ) {
+if ($Opt{cut}) {
   open(STDOUT,"|cut -f $Opt{cut}".($keys{sep} ? " -d '$keys{sep}'" : ''));
   $keys{format} = 'csv';
   $keys{header} = '0' unless defined $keys{header};