From 831ceb1f37aaa28ce7a390efee60992429093e2d Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Tue, 1 Feb 2022 16:42:27 +0100 Subject: [PATCH 01/12] change missing modul part only change double quote to single quote in missing modul section [Ticket: no] --- 82_LGTV_WebOS.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/82_LGTV_WebOS.pm b/82_LGTV_WebOS.pm index d33eb91..372275e 100644 --- a/82_LGTV_WebOS.pm +++ b/82_LGTV_WebOS.pm @@ -52,16 +52,16 @@ use FHEM::Meta; my $missingModul = ""; -eval { require MIME::Base64; 1 } or $missingModul .= "MIME::Base64 "; -eval { require IO::Socket::INET; 1 } or $missingModul .= "IO::Socket::INET "; +eval { require MIME::Base64; 1 } or $missingModul .= 'MIME::Base64 '; +eval { require IO::Socket::INET; 1 } or $missingModul .= 'IO::Socket::INET '; ## no critic (Conditional "use" statement. Use "require" to conditionally include a module (Modules::ProhibitConditionalUseStatements)) -eval { use Digest::SHA qw /sha1_hex/; 1 } or $missingModul .= "Digest::SHA "; +eval { use Digest::SHA qw /sha1_hex/; 1 } or $missingModul .= 'Digest::SHA '; eval { use Encode qw /encode_utf8 decode_utf8/; 1 } - or $missingModul .= "Encode "; + or $missingModul .= 'Encode '; ## use critic -eval { require Blocking; 1 } or $missingModul .= "Blocking "; +eval { require Blocking; 1 } or $missingModul .= 'Blocking '; # try to use JSON::MaybeXS wrapper # for chance of better performance + open code -- 2.49.1 From f2d5e9ddca8856a80ed2979f971b8ed44a1f4608 Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Wed, 2 Feb 2022 12:30:42 +0100 Subject: [PATCH 02/12] full perl packages support full perl packages support and BPB module directory structure [Ticket: no] --- FHEM/82_LGTV_WebOS.pm | 366 ++++++ controls_LGTV_WebOS.txt | 2 + hooks/pre-commit | 39 + .../FHEM/Devices/LGTV/LGTVWebOS.pm | 1083 ++++++----------- 4 files changed, 789 insertions(+), 701 deletions(-) create mode 100644 FHEM/82_LGTV_WebOS.pm create mode 100644 controls_LGTV_WebOS.txt create mode 100755 hooks/pre-commit rename 82_LGTV_WebOS.pm => lib/FHEM/Devices/LGTV/LGTVWebOS.pm (51%) diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm new file mode 100644 index 0000000..f01629f --- /dev/null +++ b/FHEM/82_LGTV_WebOS.pm @@ -0,0 +1,366 @@ +############################################################################### +# +# Developed with VSCodium and richterger perl plugin. +# +# (c) 2017-2022 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net) +# All rights reserved +# +# Special thanks goes to comitters: +# - Vitolinker / Commandref +# +# +# This script is free software; you can redistribute it and/or 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 +# any later version. +# +# The GNU General Public License can be found at +# http://www.gnu.org/copyleft/gpl.html. +# A copy is found in the textfile GPL.txt and important notices to the license +# from the author is found in LICENSE.txt distributed with these scripts. +# +# This script 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. +# +# +# $Id: +# +############################################################################### +package FHEM::LGTV_WebOS; + +use strict; +use warnings; + +require FHEM::Devices::LGTV::LGTVWebOS; + +use FHEM::Meta; + +1; + +=pod +=item device +=item summary Controls LG SmartTVs run with WebOS Operating System +=item summary_DE Steuert LG SmartTVs mit WebOS Betriebssystem + +=begin html + + +

LGTV_WebOS

+ + + +=end html + +=begin html_DE + + +

LGTV_WebOS

+