FHEM/mod-matrix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

change version, add Meta Data

Browse Source
This commit is contained in:
Marko Oldenburg
2023-01-04 17:53:01 +01:00
parent 132530bb0b
commit 60f6b3aa78
2 changed files with 75 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
lib/FHEM/Devices/Matrix/Client.pm
View File

@@ -2,7 +2,7 @@
# Usage:
#
##########################################################################
# $Id: Matrix.pm 22821 2022-11-12 12:52:00Z Man-fred $
# $Id$
#
# from the developerpages:
# Verwendung von lowerCamelCaps für a) die Bezeichnungen der Behälter für Readings, Fhem und Helper und der Untereintraege,
@@ -108,8 +108,6 @@ BEGIN {
);
}
my $VERSION = '0.0.15';
sub Attr_List {
return
"matrixLogin:password matrixRoom matrixPoll:0,1 matrixSender matrixMessage matrixQuestion_ matrixQuestion_[0-9]+ matrixAnswer_ matrixAnswer_[0-9]+ $readingFnAttributes";
@@ -121,6 +119,12 @@ sub Define {
my $hash = shift;
my $aArg = shift;
my $version;
return $@ unless ( FHEM::Meta::SetInternals($hash) );
$version = FHEM::Meta::Get( $hash, 'version' );
use version 0.77; our $VERSION = $version;
return 'too few parameters: define <name> Matrix <server> <user>'
if ( scalar( @{$aArg} ) != 4 );
@@ -1584,14 +1588,7 @@ sub _PerformHttpRequestOrInternalTimerFAIL {
Log3( $name, 4, "$name : Matrix::ParseHttpResponse $hash" );
if ( AttrVal( $name, 'matrixPoll', 0 ) == 1 ) {
if ( $nextRequest ne '' && $hash->{helper}->{softfail} < 3 ) {
if ( $nextRequest eq 'sync' && $hash->{helper}->{repeat} ) {
$def = $hash->{helper}->{repeat}->{def};
$value = $hash->{helper}->{repeat}->{value};
$hash->{helper}->{repeat} = undef;
_PerformHttpRequest( $hash, $def, $value );
}
else {
if ( !_SyncNextRequest( $hash, $nextRequest ) ) {
_PerformHttpRequest( $hash, $nextRequest, '' );
}
}
@@ -1620,13 +1617,27 @@ sub _PerformHttpRequestOrInternalTimerFAIL {
if ( $nextRequest eq 'login' ) {
_PerformHttpRequest( $hash, $nextRequest, '' );
}
elsif ( $nextRequest eq 'sync' && $hash->{helper}->{repeat} ) {
$def = $hash->{helper}->{repeat}->{def};
$value = $hash->{helper}->{repeat}->{value};
$hash->{helper}->{repeat} = undef;
_PerformHttpRequest( $hash, $def, $value );
}
_SyncNextRequest( $hash, $nextRequest );
}
return;
}
sub _SyncNextRequest {
return 0
unless ( __PACKAGE__ eq caller(0) )
; # nur das eigene Package darf private Funktionen aufrufen (CoolTux)
my $hash = shift;
my $nextRequest = shift;
if ( $nextRequest eq 'sync' && $hash->{helper}->{repeat} ) {
$def = $hash->{helper}->{repeat}->{def};
$value = $hash->{helper}->{repeat}->{value};
$hash->{helper}->{repeat} = undef;
return _PerformHttpRequest( $hash, $def, $value );
}
return;