FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

git-svn-id: https://svn.fhem.de/fhem/trunk@3360 2b470e98-0d58-463d-a4d8-8e2adae1ed80

Browse Source
This commit is contained in:
teevau 2013-06-29 13:27:31 +00:00
parent 28d2e08872
commit e67576d33f
1 changed files with 64 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
fhem/FHEM/70_VIERA.pm
View File

@ -7,7 +7,16 @@
# written 2013 by Tobias Vaupel <fhem at 622 mbit dot de>
#
#
# Version = 1.00
# Version = 1.10
#
# Version History:
# - 1.10 - 2013-06-29
# -- Added support for module 95_remotecontrol
# -- New functions: sub VIERA_RClayout_TV(); sub VIERA_RCmakenotify($$);
# -- Updated VIERA_Initialize for remotecontrol
#
# - 1.00 - yyy-mm-dd
# -- First release
#
##############################################################################
#
@ -29,6 +38,12 @@ use strict;
use warnings;
use IO::Socket::INET;
#########################
# Forward declaration for remotecontrol module
sub VIERA_RClayout_TV();
sub VIERA_RCmakenotify($$);
my %VIERA_remoteControl_args = (
"NRC_CH_DOWN-ONOFF" => "Channel down",
"NRC_CH_UP-ONOFF" => "Channel up",
@ -89,11 +104,13 @@ my %VIERA_remoteControl_args = (
sub VIERA_Initialize($){
my ($hash) = @_;
$hash->{DefFn} = "VIERA_Define";
$hash->{SetFn} = "VIERA_Set";
$hash->{GetFn} = "VIERA_Get";
$hash->{UndefFn} = "VIERA_Undefine";
$hash->{AttrList} = "loglevel:0,1,2,3,4,5 " . $readingFnAttributes;
$hash->{DefFn} = "VIERA_Define";
$hash->{SetFn} = "VIERA_Set";
$hash->{GetFn} = "VIERA_Get";
$hash->{UndefFn} = "VIERA_Undefine";
$hash->{AttrList} = "loglevel:0,1,2,3,4,5 " . $readingFnAttributes;
$data{RC_layout}{VIERA_TV} = "VIERA_RClayout_TV";
$data{RC_makenotify}{VIERA} = "VIERA_RCmakenotify";
}
sub VIERA_Undefine($$){
@ -293,6 +310,47 @@ sub VIERA_Set($@){
return;
}
#####################################
# Callback from 95_remotecontrol for command makenotify.
sub VIERA_RCmakenotify($$) {
my ($nam, $ndev) = @_;
my $nname="notify_$nam";
fhem("define $nname notify $nam set $ndev remoteControl ".'$EVENT',1);
Log 2, "[remotecontrol:VIERA] Notify created: $nname";
return "Notify created by VIERA: $nname";
}
#####################################
# Default-layout for panasonic TV (maybe other VIERA devices will have other layouts)
sub VIERA_RClayout_TV() {
my @row;
$row[0]="power:POWEROFF2,TV, CHG_INPUT:HDMI";
$row[1]="MENU, disp_mode:ASPECT,epg:GUIDE";
$row[2]="VIERA_LINK,VTOOLS,INTERNET";
$row[3]=":blank,:blank,:blank";
$row[4]="INFO:INFO2,UP,cancel:EXIT";
$row[5]="LEFT,ENTER,RIGHT";
$row[6]="SUBMENU,DOWN,RETURN";
$row[7]=":blank,:blank,:blank";
$row[8]="d1:1,d2:2,d3:3";
$row[9]="d4:4,d5:5,d6:6";
$row[10]="d7:7,d8:8,d9:9";
$row[11]="MUTE,d0:0,r_tune:PRECH";
$row[12]=":blank,:blank,:blank";
$row[13]="VOLUP,:blank,ch_up:CHUP";
$row[14]=":VOL,:blank,:PROG";
$row[15]="VOLDOWN,:blank,ch_down:CHDOWN";
$row[16]=":blank,:blank,:blank";
$row[17]="rew:REWIND,PLAY,FF";
$row[18]="STOP,PAUSE,REC";
$row[19]="attr rc_iconpath icons/remotecontrol";
$row[20]="attr rc_iconprefix black_btn_";
return @row;
}
sub VIERA_BuildXML_NetCtrl($$){
my ($hash, $command) = @_;
my $host = $hash->{helper}{HOST};