ElabNET Technik Forum

Code: Alles auswählen

my $rrdPath = "/var/www/rrd/";
my $humidityLeftFile= $rrdPath."GardenHumiLeft.rrd";
my $humidityRightFile= $rrdPath."GardenHumiRight.rrd";
my $temperatureLeftFile= $rrdPath."GardenTempLeft.rrd";

my ($result_arr,$xsize,$ysize) = RRDs::graph($temperatureLeftFile,
	'DEF:v='.$temperatureLeftFile.':GardenTempLeft:AVERAGE',
	'VDEF:vm=v,MAXIMUM',
	'PRINT:vm:%lf'
);

Code: Alles auswählen

my $url = 'https://172.17.0.1/proxy/ts/query';
my $user = 'docker';
my $passwd = '<see TWS>';
my $timeseries = 'TS00005';

use HTTP::Response;
use LWP::UserAgent;
use URI::URL;
use MIME::Base64;
use URI::Encode qw(uri_encode);;
use JSON;

my $query = 'SELECT max(*) FROM '.$timeseries.' WHERE time > now() - 25h';

# for debugging add &pretty=true
$url = $url.'?db=timeseries_db&q='.uri_encode($query);
my $header = ['Content-Type' => 'application/vnd.flux', 'Authorization' => 'Basic '.encode_base64($user.':'.$passwd)];

my $request = HTTP::Request->new( 'GET', $url, $header);
my $ua = LWP::UserAgent->new(
  ssl_opts => { 
  		verify_hostname => '0',
  		SSL_verify_mode => '0'},
);
$ua->agent("hcat/1.0");

my $response = $ua->request($request);

plugin_log('5 ---------------------------------------------------');
my $maxTemp=decode_json($response->content)->{results}->[0]->{series}->[0]->{values}->[0][1];

plugin_log('max:'.$maxTemp);