FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 12:58:13 +00:00
Code Issues Releases Wiki Activity

contrib/AttrTemplate/99_valetudoUtils.pm:utils for valetudo vacuum

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25446 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Otto123 2022-01-09 20:35:05 +00:00
parent 6b20b464a4
commit bff5264de1
1 changed files with 149 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

149
fhem/contrib/AttrTemplate/99_valetudoUtils.pm Normal file
View File

@ -0,0 +1,149 @@
##############################################
# $Id$
# from myUtilsTemplate.pm 21509 2020-03-25 11:20:51Z rudolfkoenig
# utils for valetudo v2 API MQTT Implementation
# They are then available in every Perl expression.
package main;
use strict;
use warnings;
use JSON;
sub
valetudoUtils_Initialize {
my $hash = shift;
return;
}
# Enter you functions below _this_ line.
# valetudo_w return a string for dynamic selection setList
sub valetudo_w {
my $NAME = shift;
my $setter = shift;
# this part reads segments, it's only filled if Provide map data is enabled in connectivity
if ($setter eq 'segments') {
my $json = ReadingsVal($NAME,'segments','select');
my $decoded = decode_json($json);
return join ',', sort values %$decoded
}
# this part read preset which contains a full json for preset zones
if ($setter eq 'presets') {
my $json = ReadingsVal($NAME,'presets','select');
my $decoded = decode_json($json);
my %t;
for (keys %$decoded) { $t{$decoded->{$_}->{'name'}} = $_ } # build a new hash only with zone id and zone name
return join ',', sort keys %t
}
# this part is for study purpose to read the full json segments with the REST API like
# setreading alias=DreameL10pro json_segments {(qx(wget -qO - http://192.168.90.21/api/v2/robot/capabilities/MapSegmentationCapability))}
if ($setter eq 'json_segments') {
my $json = ReadingsVal($NAME,'json_segments','select');
my $decoded = decode_json($json);
my @array=@{$decoded};
my %t;
for (@array) { $t{$_->{'name'}} = $_->{'id'} }
return join ',', sort keys %t
}
}
##############################################################
# valetudo_w return a complete string for setList right part
sub valetudo_c {
my $NAME = shift;
my $EVENT = shift;
my $ret = 'error';
my ($cmd,$load) = split(q{ }, $EVENT,2);
my $devicetopic = InternalVal($NAME,'DEVICETOPIC',"valetudo/$NAME");
# x_raw_payload like
# /MapSegmentationCapability/clean/set {"segment_ids":["6"],"iterations":1,"customOrder":true}
if ($cmd eq 'x_raw_payload') {$ret=$devicetopic.$load}
# this part return an array of segment id's according to selected Names from segments (simple json)
if ($cmd eq 'clean_segment') {
my @rooms = split',', $load;
my $json = ReadingsVal($NAME,'segments','');
my $decoded = decode_json($json);
my %t = reverse %$decoded;
my @ids;
for ( @rooms ) {push @ids, $t{$_}}
my %Hcmd = ( clean_segment => {segment_ids => \@ids,iterations => 1,customOrder => 'true' } );
$ret = $devicetopic.'/MapSegmentationCapability/clean/set '.toJSON $Hcmd{$cmd}
}
# this part return the zone id according to the selected Name from presets (zones) (more complex json)
if ($cmd eq 'clean_zone') {
my $json = ReadingsVal($NAME,'presets','');
my $decoded = decode_json($json);
my %t;
for (keys %$decoded) { $t{$decoded->{$_}->{'name'}} = $_ }
$ret = $devicetopic.'/ZoneCleaningCapability/start/set '.$t{$load}
}
# this part is for study purpose to read the full json segments with the REST API
# this part return an array of segment id's according to selected Names from json_segments (complex json)
if ($cmd eq 'clean_segment_j') {
$cmd = 'clean_segment'; # only during Test
my @rooms = split',', $load;
my $json = ReadingsVal($NAME,'json_segments','');
my $decoded = decode_json($json);
my @array=@{$decoded};
my %t;
for (@array) { $t{$_->{'name'}} = $_->{'id'} }
my @ids;
for ( @rooms ) {push @ids, $t{$_}}
my %Hcmd = ( clean_segment => {segment_ids => \@ids,iterations => 1,customOrder => 'true' } );
$ret = $devicetopic.'/MapSegmentationCapability/clean/set '.toJSON $Hcmd{$cmd}
}
return $ret
}
1;
=pod
=item summary generic MQTT2 vacuum valetudo Device
=item summary_DE generische MQTT2 Staubsauger gerootet mit valetudo
=begin html
Subroutines for generic MQTT2 vacuum cleaner Devices rooted with valetudo.
<a id="MQTT2 valetudo"></a>
<h3>MQTT2 valetudoUtils</h3>
<ul>
subroutines<br>
<b>valetudo_w</b> return a string for dynamic selection setList<br>
<b>valetudo_c</b> return a complete string for setList right part of setList<br>
<br>
<a id="MQTT2_DEVICE-setList"></a>
<b>attr setList</b>
<ul>
<code>clean_segment:{"multiple-strict,".valetudo_w($name,"segments")} { valetudo_c($NAME,$EVENT) }</code>
<br><br>
To use dynamic setList. The $EVENT is parsed inside utils.<br>
</ul>
<br>
</ul>
=end html
=begin html_DE
Subroutines for generic MQTT2 vacuum cleaner Devices rooted with valetudo.
<a id="MQTT2 valetudo"></a>
<h3>MQTT2 valetudoUtils</h3>
<ul>
subroutines<br>
<b>valetudo_w</b> return a string for dynamic selection setList<br>
<b>valetudo_c</b> return a complete string for setList right part of setList<br>
<br>
<a id="MQTT2_DEVICE-setList"></a>
<b>attr setList</b>
<ul>
<code>clean_segment:{"multiple-strict,".valetudo_w($name,"segments")} { valetudo_c($NAME,$EVENT) }</code>
<br><br>
To use dynamic setList. The $EVENT is parsed inside utils.<br>
</ul>
<br>
</ul>
=end html_DE
=cut