From 057f690a061f3bf11b56a7bfff8318a990efb820 Mon Sep 17 00:00:00 2001 From: betateilchen <> Date: Thu, 19 Dec 2019 20:00:51 +0000 Subject: [PATCH] : for private debug only git-svn-id: https://svn.fhem.de/fhem/trunk@20785 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/betateilchen/55_apcstatus.pm | 143 ---------------------- 1 file changed, 143 deletions(-) delete mode 100644 fhem/contrib/betateilchen/55_apcstatus.pm diff --git a/fhem/contrib/betateilchen/55_apcstatus.pm b/fhem/contrib/betateilchen/55_apcstatus.pm deleted file mode 100644 index 8f345ca35..000000000 --- a/fhem/contrib/betateilchen/55_apcstatus.pm +++ /dev/null @@ -1,143 +0,0 @@ -# $Id$ -#################################################################################################### -# -# A FHEM Perl module to retrieve data from an APC uninterruptible power supply -# -# This file is part of fhem. -# -# Fhem 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 -# (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 FHEM::apcstatus; - -use strict; -use warnings; -use POSIX; -#use FHEM::Meta; - -# Import aus der fhem.pl -use GPUtils qw(GP_Import); - -BEGIN { - - # Import from main context - GP_Import( - qw(readingsSingleUpdate - readingsBulkUpdate - readingsBulkUpdateIfChanged - readingsBeginUpdate - readingsEndUpdate - ReadingsTimestamp - defs - readingFnAttributes - modules - Log3 - CommandAttr - attr - AttrVal - ReadingsVal - Value - IsDisabled - deviceEvents - init_done - gettimeofday - Debug - InternalTimer - RemoveInternalTimer) - ); -} - -our $pkg; - -sub _Export { - no strict qw/refs/; - $pkg = caller(0); - my $main = $pkg; - $main =~ s/^(?:.+::)?([^:]+)$/main::$1\_/g; - foreach (@_) { - *{ $main . $_ } = *{ $pkg . '::' . $_ }; - } - use strict qw/refs/; -} - -_Export( - qw( - Initialize - ) -); - -sub Initialize($) { - my ($hash) = @_; - - $hash->{DefFn} = "$pkg::Define"; -# $hash->{SetFn} = "$pkg::Set"; -# $hash->{GetFn} = "$pkg::Get"; -# $hash->{NotifyFn} = "$pkg::Notify"; - $hash->{UndefFn} = "$pkg::Undef"; -# $hash->{DeleteFn} = "$pkg::Delete"; -# $hash->{ShutDownFn} = "$pkg::ShutDown"; - $hash->{AttrFn} = "$pkg::Attr"; - $hash->{AttrList} = - "disable:1,0 " - . "disabledForIntervals " -# . "upgradeListReading:1 " -# . "distupgrade:1 " - . $readingFnAttributes; - -# foreach my $d ( sort keys %{ $modules{AptToDate}{defptr} } ) { -# my $hash = $modules{AptToDate}{defptr}{$d}; -# $hash->{VERSION} = $VERSION; -# } - -# return FHEM::Meta::InitMod( __FILE__, $hash ); -} - -sub Define($$) { -Debug "test: $pkg"; -} -sub Undef($$) {} -sub Attr(@) {} - -1; - -=pod -=item device -=item summary Modul -=item summary_DE Modul - -=begin html - - -

apcstatus

- - -=end html -=cut -