#!/usr/bin/perl

use LWP::Simple;                # From CPAN
use JSON qw( decode_json );     # From CPAN
use Data::Dumper;               # Perl core module
use strict;                     # Good practice
use warnings;                   # Good practice

my $rrdfile="/scripts/luftdaten/XXXX/db_XXXX.rrd";

my $sensor;
my $trendsurl;
my $json;
my $decoded_json;
my $k;

my $PM10;
my $PM25;
my $TEMP;
my $HUMI;
my $LON;
my $LAT;

my $i;

for ($i=1; $i<=3; $i++) {
   $sensor=761;
   $trendsurl = "https://api.luftdaten.info/v1/sensor/$sensor/";
   $json = get( $trendsurl );
   die "Could not get $trendsurl!" unless defined $json;
   $decoded_json = decode_json( $json );
   
   $k=${$decoded_json}[0];
   print "$k->{'timestamp'}\n";
   printf "%-20s %6.2f\n", $k->{'sensordatavalues'}[0]->{'value_type'}, $k->{'sensordatavalues'}[0]->{'value'};
   printf "%-20s %6.2f\n", $k->{'sensordatavalues'}[1]->{'value_type'}, $k->{'sensordatavalues'}[1]->{'value'};
   $PM10 = $k->{'sensordatavalues'}[0]->{'value'};
   $PM25 = $k->{'sensordatavalues'}[1]->{'value'};

   $LAT = $k->{'location'}->{'latitude'};
   $LON = $k->{'location'}->{'longitude'};

   open FILE, ">/scripts/luftdaten/XXXX/here";
   printf FILE "<a href='https://wego.here.com/directions/mix/$LAT,$LON/?map=$LAT,$LON,16,normal' target='_map'>wego.here</a>";
   close FILE; 

   $sensor=762;
   $trendsurl = "https://api.luftdaten.info/v1/sensor/$sensor/";
   $json = get( $trendsurl );
   die "Could not get $trendsurl!" unless defined $json;
   $decoded_json = decode_json( $json );
   
   $k=${$decoded_json}[0];
   printf "%-20s %6.2f\n", $k->{'sensordatavalues'}[0]->{'value_type'}, $k->{'sensordatavalues'}[0]->{'value'};
   printf "%-20s %6.2f\n\n", $k->{'sensordatavalues'}[1]->{'value_type'}, $k->{'sensordatavalues'}[1]->{'value'};
   $TEMP = $k->{'sensordatavalues'}[0]->{'value'};
   $HUMI = $k->{'sensordatavalues'}[1]->{'value'};
   
   `/usr/bin/rrdtool update $rrdfile N:$PM25:$PM10:$TEMP:$HUMI:U`;
   sleep (30);
}