@@ -50,13 +50,17 @@ my $show = 0;
5050# Interval between version checks
5151my $interval;
5252my $version;
53+ my $dry_run = 0;
54+ my $verbose;
5355
5456GetOptions(
55- force => \$force,
56- help => \$help,
57- show => \$show,
58- interval => \$interval,
59- version => \$version
57+ force => \$force,
58+ help => \$help,
59+ show => \$show,
60+ interval=> \$interval,
61+ version => \$version,
62+ verbose => \$verbose,
63+ dry_run => \$dry_run,
6064);
6165
6266if ($version) {
@@ -76,7 +80,7 @@ if ($show) {
7680 collectData($dbh, \%telemetry);
7781 my $result = jsonEncode(\%telemetry);
7882 print($result);
79- exit(0);
83+ exit(0) if $dry_run ;
8084}
8185
8286if (!defined $interval) {
@@ -140,6 +144,7 @@ sub collectData {
140144 my $dbh = shift;
141145 my $telemetry = shift;
142146 $telemetry->{uuid} = getUUID($dbh);
147+ $telemetry->{timezone} = $Config{ZM_TIMEZONE};
143148 @$telemetry{qw(city region country latitude longitude)} = getGeo();
144149 $telemetry->{timestamp} = strftime('%Y-%m-%dT%H:%M:%S%z', localtime());
145150 $telemetry->{monitor_count} = countQuery($dbh, 'Monitors');
@@ -188,7 +193,7 @@ sub sendData {
188193 $ua->proxy('https', $Config{ZM_UPDATE_CHECK_PROXY});
189194 }
190195
191- Debug("Posting telemetry data to: $server_endpoint");
196+ Debug("Posting telemetry data $msg to: $server_endpoint");
192197
193198# set custom HTTP request header fields
194199 my $req = HTTP::Request->new(POST => $server_endpoint);
@@ -286,8 +291,8 @@ sub getMonitorRef {
286291 my $dbh = shift;
287292
288293 my $sql = 'SELECT `Id`,`Name`,`Type`,`Capturing`,`Analysing`,`Recording`,`Width`,`Height`,`Colours`,`MaxFPS`,`AlarmMaxFPS`,
289- (SELECT Name FROM Manufacturers WHERE Manufacturers.Id = ManufacturerId),
290- (SELECT Name FROM Models WHERE Models.Id = ModelId)
294+ (SELECT Name FROM Manufacturers WHERE Manufacturers.Id = ManufacturerId) AS Manufacturer ,
295+ (SELECT Name FROM Models WHERE Models.Id = ModelId) AS Model
291296 FROM `Monitors`';
292297 my $sth = $dbh->prepare_cached( $sql ) or die( "Can't prepare '$sql': ".$dbh->errstr() );
293298 my $res = $sth->execute() or die( "Can't execute: ".$sth->errstr() );
0 commit comments