first commit
This commit is contained in:
Marko Oldenburg
220
98_AMAD.pm
Normal file
220
98_AMAD.pm
Normal file
@@ -0,0 +1,220 @@
|
||||
# $Id: 98_AMAD.pm 1001 2015-07-23 12:58:05Z leongaultier $
|
||||
##############################################################################
|
||||
#
|
||||
# 98_AMAD.pm
|
||||
#
|
||||
# Get and Set http Requests from/to AutomagicAPP Device
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Time::HiRes qw(gettimeofday);
|
||||
use HttpUtils;
|
||||
use Blocking;
|
||||
|
||||
sub AMAD_Initialize($) {
|
||||
|
||||
my ($hash) = @_;
|
||||
|
||||
$hash->{DefFn} = 'AMAD_Define';
|
||||
$hash->{UndefFn} = 'AMAD_Undef';
|
||||
$hash->{AttrFn} = 'AMAD_Attr';
|
||||
$hash->{ReadFn} = 'AMAD_Read';
|
||||
$hash->{AttrList} =
|
||||
"interval disable:0,1 nonblocking:0,1 "
|
||||
. $readingFnAttributes;
|
||||
}
|
||||
|
||||
##########################################################################
|
||||
|
||||
sub AMAD_RetrieveAutomagicInfo
|
||||
{
|
||||
my ($name, $blocking) = @_;
|
||||
my $hash = $defs{$name};
|
||||
# my $name = $hash->{NAME};
|
||||
my $host = $hash->{HOST};
|
||||
my $port = $hash->{PORT};
|
||||
|
||||
my $url = "http://" . $host . ":" . $port . "/automagic/test";
|
||||
|
||||
if ($blocking) {
|
||||
#my $response = GetFileFromURL($url, 5, undef, 0);
|
||||
my $response = HttpUtils_BlockingGet(
|
||||
{
|
||||
url => $url,
|
||||
timeout => 5,
|
||||
#noshutdown => 0,
|
||||
}
|
||||
);
|
||||
my %param = (hash => $hash, doTrigger => 0);
|
||||
AMAD_RetrieveAutomagicInfoFinished(\%param, undef, $response);
|
||||
Log3 $name, 3, "AMAD ($name) - BlockingGet get URL ";
|
||||
}
|
||||
else {
|
||||
HttpUtils_NonblockingGet(
|
||||
{
|
||||
url => $url,
|
||||
timeout => 5,
|
||||
#noshutdown => 0,
|
||||
hash => $hash,
|
||||
doTrigger => 1,
|
||||
callback => \&AMAD_RetrieveAutomagicInfoFinished,
|
||||
}
|
||||
);
|
||||
Log3 $name, 3, "AMAD ($name) - NonblockingGet get URL";
|
||||
}
|
||||
}
|
||||
|
||||
sub AMAD_RetrieveAutomagicInfoFinished($$$)
|
||||
{
|
||||
my ( $param, $err, $data ) = @_;
|
||||
my $hash = $param->{hash};
|
||||
my $doTrigger = $param->{doTrigger};
|
||||
my $name = $hash->{NAME};
|
||||
my $host = $hash->{HOST};
|
||||
|
||||
Log3 $name, 3, "AMAD ($name) - AMAD_RetrieveAutomagicInfoFinished: calling Host: $host";
|
||||
|
||||
if (defined($err)) {
|
||||
if ($err ne "")
|
||||
{
|
||||
Log3 $name, 3, "AMAD ($name) - AMAD_RetrieveAutomagicInfoFinished: error while requesting AutomagicInfo: $err";
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
if($data eq "" and exists($param->{code}))
|
||||
{
|
||||
Log3 $name, 3, "AMAD ($name) - AMAD_RetrieveAutomagicInfoFinished: received http code ".$param->{code}." without any data after requesting AMAD AutomagicInfo";
|
||||
return;
|
||||
}
|
||||
|
||||
$hash->{RETRIEVECACHE} = $data;
|
||||
|
||||
my @valuestring = split('@@', $data);
|
||||
my %buffer;
|
||||
foreach (@valuestring) {
|
||||
my @values = split(' ', $_);
|
||||
$buffer{$values[0]} = $values[1];
|
||||
}
|
||||
|
||||
readingsBeginUpdate($hash);
|
||||
my $t;
|
||||
my $v;
|
||||
while (($t, $v) = each %buffer) {
|
||||
readingsBulkUpdate($hash, $t, $v) if (defined($v));
|
||||
}
|
||||
readingsEndUpdate($hash, 1);
|
||||
}
|
||||
|
||||
########################################################################################
|
||||
|
||||
sub AMAD_GetUpdateLocal($)
|
||||
{
|
||||
my ($hash) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
AMAD_RetrieveAutomagicInfo($name, 1);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
############################################################################
|
||||
|
||||
sub AMAD_GetUpdateTimer($)
|
||||
{
|
||||
my ($hash) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
AMAD_RetrieveAutomagicInfo($name, 0);
|
||||
|
||||
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "AMAD_GetUpdateTimer", $hash, 1);
|
||||
Log3 $name, 3, "AMAD ($name) - Call AMAD_GetUpdateTimer";
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
##########################################################################
|
||||
|
||||
sub AMAD_Define($$) {
|
||||
|
||||
my ( $hash, $def ) = @_;
|
||||
my @a = split( "[ \t][ \t]*", $def );
|
||||
|
||||
return "too few parameters: define <name> AMAD <HOST> <PORT> <interval>" if ( @a != 5 );
|
||||
|
||||
my $name = $a[0];
|
||||
my $host = $a[2];
|
||||
my $port = $a[3];
|
||||
my $interval = 120;
|
||||
|
||||
if(int(@a) == 5) {
|
||||
$interval = int($a[4]);
|
||||
if ($interval < 5 && $interval) {
|
||||
return "interval too small, please use something > 5 (sec), default is 120 (sec)";
|
||||
}
|
||||
}
|
||||
|
||||
$hash->{HOST} = $host;
|
||||
$hash->{PORT} = $port;
|
||||
$hash->{INTERVAL} = $interval;
|
||||
|
||||
Log3 $name, 3, "AMAD ($name) - defined with host $hash->{HOST} and interval $hash->{INTERVAL} (sec)";
|
||||
|
||||
$hash->{READINGS}{current_date_time}{TIME}= TimeNow();
|
||||
$hash->{READINGS}{current_date_time}{VAL}= "none";
|
||||
|
||||
AMAD_GetUpdateLocal($hash);
|
||||
|
||||
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "AMAD_GetUpdateTimer", $hash, 0);
|
||||
|
||||
$hash->{STATE} = 'active';
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub AMAD_Undef($$) {
|
||||
my ($hash, $arg) = @_;
|
||||
|
||||
RemoveInternalTimer($hash);
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub AMAD_Attr(@) {
|
||||
my ( $cmd, $name, $attrName, $attrVal) = @_;
|
||||
my $hash = $defs{$name};
|
||||
|
||||
if ($attrName eq "disable") {
|
||||
if($cmd eq "set") {
|
||||
if($attrVal eq "0") {
|
||||
RemoveInternalTimer($hash);
|
||||
InternalTimer(gettimeofday()+2, "AMAD_GetUpdateTimer", $hash, 0) if ($hash->{STATE} eq "disabled");
|
||||
$hash->{STATE}='active';
|
||||
Log3 $name, 4, "AMAD ($name) - enabled";
|
||||
} else {
|
||||
$hash->{STATE} = 'disabled';
|
||||
RemoveInternalTimer($hash);
|
||||
Log3 $name, 4, "AMAD ($name) - disabled";
|
||||
}
|
||||
} elsif ($cmd eq "del") {
|
||||
RemoveInternalTimer($hash);
|
||||
InternalTimer(gettimeofday()+2, "AMAD_GetUpdateTimer", $hash, 0) if ($hash->{STATE} eq "disabled");
|
||||
$hash->{STATE}='active';
|
||||
Log3 $name, 4, "AMAD ($name) - enabled";
|
||||
}
|
||||
} else {
|
||||
if($cmd eq "set") {
|
||||
$attr{$name}{$attrName} = $attrVal;
|
||||
Log3 $name, 4, "AMAD ($name) - $attrName : $attrVal";
|
||||
} elsif ($cmd eq "del") {
|
||||
}
|
||||
}
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user