- my ($subject,$file,$resource,$jserver,$port,$username,$password,$component,
- $message, $chatroom, $headline, $debug, $tls, $ssl,
- $no_tls_verify, $tls_ca_path,
- $interactive, $help, $raw, $verbose);
- my $res = GetOptions ('subject|s=s' => \$subject,
- 'file|f=s' => \$file,
- 'resource|r=s' => \$resource,
- 'jserver|j=s' => \$jserver,
- 'component|o=s' => \$component,
- 'username|u=s' => \$username,
- 'password|p=s' => \$password,
- 'message|m=s' => \$message,
- 'headline|l' => \$headline,
- 'message-type=s' => \$message_type,
- 'chatroom|c' => \$chatroom,
- 'tls|t' => \$tls,
- 'no-tls-verify|n' => \$no_tls_verify,
- 'tls-ca-path|a=s' => \$tls_ca_path,
- 'ssl|e' => \$ssl,
- 'interactive|i' => \$interactive,
- 'help|usage|h' => \$help,
- 'debug|d' => \$debug,
- 'raw|w' => \$raw,
- 'verbose|v' => \$verbose);
- usage () if ($help);
+ my ($subject, $file, $resource, $jserver, $port, $username, $password, $sso, $component,
+ $message, $chatroom, $headline, $debug, $tls, $ssl,
+ $no_tls_verify, $tls_ca_path,
+ $interactive, $help, $raw, $verbose
+ );
+ $debug = 0;
+ my $res = GetOptions (
+ 'subject|s=s' => \$subject,
+ 'file|f=s' => \$file,
+ 'resource|r=s' => \$resource,
+ 'jserver|j=s' => \$jserver,
+ 'component|o=s' => \$component,
+ 'username|u=s' => \$username,
+ 'password|p=s' => \$password,
+ 'sso' => \$sso,
+ 'message|m=s' => \$message,
+ 'headline|l' => \$headline,
+ 'message-type=s' => \$message_type,
+ 'chatroom|c' => \$chatroom,
+ 'tls|t' => \$tls,
+ 'no-tls-verify|n' => \$no_tls_verify,
+ 'tls-ca-path|a=s' => \$tls_ca_path,
+ 'ssl|e' => \$ssl,
+ 'interactive|i' => \$interactive,
+ 'help|usage|h' => \$help,
+ 'debug|d:i' => sub { $debug = $_[1] ? $_[1] : $debug + 1 },
+ 'raw|w' => \$raw,
+ 'verbose|v' => \$verbose
+ );
+
+ usage () if ($help);