mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
70_WINCONNECT: new modul
git-svn-id: https://svn.fhem.de/fhem/trunk@14791 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
michael.winkler
parent
b83b98cec2
commit
c609447331
984
fhem/FHEM/70_WINCONNECT.pm
Normal file
984
fhem/FHEM/70_WINCONNECT.pm
Normal file
@ -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 <http://www.gnu.org/licenses/>.
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
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 <name> WINCONNECT <ip-or-hostname> [<poll-interval>] ";
|
||||
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
|
||||
|
||||
<a name="WINCONNECT"></a>
|
||||
<h3>WINCONNECT</h3>
|
||||
<ul>
|
||||
This module controls a Windows PC.
|
||||
<br><br>
|
||||
|
||||
<ul>
|
||||
<a name="WINCONNECTdefine" id="WINCONNECTdefine"></a> <b>Define</b>
|
||||
<ul>
|
||||
<code>define <name> WINCONNECT <ip-address-or-hostname> [<poll-interval>]</code><br>
|
||||
<br>
|
||||
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.<br>
|
||||
<br>
|
||||
Example:<br>
|
||||
<ul>
|
||||
<code>define Buero.PC WINCONNECT 192.168.0.10<br>
|
||||
<br>
|
||||
# With custom interval of 60 seconds<br>
|
||||
define Buero.PC WINCONNECT 192.168.0.10 60<br></code>
|
||||
</ul>
|
||||
</ul>
|
||||
</ul>
|
||||
|
||||
<br><br>
|
||||
More information on <a target="_blank" href="https://forum.fhem.de/index.php/topic,59251.0.html">FHEM Forum</a>.<br/>
|
||||
<br>
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
=begin html_DE
|
||||
|
||||
<a name="WINCONNECT"></a>
|
||||
<h3>WINCONNECT</h3>
|
||||
<ul>
|
||||
Diese Module dient zur Steuerung eines Windows PCs
|
||||
<br><br>
|
||||
|
||||
<ul>
|
||||
<a name="WINCONNECTdefine" id="WINCONNECTdefine"></a> <b>Define</b>
|
||||
<ul>
|
||||
<code>define <name> WINCONNECT <ip-address-or-hostname> [<poll-interval>]</code><br>
|
||||
<br>
|
||||
Für definierte WINCONNECT Geräte wird ein interner Task angelegt, welcher periodisch die Readings aktualisiert. Der Standartpollintervall ist 45 Sekunden.<br>
|
||||
<br>
|
||||
Example:<br>
|
||||
<ul>
|
||||
<code>define Buero.PC WINCONNECT 192.168.0.10<br>
|
||||
<br>
|
||||
# Alternativer poll intervall von 60 seconds<br>
|
||||
define Buero.PC WINCONNECT 192.168.0.10 60<br></code>
|
||||
</ul>
|
||||
</ul>
|
||||
</ul>
|
||||
<br><br>
|
||||
Mehr Information im <a target="_blank" href="https://forum.fhem.de/index.php/topic,59251.0.html">FHEM Forum</a>.<br/>
|
||||
<br>
|
||||
</ul>
|
||||
|
||||
=end html_DE
|
||||
=cut
|
||||
Loading…
x
Reference in New Issue
Block a user