History of events - Last download: ' . $hash->{helper}{HistoryTime} . '
+
+
+
+
Doorbell
+
+
Motion-Sensor
+
+
+
Picture
+
Timestamp
+
#
+
Picture
+
Timestamp
+
+ ';
+
+ ### Log Entry for debugging purposes
+ Log3 $name, 5, $name. " : DoorBird_FW_detailFn - hash->{helper}{MaxHistory} : " . $hash->{helper}{MaxHistory};
- my $ImageHtmlCodeDoorbell;
- my $ImageHtmlCodeMotion;
-
- ### Create proper html code for image triggered by doorbell
- if ($HistoryDoorbell[$i]{data} ne "") {
- ### If element contains an error message
- if ($HistoryDoorbell[$i]{data} =~ m/Error/) {
- $ImageHtmlCodeDoorbell = $HistoryDoorbell[$i]{data};
+ ### For all entries in Picture-Array do
+ for (my $i=0; $i <= ($hash->{helper}{MaxHistory} - 1); $i++) {
+
+ my $ImageHtmlCodeDoorbell;
+ my $ImageHtmlCodeMotion;
+
+ ### Create proper html code for image triggered by doorbell
+ if ($HistoryDoorbell[$i]{data} ne "") {
+ ### If element contains an error message
+ if ($HistoryDoorbell[$i]{data} =~ m/Error/) {
+ $ImageHtmlCodeDoorbell = $HistoryDoorbell[$i]{data};
+ }
+ ### If element does not contain an error message
+ else {
+ ### Create proper html code including popup
+ my $ImageHtmlCodeBig = "
" . $HistoryDoorbell[$i]{timestamp} . "
";
+ my $PopupfunctionCode = "onclick=\"FW_okDialog(\'" . $ImageHtmlCodeBig . "\') \" ";
+ $ImageHtmlCodeDoorbell = '';
+ }
}
- ### If element does not contain an error message
else {
- ### Create proper html code including popup
- my $ImageHtmlCodeBig = "
" . $HistoryDoorbell[$i]{timestamp} . "
";
- my $PopupfunctionCode = "onclick=\"FW_okDialog(\'" . $ImageHtmlCodeBig . "\') \" ";
- $ImageHtmlCodeDoorbell = '';
+ $ImageHtmlCodeDoorbell = 'No image available';
}
- }
- else {
- $ImageHtmlCodeDoorbell = 'No image available';
- }
- ### Create proper html code for image triggered by motionsensor
- if ($HistoryMotion[$i]{data} ne "") {
- ### If element contains an error message
- if ($HistoryMotion[$i]{data} =~ m/Error/) {
- $ImageHtmlCodeMotion = $HistoryMotion[$i]{data};
+ ### Create proper html code for image triggered by motionsensor
+ if ($HistoryMotion[$i]{data} ne "") {
+ ### If element contains an error message
+ if ($HistoryMotion[$i]{data} =~ m/Error/) {
+ $ImageHtmlCodeMotion = $HistoryMotion[$i]{data};
+ }
+ ### If element does not contain an error message
+ else {
+ ### Create proper html code including popup
+ my $ImageHtmlCodeBig = "
" . $HistoryMotion[$i]{timestamp} . "
";
+ my $PopupfunctionCode = "onclick=\"FW_okDialog(\'" . $ImageHtmlCodeBig . "\') \" ";
+ $ImageHtmlCodeMotion = '';
+ }
}
- ### If element does not contain an error message
else {
- ### Create proper html code including popup
- my $ImageHtmlCodeBig = "
$info"
+ # TestDescription')\">Testtitle
return($htmlCode );
}
@@ -1572,7 +1597,7 @@ sub DoorBird_Info_Request($$) {
### If no error has been handed back
if ($err eq "") {
- ### If the option is asking for the JSON string
+ ### If the option is asking for the JSON string
if (defined($option) && ($option =~ /JSON/i)) {
return $data;
}
@@ -1628,6 +1653,21 @@ sub DoorBird_Info_Request($$) {
readingsBulkUpdate($hash, "RelayAddr_" . sprintf("%02d", $RelayNumber), $RelayAddress);
}
}
+ ### If the entry has the information about the device type
+ elsif ( $key eq "DEVICE-TYPE") {
+
+ ### If the Device Type is not containing type numbers which have no camera installed - Currently only "DoorBird D301A - Door Intercom IP Upgrade"
+ if ($VersionContent -> {$key} !~ m/301/) {
+ ### Set Information about Camera installed to true
+ $hash->{helper}{CameraInstalled} = true;
+ }
+
+ ### Log Entry for debugging purposes
+ Log3 $name, 5, $name. " : DoorBird_Info_Request - Content of" . sprintf("%15s %-s", $key, ": " . $VersionContent -> {$key});
+
+ ### Update Reading
+ readingsBulkUpdate($hash, $key, $VersionContent -> {$key} );
+ }
### For all other entries
else {
@@ -1641,6 +1681,9 @@ sub DoorBird_Info_Request($$) {
### Update Reading for Firmware-Status
readingsBulkUpdate($hash, "Firmware-Status", "up-to-date");
+ ### Update SessionId
+ DoorBird_RenewSessionID($hash);
+
### Execute Readings Bulk Update
readingsEndUpdate($hash, 1);
';
- }
-
- ### If AudioURL is empty
- if ($AudioURL eq "") {
- ### Create Standard Response
- $AudioHtmlCode = "Audio Stream deactivated";
- }
- ### If AudioURL is NOT empty
- else {
- ### Create proper html code
- $AudioHtmlCode = '';
- }
- #type="audio/wav
-
- ### Create html Code
- my $htmlCode = '
- 
';
+ }
}
- ### If element does not contain an error message
else {
- ### Create proper html code including popup
- my $ImageHtmlCodeBig = "
';
+ }
}
- ### If element does not contain an error message
else {
- ### Create proper html code including popup
- my $ImageHtmlCodeBig = "