#!/usr/bin/perl -w
#
# Routine to get current temperature data, because wunderground pulled use of APIs by people
# like me that do not have a wx station. So I got a free apikey from openweathermap, downloaded
# their list of towns, and found mine
#
# This routine will get the current temperature (it seems to change every few secs - how do they
# do that ? is it calculated ?) and then squirts it up to pvoutput.org.
#
# Called with six parameters...
#
# openweather <date> <time> <pvoutput apikey> <pvoutput sysid> <openweathermap apikey> <openweathermap cityid>
#
# e.g.
# openweather 20190228 15:55:00 1234567890abcdef1234567890abcdef12345678 12345 1234567890abcdef1234567890abcdef 2643743
#
# No checks are made that the supplied data to this routine is valid.
#
use strict;
use LWP::Simple;
#use HTTP::Status qw(:constants :is status_message);
my $fh;

{
    my $date=$ARGV[0];
    my $time=$ARGV[1];

    my $pvoutput_apikey=$ARGV[2];
    my $pvoutput_sysid=$ARGV[3];

    my $openweathermap_apikey=$ARGV[4];
    my $openweathermap_city=$ARGV[5];

#    print "Date=$date\nTime=$time\nPVoutput key=$pvoutput_apikey\nPVoutput_sysid=$pvoutput_sysid\nopenweathermap_apikey=$openweathermap_apikey\nopenweathermap_city=$openweathermap_city\n";
    my $browser = LWP::UserAgent->new;
    $browser->timeout(10);

    my $url="http://api.openweathermap.org/data/2.5/weather?id=$openweathermap_city&units=metric&APPID=$openweathermap_apikey";
    my $response = $browser->get($url);
    die "Can't get $url -- ", $response->status_line
	unless $response->is_success;

    my($c)=$response->content;

    $c=~ s/\t/ /g;
    $c=~ s/\n//g;
    $c=~ s/  / /g;
    $c=~ s/&amp;/&/g;
    
    my $txt='"temp":';
    my $p=index($c, $txt);
    if ($p < 0) {die "Can't find $txt\n";}
    $p+=length($txt);
    my $temp=substr($c, $p, index($c, ',', $p) - $p);

#    print "Temperature = $temp\n";
    
    my $cmd="curl -s -d d=$date -d t=$time -d v5=$temp -H X-Pvoutput-Apikey:$pvoutput_apikey -H X-Pvoutput-SystemId:$pvoutput_sysid http://pvoutput.org/service/r2/addstatus.jsp";

#    print "$cmd\n";
    my $filename = '/tmp/curl';
    unless (open($fh, '>>', $filename)) {
	my $msg="Could not open file '$filename' $!";
	`/usr/bin/logger -t openweather "$msg"`;
	die "$msg";
    }
    say $fh "$cmd";
    close $fh;	
    
    my $output = `$cmd`;
#    print "$output\n";
    
    if ( "$output" ne "OK 200: Added Status" ) {
	`/usr/bin/logger -t openweather "curl failed at $time $output"`;
	$filename = '/tmp/curl_failures';
	unless (open($fh, '>>', $filename)) {
	    my $msg="Could not open file '$filename' $!";
	    `/usr/bin/logger -t openweather "$msg"`;
	    die "$msg";
	}
	say $fh "$cmd";                           
	close $fh;
	`chmod +x $filename`;	
    }
}