/) {
+ for my $output ($data =~ m /
(.*?)<\/tr>/gis) {
+ $output=~ m/(.*?)<\/label>/g;
+ $returnwert1 .= $1."\n";
+ $output=~ m/(.*?)<\/span>/g;
+ $returnwert2 .= $1.": ";
}
- $hash->{Klafs}->{GetSaunaIDs} = $returnwerte;
+ $hash->{Klafs}->{GetSaunaIDs} = $returnwert2.$returnwert1;
}
}
}
@@ -680,7 +702,7 @@ sub _Klafs_saunaid {
###################################
sub Set {
my ( $hash, $name, $cmd, @args ) = @_;
- return if $hash->{Klafs}->{LoginFailures} > 0 and !$cmd;
+ return if $hash->{Klafs}->{LoginFailures} > 0 && !$cmd;
if (Klafs_CONNECTED($hash) eq 'disabled' && $cmd !~ /clear/) {
@@ -697,7 +719,7 @@ sub Set {
my $FIFTEEN_MINS = (15 * 60);
my $now = time;
if (my $diff = $now % $FIFTEEN_MINS) {
- $now += $FIFTEEN_MINS - $diff;
+ $now += $FIFTEEN_MINS - $diff;
}
my $next = scalar localtime $now;
# doppelte Leerzeichen bei einstelligen Datumsangaben entfernen
@@ -706,6 +728,8 @@ sub Set {
my @Uhrzeit = split(/:/,$Zeit[3]);
my $std = $Uhrzeit[0];
my $min = $Uhrzeit[1];
+ my $timesel = 0;
+ my $timeselect = '';
# print "Decoded Zeit:\n".Dumper(@Zeit);
#Decoded Zeit:
#$VAR1 = 'Mon';
@@ -731,34 +755,20 @@ sub Set {
Log3 ($name, 2, "Klafs set $name " . $cmd);
klafs_getStatus($hash);
- my $mode = shift @args;
+ my $mode = "0";
+ $mode = shift @args;
+
my $aspxauth = $hash->{Klafs}->{cookie};
my $pin = $hash->{Klafs}->{pin};
my $saunaid = $hash->{Klafs}->{saunaid};
- my $selectedSaunaTemperature = ReadingsVal( $name, "selectedSaunaTemperature", "90" );
- my $selectedSanariumTemperature = ReadingsVal( $name, "selectedSanariumTemperature", "65" );
- my $selectedIrTemperature = ReadingsVal( $name, "selectedIrTemperature", "0" );
- my $selectedHumLevel = ReadingsVal( $name, "selectedHumLevel", "5" );
- my $selectedIrLevel = ReadingsVal( $name, "selectedIrLevel", "0" );
- my $isConnected = ReadingsVal( $name, "isConnected", "true" );
- my $isPoweredOn = ReadingsVal( $name, "isPoweredOn", "false" );
- my $isReadyForUse = ReadingsVal( $name, "isReadyForUse", "false" );
- my $currentTemperature = ReadingsVal( $name, "currentTemperature", "141" );
- if($currentTemperature eq "0"){
- $currentTemperature = "141";
- }
- my $currentHumidity = ReadingsVal( $name, "currentHumidity", "0" );
- my $statusCode = ReadingsVal( $name, "statusCode", "0" );
- my $statusMessage = ReadingsVal( $name, "statusMessage", "" );
- if($statusMessage eq ""){
- $statusMessage = 'null';
- }
- my $showBathingHour = ReadingsVal( $name, "showBathingHour", "false" );
- my $bathingHours = ReadingsVal( $name, "bathingHours", "0" );
- my $bathingMinutes = ReadingsVal( $name, "bathingMinutes", "0" );
- my $currentHumidityStatus = ReadingsVal( $name, "currentHumidityStatus", "0" );
- my $currentTemperatureStatus = ReadingsVal( $name, "currentTemperatureStatus", "0" );
+
+ my $header_on = "Content-Type: application/json; charset=utf-8\r\n".
+ "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36\r\n".
+ "Accept: application/json, text/javascript, */*; q=0.01\r\n".
+ "Accept-Encoding: gzip, deflate, br\r\n".
+ "Accept-Language: de-DE,de;q=0.9,en-US;q=0.8,en;q=0.7\r\n".
+ "Cookie: $aspxauth";
if ( $pin eq "") {
my $msg = "Missing attribute: attr $name pin ";
@@ -770,7 +780,24 @@ sub Set {
return $msg;
}else{
my $datauser_cv = "";
+
if ( $mode eq "Sauna"){
+
+ # Sauna Modus wechseln
+ my $datauser_mode = '{"id":"'.$saunaid.'","selected_mode":1}';
+ Log3 ($name, 4, "$name - JSON_MODE: $datauser_mode");
+
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/SetMode",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_mode,
+ });
+
+
+
# Sauna hat 1 Parameter: Temperatur
#return "Zu wenig Argumente: Temperatur fehlt" if ( @args < 1 );
my $temperature = shift @args;
@@ -787,6 +814,22 @@ sub Set {
$temperature = 90;
}
}
+
+ # Sauna Temperatur wechseln
+ my $datauser_temp = '{"id":"'.$saunaid.'","temperature":"'.$temperature.'"}';
+ Log3 ($name, 4, "$name - JSON_TEMP: $datauser_temp");
+
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/ChangeTemperature",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_temp,
+ });
+
+
+
my $Time;
$Time = shift @args;
@@ -809,12 +852,40 @@ sub Set {
$min = substr($min,1,1);
}
}
+ $timesel = 1;
}
if ($std <0 || $std >23 || $min <0 || $min >59){
return "Checken Sie das Zeitformat $std:$min\n";
}
- $datauser_cv = '{"changedData":{"saunaId":"'.$saunaid.'","saunaSelected":true,"sanariumSelected":false,"irSelected":false,"selectedSaunaTemperature":'.$temperature.',"selectedSanariumTemperature":'.$selectedSanariumTemperature.',"selectedIrTemperature":'.$selectedIrTemperature.',"selectedHumLevel":'.$selectedHumLevel.',"selectedIrLevel":'.$selectedIrLevel.',"selectedHour":'.$std.',"selectedMinute":'.$min.',"isConnected":'.$isConnected.',"isPoweredOn":'.$isPoweredOn.',"isReadyForUse":'.$isReadyForUse.',"currentTemperature":'.$currentTemperature.',"currentHumidity":'.$currentHumidity.',"statusCode":'.$statusCode.',"statusMessage":'.$statusMessage.',"showBathingHour":'.$showBathingHour.',"bathingHours":'.$bathingHours.',"bathingMinutes":'.$bathingMinutes.',"currentHumidityStatus":'.$currentHumidityStatus.',"currentTemperatureStatus":'.$currentTemperatureStatus.'}}';
+ # Sauna Zeit wechseln
+ my $datauser_zeit = '{"id":"'.$saunaid.'","time_set":true,"hours":'.$std.',"minutes":'.$min.'}';
+ Log3 ($name, 4, "$name - JSON_ZEIT: $datauser_zeit");
+
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/SetSelectedTime",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_zeit,
+ });
+
+
}elsif ( $mode eq "Sanarium" ) {
+
+ # Sanarium Modus wechseln
+ my $datauser_mode = '{"id":"'.$saunaid.'","selected_mode":2}';
+ Log3 ($name, 4, "$name - JSON_MODE: $datauser_mode");
+
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/SetMode",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_mode,
+ });
+
my $temperature = shift @args;
@@ -829,8 +900,21 @@ sub Set {
if ($temperature eq "" || $temperature eq 0){
$temperature = 65;
}
-
}
+
+ # Sanarium Temperatur wechseln
+ my $datauser_temp = '{"id":"'.$saunaid.'","temperature":"'.$temperature.'"}';
+ Log3 ($name, 4, "$name - JSON_TEMP: $datauser_temp");
+
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/ChangeTemperature",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_temp,
+ });
+
my $Time;
my $level;
$level = shift @args;
@@ -871,11 +955,24 @@ sub Set {
$min = substr($min,1,1);
}
}
+ $timesel = 1;
}
}
if ($std <0 || $std >23 || $min <0 || $min >59){
return "Checken Sie das Zeitformat $std:$min\n";
}
+ # Sanarium Zeit wechseln
+ my $datauser_zeit = '{"id":"'.$saunaid.'","time_set":true,"hours":'.$std.',"minutes":'.$min.'}';
+ Log3 ($name, 4, "$name - JSON_ZEIT: $datauser_zeit");
+
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/SetSelectedTime",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_zeit,
+ });
# Auf volle 10 Minuten runden
#if( substr($min,-1,1) > 0){
@@ -898,178 +995,72 @@ sub Set {
if ($level eq ""){
$level = 5;
}
-
- }
- $datauser_cv = '{"changedData":{"saunaId":"'.$saunaid.'","saunaSelected":false,"sanariumSelected":true,"irSelected":false,"selectedSaunaTemperature":'.$selectedSaunaTemperature.',"selectedSanariumTemperature":'.$temperature.',"selectedIrTemperature":'.$selectedIrTemperature.',"selectedHumLevel":'.$level.',"selectedIrLevel":'.$selectedIrLevel.',"selectedHour":'.$std.',"selectedMinute":'.$min.',"isConnected":'.$isConnected.',"isPoweredOn":'.$isPoweredOn.',"isReadyForUse":'.$isReadyForUse.',"currentTemperature":'.$currentTemperature.',"currentHumidity":'.$currentHumidity.',"statusCode":'.$statusCode.',"statusMessage":'.$statusMessage.',"showBathingHour":'.$showBathingHour.',"bathingHours":'.$bathingHours.',"bathingMinutes":'.$bathingMinutes.',"currentHumidityStatus":'.$currentHumidityStatus.',"currentTemperatureStatus":'.$currentTemperatureStatus.'}}';
- }elsif ( $mode eq "Infrared" ) {
- my $temperature = shift @args;
- if(!looks_like_number($temperature)){
- return "Geben Sie einen nummerischen Wert fuer ein";
- }
- if ($temperature >= 20 && $temperature <=40 && $temperature ne ""){
- $temperature = $temperature;
- }else{
- # Letzer Wert oder Standardtemperatur
- $temperature = ReadingsVal( $name, "selectedIrTemperature", "" );
- if ($temperature eq "" || $temperature eq 0){
- $temperature = 35;
- }
- }
- my $Time;
- my $level;
- $level = shift @args;
- $Time = shift @args;
-
- if(!defined($Time)){
- $Time ="$Uhrzeit[0]:$Uhrzeit[1]";
}
+ # Sanarium Feuchtigkeit wechseln
+ my $datauser_hlevel = '{"id":"'.$saunaid.'","level":"'.$level.'"}';
+ Log3 ($name, 4, "$name - JSON_HUM_LEVEL: $datauser_hlevel");
- # Parameter level ist optional. Wird in der ersten Variable eine anstelle des Levels eine Uhrzeit gefunden, dann level auf "" setzen und $std,$min setzen
- if($level =~ /:/ || $Time =~ /:/){
- if($level =~ /:/){
- my @Timer = split(/:/,$level);
- $std = $Timer[0];
- $min = $Timer[1];
- if($std < 10){
- if(substr($std,0,1) eq "0"){
- $std = substr($std,1,1);
- }
- }
- if($min < 10){
- if(substr($min,0,1) eq "0"){
- $min = substr($min,1,1);
- }
- }
- $level = "";
- }else{
- my @Timer = split(/:/,$Time);
- $std = $Timer[0];
- $min = $Timer[1];
- if($std < 10){
- if(substr($std,0,1) eq "0"){
- $std = substr($std,1,1);
- }
- }
- if($min < 10){
- if(substr($min,0,1) eq "0"){
- $min = substr($min,1,1);
- }
- }
- }
- }
- if ($std <0 || $std >23 || $min <0 || $min >59){
- return "Checken Sie das Zeitformat $std:$min\n";
- }
+ HttpUtils_BlockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/ChangeHumLevel",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_hlevel,
+ });
- if ($level >= 0 && $level <=10 && $level ne "" ){
- $level = $level;
- }else{
- # Letzer Wert oder Standardlevel
- $level = ReadingsVal( $name, "selectedIrLevel", "" );
- if ($level eq ""){
- $level = 5;
- }
- }
- $datauser_cv = '{"changedData":{"saunaId":"'.$saunaid.'","saunaSelected":false,"sanariumSelected":false,"irSelected":true,"selectedSaunaTemperature":'.$selectedSaunaTemperature.',"selectedSanariumTemperature":'.$selectedSanariumTemperature.',"selectedIrTemperature":'.$temperature.',"selectedHumLevel":'.$selectedHumLevel.',"selectedIrLevel":'.$level.',"selectedHour":'.$std.',"selectedMinute":'.$min.',"isConnected":'.$isConnected.',"isPoweredOn":'.$isPoweredOn.',"isReadyForUse":'.$isReadyForUse.',"currentTemperature":'.$currentTemperature.',"currentHumidity":'.$currentHumidity.',"statusCode":'.$statusCode.',"statusMessage":'.$statusMessage.',"showBathingHour":'.$showBathingHour.',"bathingHours":'.$bathingHours.',"bathingMinutes":'.$bathingMinutes.',"currentHumidityStatus":'.$currentHumidityStatus.',"currentTemperatureStatus":'.$currentTemperatureStatus.'}}';
-
- }else{
- $datauser_cv = '{"changedData":{"saunaId":"'.$saunaid.'","saunaSelected":true,"sanariumSelected":false,"irSelected":false,"selectedSaunaTemperature":90,"selectedSanariumTemperature":'.$selectedSanariumTemperature.',"selectedIrTemperature":'.$selectedIrTemperature.',"selectedHumLevel":'.$selectedHumLevel.',"selectedIrLevel":'.$selectedIrLevel.',"selectedHour":'.$std.',"selectedMinute":'.$min.',"isConnected":'.$isConnected.',"isPoweredOn":'.$isPoweredOn.',"isReadyForUse":'.$isReadyForUse.',"currentTemperature":'.$currentTemperature.',"currentHumidity":'.$currentHumidity.',"statusCode":'.$statusCode.',"statusMessage":'.$statusMessage.',"showBathingHour":'.$showBathingHour.',"bathingHours":'.$bathingHours.',"bathingMinutes":'.$bathingMinutes.',"currentHumidityStatus":'.$currentHumidityStatus.',"currentTemperatureStatus":'.$currentTemperatureStatus.'}}';
}
-
- Log3 ($name, 4, "$name - JSON ON: $datauser_cv");
- # 1) Werte aendern
- #print "Mode: ". $mode . " Temperature: ". $temperature . " Level: " .$level ."\n$datauser_cv\n\n";
- my $header_cv = "Content-Type: application/json\r\n".
- "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.71 Safari/537.36\r\n".
- "Cookie: $aspxauth";
- HttpUtils_BlockingGet({
- url => "https://sauna-app.klafs.com//Control/PostConfigChange",
- timeout => 5,
- hash => $hash,
- method => "POST",
- header => $header_cv,
- data => $datauser_cv,
- });
-
-
- my $state_onoff = ReadingsVal( $name, "isPoweredOn", "false" );
-
+
+ my $state_onoff = ReadingsVal( $name, "power", "off" );
# Einschalten, wenn Sauna aus ist.
- if($state_onoff eq "false"){
- my $header_af = "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.71 Safari/537.36\r\n".
- "Cookie: $aspxauth";
- my $datauser_af = "s=$saunaid";
- # 2 Steps: 2) Antiforgery erzeugen; 3) Einschalten
- HttpUtils_NonblockingGet({
- url => "https://sauna-app.klafs.com/Control/EnterPin",
- timeout => 5,
- hash => $hash,
- method => "POST",
- header => $header_af,
- data => $datauser_af,
- callback=>sub($$$){
- my ($param, $err, $data) = @_;
- my $hash = $param->{hash};
- my $name = $hash->{NAME};
- my $header = $param->{httpheader};
- Log3 ($name, 5, "header: $header");
- Log3 ($name, 5, "Data: $data");
- Log3 ($name, 5, "Error: $err");
- readingsBeginUpdate ($hash);
- for my $cookie ($header =~ m/set-cookie: ?(.*)/gi) {
- $cookie =~ /([^,; ]+)=([^,;\s\v]+)[;,\s\v]*([^\v]*)/;
- my $antiforgery = $1 . "=" .$2 .";";
- my $antiforgery_date = strftime("%Y-%m-%d %H:%M:%S", localtime(time()));
- readingsBulkUpdate( $hash, "antiforgery_date", "$antiforgery_date", 1 );
- Log3 ($name, 5, "$name: Antiforgery found: $antiforgery");
- $hash->{Klafs}->{antiforgery} = $antiforgery;
- }
- readingsEndUpdate($hash, 1);
-
- # 2) Einschalten
- my $headeron = "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.71 Safari/537.36\r\n".
- "Cookie: $aspxauth";
- my $antiforgery = $hash->{Klafs}->{antiforgery};
- my $datauseron = "$antiforgery&Pin=$pin&saunaId=$saunaid";
- HttpUtils_NonblockingGet({
- url => "https://sauna-app.klafs.com/Control/EnterPin",
- timeout => 5,
- hash => $hash,
- method => "POST",
- header => $headeron,
- data => $datauseron,
- callback => sub($$$){
- my ($param, $err, $data) = @_;
- my $hash = $param->{hash};
- my $name = $hash->{NAME};
- Log3 ($name, 5, "header: $header");
- Log3 ($name, 5, "Data: $data");
- Log3 ($name, 5, "Error: $err");
- if($data=~//) {
- readingsBeginUpdate ($hash);
- for my $err ($data =~ m / ?(.*)<\/li>/) {
- my %umlaute = ("ä" => "ae", "ü" => "ue", "Ä" => "Ae", "Ö" => "Oe", "ö" => "oe", "Ü" => "Ue", "ß" => "ss");
- my $umlautkeys = join ("|", keys(%umlaute));
- $err=~ s/($umlautkeys)/$umlaute{$1}/g;
- Log3 ($name, 1, "Klafs $name: $err");
- readingsBulkUpdate( $hash, "last_errormsg", "$err", 1 );
- }
- readingsEndUpdate($hash, 1);
- }else{
- $power = "on";
- Log3 ($name, 3, "Sauna on");
- readingsBeginUpdate ($hash);
- readingsBulkUpdate( $hash, "power", $power, 1 );
- readingsBulkUpdate( $hash, "last_errormsg", "0", 1 );
- readingsEndUpdate($hash, 1);
- klafs_getStatus($hash);
- }
- }
- });
- }
- });
- }
- }
+ Log3 ($name, 5, "$name - SaunaState : $state_onoff");
+ if($state_onoff eq "off"){
+ # Einschalten
+ if($timesel eq 1){
+ $timeselect = 'true';
+ }else{
+ $timeselect = 'false';
+ }
+ my $datauser_start = '{"id":"'.$saunaid.'","pin":"'.$pin.'","time_selected":'.$timeselect.',"sel_hour":'.$std.',"sel_min":'.$min.'}';
+ Log3 ($name, 5, "$name - Start JSON : $datauser_start");
+ HttpUtils_NonblockingGet({
+ url => "https://sauna-app-19.klafs.com/SaunaApp/StartCabin",
+ timeout => 5,
+ hash => $hash,
+ method => "POST",
+ header => $header_on,
+ data => $datauser_start,
+ callback => sub($$$){
+ my ($param, $err, $data) = @_;
+ my $hash = $param->{hash};
+ my $name = $hash->{NAME};
+ my $header = $param->{httpheader};
+ Log3 ($name, 4, "header: $header");
+ Log3 ($name, 4, "Data: $data");
+ Log3 ($name, 4, "Error: $err");
+ if($data=~/"Success":false/) {
+ readingsBeginUpdate ($hash);
+ for my $err ($data =~ m /ErrorMessage":"?(.*)"/) {
+ my %umlaute = ("ä" => "ae", "ü" => "ue", "Ä" => "Ae", "Ö" => "Oe", "ö" => "oe", "Ü" => "Ue", "ß" => "ss");
+ my $umlautkeys = join ("|", keys(%umlaute));
+ $err=~ s/($umlautkeys)/$umlaute{$1}/g;
+ Log3 ($name, 1, "Klafs $name: $err");
+ readingsBulkUpdate( $hash, "last_errormsg", "$err", 1 );
+ }
+ readingsEndUpdate($hash, 1);
+ }else{
+ $power = "on";
+ Log3 ($name, 3, "Sauna on");
+ readingsBeginUpdate ($hash);
+ readingsBulkUpdate( $hash, "power", $power, 1 );
+ readingsBulkUpdate( $hash, "last_errormsg", "0", 1 );
+ readingsEndUpdate($hash, 1);
+ klafs_getStatus($hash);
+ }
+ }
+ });
+ } ## Ende Wenn Sauna aus ist
+ } ## Ende PIN / SAUNAID vorhanden
# sauna off
}elsif ( $cmd eq "off" ) {
@@ -1077,54 +1068,26 @@ sub Set {
klafs_getStatus($hash);
my $aspxauth = $hash->{Klafs}->{cookie};
-
my $saunaid = $hash->{Klafs}->{saunaid};
- my $saunaSelected = ReadingsVal( $name, "saunaSelected", "true" );
- my $sanariumSelected = ReadingsVal( $name, "sanariumSelected", "false" );
- my $irSelected = ReadingsVal( $name, "irSelected", "false" );
-
- my $selectedSaunaTemperature = ReadingsVal( $name, "selectedSaunaTemperature", "90" );
- my $selectedSanariumTemperature = ReadingsVal( $name, "selectedSanariumTemperature", "65" );
- my $selectedIrTemperature = ReadingsVal( $name, "selectedIrTemperature", "0" );
- my $selectedHumLevel = ReadingsVal( $name, "selectedHumLevel", "5" );
- my $selectedIrLevel = ReadingsVal( $name, "selectedIrLevel", "0" );
- my $selectedHour = ReadingsVal( $name, "selectedHour", "0" );
- my $selectedMinute = ReadingsVal( $name, "selectedMinute", "0" );
-
- my $isConnected = ReadingsVal( $name, "isConnected", "true" );
- my $isPoweredOn = ReadingsVal( $name, "isPoweredOn", "false" );
- my $isReadyForUse = ReadingsVal( $name, "isReadyForUse", "false" );
- my $currentTemperature = ReadingsVal( $name, "currentTemperature", "141" );
- if($currentTemperature eq "0"){
- $currentTemperature = "141";
- }
- my $currentHumidity = ReadingsVal( $name, "currentHumidity", "0" );
- my $statusCode = ReadingsVal( $name, "statusCode", "0" );
- my $statusMessage = ReadingsVal( $name, "statusMessage", "" );
- if($statusMessage eq ""){
- $statusMessage = 'null';
- }
- my $showBathingHour = ReadingsVal( $name, "showBathingHour", "false" );
- my $bathingHours = ReadingsVal( $name, "bathingHours", "0" );
- my $bathingMinutes = ReadingsVal( $name, "bathingMinutes", "0" );
- my $currentHumidityStatus = ReadingsVal( $name, "currentHumidityStatus", "0" );
- my $currentTemperatureStatus = ReadingsVal( $name, "currentTemperatureStatus", "0" );
-
+
if ($saunaid eq ""){
my $msg = "Missing attribute: attr $name saunaid ";
Log3 ($name, 1, $msg);
return $msg;
}else{
- my $header = "Content-Type: application/json\r\n".
- "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.71 Safari/537.36\r\n".
+ my $header = "Content-Type: application/json; charset=utf-8\r\n".
+ "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36\r\n".
+ "Accept: application/json, text/javascript, */*; q=0.01\r\n".
+ "Accept-Encoding: gzip, deflate, br\r\n".
+ "Accept-Language: de-DE,de;q=0.9,en-US;q=0.8,en;q=0.7\r\n".
"Cookie: $aspxauth";
- my $datauser_end = '{"changedData":{"saunaId":"'.$saunaid.'","saunaSelected":'.$saunaSelected.',"sanariumSelected":'.$sanariumSelected.',"irSelected":'.$irSelected.',"selectedSaunaTemperature":'.$selectedSaunaTemperature.',"selectedSanariumTemperature":'.$selectedSanariumTemperature.',"selectedIrTemperature":'.$selectedIrTemperature.',"selectedHumLevel":'.$selectedHumLevel.',"selectedIrLevel":'.$selectedIrLevel.',"selectedHour":'.$selectedHour.',"selectedMinute":'.$selectedMinute.',"isConnected":'.$isConnected.',"isPoweredOn":'.$isPoweredOn.',"isReadyForUse":'.$isReadyForUse.',"currentTemperature":'.$currentTemperature.',"currentHumidity":'.$currentHumidity.',"statusCode":'.$statusCode.',"statusMessage":'.$statusMessage.',"showBathingHour":'.$showBathingHour.',"bathingHours":'.$bathingHours.',"bathingMinutes":'.$bathingMinutes.',"currentHumidityStatus":'.$currentHumidityStatus.',"currentTemperatureStatus":'.$currentTemperatureStatus.'}}';
+ my $datauser_end = '{"id":"'.$saunaid.'"}';
Log3 ($name, 4, "$name - JSON_OFF: $datauser_end");
HttpUtils_BlockingGet({
- url => "https://sauna-app.klafs.com/Control/PostPowerOff",
+ url => "https://sauna-app-19.klafs.com/SaunaApp/StopCabin",
timeout => 5,
hash => $hash,
method => "POST",
@@ -1132,14 +1095,6 @@ sub Set {
data => $datauser_end,
});
- HttpUtils_BlockingGet({
- url => "https://sauna-app.klafs.com//Control/PostConfigChange",
- timeout => 5,
- hash => $hash,
- method => "POST",
- header => $header,
- data => $datauser_end,
- });
$power = "off";
readingsBeginUpdate ($hash);
readingsBulkUpdate( $hash, "power", $power, 1 );
@@ -1297,16 +1252,15 @@ __END__
off Turns off the sauna|sanarium|infrared - without parameters.
+ Turns off the sauna|sanarium - without parameters.
on
- set <name> on without parameters - default sauna 90 degreesset <name> on without parameters - start with last used valuesset <name> on Sauna 90 - 3 parameters possible: "Sauna" with temperature [10-100]; Optional time [19:30].set <name> on Saunarium 65 5 - 4 parameters possible: "Sanarium" with temperature [40-75]; Optional HumidtyLevel [0-10] and time [19:30].set <name> on Infrared 30 5 - 4 parameters possible: "Infrared" with temperature [20-40] and IR Level [0-10]; Optional time [19:30].
@@ -1347,7 +1301,7 @@ __END__
Mode Sauna, Sanarium or Infrared
+ Sauna, Sanarium
LoginFailures
off Schaltet die Sauna|Sanarium|Infrared aus - ohne Parameter.
+ Schaltet die Sauna|Sanarium aus - ohne Parameter.
on
- set <name> on ohne Parameter - Default Sauna 90 Gradset <name> on ohne Parameter - Starten mit zuletzt verwendeten Wertenset <name> on Sauna 90 - 3 Parameter möglich: "Sauna" mit Temperatur [10-100]; Optional Uhrzeit [19:30]set <name> on Saunarium 65 5 - 4 Parameter möglich: "Sanarium" mit Temperatur [40-75]; Optional HumidtyLevel [0-10] und Uhrzeit [19:30]set <name> on Infrared 30 5 - 4 Parameter möglich: "Infrarot" mit Temperatur [20-40] und IR Level [0-10]; Optional Uhrzeit [19:30]
@@ -1613,7 +1566,7 @@ __END__
Mode Sauna, Sanarium oder Infrared
+ Sauna oder Sauna
LoginFailures