curl_help

diff --git a/bin/dbq b/bin/dbq
index 07be243bbe318610350490093250dee532b6df65..08f0a5347f4dc80c55744859fe93b241d7046daa 100755 (executable)
--- 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;