FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-03 13:45:36 +00:00
Code Issues Releases Wiki Activity

70_Pushover: add internal timer for regular connectivity check to Pushover backend API

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9177 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2015-08-30 17:00:58 +00:00
parent 6743ee56ca
commit 1aeb57eb8c
1 changed files with 38 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
fhem/FHEM/70_Pushover.pm
View File

@ -129,13 +129,9 @@ sub Pushover_Define($$) {
if ( !Pushover_addExtension( $name, "Pushover_CGI", $infix ) );
}
readingsSingleUpdate( $hash, "state", "initialized", 0 );
my $cmd = "token=" . $token . "&user=" . $user;
$cmd .= "&" . AttrVal( $hash, "device", "" )
if ( AttrVal( $hash, "device", "" ) ne "" );
Pushover_SendCommand( $hash, "users/validate.json", $cmd );
# start Validation Timer
RemoveInternalTimer($hash);
InternalTimer( gettimeofday() + 5, "Pushover_ValidateUser", $hash, 0 );
return undef;
}
@ -478,6 +474,19 @@ sub Pushover_ReceiveCommand($$$) {
}
}
# simple error handling if no JSON module was loaded
elsif ( $return !~ m/"status":1,/ ) {
$state = "unauthorized";
if ( $return =~ m/"errors":\[(.*)\]/ ) {
$values{result} = "Error: " . $1;
}
else {
$values{result} = "Unspecified error";
}
}
Pushover_SendCommand( $hash, "users/validate.json", $cmd );
}
readingsBulkUpdate( $hash, "lastResult", $values->{result} );
@ -496,6 +505,28 @@ sub Pushover_ReceiveCommand($$$) {
return;
}
#------------------------------------------------------------------------------
sub Pushover_ValidateUser ($;$) {
my ( $hash, $update ) = @_;
my $name = $hash->{NAME};
Log3 $name, 5, "Pushover $name: called function Pushover_ValidateUser()";
RemoveInternalTimer($hash);
InternalTimer( gettimeofday() + 600, "Pushover_ValidateUser", $hash, 0 );
return
if ( AttrVal( $name, "disable", 0 ) == 1 );
my $cmd = "token=" . $token . "&user=" . $user;
$cmd .= "&" . AttrVal( $hash, "device", "" )
if ( AttrVal( $hash, "device", "" ) ne "" );
Pushover_SendCommand( $hash, "users/validate.json", $cmd );
return;
}
#------------------------------------------------------------------------------
sub Pushover_SetMessage {
my $hash = shift;