/fhem/FHEM/70_VIERA.pm

https://github.com/JulianCT/fhem-mirror · Perl · 816 lines · 390 code · 64 blank · 362 comment · 43 complexity · e02c258d126051adb3c237d565ecdbcf MD5 · raw file 

    

  1. # $Id$
    2. 

  2. ##############################################################################
    3. 

  3. #
    4. 

  4. # 70_VIERA.pm
    5. 

  5. #
    6. 

  6. # a module to send messages or commands to a Panasonic TV
    7. 

  7. # inspired by Samsung TV Module from Gabriel Bentele <gabriel at bentele.de>
    8. 

  8. # written 2013 by Tobias Vaupel <fhem at 622 mbit dot de>
    9. 

  9. #
    10. 

  10. #
    11. 

  11. # Version = 1.22
    12. 

  12. #
    13. 

  13. # Version  History:
    14. 

  14. # - 1.22 - 2013-12-28
    15. 

  15. # -- fixed set command remoteControl
    16. 

  16. #
    17. 

  17. # - 1.21 - 2013-08-19
    18. 

  18. # -- Log() deprecated/replaced by Log3()
    19. 

  19. # -- GetStatus() is called after set volume/mute to update readings immediately
    20. 

  20. #
    21. 

  21. # - 1.20 - 2013-08-16
    22. 

  22. # -- added support according to http://www.fhemwiki.de/wiki/DevelopmentGuidelinesAV
    23. 

  23. #
    24. 

  24. # - 1.11 - 2013-08-13
    25. 

  25. # -- added "noArg" at get/set-command
    26. 

  26. # -- changed format of return() in VIERA_Get() for get-command dropdown menu in FHEMWEB
    27. 

  27. #
    28. 

  28. # - 1.10 - 2013-06-29
    29. 

  29. # -- Added support for module 95_remotecontrol
    30. 

  30. # -- New functions: sub VIERA_RClayout_TV(); sub VIERA_RCmakenotify($$);
    31. 

  31. # -- Updated VIERA_Initialize for remotecontrol
    32. 

  32. #
    33. 

  33. # - 1.00 - 2013-03-16
    34. 

  34. # -- First release
    35. 

  35. #
    36. 

  36. ##############################################################################
    37. 

  37. 

  38. package main;
    39. 

  39. use strict;
    40. 

  40. use warnings;
    41. 

  41. use IO::Socket::INET;
    42. 

  42. use feature qw/say switch/;
    43. 

  43. use Time::HiRes qw(gettimeofday sleep);
    44. 

  44. 

  45. #########################
    46. 

  46. # Forward declaration for remotecontrol module
    47. 

  47. sub VIERA_RClayout_TV();
    48. 

  48. sub VIERA_RCmakenotify($$);
    49. 

  49. 

  50. 

  51. my %VIERA_remoteControl_args = (
    52. 

  52.   "NRC_CH_DOWN-ONOFF"   => "Channel down",
    53. 

  53.   "NRC_CH_UP-ONOFF"     => "Channel up",
    54. 

  54.   "NRC_VOLUP-ONOFF"     => "Volume up",
    55. 

  55.   "NRC_VOLDOWN-ONOFF"   => "Volume down",
    56. 

  56.   "NRC_MUTE-ONOFF"      => "Mute",
    57. 

  57.   "NRC_TV-ONOFF"        => "TV",
    58. 

  58.   "NRC_CHG_INPUT-ONOFF" => "AV",
    59. 

  59.   "NRC_RED-ONOFF"       => "Red",
    60. 

  60.   "NRC_GREEN-ONOFF"     => "Green",
    61. 

  61.   "NRC_YELLOW-ONOFF"    => "Yellow",
    62. 

  62.   "NRC_BLUE-ONOFF"      => "Blue",
    63. 

  63.   "NRC_VTOOLS-ONOFF"    => "VIERA tools",
    64. 

  64.   "NRC_CANCEL-ONOFF"    => "Cancel / Exit",
    65. 

  65.   "NRC_SUBMENU-ONOFF"   => "Option",
    66. 

  66.   "NRC_RETURN-ONOFF"    => "Return",
    67. 

  67.   "NRC_ENTER-ONOFF"     => "Control Center click / enter",
    68. 

  68.   "NRC_RIGHT-ONOFF"     => "Control RIGHT",
    69. 

  69.   "NRC_LEFT-ONOFF"      => "Control LEFT",
    70. 

  70.   "NRC_UP-ONOFF"        => "Control UP",
    71. 

  71.   "NRC_DOWN-ONOFF"      => "Control DOWN",
    72. 

  72.   "NRC_3D-ONOFF"        => "3D button",
    73. 

  73.   "NRC_SD_CARD-ONOFF"   => "SD-card",
    74. 

  74.   "NRC_DISP_MODE-ONOFF" => "Display mode / Aspect ratio",
    75. 

  75.   "NRC_MENU-ONOFF"      => "Menu",
    76. 

  76.   "NRC_INTERNET-ONOFF"  => "VIERA connect",
    77. 

  77.   "NRC_VIERA_LINK-ONOFF"=> "VIERA link",
    78. 

  78.   "NRC_EPG-ONOFF"       => "Guide / EPG",
    79. 

  79.   "NRC_TEXT-ONOFF"      => "Text / TTV",
    80. 

  80.   "NRC_STTL-ONOFF"      => "STTL / Subtitles",
    81. 

  81.   "NRC_INFO-ONOFF"      => "Info",
    82. 

  82.   "NRC_INDEX-ONOFF"     => "TTV index",
    83. 

  83.   "NRC_HOLD-ONOFF"      => "TTV hold / image freeze",
    84. 

  84.   "NRC_R_TUNE-ONOFF"    => "Last view",
    85. 

  85.   "NRC_POWER-ONOFF"     => "Power off",
    86. 

  86.   "NRC_REW-ONOFF"       => "Rewind",
    87. 

  87.   "NRC_PLAY-ONOFF"      => "Play",
    88. 

  88.   "NRC_FF-ONOFF"        => "Fast forward",
    89. 

  89.   "NRC_SKIP_PREV-ONOFF" => "Skip previous",
    90. 

  90.   "NRC_PAUSE-ONOFF"     => "Pause",
    91. 

  91.   "NRC_SKIP_NEXT-ONOFF" => "Skip next",
    92. 

  92.   "NRC_STOP-ONOFF"      => "Stop",
    93. 

  93.   "NRC_REC-ONOFF"       => "Record",
    94. 

  94.   "NRC_D1-ONOFF"        => "Digit 1",
    95. 

  95.   "NRC_D2-ONOFF"        => "Digit 2",
    96. 

  96.   "NRC_D3-ONOFF"        => "Digit 3",
    97. 

  97.   "NRC_D4-ONOFF"        => "Digit 4",
    98. 

  98.   "NRC_D5-ONOFF"        => "Digit 5",
    99. 

  99.   "NRC_D6-ONOFF"        => "Digit 6",
    100. 

  100.   "NRC_D7-ONOFF"        => "Digit 7",
    101. 

  101.   "NRC_D8-ONOFF"        => "Digit 8",
    102. 

  102.   "NRC_D9-ONOFF"        => "Digit 9",
    103. 

  103.   "NRC_D0-ONOFF"        => "Digit 0",
    104. 

  104.   "NRC_P_NR-ONOFF"      => "P-NR (Noise reduction)",
    105. 

  105.   "NRC_R_TUNE-ONOFF"    => "Seems to do the same as INFO",
    106. 

  106. );
    107. 

  107. 

  108. 

  109. sub VIERA_Initialize($){
    110. 

  110.   my ($hash) = @_;
    111. 

  111.   $hash->{DefFn}              = "VIERA_Define";
    112. 

  112.   $hash->{SetFn}              = "VIERA_Set";
    113. 

  113.   $hash->{GetFn}              = "VIERA_Get";
    114. 

  114.   $hash->{UndefFn}            = "VIERA_Undefine";
    115. 

  115.   $hash->{AttrList}           = $readingFnAttributes;
    116. 

  116.   $data{RC_layout}{VIERA_TV}  = "VIERA_RClayout_TV";
    117. 

  117.   $data{RC_makenotify}{VIERA} = "VIERA_RCmakenotify";
    118. 

  118. }
    119. 

  119. 

  120. sub VIERA_Define($$){
    121. 

  121.   my ($hash, $def) = @_;
    122. 

  122.   my @args = split("[ \t][ \t]*", $def);
    123. 

  123.   my $name = $hash->{NAME};
    124. 

  124. 

  125.   if(int(@args) < 3 && int(@args) > 4) {
    126. 

  126.     my $msg = "wrong syntax: define <name> VIERA <host> [<interval>]";
    127. 

  127.     Log3 $name, 2, "VIERA: $msg";
    128. 

  128.     return $msg;
    129. 

  129.   }
    130. 

  130. 

  131.   $hash->{helper}{HOST} = $args[2];
    132. 

  132.   readingsSingleUpdate($hash,"state","Initialized",1);
    133. 

  133.   
    134. 

  134.   if(defined($args[3]) and $args[3] > 10) {
    135. 

  135.     $hash->{helper}{INTERVAL}=$args[3];
    136. 

  136.   }
    137. 

  137.   else{
    138. 

  138.     $hash->{helper}{INTERVAL}=30;
    139. 

  139.   }
    140. 

  140. 

  141.   CommandAttr(undef,$name.' webCmd off') if( !defined( AttrVal($hash->{NAME}, "webCmd", undef) ) );
    142. 

  142.   Log3 $name, 2, "VIERA: defined with host: $hash->{helper}{HOST} and interval: $hash->{helper}{INTERVAL}";
    143. 

  143.   InternalTimer(gettimeofday()+$hash->{helper}{INTERVAL}, "VIERA_GetStatus", $hash, 0);
    144. 

  144. 

  145.   return undef;
    146. 

  146. }
    147. 

  147. 

  148. sub VIERA_Set($@){
    149. 

  149.   my ($hash, @a) = @_;
    150. 

  150.   my $name = $hash->{NAME};
    151. 

  151.   my $host = $hash->{helper}{HOST};
    152. 

  152.   my $count = @a;
    153. 

  153.   my $key = "";
    154. 

  154.   my $tab = "";
    155. 

  155.   my $usage = "choose one of off:noArg mute:on,off " .
    156. 

  156.               "remoteControl:" . join(",", sort keys %VIERA_remoteControl_args) . " " .
    157. 

  157.               "volume:slider,0,1,100 volumeUp:noArg volumeDown:noArg ".
    158. 

  158.               "channel channelUp:noArg channelDown:noArg";
    159. 

  159.   $usage =~ s/(NRC_|-ONOFF)//g;
    160. 

  160.   
    161. 

  161.   my $what = lc($a[1]);
    162. 

  162.   return "VIERA: Device is not present or reachable, power on or check ethernet connection" if(ReadingsVal($name,"presence","absent")ne "present" && $what ne "?");
    163. 

  163.   return "VIERA: No argument given, $usage" if(!defined($a[1]));
    164. 

  164.   my $state = lc($a[2]) if(defined($a[2]));
    165. 

  165.   
    166. 

  166.   given($what) {
    167. 

  167.     when("mute"){
    168. 

  168.       Log3 $name, 3, "VIERA: Set mute $state";
    169. 

  169.       if ($state eq "on") {$state = 1;} else {$state = 0;}
    170. 

  170.       VIERA_connection(VIERA_BuildXML_RendCtrl($hash, "Set", "Mute", $state), $host);
    171. 

  171.       VIERA_GetStatus($hash, 1);
    172. 

  172.       break;
    173. 

  173.     }
    174. 

  174.     
    175. 

  175.     when("volume"){
    176. 

  176.       return "VIERA: Volume range is too high! Use Value 0 till 100 for volume." if($state < 0 || $state > 100);
    177. 

  177.       Log3 $name, 3, "VIERA: Set volume $state";
    178. 

  178.       VIERA_connection(VIERA_BuildXML_RendCtrl($hash, "Set", "Volume", $state), $host);
    179. 

  179.       VIERA_GetStatus($hash, 1);
    180. 

  180.       break;
    181. 

  181.     }
    182. 

  182.     
    183. 

  183.     when("volumeup"){
    184. 

  184.       return "VIERA: Volume range is too high!" if(ReadingsVal($name, "volume", "0") > 100);
    185. 

  185.       Log3 $name, 3, "VIERA: Set volumeUp";
    186. 

  186.       VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"VOLUP"), $host);
    187. 

  187.       VIERA_GetStatus($hash, 1);
    188. 

  188.       break;
    189. 

  189.     }
    190. 

  190.     
    191. 

  191.     when("volumedown"){
    192. 

  192.       return "VIERA: Volume range is too low!" if(ReadingsVal($name, "volume", "0") < 1);
    193. 

  193.       Log3 $name, 3, "VIERA: Set volumeDown";
    194. 

  194.       VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"VOLDOWN"), $host);
    195. 

  195.       VIERA_GetStatus($hash, 1);
    196. 

  196.       break;
    197. 

  197.     }
    198. 

  198.     
    199. 

  199.     when("channel"){
    200. 

  200.       return "VIERA: Channel is too high or low!" if($state < 1 || $state > 9999);
    201. 

  201.       Log3 $name, 3, "VIERA: Set channel $state";
    202. 

  202.       for(my $i = 0; $i <= length($state)-1; $i++) {
    203. 

  203.         VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"D" . substr($state, $i, 1)), $host);
    204. 

  204.         sleep 0.1;
    205. 

  205.       }
    206. 

  206.       VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"ENTER"), $host);
    207. 

  207.       break;
    208. 

  208.     } 
    209. 

  209.    
    210. 

  210.     when("channelup"){
    211. 

  211.       Log3 $name, 3, "VIERA: Set channelUp";
    212. 

  212.       VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"CH_UP"), $host);
    213. 

  213.       break;
    214. 

  214.     }
    215. 

  215.     
    216. 

  216.     when("channeldown"){
    217. 

  217.       Log3 $name, 3, "VIERA: Set channelDown";
    218. 

  218.       VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"CH_DOWN"), $host);
    219. 

  219.       break;
    220. 

  220.     }
    221. 

  221.     
    222. 

  222.     when("remotecontrol"){
    223. 

  223.       if($state eq "?"){
    224. 

  224.         $usage = "choose one of the states:\n";
    225. 

  225.         foreach $key (sort keys %VIERA_remoteControl_args){
    226. 

  226.           if(length($key) < 17){ $tab = "\t\t"; }else{ $tab = "\t"; }
    227. 

  227.           $usage .= "$key $tab=> $VIERA_remoteControl_args{$key}\n";
    228. 

  228.         }
    229. 

  229.         $usage =~ s/(NRC_|-ONOFF)//g;
    230. 

  230.         return $usage;
    231. 

  231.       }
    232. 

  232.       else{
    233. 

  233.         $state = uc($state);
    234. 

  234.         Log3 $name, 3, "VIERA: Set remoteControl $state";   
    235. 

  235.         VIERA_connection(VIERA_BuildXML_NetCtrl($hash,$state), $host);
    236. 

  236.       }
    237. 

  237.       break;
    238. 

  238.     }
    239. 

  239. 

  240.     when("off"){
    241. 

  241.       Log3 $name, 3, "VIERA: Set off";   
    242. 

  242.       VIERA_connection(VIERA_BuildXML_NetCtrl($hash,"POWER"), $host);
    243. 

  243.       break;
    244. 

  244.     }
    245. 

  245. 

  246.     when("statusrequest"){
    247. 

  247.       Log3 $name, 3, "VIERA: Set statusRequest";
    248. 

  248.       VIERA_GetStatus($hash, 1);
    249. 

  249.       break;
    250. 

  250.     }
    251. 

  251.     
    252. 

  252.     when("?"){
    253. 

  253.       return "$usage";
    254. 

  254.       break;
    255. 

  255.     }
    256. 

  256. 

  257.     default{
    258. 

  258.       Log3 $name, 3, "VIERA: Unknown argument $what, $usage";
    259. 

  259.       return "Unknown argument $what, $usage";
    260. 

  260.     };
    261. 

  261.   }
    262. 

  262.   return undef;
    263. 

  263. }
    264. 

  264. 

  265. sub VIERA_Get($@){
    266. 

  266.   my ($hash, @a) = @_;
    267. 

  267.   my $what;
    268. 

  268.   my $usage = "choose one of mute:noArg volume:noArg power:noArg presence:noArg";
    269. 

  269.   my $name = $hash->{NAME};
    270. 

  270. 

  271.   return "VIERA: No argument given, $usage" if(int(@a) != 2);
    272. 

  272. 

  273.   $what = lc($a[1]);
    274. 

  274. 

  275.   if($what =~ /^(volume|mute|power|presence)$/) {
    276. 

  276.     if (defined($hash->{READINGS}{$what})) {
    277. 

  277.       ReadingsVal($name, $what, "undefined");
    278. 

  278.     }
    279. 

  279.     else{
    280. 

  280.       return "no such reading: $what";
    281. 

  281.     }
    282. 

  282.   }
    283. 

  283.   else{
    284. 

  284.     return "Unknown argument $what, $usage";
    285. 

  285.   }
    286. 

  286. }
    287. 

  287. 

  288. sub VIERA_Undefine($$){
    289. 

  289.   my($hash, $name) = @_;
    290. 

  290.   
    291. 

  291.   # Stop the internal GetStatus-Loop and exist
    292. 

  292.   RemoveInternalTimer($hash);
    293. 

  293.   return undef;
    294. 

  294. }
    295. 

  295. 

  296. sub VIERA_GetStatus($;$){
    297. 

  297.   my ($hash, $local) = @_;
    298. 

  298.   my $name = $hash->{NAME};
    299. 

  299.   my $host = $hash->{helper}{HOST};
    300. 

  300.   
    301. 

  301.   #if $local is set to 1 just fetch informations from device without interupting InternalTimer
    302. 

  302.   $local = 0 unless(defined($local));
    303. 

  303.   InternalTimer(gettimeofday()+$hash->{helper}{INTERVAL}, "VIERA_GetStatus", $hash, 0) unless($local == 1);
    304. 

  304.   
    305. 

  305.   return "" if(!defined($hash->{helper}{HOST}) or !defined($hash->{helper}{INTERVAL}));
    306. 

  306.   
    307. 

  307.   my $returnVol = VIERA_connection(VIERA_BuildXML_RendCtrl($hash, "Get", "Volume", ""), $host);
    308. 

  308.   Log3 $name, 5, "VIERA: GetStatusVol-Request returned: $returnVol" if(defined($returnVol));
    309. 

  309.   if(not defined($returnVol) or $returnVol eq "") {
    310. 

  310.     Log3 $name, 4, "VIERA: GetStatusVol-Request NO SOCKET!";
    311. 

  311.     if( ReadingsVal($name,"state","absent") ne "absent") {
    312. 

  312.       readingsBeginUpdate($hash);
    313. 

  313.       readingsBulkUpdate($hash, "state", "absent");
    314. 

  314.       readingsBulkUpdate($hash, "power", "off");
    315. 

  315.       readingsBulkUpdate($hash, "presence", "absent");
    316. 

  316.       readingsEndUpdate($hash, 1);
    317. 

  317.     }
    318. 

  318.     return;
    319. 

  319.   }
    320. 

  320. 

  321.   my $returnMute = VIERA_connection(VIERA_BuildXML_RendCtrl($hash, "Get", "Mute", ""), $host);
    322. 

  322.   Log3 $name, 5, "VIERA: GetStatusMute-Request returned: $returnMute" if(defined($returnMute));
    323. 

  323.   if(not defined($returnMute) or $returnMute eq "") {
    324. 

  324.     Log3 $name, 4, "VIERA: GetStatusMute-Request NO SOCKET!";
    325. 

  325.     if( ReadingsVal($name,"state","absent") ne "absent") {
    326. 

  326.       readingsBeginUpdate($hash);
    327. 

  327.       readingsBulkUpdate($hash, "state", "absent");
    328. 

  328.       readingsBulkUpdate($hash, "power", "off");
    329. 

  329.       readingsBulkUpdate($hash, "presence", "absent");
    330. 

  330.       readingsEndUpdate($hash, 1);
    331. 

  331.     }
    332. 

  332.     return;
    333. 

  333.   }
    334. 

  334.   
    335. 

  335.   readingsBeginUpdate($hash);
    336. 

  336.   if($returnVol =~ /<CurrentVolume>(.+)<\/CurrentVolume>/){
    337. 

  337.     Log3 $name, 4, "VIERA: GetStatus-Set reading volume to $1";
    338. 

  338.     if( $1 != ReadingsVal($name, "volume", "0") ) {readingsBulkUpdate($hash, "volume", $1);}
    339. 

  339.   }
    340. 

  340.   
    341. 

  341.   if($returnMute =~ /<CurrentMute>(.+)<\/CurrentMute>/){
    342. 

  342.     my $myMute = $1;
    343. 

  343.     if ($myMute == 0) { $myMute = "off"; } else { $myMute = "on";}
    344. 

  344.     Log3 $name, 4, "VIERA: GetStatus-Set reading mute to $myMute";
    345. 

  345.     if( $myMute ne ReadingsVal($name, "mute", "0") ) {readingsBulkUpdate($hash, "mute", $myMute);}
    346. 

  346.   }
    347. 

  347.   if( ReadingsVal($name,"state","absent") ne "on") {
    348. 

  348.     readingsBulkUpdate($hash, "state", "on");
    349. 

  349.     readingsBulkUpdate($hash, "power", "on");
    350. 

  350.     readingsBulkUpdate($hash, "presence", "present");
    351. 

  351.   }
    352. 

  352.   readingsEndUpdate($hash, 1);
    353. 

  353.   
    354. 

  354.   #Log3 $name, 4, "VIERA $name: $hash->{STATE}";
    355. 

  355.   return $hash->{STATE};
    356. 

  356. }
    357. 

  357. 

  358. sub VIERA_connection($$){
    359. 

  359.   my $tmp =  shift ;
    360. 

  360.   my $TV = shift;
    361. 

  361.   my $buffer = "";
    362. 

  362.   my $tmp2 = "";
    363. 

  363.   my $sock = new IO::Socket::INET (
    364. 

  364.     PeerAddr => $TV,
    365. 

  365.     PeerPort => '55000',
    366. 

  366.     Proto => 'tcp',
    367. 

  367.     Timeout => 2
    368. 

  368.   );
    369. 

  369.   
    370. 

  370.   #Log3 $name, 5, "VIERA: connection message: $tmp";
    371. 

  371.   
    372. 

  372.   if(defined ($sock)){
    373. 

  373.     print $sock $tmp;
    374. 

  374.     my $buff ="";
    375. 

  375. 

  376.     while ((read $sock, $buff, 1) > 0){
    377. 

  377.       $buffer .= $buff;
    378. 

  378.     }
    379. 

  379.     
    380. 

  380.     my @tmp2 = split (/\n/,$buffer);
    381. 

  381.     #Log3 $name, 4, "VIERA: $TV response: $tmp2[0]";
    382. 

  382.     #Log3 $name, 5, "VIERA: $TV buffer response: $buffer";
    383. 

  383.     $sock->close();
    384. 

  384.     return $buffer;
    385. 

  385.   }
    386. 

  386.   else{
    387. 

  387.     #Log3 $name, 4, "VIERA: $TV: not able to open socket";
    388. 

  388.     return undef;
    389. 

  389.   }
    390. 

  390. }
    391. 

  391. 

  392. #####################################
    393. 

  393. # Callback from 95_remotecontrol for command makenotify.
    394. 

  394. sub VIERA_RCmakenotify($$) {
    395. 

  395.   my ($nam, $ndev) = @_;
    396. 

  396.   my $nname="notify_$nam";
    397. 

  397.   
    398. 

  398.   fhem("define $nname notify $nam set $ndev remoteControl ".'$EVENT',1);
    399. 

  399.   Log3 undef, 2, "[remotecontrol:VIERA] Notify created: $nname";
    400. 

  400.   return "Notify created by VIERA: $nname";
    401. 

  401. }
    402. 

  402. 

  403. #####################################
    404. 

  404. # Default-layout for panasonic TV (maybe other VIERA devices will have other layouts)
    405. 

  405. sub VIERA_RClayout_TV() {
    406. 

  406.   my @row;
    407. 

  407. 

  408.   $row[0]="power:POWEROFF2,TV, CHG_INPUT:HDMI";
    409. 

  409.   $row[1]="MENU, disp_mode:ASPECT,epg:GUIDE";
    410. 

  410.   $row[2]="VIERA_LINK,VTOOLS,INTERNET";
    411. 

  411.   $row[3]=":blank,:blank,:blank";
    412. 

  412.   $row[4]="INFO:INFO2,UP,cancel:EXIT";
    413. 

  413.   $row[5]="LEFT,ENTER,RIGHT";
    414. 

  414.   $row[6]="SUBMENU,DOWN,RETURN";
    415. 

  415.   $row[7]=":blank,:blank,:blank";
    416. 

  416.   $row[8]="d1:1,d2:2,d3:3";
    417. 

  417.   $row[9]="d4:4,d5:5,d6:6";
    418. 

  418.   $row[10]="d7:7,d8:8,d9:9";
    419. 

  419.   $row[11]="MUTE,d0:0,r_tune:PRECH";
    420. 

  420.   $row[12]=":blank,:blank,:blank";
    421. 

  421.   $row[13]="VOLUP,:blank,ch_up:CHUP";
    422. 

  422.   $row[14]=":VOL,:blank,:PROG";
    423. 

  423.   $row[15]="VOLDOWN,:blank,ch_down:CHDOWN";
    424. 

  424.   $row[16]=":blank,:blank,:blank";
    425. 

  425.   $row[17]="rew:REWIND,PLAY,FF";
    426. 

  426.   $row[18]="STOP,PAUSE,REC";
    427. 

  427. 

  428.   $row[19]="attr rc_iconpath icons/remotecontrol";
    429. 

  429.   $row[20]="attr rc_iconprefix black_btn_";
    430. 

  430.   return @row;
    431. 

  431. }
    432. 

  432. 

  433. sub VIERA_BuildXML_NetCtrl($$){
    434. 

  434.   my ($hash, $command) = @_;
    435. 

  435.   my $host = $hash->{helper}{HOST};
    436. 

  436.   
    437. 

  437.   my $callsoap = "";
    438. 

  438.   my $message = "";
    439. 

  439.   my $head = "";
    440. 

  440.   my $size = "";
    441. 

  441.   
    442. 

  442.   $callsoap .= "<?xml version=\"1.0\" encoding=\"utf-8\"?>";
    443. 

  443.   $callsoap .= "<s:Envelope s:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\" xmlns:s=\"http://schemas.xmlsoap.org/soap/envelope/\">";
    444. 

  444.   $callsoap .= "<s:Body>";
    445. 

  445.   $callsoap .= "<u:X_SendKey xmlns:u=\"urn:panasonic-com:service:p00NetworkControl:1\">";
    446. 

  446.   $callsoap .= "<X_KeyEvent>NRC_$command-ONOFF</X_KeyEvent>";
    447. 

  447.   $callsoap .= "</u:X_SendKey>";
    448. 

  448.   $callsoap .= "</s:Body>";
    449. 

  449.   $callsoap .= "</s:Envelope>";
    450. 

  450. 

  451.   $size = length($callsoap);
    452. 

  452. 

  453.   $head .= "POST /nrc/control_0 HTTP/1.1\r\n";
    454. 

  454.   $head .= "Host: $host:55000\r\n";
    455. 

  455.   $head .= "SOAPACTION: \"urn:panasonic-com:service:p00NetworkControl:1#X_SendKey\"\r\n";
    456. 

  456.   $head .= "Content-Type: text/xml; charset=\"utf-8\"\r\n";
    457. 

  457.   $head .= "Content-Length: $size\r\n";
    458. 

  458.   $head .= "\r\n";
    459. 

  459. 

  460.   $message .= $head;
    461. 

  461.   $message .= $callsoap;
    462. 

  462.   Log3 $hash, 5, "VIERA: Building XML SOAP (NetworkControl) for command $command to host $host:\n$message";
    463. 

  463.   return $message;
    464. 

  464. }
    465. 

  465. 

  466. sub VIERA_BuildXML_RendCtrl($$$$){
    467. 

  467.   my ($hash, $methode, $command, $value) = @_;
    468. 

  468.   my $host = $hash->{helper}{HOST};
    469. 

  469.   
    470. 

  470.   my $callsoap = "";
    471. 

  471.   my $message = "";
    472. 

  472.   my $head = "";
    473. 

  473.   my $size = "";
    474. 

  474.   
    475. 

  475.   Log3 $hash, 5, "DEBUG: $command with $value to $host";
    476. 

  476. 

  477.   $callsoap .= "<?xml version=\"1.0\" encoding=\"utf-8\"?>\r\n";
    478. 

  478.   $callsoap .= "<s:Envelope s:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\" xmlns:s=\"http://schemas.xmlsoap.org/soap/envelope/\">\r\n";
    479. 

  479.   $callsoap .= "<s:Body>\r\n";
    480. 

  480.   $callsoap .= "<u:$methode$command xmlns:u=\"urn:schemas-upnp-org:service:RenderingControl:1\">\r\n";
    481. 

  481.   $callsoap .= "<InstanceID>0</InstanceID>\r\n";
    482. 

  482.   $callsoap .= "<Channel>Master</Channel>\r\n";
    483. 

  483.   $callsoap .= "<Desired$command>$value</Desired$command>\r\n" if(defined($value));
    484. 

  484.   $callsoap .= "</u:$methode$command>\r\n";
    485. 

  485.   $callsoap .= "</s:Body>\r\n";
    486. 

  486.   $callsoap .= "</s:Envelope>\r\n";
    487. 

  487. 

  488.   $size = length($callsoap);
    489. 

  489. 

  490.   $head .= "POST /dmr/control_0 HTTP/1.1\r\n";
    491. 

  491.   $head .= "Host: $host:55000\r\n";
    492. 

  492.   $head .= "SOAPACTION: \"urn:schemas-upnp-org:service:RenderingControl:1#$methode$command\"\r\n";
    493. 

  493.   $head .= "Content-Type: text/xml; charset=\"utf-8\"\r\n";
    494. 

  494.   $head .= "Content-Length: $size\r\n";
    495. 

  495.   $head .= "\r\n";
    496. 

  496. 

  497.   $message .= $head;
    498. 

  498.   $message .= $callsoap;
    499. 

  499.   Log3 $hash, 5, "VIERA: Building XML SOAP (RenderingControl) for command $command with value $value to host $host:\n$message";
    500. 

  500.   return $message;
    501. 

  501. }
    502. 

  502. 1;
    503. 

  503. 

  504. =pod
    505. 

  505. =begin html
    506. 

  506. 

  507. <a name="VIERA"></a>
    508. 

  508. <h3>VIERA</h3>
    509. 

  509. <ul>  
    510. 

  510.   <a name="VIERAdefine"></a>
    511. 

  511.   <b>Define</b>
    512. 

  512.   <ul>
    513. 

  513.     <code>define &lt;name&gt; VIERA &lt;host&gt; [&lt;interval&gt;]</code>
    514. 

  514.     <br><br>
    515. 

  515.     This module controls Panasonic TV device over ethernet. It's possible to
    516. 

  516.     power down the tv, change volume or mute/unmute the TV. Also this modul is simulating
    517. 

  517.     the remote control and you are able to send different command buttons actions of remote control.
    518. 

  518.     The module is tested with Panasonic plasma TV tx-p50vt30e
    519. 

  519.     <br><br>
    520. 

  520.     Defining a VIERA device will schedule an internal task (interval can be set
    521. 

  521.     with optional parameter &lt;interval&gt; in seconds, if not set, the value is 30
    522. 

  522.     seconds), which periodically reads the status of volume and mute status and triggers
    523. 

  523.     notify/filelog commands.<br><br>
    524. 

  524.     Example:
    525. 

  525.     <ul><code>
    526. 

  526.       define myTV1 VIERA 192.168.178.20<br><br>
    527. 

  527.       define myTV1 VIERA 192.168.178.20 60   #with custom interval of 60 seconds
    528. 

  528.     </code></ul>
    529. 

  529.   </ul>
    530. 

  530. 

  531.   <br>
    532. 

  532.   <a name="VIERAset"></a>
    533. 

  533.   <b>Set</b>
    534. 

  534.   <ul>
    535. 

  535.     <code>set &lt;name&gt; &lt;command&gt; [&lt;value&gt;]</code>
    536. 

  536.     <br><br>
    537. 

  537.     Currently, the following commands are defined.
    538. 

  538.     <ul>
    539. 

  539.       <code>
    540. 

  540.         off<br>
    541. 

  541.         mute [on|off]<br>
    542. 

  542.         volume [0-100]<br>
    543. 

  543.         volumeUp<br>
    544. 

  544.         volumeDown<br>
    545. 

  545.         channel [1-9999]<br>
    546. 

  546.         channelUp<br>
    547. 

  547.         channelDown<br>
    548. 

  548.         statusRequest<br>
    549. 

  549.         remoteControl &lt;command&gt;<br>
    550. 

  550.       </code>
    551. 

  551.     </ul>
    552. 

  552.   </ul>
    553. 

  553.   <ul>
    554. 

  554.     <br>
    555. 

  555.     <u>Remote control (depending on your model, maybe)</u><br>
    556. 

  556.     For this application the following commands are available:<br>
    557. 

  557.     <ul><code>
    558. 

  558.       3D 		=> 3D button<br>
    559. 

  559.       BLUE 		=> Blue<br>
    560. 

  560.       CANCEL 		=> Cancel / Exit<br>
    561. 

  561.       CHG_INPUT 	=> AV<br>
    562. 

  562.       CH_DOWN 	=> Channel down<br>
    563. 

  563.       CH_UP 		=> Channel up<br>
    564. 

  564.       D0 		=> Digit 0<br>
    565. 

  565.       D1 		=> Digit 1<br>
    566. 

  566.       D2 		=> Digit 2<br>
    567. 

  567.       D3 		=> Digit 3<br>
    568. 

  568.       D4 		=> Digit 4<br>
    569. 

  569.       D5 		=> Digit 5<br>
    570. 

  570.       D6 		=> Digit 6<br>
    571. 

  571.       D7 		=> Digit 7<br>
    572. 

  572.       D8 		=> Digit 8<br>
    573. 

  573.       D9 		=> Digit 9<br>
    574. 

  574.       DISP_MODE 	=> Display mode / Aspect ratio<br>
    575. 

  575.       DOWN 		=> Control DOWN<br>
    576. 

  576.       ENTER 		=> Control Center click / enter<br>
    577. 

  577.       EPG 		=> Guide / EPG<br>
    578. 

  578.       FF 		=> Fast forward<br>
    579. 

  579.       GREEN 		=> Green<br>
    580. 

  580.       HOLD 		=> TTV hold / image freeze<br>
    581. 

  581.       INDEX 		=> TTV index<br>
    582. 

  582.       INFO 		=> Info<br>
    583. 

  583.       INTERNET 	=> VIERA connect<br>
    584. 

  584.       LEFT 		=> Control LEFT<br>
    585. 

  585.       MENU 		=> Menu<br>
    586. 

  586.       MUTE 		=> Mute<br>
    587. 

  587.       PAUSE 		=> Pause<br>
    588. 

  588.       PLAY 		=> Play<br>
    589. 

  589.       POWER 		=> Power off<br>
    590. 

  590.       P_NR 		=> P-NR (Noise reduction)<br>
    591. 

  591.       REC 		=> Record<br>
    592. 

  592.       RED 		=> Red<br>
    593. 

  593.       RETURN 		=> Return<br>
    594. 

  594.       REW 		=> Rewind<br>
    595. 

  595.       RIGHT 		=> Control RIGHT<br>
    596. 

  596.       R_TUNE 		=> Seems to do the same as INFO<br>
    597. 

  597.       SD_CARD 	=> SD-card<br>
    598. 

  598.       SKIP_NEXT 	=> Skip next<br>
    599. 

  599.       SKIP_PREV 	=> Skip previous<br>
    600. 

  600.       STOP 		=> Stop<br>
    601. 

  601.       STTL 		=> STTL / Subtitles<br>
    602. 

  602.       SUBMENU 	=> Option<br>
    603. 

  603.       TEXT 		=> Text / TTV<br>
    604. 

  604.       TV 		=> TV<br>
    605. 

  605.       UP 		=> Control UP<br>
    606. 

  606.       VIERA_LINK 	=> VIERA link<br>
    607. 

  607.       VOLDOWN 	=> Volume down<br>
    608. 

  608.       VOLUP 		=> Volume up<br>
    609. 

  609.       VTOOLS 		=> VIERA tools<br>
    610. 

  610.       YELLOW 		=> Yellow<br>
    611. 

  611.     </code></ul>
    612. 

  612.     
    613. 

  613.     <br>
    614. 

  614.     Example:<br>
    615. 

  615.     <ul><code>
    616. 

  616.       set &lt;name&gt; mute on<br>
    617. 

  617.       set &lt;name&gt; volume 20<br>
    618. 

  618.       set &lt;name&gt; remoteControl CH_DOWN<br>
    619. 

  619.     </code></ul> 
    620. 

  620.     
    621. 

  621.     <br>
    622. 

  622.     Notes:<br>
    623. 

  623.     <ul>Activate volume remotecontrol by DLNA: Menu -> Setup -> Network Setup -> Network Link Settings -> DLNA RemoteVolume -> On</ul>
    624. 

  624.   </ul>
    625. 

  625. 

  626.   <br>
    627. 

  627.   <a name="VIERAget"></a>
    628. 

  628.   <b>Get</b>
    629. 

  629.   <ul>
    630. 

  630.     <code>get &lt;name&gt; &lt;what&gt;</code>
    631. 

  631.     <br><br>
    632. 

  632.     Currently, the following commands are defined and return the current state of the TV.
    633. 

  633.     <ul><code>
    634. 

  634.       mute<br>
    635. 

  635.       volume<br>
    636. 

  636.       power<br>
    637. 

  637.       presence<br>
    638. 

  638.     </code></ul>
    639. 

  639.   </ul>
    640. 

  640.   
    641. 

  641.   <br>
    642. 

  642.   <a name="VIERAattr"></a>
    643. 

  643.   <b>Attributes</b>
    644. 

  644.   <ul>N/A</ul>
    645. 

  645.   
    646. 

  646.   <br>
    647. 

  647.   <a name="VIERAevents"></a>
    648. 

  648.   <b>Generated events:</b>
    649. 

  649.   <ul>
    650. 

  650.     <li>volume</li>
    651. 

  651.     <li>mute</li>
    652. 

  652.     <li>presence</li>
    653. 

  653.     <li>power</li>
    654. 

  654.     <li>state</li>
    655. 

  655.   </ul>
    656. 

  656. </ul>
    657. 

  657. 

  658. =end html
    659. 

  659. 

  660. 

  661. =begin html_DE
    662. 

  662. 

  663. <a name="VIERA"></a>
    664. 

  664. <h3>VIERA</h3>
    665. 

  665. <ul>  
    666. 

  666.   <a name="VIERAdefine"></a>
    667. 

  667.   <b>Define</b>
    668. 

  668.   <ul>
    669. 

  669.     <code>define &lt;name&gt; VIERA &lt;host&gt; [&lt;interval&gt;]</code>
    670. 

  670.     <br><br>
    671. 

  671.     Dieses Modul steuert einen Panasonic Fernseher &uuml;ber das Netzwerk. Es ist m&ouml;glich den Fernseher
    672. 

  672.     auszuschalten, die Lautst&auml;rke zu &auml;ndern oder zu muten bzw. unmuten. Dieses Modul kann zus&auml;tzlich
    673. 

  673.     die Fernbedienung simulieren. Somit k&ouml;nnen also die Schaltaktionen einer Fernbedienung simuliert werden.
    674. 

  674.     Getestet wurde das Modul mit einem Panasonic Plasma TV tx-p50vt30e
    675. 

  675.     <br><br>
    676. 

  676.     Beim definieren des Ger&auml;tes in FHEM wird ein interner Timer gestartet, welcher zyklisch alle 30 Sekunden
    677. 

  677.     den Status der Lautst&auml;rke und des Mute-Zustand ausliest. Das Intervall des Timer kann &uuml;ber den Parameter &lt;interval&gt;
    678. 

  678.     ge&auml;ndert werden. Wird kein Interval angegeben, liest das Modul alle 30 Sekunden die Werte aus und triggert ein notify.
    679. 

  679.     <br><br>
    680. 

  680.     Beispiel:
    681. 

  681.     <ul><code>
    682. 

  682.       define myTV1 VIERA 192.168.178.20<br><br>
    683. 

  683.       define myTV1 VIERA 192.168.178.20 60   #Mit einem Interval von 60 Sekunden
    684. 

  684.     </code></ul>
    685. 

  685.   </ul>
    686. 

  686.   
    687. 

  687.   <br>
    688. 

  688.   <a name="VIERAset"></a>
    689. 

  689.   <b>Set</b>
    690. 

  690.   <ul>
    691. 

  691.     <code>set &lt;name&gt; &lt;command&gt; [&lt;value&gt;]</code>
    692. 

  692.     <br><br>
    693. 

  693.     Zur Zeit sind die folgenden Befehle implementiert:
    694. 

  694.     <ul><code>
    695. 

  695.       off<br>
    696. 

  696.       mute [on|off]<br>
    697. 

  697.       volume [0-100]<br>
    698. 

  698.       volumeUp<br>
    699. 

  699.       volumeDown<br>
    700. 

  700.       channel [1-9999]<br>
    701. 

  701.       channelUp<br>
    702. 

  702.       channelDown<br>
    703. 

  703.       statusRequest<br>
    704. 

  704.       remoteControl &lt;command&gt;<br>
    705. 

  705.     </code></ul>
    706. 

  706.   </ul>
    707. 

  707.   <ul>
    708. 

  708.   <br>
    709. 

  709.   <u>Fernbedienung (Kann vielleicht nach Modell variieren)</u><br>
    710. 

  710.     Das Modul hat die folgenden Fernbedienbefehle implementiert:<br>
    711. 

  711.     <ul><code>
    712. 

  712.       3D 		=> 3D Knopf<br>
    713. 

  713.       BLUE 		=> Blau<br>
    714. 

  714.       CANCEL 		=> Cancel / Exit<br>
    715. 

  715.       CHG_INPUT 	=> AV<br>
    716. 

  716.       CH_DOWN 	=> Kanal runter<br>
    717. 

  717.       CH_UP 		=> Kanal hoch<br>
    718. 

  718.       D0 		=> Ziffer 0<br>
    719. 

  719.       D1 		=> Ziffer 1<br>
    720. 

  720.       D2 		=> Ziffer 2<br>
    721. 

  721.       D3 		=> Ziffer 3<br>
    722. 

  722.       D4 		=> Ziffer 4<br>
    723. 

  723.       D5 		=> Ziffer 5<br>
    724. 

  724.       D6 		=> Ziffer 6<br>
    725. 

  725.       D7 		=> Ziffer 7<br>
    726. 

  726.       D8 		=> Ziffer 8<br>
    727. 

  727.       D9 		=> Ziffer 9<br>
    728. 

  728.       DISP_MODE 	=> Anzeigemodus / Seitenverh&auml;ltnis<br>
    729. 

  729.       DOWN 		=> Navigieren runter<br>
    730. 

  730.       ENTER 		=> Navigieren enter<br>
    731. 

  731.       EPG 		=> Guide / EPG<br>
    732. 

  732.       FF 		=> Vorspulen<br>
    733. 

  733.       GREEN 		=> Gr&uuml;n<br>
    734. 

  734.       HOLD 		=> Bild einfrieren<br>
    735. 

  735.       INDEX 		=> TTV index<br>
    736. 

  736.       INFO 		=> Info<br>
    737. 

  737.       INTERNET 	=> VIERA connect<br>
    738. 

  738.       LEFT 		=> Navigieren links<br>
    739. 

  739.       MENU 		=> Men&uuml;<br>
    740. 

  740.       MUTE 		=> Mute<br>
    741. 

  741.       PAUSE 		=> Pause<br>
    742. 

  742.       PLAY 		=> Play<br>
    743. 

  743.       POWER 		=> Power off<br>
    744. 

  744.       P_NR 		=> P-NR (Ger&auml;uschreduzierung)<br>
    745. 

  745.       REC 		=> Aufnehmen<br>
    746. 

  746.       RED 		=> Rot<br>
    747. 

  747.       RETURN 		=> Enter<br>
    748. 

  748.       REW 		=> Zur&uuml;ckspulen<br>
    749. 

  749.       RIGHT 		=> Navigieren Rechts<br>
    750. 

  750.       R_TUNE 		=> Vermutlich die selbe Funktion wie INFO<br>
    751. 

  751.       SD_CARD 	=> SD-card<br>
    752. 

  752.       SKIP_NEXT 	=> Skip next<br>
    753. 

  753.       SKIP_PREV 	=> Skip previous<br>
    754. 

  754.       STOP 		=> Stop<br>
    755. 

  755.       STTL 		=> Untertitel<br>
    756. 

  756.       SUBMENU 	=> Option<br>
    757. 

  757.       TEXT 		=> TeleText<br>
    758. 

  758.       TV 		=> TV<br>
    759. 

  759.       UP 		=> Navigieren Hoch<br>
    760. 

  760.       VIERA_LINK 	=> VIERA link<br>
    761. 

  761.       VOLDOWN 	=> Lauter<br>
    762. 

  762.       VOLUP 		=> Leiser<br>
    763. 

  763.       VTOOLS 		=> VIERA tools<br>
    764. 

  764.       YELLOW 		=> Gelb<br>
    765. 

  765.     </code></ul>
    766. 

  766.     
    767. 

  767.     <br>
    768. 

  768.     Beispiel:<br>
    769. 

  769.     <ul><code>
    770. 

  770.       set &lt;name&gt; mute on<br>
    771. 

  771.       set &lt;name&gt; volume 20<br>
    772. 

  772.       set &lt;name&gt; remoteControl CH_DOWN<br>
    773. 

  773.     </code></ul> 
    774. 

  774. 

  775.     <br>
    776. 

  776.     Anmerkung:<br>
    777. 

  777.     <ul>Aktivieren von Fernbedienung der Lautst&auml;rke per DLNA: Men&uuml; -> Setup -> Netzwerk-Setup -> Netzwerkverbindungsein. -> DLNA-Fernbed. Lautst. -> Ein</ul>
    778. 

  778.   </ul>
    779. 

  779.   
    780. 

  780.   <br>
    781. 

  781.   <a name="VIERAget"></a>
    782. 

  782.   <b>Get</b>
    783. 

  783.   <ul>
    784. 

  784.     <code>get &lt;name&gt; &lt;what&gt;</code>
    785. 

  785.     <br><br>
    786. 

  786.     Die folgenden Befehle sind definiert und geben den entsprechenden Wert zur&uuml;ck, der vom Fernseher zur&uuml;ckgegeben wurde.
    787. 

  787.   <ul><code>
    788. 

  788.       mute<br>
    789. 

  789.       volume<br>
    790. 

  790.       power<br>
    791. 

  791.       presence<br>
    792. 

  792.   </code></ul>
    793. 

  793.   </ul>
    794. 

  794.   
    795. 

  795.   <br>
    796. 

  796.   <a name="VIERAattr"></a>
    797. 

  797.   <b>Attribute</b>
    798. 

  798.   <ul>N/A</ul>
    799. 

  799.   
    800. 

  800.   <br>
    801. 

  801.   <a name="VIERAevents"></a>
    802. 

  802.   <b>Generierte events:</b>
    803. 

  803.   <ul>
    804. 

  804.     <li>volume</li>
    805. 

  805.     <li>mute</li>
    806. 

  806.     <li>presence</li>
    807. 

  807.     <li>power</li>
    808. 

  808.     <li>state</li>
    809. 

  809.   </ul>
    810. 

  810. </ul>
    811. 

  811. 

  812. =end html_DE
    813. 

  813. 

  814. 

  815. 

  816. =cut
    817.