#!/usr/bin/perl -w
=head1 buienradar_rain.pl
Installation:
In Domoticz create a Dummy Percentage sensor.
Next go to the Devices overview, and write down the 'idx' value of the sensor.
Copy this file to another location and edit the setting below to match your situation.
cp /home/pi/domoticz/scripts/buienradar_rain_example.pl /home/pi/domoticz/buienradar_rain.pl
nano /home/pi/domoticz/buienradar_rain.pl
You might have to install perl or additional modules
DBI: CPAN
DBD::SQLite: CPAN
sudo perl -MCPAN -e shell
cpan{1] install DBI
cpan[2] install DBD::SQLite
exit
LWP: http://lwp.interglacial.com/ch01_03.htm
sudo apt-get install libjson-perl
Next add a Crontab rule:
crontab -e
Add the following line at the end:
*/5 * * * * perl /home/pi/domoticz/buienradar_rain.pl
In 5 minutes, the sensor should work
=cut
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use DBI;
my $domoticz_ip="127.0.0.1";
my $domoticz_port="8080";
my $domoticz_sensor_idx="307";
my $domoticz_user="pi";
my $domoticz_pass="<your pi password>";
my $driver="SQLite";
my $database="/home/pi/domoticz.db";
my $dbh = DBI->connect("DBI:$driver:dbname=$database",$domoticz_user, $domoticz_pass, { RaiseError => 1 }) or die $DBI::errstr;
my ($lat, $long) = split(/;/,$dbh->selectrow_array( qq(SELECT sValue FROM preferences WHERE Key = 'Location')));
my $duration=15;
my @user_agents = (
'Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)'
);
my $ua = LWP::UserAgent->new(
#Set agent name, we are not a script!
agent => $user_agents[rand @user_agents],
cookie_jar => HTTP::Cookies->new(),
);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
my $startTime=($hour*60)+$min;
my $endTime=$startTime+$duration;
my $url = "http://gps.buienradar.nl/getrr.php?lat=$lat&lon=$long";
my $response = $ua->get($url);
unless ($response->is_success) {
# hmm, let's retry
$response = $ua->get($url);
unless ($response->is_success) {
# still no luck; sleep and retry
sleep 1;
$response = $ua->get($url);
unless ($response->is_success) {
print "Could not connect to buienradar.nl.\n";
exit 0;
}
}
}
my $data = $response->content;
unless ($data =~ /\A((\d{3})?\|\d{2}:\d{2}\r?\n)+\z/) {
print "Could not parse the data returned by buienradar.nl.\n";
exit 0;
}
my $total_rain_predictions=0;
my $total_rain_values=0;
while ($data =~ s/\A(\d{3})?\|(\d{2}:\d{2})\r?\n//) {
my ($value, $mtime) = ($1, $2);
if (defined $value) {
my @hour_min = split(':', $mtime);
my $mhour = $hour_min[0];
my $mmin = $hour_min[1];
my $calc_time=($mhour*60)+$mmin;
if (($calc_time>=$startTime)&&($calc_time<=$endTime)) {
$value =~ s/\A0+(\d)/$1/;
$total_rain_predictions+=$value;
$total_rain_values+=1;
}
}
}
my $result = "0.0";
if ($total_rain_values!=0) {
my $rain_0_100=($total_rain_predictions/$total_rain_values)*0.392156862745098;
$result = sprintf("%.2f", $rain_0_100);
}
$url = "http://$domoticz_ip:$domoticz_port/json.htm?type=command¶m=udevice&idx=$domoticz_sensor_idx&nvalue=0&svalue=$result";
$response = $ua->get($url);
unless ($response->is_success) {
print "Error sending data to domoticz!\n";
exit 0;
}
$data = $response->content;
if (index($data, "\"OK\"") == -1) {
print "Error sending data to domoticz!\n";
exit 0;
}
print "OK, precip=$result\n";
if ($dbh) { $dbh->disconnect(); }
