From abc440b961c08adf7f3208e6bd2ec055a701aa0c Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Wed, 2 Mar 2016 14:12:38 +0000
Subject: [PATCH] curl_help

---
 bin/dbq | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bin/dbq b/bin/dbq
index 07be243b..08f0a534 100755
--- a/bin/dbq
+++ b/bin/dbq
@@ -42,6 +42,9 @@ my %CURL_OPT = (
   'silent|s!' => 1, # Silent mode (don't output anything)
   'header|H=s' => \@H, # LINE   Pass custom header LINE to server (H)
   'netrc|n!' => 1, # Must read .netrc for user name and password
+  'insecure|k!' => undef, # Allow connections to SSL sites without certs (H)
+  'user-agent|A=s' => undef, # STRING  User-Agent to send to server (H)
+  'user|u=s' => undef, # USER[:PASSWORD]  Server user and password
 );
 my @CURL_OPT = keys %CURL_OPT;
 my $CURL_OPT_EXP = join('|',map{ /^(.*?)\|/ ? $1 : $_ } @CURL_OPT);
@@ -365,7 +368,7 @@ sub curl_help {
     my $type = '!';
     $type = '=s' if $_[2] =~ /^[A-Z]{2,}/;
     #print "=item B<option[$_[1]$_[0]$type]> $_[2]\n\n";
-    print "'$_[1]$_[0]$type', # $_[2]\n";
+    print "'$_[1]$_[0]$type' => undef, # $_[2]\n";
   }
   close CURL;
   exit;
-- 
2.47.3