Small fixes in elasticsearch scripts

zabbix_scripts/check_elasticsearch

@@ -22,8 +22,8 @@ my $pretty    = 0;
 my $json = {};
 
 GetOptions (
-  'user=s'       => \$user,
+  'user:s'       => \$user,
-  'password|p=s' => \$pass,
+  'password:s'   => \$pass,
   'url=s'        => \$url,
   'cert-check!'  => \$certcheck,
   'cluster'      => \$cluster,
@@ -61,6 +61,7 @@ if (not $certcheck){
 my $ua = LWP::UserAgent->new(
   ssl_opts   => $sslopts
 );
+$ua->env_proxy;
 
 if ($cluster){
   $json = make_request('/_cluster/stats');
@@ -76,7 +77,7 @@ sub make_request {
   my $path = shift;
   my $req_url = $url . $path;
   my $req = GET $req_url;
-  if (defined $user and defined $pass){
+  if (defined $user and $user ne '' and defined $pass and $pass ne ''){
     $req->authorization_basic($user, $pass);
   }
   my $resp = $ua->request($req);

zabbix_scripts/disco_elasticsearch

@@ -21,8 +21,8 @@ my $pretty    = 0;
 my $json = [];
 
 GetOptions (
-  'user=s'       => \$user,
+  'user:s'       => \$user,
-  'password|p=s' => \$pass,
+  'password:s'   => \$pass,
   'url=s'        => \$url,
   'cert-check!'  => \$certcheck,
   'nodes'        => \$nodes,
@@ -57,6 +57,7 @@ if (not $certcheck){
 my $ua = LWP::UserAgent->new(
   ssl_opts   => $sslopts
 );
+$ua->env_proxy;
 
 if ($nodes){
   foreach (@{make_request('/_cat/nodes?format=json')}){
@@ -81,7 +82,7 @@ sub make_request {
   my $path = shift;
   my $req_url = $url . $path;
   my $req = GET $req_url;
-  if (defined $user and defined $pass){
+  if (defined $user and $user ne '' and defined $pass and $pass ne ''){
     $req->authorization_basic($user, $pass);
   }
   my $resp = $ua->request($req);