From c609447331e0598b504bbde33f74a75970eb3bf5 Mon Sep 17 00:00:00 2001
From: "michael.winkler" <>
Date: Wed, 26 Jul 2017 14:19:55 +0000
Subject: [PATCH] 70_WINCONNECT: new modul
git-svn-id: https://svn.fhem.de/fhem/trunk@14791 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
fhem/FHEM/70_WINCONNECT.pm | 984 +++++++++++++++++++++++++++++++++++++
1 file changed, 984 insertions(+)
create mode 100644 fhem/FHEM/70_WINCONNECT.pm
diff --git a/fhem/FHEM/70_WINCONNECT.pm b/fhem/FHEM/70_WINCONNECT.pm
new file mode 100644
index 000000000..1db6e7c0c
--- /dev/null
+++ b/fhem/FHEM/70_WINCONNECT.pm
@@ -0,0 +1,984 @@
+# $Id$
+############################################################################
+# 2017-07-26, v0.0.16
+#
+# v0.0.16 erste SVN Version
+# - BUFIX: Refresh CSRFTOKEN nach einem reconnect
+# Readings zurücksetzen wenn Offline
+# os_RunTime_days,os_RunTime_hours und os_RunTime_minutes
+# printer_aktiv und printer_names
+# div. Optimierungen
+# - FEATURE Attribut "win_resetreadings:0,1" Standard = 1 / 1 = Readings zurücksetzen wenn Offline
+# Attribut "autoupdategitlab:0,1" Standard = 1 / 0 = Hier kann der automatische Download deaktiviert werden.
+# - CHANGE Attribut "http-noshutdown" Auf Standwardwert "0" gesetzt
+#
+# v0.0.15
+# - BUFIX: Start optimiert / Log sortiert
+#
+# v0.0.14
+# - FEATURE: Winconnect mit Windows starten
+# Ausführen (minimiert/normales Fenster)
+# checkprocess (prüft ob ein Prozess gestartet ist inkl. Anzahl)
+# wincontrol.exe.config wird nicht mehr benötigt
+# Windows Version (os_Version & os_ReleaseID ab Win10)
+# Benutzer / Hostname (os_Username, os_Computername & os_Domainname)
+# Performance: CPU, Festplatte, Netzwerk, RAM, …
+# Hardware Ausrüstung: Prozessor, BIOS & RAM (memory_*, bios_* und cpu_*)
+# VolumeDown, VolumeUp (mit attr volumeStep)
+# Laufzeiten in Tage/Stunden/Minuten (os_RunTime_minutes, os_RunTime_hours und os_RunTime_days)
+# - BUFIX: checkservice (im FHEM Reading wurde immer nur der erste Service eingetragen)
+#
+# v0.0.13
+# - FEATURE: Performance Optimierungen
+# set powermode add(standby/hibernate)
+# drive informations (Space in MB/change only > 10MB)
+# - BUFIX: div.
+# Programmabsturtz nach ca. 4-5 Tagen
+#
+# v0.0.12
+# - FEATURE: CSRFToken
+# - BUFIX: Detect Audio Sound
+#
+# v0.0.11
+# - FEATURE: ttsmsg play sound
+# messagebox play sound
+# set camera (on/off)
+# make picture (camera)
+# motion detect (camera)
+# Update Winconnect.exe (inkl. autoupdate)
+# microphone sound detection
+# Startscreen
+# - BUFIX: .NET Fehlermeldung
+# set screen on
+# set screen off
+# - Readings: audio_devicename
+# microphone_devicename
+#
+# v0.0.10
+# - FEATURE: send notifymsg (set notifymsg Ballon Tip)
+# send messagebox (set messagebox)
+# Verzeichnis überwachen
+# set powermode (shutdown/restart)
+#
+# v0.0.9
+# - FEATURE: FHEM SSL
+#
+# v0.0.8
+# - FEATURE: FHEM Anmeldung (basicAuth)
+# volume mute (on/off)
+# - BUGFIX: statusrequest (firststart)
+# - Readings: speecherrormessage
+# speecherrormessagequality
+# speechmessagequality
+# mute
+#
+# v0.0.7 - 20161107
+# - BUGFIX: Umlaute beim senden einer ttsmsg
+# - FEATURE: set commandhide
+# set user_aktividletime
+# printer_aktiv
+# Spracherkennung
+#
+# v0.0.6 - 20161025
+# - BUFIX: no audiodevice
+# - FEATURE: set brightness 0 - 100
+#
+# v0.0.5 - 20161024
+# - BUGFIX
+#
+# v0.0.4 - 20161024
+# - BUGFIX: (Bereinigung wincontrol / FHEM readings)
+# - FEATURE: send ttsmsg (TextToSpeech)
+# - Readings: os_StartTime = Startzeit Windows
+# wincontrol_starttime = Startzeit WinControl
+# wincontrol_user = Benutzer der Wintrol gestartet hat
+# battery_ChargeStatus
+# battery_LifePercent
+# battery_LifeRemainingsMin
+# battery_PowerLineStatus
+#
+# v0.0.3 - 20161020
+# - FEATURE: set command
+# set showfile
+# set checkservice
+#
+# v0.0.0 - 20161018
+# - FEATURE: ON/OFF Windows Screen
+# set volume
+# detect playing audio
+#
+# Copyright by Michael Winkler
+# e-mail: michael.winkler at online.de
+#
+# This file is part of fhem.
+#
+# Fhem is free software: you can redistribute it andor modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+#
+# Fhem is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with fhem. If not, see .
+#
+##############################################################################
+
+package main;
+
+use strict;
+use warnings;
+use HttpUtils;
+use Time::Piece;
+
+sub WINCONNECT_Set($@);
+sub WINCONNECT_GetStatus($;$);
+sub WINCONNECT_Define($$);
+sub WINCONNECT_Undefine($$);
+
+# Autoupdateinformationen
+my $DownloadURL = "https://gitlab.com/michael.winkler/winconnect/raw/master/WinControl_0.0.16.exe";
+my $DownloadVer = "0.0.16";
+
+###################################
+sub WINCONNECT_Initialize($) {
+ my ($hash) = @_;
+
+ Log3 $hash, 5, "WINCONNECT_Initialize: Entering";
+
+ $hash->{SetFn} = "WINCONNECT_Set";
+ $hash->{DefFn} = "WINCONNECT_Define";
+ $hash->{UndefFn} = "WINCONNECT_Undefine";
+
+ $hash->{AttrList} = "volumeStep win_resetreadings:0,1 disable:0,1 autoupdategitlab:0,1 " . $readingFnAttributes;
+
+ return;
+}
+
+#####################################
+# Get Status
+#####################################
+sub WINCONNECT_GetStatus($;$) {
+ my ($hash, $update ) = @_;
+ my $name = $hash->{NAME};
+ my $interval = $hash->{INTERVAL};
+
+ RemoveInternalTimer($hash);
+
+ return if ( AttrVal( $name, "disable", 0 ) == 1 );
+
+ InternalTimer( gettimeofday() + $interval, "WINCONNECT_GetStatus", $hash, 0 );
+
+ my $filename = '././www/winconnect/WinControl.exe';
+ my $filedir = '././www/winconnect';
+ my $filemtime = (stat $filename)[9];
+
+ Log3 $name, 5, "WINCONNECT $name: called function WINCONNECT_GetStatus()";
+ Log3 $name, 5, "WINCONNECT $name: filename = " . $filename . " filemtime = " . $filemtime;
+
+ readingsBeginUpdate($hash);
+
+ #WinControl Versionsinformationen
+ readingsBulkUpdate( $hash, "wincontrol_gitlap", $DownloadVer );
+ readingsBulkUpdate( $hash, "wincontrol_gitlap_url", $DownloadURL);
+
+ #WinControl Update Info eintragen
+ readingsBulkUpdate( $hash, "wincontrol_update", $filemtime );
+ readingsBulkUpdate( $hash, "model", ReadingsVal( $name, "os_Name", "unbekannt" ) );
+
+ readingsEndUpdate( $hash, 1 );
+
+ #Autoupdatefile von Gitlab herunterladen
+ if ($DownloadURL ne '' && !(-e $filename . "_" .$DownloadVer) && AttrVal( $name, "autoupdategitlab", "1" ) ) {
+
+ #Verzeichnis anlegen
+ mkdir($filedir, 0777) unless(-d $filedir );
+
+ open (FILE, ">". $filename . "_" .$DownloadVer);
+ print FILE $name;
+ close (FILE);
+ Log3 $name, 0, "WINCONNECT [NEW] Download new version URL = $DownloadURL";
+ HttpUtils_NonblockingGet({url=>$DownloadURL, timeout=>5, hash=>$hash, service=>"autoupdate", callback=>\&WINCONNECT_GetNewVersion});
+ }
+
+ if ( !$update ) {
+ WINCONNECT_SendCommand( $hash, "powerstate" );
+ }
+ else {
+ WINCONNECT_SendCommand( $hash, "statusrequest" );
+ }
+
+ return;
+}
+
+sub WINCONNECT_GetNewVersion($$$) {
+ my ($hash, $err, $data) = @_;
+ my $filename = '././www/winconnect/WinControl.exe';
+ my $name = $hash->{NAME};
+ my $CheckFile = $filename . "_" .$DownloadVer;
+
+ # Alte Datei löschen
+ if (-e $filename) {unlink ($filename) or die $!;}
+
+ # Download neue Datei
+ open(FH, ">$filename");
+ print FH $data;
+ close(FH);
+
+ # Prüfen ob die Dateigröße passt!
+ if ((stat $filename)[7] < 600000) {
+ #Download fehlgeschlagen!
+ if (-e $CheckFile) {unlink ($CheckFile) or die $!;}
+
+ Log3 $name, 0, "WINCONNECT [NEW] Download ERROR file to small. Filesize = " . (stat $filename)[7];
+ }else{
+ Log3 $name, 0, "WINCONNECT [NEW] Download new version OK";
+ }
+}
+
+###################################
+sub WINCONNECT_SendCommand($$;$$) {
+ my ( $hash, $service, $cmd ) = @_;
+ my $name = $hash->{NAME};
+ my $address = $hash->{helper}{ADDRESS};
+ my $http_noshutdown = AttrVal( $name, "http-noshutdown", "0" );
+ my $serviceurl = "";
+ my $PWRState = ReadingsVal( $name, "state", "" );
+ my $Winconnect = ReadingsVal( $name, "wincontrol", "statusrequest" );
+ my $WinconnectUPD = ReadingsVal( $name, "wincontrol_update", "0" );
+ my $URL;
+
+ Log3 $name, 5, "WINCONNECT $name: called function WINCONNECT_SendCommand()";
+
+ # Check Service and change serviceurl
+ if ($service eq "statusrequest") {
+ $serviceurl = "statusrequest";
+ }
+ elsif ($service eq "volume") {
+ $serviceurl = "volume";
+ }
+ elsif ($service eq "file_dir") {
+ $serviceurl = "file_dir";
+ }
+ elsif ($service eq "picture_dir") {
+ $serviceurl = "picture_dir";
+ }
+ elsif ($service eq "camera") {
+ $serviceurl = "camera";
+ }
+ elsif ($service eq "file_order") {
+ $serviceurl = "file_order";
+ }
+ elsif ($service eq "file_filter") {
+ $serviceurl = "file_filter";
+ }
+ elsif ($service eq "mute") {
+ $serviceurl = "volumemute";
+ }
+ elsif ($service eq "speechcommands") {
+ $serviceurl = "speechcommands";
+ }
+ elsif ($service eq "speechquality") {
+ $serviceurl = "speechquality";
+ }
+ elsif ($service eq "brightness") {
+ $serviceurl = "brightness";
+ }
+ elsif ($service eq "user_aktividletime") {
+ $serviceurl = "user_aktividletime";
+ }
+ elsif ($service eq "powerstate") {
+ $serviceurl = "powerstate" . "=" . $PWRState . ";" . $Winconnect . ";" . $WinconnectUPD;
+ }
+ elsif ($service eq "command") {
+ $serviceurl = "command";
+ }
+ elsif ($service eq "commandhide") {
+ $serviceurl = "commandhide";
+ }
+ elsif ($service eq "update") {
+ $serviceurl = "update";
+ }
+ elsif ($service eq "checkservice") {
+ $serviceurl = "checkservice";
+ }
+ elsif ($service eq "checkperformance") {
+ $serviceurl = "checkperformance";
+ }
+ elsif ($service eq "checkperformance_interval") {
+ $serviceurl = "checkperformance_interval";
+ }
+ elsif ($service eq "checkprocess") {
+ $serviceurl = "checkprocess";
+ }
+ elsif ($service eq "showfile") {
+ $serviceurl = "showfile";
+ }
+ elsif ($service eq "ttsmsg") {
+ $serviceurl = "ttsmsg";
+ }
+ elsif ($service eq "powermode") {
+ $serviceurl = "powermode";
+ }
+ elsif ($service eq "messagebox") {
+ $serviceurl = "messagebox";
+ }
+ elsif ($service eq "notifymsg") {
+ $serviceurl = "notifymsg";
+ }
+ elsif ($service eq "screenon") {
+ $serviceurl = "screen=on";
+ }
+ elsif ($service eq "picture_make") {
+ $serviceurl = "picture_make";
+ }
+ elsif ($service eq "screenoff") {
+ $serviceurl = "screen=off";
+ }
+ else{
+ $serviceurl = $service;
+ }
+
+ # URL zusammenbauen
+ $cmd = ( defined($cmd) ) ? $cmd : "";
+ $URL = "http://" . $address . ":8183/fhem/" . $serviceurl . $cmd ;
+ $URL =~ tr/\r\n/|/;
+
+ Log3 $name, 6, "WINCONNECT $name: GET " . urlDecode($URL);
+
+ HttpUtils_NonblockingGet(
+ {
+ url => $URL,
+ timeout => 10,
+ noshutdown => $http_noshutdown,
+ #data => undef, 2017.07.20 - enfernt
+ hash => $hash,
+ service => $service,
+ cmd => $cmd,
+ #type => $type, 2017.07.20 - enfernt
+ callback => \&WINCONNECT_ReceiveCommand
+ }
+ );
+
+ return;
+}
+
+###################################
+sub WINCONNECT_Set($@) {
+ my ( $hash, @a ) = @_;
+ my $name = $hash->{NAME};
+ my $state = ReadingsVal( $name, "state", "absent" );
+ my $cmd = "";
+ my $Value = "";
+ my $Count = 0;
+
+ Log3 $name, 5, "WINCONNECT $name: called function WINCONNECT_Set()";
+
+ my $usage = "choose one of volume:slider,0,1,100 mute:on,off camera:on,off powermode:shutdown,restart,standby,hibernate volumeUp:noArg volumeDown:noArg brightness:slider,0,1,100 picture_make:noArg update:noArg speechquality:slider,0,1,100 statusRequest:noArg screenOn:noArg screenOff:noArg command commandhide showfile picture_dir checkperformance_interval checkperformance:textField-long checkservice checkprocess notifymsg messagebox file_dir file_filter file_order:ascending,descending ttsmsg user_aktividletime speechcommands";
+
+ return "No Argument given" if ( !defined( $a[1] ) );
+
+ # statusRequest
+ if ( lc( $a[1] ) eq "statusrequest" ) {
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1];
+ WINCONNECT_SendCommand( $hash, "statusrequest" );
+ }
+
+ # on
+ elsif ( lc( $a[1] ) eq "on" ) {
+ readingsSingleUpdate( $hash, "state", "on",0 );
+ }
+
+ # powerstate
+ elsif ( lc( $a[1] ) eq "powerstate" ) {
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1];
+ WINCONNECT_SendCommand( $hash, "powerstate" );
+ }
+
+ # update
+ elsif ( lc( $a[1] ) eq "update" ) {
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1];
+ WINCONNECT_SendCommand( $hash, "update" );
+ }
+
+ # off
+ elsif ( lc( $a[1] ) eq "off" ) {
+ readingsSingleUpdate( $hash, "state", "off",0 );
+ }
+
+ # screenOn
+ elsif ( lc( $a[1] ) eq "screenon" ) {
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1];
+ if ( $state eq "on" ) {WINCONNECT_SendCommand( $hash, "screenon" );}else {return "Device needs to be ON to adjust screenon.";}
+ }
+
+ #screenOff
+ elsif ( lc( $a[1] ) eq "screenoff" ) {
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1];
+ if ( $state eq "on" ) {WINCONNECT_SendCommand( $hash, "screenoff" );}else {return "Device needs to be ON to adjust screenoff.";}
+ }
+
+ # volume
+ elsif ( lc( $a[1] ) eq "volume" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ my $_ = $a[2];
+ if ( m/^\d+$/ && $_ >= 0 && $_ <= 100 ) {
+ $cmd = $a[2];
+ }
+ else {
+ return "Argument does not seem to be a valid integer between 0 and 100";
+ }
+ WINCONNECT_SendCommand( $hash, "volume" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "volume", $cmd,0 );
+ }
+ else {return "Device needs to be ON to adjust volume.";}
+ }
+
+ # volumeUp
+ elsif ( lc( $a[1] ) eq "volumeup" ) {
+ my $volumeStep = int(AttrVal($name, "volumeStep", 5));
+ my $volumenow = ReadingsVal( $name, "volume", 0);
+ my $volumeNew = $volumenow + $volumeStep;
+
+ if ($volumeNew > 100) {$volumeNew = 100;}
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $volumeNew;
+ if ( $state eq "on" ) {WINCONNECT_SendCommand( $hash, "volume" , "=" . $volumeNew );readingsSingleUpdate( $hash, "volume", $volumeNew,0 );}else {return "Device needs to be ON to adjust volume.";}
+ }
+
+ # volumeDown
+ elsif ( lc( $a[1] ) eq "volumedown" ) {
+ my $volumeStep = int(AttrVal($name, "volumeStep", 5));
+ my $volumenow = ReadingsVal( $name, "volume", 0);
+ my $volumeNew = $volumenow - $volumeStep;
+
+ if ($volumeNew < 0) {$volumeNew = 0;}
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $volumeNew;
+ if ( $state eq "on" ) {WINCONNECT_SendCommand( $hash, "volume" , "=" . $volumeNew );readingsSingleUpdate( $hash, "volume", $volumeNew,0 );}else {return "Device needs to be ON to adjust volume.";}
+ }
+
+ # mute
+ elsif ( lc( $a[1] ) eq "mute" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ WINCONNECT_SendCommand( $hash, "volumemute" , "=" . $a[2] );
+ readingsSingleUpdate( $hash, "mute", $a[2],0 );
+ }
+ else {return "Device needs to be ON to adjust volume mute.";}
+ }
+
+ # powermode
+ elsif ( lc( $a[1] ) eq "powermode" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ WINCONNECT_SendCommand( $hash, "powermode" , "=" . $a[2] );
+ }
+ else {return "Device needs to be ON to adjust powermode.";}
+ }
+
+ # user_aktividletime
+ elsif ( lc( $a[1] ) eq "user_aktividletime" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ my $_ = $a[2];
+ if ( m/^\d+$/ && $_ >= 0 && $_ <= 10000 ) {
+ $cmd = $a[2];
+ }
+ else {
+ return "Argument does not seem to be a valid integer between 0 and 10000";
+ }
+ WINCONNECT_SendCommand( $hash, "user_aktividletime" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "user_aktividletime", $cmd,0 );
+ }
+ else {return "Device needs to be ON to adjust user_aktividletime.";}
+ }
+
+ # brightness
+ elsif ( lc( $a[1] ) eq "brightness" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ my $_ = $a[2];
+ if ( m/^\d+$/ && $_ >= 0 && $_ <= 100 ) {
+ $cmd = $a[2];
+ }
+ else {
+ return "Argument does not seem to be a valid integer between 0 and 100";
+ }
+ WINCONNECT_SendCommand( $hash, "brightness" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "brightness", $cmd,0 );
+ }
+ else {return "Device needs to be ON to adjust brightness.";}
+ }
+
+ # speechquality
+ elsif ( lc( $a[1] ) eq "speechquality" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ my $_ = $a[2];
+ if ( m/^\d+$/ && $_ >= 0 && $_ <= 100 ) {
+ $cmd = $a[2];
+ }
+ else {
+ return "Argument does not seem to be a valid integer between 0 and 100";
+ }
+ WINCONNECT_SendCommand( $hash, "speechquality" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "speechquality", $cmd,0 );
+ }
+ else {return "Device needs to be ON to adjust speechquality.";}
+ }
+
+ # command
+ elsif ( lc( $a[1] ) eq "command" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "command" , "=" . $cmd );
+ }
+ else {return "Device needs to be ON to execute command.";}
+ }
+
+ # commandhide
+ elsif ( lc( $a[1] ) eq "commandhide" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "commandhide" , "=" . $cmd );
+ }
+ else {return "Device needs to be ON to execute commandhide.";}
+ }
+
+ # showfile
+ elsif ( lc( $a[1] ) eq "showfile" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "showfile" , "=" . $cmd );
+ }
+ else {return "Device needs to be ON to showfile.";}
+ }
+
+ # ttsmsg
+ elsif ( lc( $a[1] ) eq "ttsmsg" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "ttsmsg" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "ttsmsg", $Value,0 );
+ }
+ else {return "Device needs to be ON to send ttsmsg.";}
+ }
+
+ # messagebox
+ elsif ( lc( $a[1] ) eq "messagebox" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "messagebox" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "messagebox", $Value,0 );
+ }
+ else {return "Device needs to be ON to send messagebox.";}
+ }
+
+ # notifymsg
+ elsif ( lc( $a[1] ) eq "notifymsg" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "notifymsg" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "notifymsg", $Value,0 );
+ }
+ else {return "Device needs to be ON to send notifymsg.";}
+ }
+
+ # checkservice
+ elsif ( lc( $a[1] ) eq "checkservice" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ readingsSingleUpdate( $hash, "checkservice", $Value,0 );
+ WINCONNECT_SendCommand( $hash, "checkservice" , "=" . $cmd );
+ }
+ else {return "Device needs to be ON to checkservice.";}
+ }
+
+ # checkperformance
+ elsif ( lc( $a[1] ) eq "checkperformance" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ readingsSingleUpdate( $hash, "checkperformance", $Value,0 );
+ WINCONNECT_SendCommand( $hash, "checkperformance" , "=" . $cmd );
+ }
+ else {return "Device needs to be ON to checkperformance.";}
+ }
+
+ # checkperformance_interval
+ elsif ( lc( $a[1] ) eq "checkperformance_interval" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ my $_ = $a[2];
+ if ( m/^\d+$/ && $_ >= 10 && $_ <= 10000 ) {
+ $cmd = $a[2];
+ }
+ else {
+ return "Argument does not seem to be a valid integer between 10 and 10000";
+ }
+ WINCONNECT_SendCommand( $hash, "checkperformance_interval" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "checkperformance_interval", $cmd,0 );
+ }
+ else {return "Device needs to be ON to adjust checkperformance_interval.";}
+ }
+
+ # checkprocess
+ elsif ( lc( $a[1] ) eq "checkprocess" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ readingsSingleUpdate( $hash, "checkprocess", $Value,0 );
+ WINCONNECT_SendCommand( $hash, "checkprocess" , "=" . $cmd );
+ }
+ else {return "Device needs to be ON to checkprocess.";}
+ }
+
+ # speechcommands
+ elsif ( lc( $a[1] ) eq "speechcommands" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "speechcommands" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "speechcommands", $Value,0 );
+ }
+ else {return "Device needs to be ON to speechcommands.";}
+ }
+
+ # file_dir
+ elsif ( lc( $a[1] ) eq "file_dir" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "file_dir" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "file_dir", $Value,0 );
+ }
+ else {return "Device needs to be ON to file_dir.";}
+ }
+
+ # file_filter
+ elsif ( lc( $a[1] ) eq "file_filter" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "file_filter" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "file_filter", $Value,0 );
+ }
+ else {return "Device needs to be ON to file_filter.";}
+ }
+
+ # file_order
+ elsif ( lc( $a[1] ) eq "file_order" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ WINCONNECT_SendCommand( $hash, "file_order" , "=" . $a[2] );
+ readingsSingleUpdate( $hash, "file_order", $a[2],0 );
+ }
+ else {return "Device needs to be ON to adjust file_order.";}
+ }
+
+ # picture_dir
+ elsif ( lc( $a[1] ) eq "picture_dir" ) {
+ if ( $state eq "on" ) {
+
+ foreach (@a) {
+ if ($cmd eq "") {$cmd = $_ ;} else {$cmd = $cmd . "%20" . $_ ;}
+ $Count = $Count + 1;
+ if ($Count >= 3 ) {if ($Value eq "") {$Value = $_ ;} else {$Value = $Value . " " . $_ ;}}
+ }
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $cmd;
+ WINCONNECT_SendCommand( $hash, "picture_dir" , "=" . $cmd );
+ readingsSingleUpdate( $hash, "picture_dir", $Value,0 );
+ }
+ else {return "Device needs to be ON to picture_dir.";}
+ }
+
+ # picture_make
+ elsif ( lc( $a[1] ) eq "picture_make" ) {
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1];
+ if ( $state eq "on" ) {WINCONNECT_SendCommand( $hash, "picture_make" );}else {return "Device needs to be ON to adjust picture_make.";}
+ }
+
+ # camera
+ elsif ( lc( $a[1] ) eq "camera" ) {
+ return "No argument given" if ( !defined( $a[2] ) );
+
+ Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
+
+ if ( $state eq "on" ) {
+ WINCONNECT_SendCommand( $hash, "camera" , "=" . $a[2] );
+ }
+ else {return "Device needs to be ON to adjust camera.";}
+ }
+
+ # return usage hint
+ else {return $usage;}
+
+ return;
+}
+
+###################################
+sub WINCONNECT_Define($$) {
+ my ( $hash, $def ) = @_;
+ my @a = split( "[ \t][ \t]*", $def );
+ my $name = $hash->{NAME};
+
+ Log3 $name, 5, "WINCONNECT $name: called function WINCONNECT_Define()";
+
+ if ( int(@a) < 2 ) {
+ my $msg = "Wrong syntax: define WINCONNECT [] ";
+ Log3 $name, 4, $msg;
+ return $msg;
+ }
+
+ $hash->{TYPE} = "WINCONNECT";
+
+ my $address = $a[2];
+ $hash->{helper}{ADDRESS} = $address;
+
+ # use interval of 45sec if not defined
+ my $interval = $a[3] || 45;
+ $hash->{INTERVAL} = $interval;
+
+ # set default settings on first define
+ if ($init_done) {
+ $attr{$name}{icon} = 'it_server';
+ }
+
+ # start the status update timer
+ RemoveInternalTimer($hash);
+ InternalTimer( gettimeofday() + 2, "WINCONNECT_GetStatus", $hash, 1);
+
+ return;
+}
+
+sub WINCONNECT_ReceiveCommand($) {
+
+ my ($param, $err, $data) = @_;
+ my $hash = $param->{hash};
+ my $name = $hash->{NAME};
+ my $VerWin = substr(ReadingsVal( $name, "wincontrol", "0" ),4);
+ my $VerGit = substr(ReadingsVal( $name, "wincontrol_gitlap", "0" ),4);
+ my $service = $param->{service};
+
+ readingsBeginUpdate($hash);
+
+ # Versionsnachricht
+ my $Message = $name . "%20NOTIFYMSG%20Neue%20WinConnect%20Version%20verfügbar!%20Downloadlink%20=%20" . $DownloadURL;
+
+ if($err ne "") {
+ Log3 $name, 5, "WINCONNECT $name: error while requesting ".$param->{url}." - $err";
+ readingsBulkUpdate( $hash, "state", "off" );
+ readingsBulkUpdate( $hash, "audio", "off");
+
+ if (AttrVal($name, "win_resetreadings", 1) eq '1') {
+ readingsBulkUpdate( $hash, "user_aktiv", "false" );
+ readingsBulkUpdate( $hash, "os_RunTime_days", "0" );
+ readingsBulkUpdate( $hash, "os_RunTime_hours", "0" );
+ readingsBulkUpdate( $hash, "os_RunTime_minutes", "0" );
+ readingsBulkUpdate( $hash, "printer_aktiv", "false" );
+ readingsBulkUpdate( $hash, "printer_names", "no_prining" );
+ }
+
+ }
+
+ elsif($data ne "")
+ {
+ readingsBulkUpdate( $hash, "state", "on" );
+ Log3 $name, 5, "WINCONNECT $name: url ".$param->{url}." returned: $data";
+
+ # 2017.07.26 - Check update
+ if ($VerWin < $VerGit && $hash->{helper}{SENDVERSION} eq '' && $service ne 'notifymsg') {
+ # Neue Version vorhanden
+ $hash->{helper}{SENDVERSION} = '1';
+ WINCONNECT_SendCommand( $hash, "notifymsg" , "=" . $Message);
+ } else{
+ delete($hash->{helper}{SENDVERSION})
+ }
+ }
+
+ readingsEndUpdate( $hash, 1 );
+
+}
+
+############################################################################################################
+#
+# Begin of helper functions
+#
+############################################################################################################
+
+###################################
+sub WINCONNECT_Undefine($$) {
+ my ( $hash, $arg ) = @_;
+ my $name = $hash->{NAME};
+
+ Log3 $name, 5, "WINCONNECT $name: called function WINCONNECT_Undefine()";
+
+ # Stop the internal GetStatus-Loop and exit
+ RemoveInternalTimer($hash);
+
+ return;
+}
+
+1;
+=pod
+=item device
+=item summary control for Windows based systems via network connection
+=item summary_DE Steuerung von Windows basierte Systemen über das Netzwerk
+=begin html
+
+
+WINCONNECT
+
+ This module controls a Windows PC.
+
+
+
+ Define
+
+ define <name> WINCONNECT <ip-address-or-hostname> [<poll-interval>]
+
+ Defining an WINCONNECT device will schedule an internal task (interval can be set with optional parameter <poll-interval> in seconds, if not set, the value is 45 seconds), which periodically reads the status of the device and triggers notify/filelog commands.
+
+ Example:
+
+ define Buero.PC WINCONNECT 192.168.0.10
+
+ # With custom interval of 60 seconds
+ define Buero.PC WINCONNECT 192.168.0.10 60
+
+
+
+
+
+ More information on FHEM Forum.
+
+
+
+=end html
+=begin html_DE
+
+
+WINCONNECT
+
+ Diese Module dient zur Steuerung eines Windows PCs
+
+
+
+ Define
+
+ define <name> WINCONNECT <ip-address-or-hostname> [<poll-interval>]
+
+ Für definierte WINCONNECT Geräte wird ein interner Task angelegt, welcher periodisch die Readings aktualisiert. Der Standartpollintervall ist 45 Sekunden.
+
+ Example:
+
+ define Buero.PC WINCONNECT 192.168.0.10
+
+ # Alternativer poll intervall von 60 seconds
+ define Buero.PC WINCONNECT 192.168.0.10 60
+
+
+
+
+ Mehr Information im FHEM Forum.
+
+
+
+=end html_DE
+=cut