Merge branch 'zabbix-retry' into 'master'

Zabbix retry

See merge request !38

backstep-traceback

 #!/usr/bin/perl
 # backstep-traceback - Client software for the AWIT Backstep server
-# Copyright (c) 2010-2017, AllWorldIT
+# Copyright (c) 2010-2018, AllWorldIT
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -57,7 +57,7 @@ use Sys::Hostname;
 
 
 
-our $VERSION = "1.3.3";
+our $VERSION = "1.3.4";
 
 # Constants
 sub LOG_DEBUG { return 5; }
@@ -2678,7 +2678,9 @@ sub zabbixReport
 	}
 
 	# Check result of close
-	my ($res,@data) = runCommand(
+	my $res;
+	for (my $try = 1; $try < 4; $try++) {
+		($res,my @data) = runCommand(
 				"zabbix_sender",
 					"--config",$globalConfig{'zabbix-config'},
 					"--with-timestamps",
@@ -2702,6 +2704,14 @@ sub zabbixReport
 			if (defined($data[0]) && $data[0] ne "") {
 				printLog(LOG_ERROR,"ZABBIX:  - STDOUT log below\n- - - - - - - - - -\n%s\n- - - - - - - - - -\n",$data[0]);
 			}
+
+			# Retry
+			printLog(LOG_ERROR,"ZABBIX:  - Retrying... #$try");
+			sleep(10);
+		# Success
+		} else {
+			last;
+		}
 	}
 
 	return $res;