diff --git a/FHEM/22_ALL3076.pm b/FHEM/22_ALL3076.pm deleted file mode 100644 index 60c02b8a1..000000000 --- a/FHEM/22_ALL3076.pm +++ /dev/null @@ -1,223 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2010 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -############################################## -package main; - -use strict; -use warnings; -use Data::Dumper; -use LWP::UserAgent; -use HTTP::Request; - -sub -ALL3076_Initialize($) -{ - my ($hash) = @_; - - $hash->{SetFn} = "ALL3076_Set"; - $hash->{DefFn} = "ALL3076_Define"; - $hash->{AttrList} = "loglevel:0,1,2,3,4,5,6"; -} - -################################### -sub -ALL3076_Set($@) -{ - my ($hash, @a) = @_; - - return "no set value specified" if(int(@a) != 2); - return "Unknown argument $a[1], choose one of on off toggle dimdown dimup dim10% dim20% dim30% dim40% dim50% dim60% dim70% dim80% dim90% dim100%" if($a[1] eq "?"); - - my $v = $a[1]; - my $v2 = ""; - my $err_log=""; - - if(defined $a[2]) { $v2=$a[2]; } - - if($v eq "toggle") - { - if(defined $hash->{READINGS}{state}{VAL}) - { - if($hash->{READINGS}{state}{VAL} eq "off") - { - $v="on"; - } - else - { - $v="off"; - } - } - else - { - $v="off"; - } - } - Log GetLogLevel($a[0],2), "ALL3076 set @a"; - $err_log=ALL3076_execute($hash->{DEF},$v,$v2); - if($err_log ne "") - { - Log GetLogLevel($a[0],2), "ALL3076 ".$err_log; - } - - $hash->{CHANGED}[0] = $v.$v2; - $hash->{STATE} = $v.$v2; - $hash->{READINGS}{state}{TIME} = TimeNow(); - $hash->{READINGS}{state}{VAL} = $v.$v2; - return undef; -} -################################### -sub -ALL3076_execute($@) -{ - my ($target,$cmd,$cmd2) = @_; - my $URL=''; - my $log=''; - - if($cmd eq "on") - { - $URL="http://".$target."/r?r=0&s=1"; - } - elsif($cmd eq "off") - { - $URL="http://".$target."/r?r=0&s=0"; - } - elsif($cmd eq "dimdown") - { - # We switch it on first - $log.=ALL3076_execute($target,"on"); - $URL="http://".$target."/r?d=0"; - } - elsif($cmd eq "dimup") - { - # We switch it on first - $log.=ALL3076_execute($target,"on"); - $URL="http://".$target."/r?d=1"; - } - elsif(substr($cmd,0,3) eq "dim") - { - # We switch it on first - $log.=ALL3076_execute($target,"on"); - - my $proz=substr($cmd,3,length($cmd)-4); - my $proz_v=sprintf("%d",$proz*255/100); - - $URL="http://".$target."/r?d=".$proz_v; - } - elsif($cmd eq "on-old-for-timer") - { - sleep(1); # Todo - } - else - { - return($log); - } -# print "URL: $URL\n"; - my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30); - my $header = HTTP::Request->new(GET => $URL); - my $request = HTTP::Request->new('GET', $URL, $header); - my $response = $agent->request($request); - - $log.= "Can't get $URL -- ".$response->status_line - unless $response->is_success; - - return($log); -} - -sub -ALL3076_Define($$) -{ - my ($hash, $def) = @_; - my @a = split("[ \t][ \t]*", $def); - - return "Wrong syntax: use define ALL3076 " if(int(@a) != 3); - return undef; -} - -1; - -=pod -=begin html - - -

ALL3076

- - -=end html -=cut diff --git a/FHEM/23_WEBIO.pm b/FHEM/23_WEBIO.pm deleted file mode 100644 index bec8a2c38..000000000 --- a/FHEM/23_WEBIO.pm +++ /dev/null @@ -1,206 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2010 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -############################################## -package main; - -use strict; -use warnings; -use Data::Dumper; -use LWP::UserAgent; -use HTTP::Request; - -sub -WEBIO_Initialize($) -{ - my ($hash) = @_; - - $hash->{SetFn} = "WEBIO_Set"; - $hash->{DefFn} = "WEBIO_Define"; - $hash->{AttrList} = "loglevel:0,1,2,3,4,5,6"; -} - -################################### -sub -WEBIO_Set($@) -{ - my ($hash, @a) = @_; - - return "no set value specified" if(int(@a) != 2); - return "Unknown argument $a[1], choose one of 0 1 2 3 4 5 6 7 8 9 10" if($a[1] eq "?"); - - my $v = $a[1]; - my $sensor="volt"; - - WEBIO_execute($hash->{DEF},$v); - - Log GetLogLevel($a[0],2), "WEBIO set @a"; - - $hash->{CHANGED}[0] = "Volt:"; - $hash->{STATE} = "V: ".$v; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $v." (Volt)"; - return undef; - -} -################################### -sub -WEBIO_execute($@) -{ - my ($target,$cmd) = @_; - my $URL=''; - - my @a = split("[ \t][ \t]*", $target); - - $URL="http://".$a[0]."/outputaccess".$a[1]."?PW=&State=".$cmd."&"; - - my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 1); - my $header = HTTP::Request->new(GET => $URL); - my $request = HTTP::Request->new('GET', $URL, $header); - my $response = $agent->request($request); - - return undef; -} - -sub -WEBIO_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - - my $host = $a[2]; - my $host_port = $a[3]; - my $delay=$a[4]; - $attr{$name}{delay}=$delay if $delay; - - return "Wrong syntax: use define WEBIO " if(int(@a) != 5); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - - InternalTimer(gettimeofday()+$delay, "WEBIO_GetStatus", $hash, 0); - - return undef; -} - -##################################### - -sub -WEBIO_GetStatus($) -{ - my ($hash) = @_; - my $err_log=''; - my $line; - - my $name = $hash->{NAME}; - my $host = $hash->{Host}; - - my $delay=$attr{$name}{delay}||300; - InternalTimer(gettimeofday()+$delay, "WEBIO_GetStatus", $hash, 0); - - if(!defined($hash->{Host_Port})) { return(""); } - my $host_port = $hash->{Host_Port}; - - my $URL="http://".$host."/Single".$host_port; - my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 3); - my $header = HTTP::Request->new(GET => $URL); - my $request = HTTP::Request->new('GET', $URL, $header); - my $response = $agent->request($request); - - $err_log.= "Can't get $URL -- ".$response->status_line - unless $response->is_success; - - if($err_log ne "") - { - Log GetLogLevel($name,2), "WEBIO ".$err_log; - return(""); - } - - my $body = $response->content; - -# print $body."\n"; - my @values=split(/;/,$body); - my $last=$values[$#values]; - my @v=split(/ /,$last); - my $state=$v[0]; - $state=~s/,/./g; - - my $sensor="volt"; - Log 4, "WEBIO_GetStatus: $host_port ".$hash->{STATE}." -> ".$state; - - $hash->{STATE} = "V: ".$state; - - $hash->{CHANGED}[0] = $state; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $state." (Volt)"; - DoTrigger($name, undef) if($init_done); -} - -1; - -=pod -=begin html - - -

WEBIO

-
    - Note: this module needs the HTTP::Request and LWP::UserAgent perl modules. -

    - - Define -
      - define <name> WEBIO <ip-address> <port> <delay> -

      - Defines an Web-IO device (Box with 2 Analog-In/Out 0..10V, www.wut.de) via ip address. The status of the device is also pooled (delay interval).

      - - - Examples: -
        - define pumpspeed WEBIO 192.168.8.200 1 60
        -
      -
    -
    - - - Set -
      - set <name> <value> -

      - where value is one of:
      - 
      -    0.00 - 10.00
-
      - Examples: -
        - set pumpspeed 6.75
        -
      -
      -
    -
- -=end html -=cut diff --git a/FHEM/23_WEBIO_12DIGITAL.pm b/FHEM/23_WEBIO_12DIGITAL.pm deleted file mode 100644 index 021fd8820..000000000 --- a/FHEM/23_WEBIO_12DIGITAL.pm +++ /dev/null @@ -1,242 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2011 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -############################################## -package main; - -use strict; -use warnings; -use Data::Dumper; -use IO::Socket; -#use LWP::UserAgent; -#use HTTP::Request; - -sub -WEBIO_12DIGITAL_Initialize($) -{ - my ($hash) = @_; - - $hash->{SetFn} = "WEBIO_12DIGITAL_Set"; - $hash->{DefFn} = "WEBIO_12DIGITAL_Define"; - $hash->{AttrList} = "loglevel:0,1,2,3,4,5,6"; -} - -################################### -sub -WEBIO_12DIGITAL_Set($@) -{ - my ($hash, @a) = @_; - - return "no set value specified" if(int(@a) < 2); - return "Unknown argument $a[1], choose one of on off on-for-timer" if($a[1] eq "?"); - - my $v = $a[1]; - my $v2= ""; - if(defined($a[2])) { $v2=$a[2]; } - - RemoveInternalTimer("WEBIO_12DIGITAL_on_timeout"); - - if($v eq "on-for-timer") - { - InternalTimer(gettimeofday()+$v2, "WEBIO_12DIGITAL_on_timeout",$hash, 0); -# on-for-timer is now a on. - $v="on"; - } - - WEBIO_12DIGITAL_execute($hash->{DEF},$v); - - Log GetLogLevel($a[0],2), "WEBIO_12DIGITAL set @a"; - - $hash->{CHANGED}[0] = $v; - $hash->{STATE} = $v; - $hash->{READINGS}{state}{TIME} = TimeNow(); - $hash->{READINGS}{state}{VAL} = $v; - - DoTrigger($hash->{NAME}, undef); - - return undef; - -} -sub -WEBIO_12DIGITAL_on_timeout($) -{ - my ($hash) = @_; - my @a; - - $a[0]=$hash->{NAME}; - $a[1]="off"; - - WEBIO_12DIGITAL_Set($hash,@a); - - return undef; -} - - -################################### -sub -WEBIO_12DIGITAL_execute($@) -{ - my ($target,$cmd) = @_; - my $URL=''; - my $v=''; - my $err_log=''; - - if($cmd eq "on") { $v="ON"; } - else { $v="OFF"; } - - my @a = split("[ \t][ \t]*", $target); - - my $sock = new IO::Socket::INET ( - PeerAddr => $a[0], - PeerPort => '80', - Proto => 'tcp', - Timeout => "3", - ); - $err_log = "Could not create socket: $!\n" unless $sock; - - if($err_log ne "") { return undef; } - - print $sock "GET /outputaccess".$a[1]."?PW=&State=".$v."\n"; - close($sock); - - return undef; -} - -sub -WEBIO_12DIGITAL_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - - my $host = $a[2]; - my $host_port = $a[3]; - my $delay=$a[4]; - $attr{$name}{delay}=$delay if $delay; - - return "Wrong syntax: use define WEBIO_12DIGITAL " if(int(@a) != 5); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - - InternalTimer(gettimeofday()+$delay, "WEBIO_12DIGITAL_GetStatus", $hash, 0); - - return undef; -} - -##################################### - -sub -WEBIO_12DIGITAL_GetStatus($) -{ - my ($hash) = @_; - my $err_log=''; - my $line; - my $state; - - my $name = $hash->{NAME}; - my $host = $hash->{Host}; - - my $delay=$attr{$name}{delay}||300; - InternalTimer(gettimeofday()+$delay, "WEBIO_12DIGITAL_GetStatus", $hash, 0); - - if(!defined($hash->{Host_Port})) { return(""); } - my $host_port = $hash->{Host_Port}; - - my $sock = new IO::Socket::INET ( - PeerAddr => $host, - PeerPort => '80', - Proto => 'tcp', - Timeout => "3", - ); - $err_log = "Could not create socket: $!\n" unless $sock; - - if($err_log ne "") - { - Log GetLogLevel($name,2), "WEBIO_12DIGITAL ".$err_log; - return(""); - } - print $sock "GET /output".$host_port."?PW=&\n"; - $line = <$sock>; - close($sock); - - if($line =~ /ON/) { $state="on"; } else { $state="off"; } - if($hash->{STATE} ne $state) - { - Log 4, "WEBIO_12DIGITAL_GetStatus: $host_port ".$hash->{STATE}." -> ".$state; - - $hash->{STATE} = $state; - - $hash->{CHANGED}[0] = $state; - $hash->{READINGS}{state}{TIME} = TimeNow(); - $hash->{READINGS}{state}{VAL} = $state; - DoTrigger($name, undef) if($init_done); - } -} - -1; - -=pod -=begin html - - -

WEBIO_12DIGITAL

-
    - Note: this module needs the HTTP::Request and LWP::UserAgent perl modules. -

    - - Define -
      - define <name> WEBIO_12DIGITAL <ip-address> <outputport> <delay> -

      - Defines an Web-IO-Digital device (Box with up to 12 digital in/outputs, www.wut.de) via ip address. The status of the device is also pooled (delay interval).

      - - Examples: -
        - define motor1 WEBIO_12DIGITAL 192.168.8.200 1 60
        -
      -
    -
    - - - Set -
      - set <name> <value> -

      - where value is one of:
      - 
      -       on off
-
      - Examples: -
        - set motor1 on
        -
      -
      -
    -
- -=end html -=cut diff --git a/FHEM/88_ALL4000T.pm b/FHEM/88_ALL4000T.pm deleted file mode 100644 index de290c36c..000000000 --- a/FHEM/88_ALL4000T.pm +++ /dev/null @@ -1,167 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2010 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -package main; - -use strict; -use warnings; -use XML::Simple; -use Data::Dumper; -use LWP::UserAgent; -use HTTP::Request; - -sub Log($$); -##################################### - -sub -trim($) -{ - my $string = shift; - $string =~ s/^\s+//; - $string =~ s/\s+$//; - return $string; -} - -sub -ALL4000T_Initialize($) -{ - my ($hash) = @_; - # Consumer - $hash->{DefFn} = "ALL4000T_Define"; - $hash->{AttrList}= "model:ALL4000T delay loglevel:0,1,2,3,4,5,6"; -} - -##################################### - -sub -ALL4000T_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - Log 5, "ALL4000T Define: $a[0] $a[1] $a[2] $a[3] $a[4]"; - return "Define the host as a parameter i.e. ALL4000T" if(@a < 4); - - my $host = $a[2]; - my $host_port = $a[3]; - my $delay=$a[4]; - $attr{$name}{delay}=$delay if $delay; - Log 1, "ALL4000T device is none, commands will be echoed only" if($host eq "none"); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - $hash->{STATE} = "Initialized"; - Log 4,"$name: Delay $delay"; - - InternalTimer(gettimeofday()+$delay, "ALL4000T_GetStatus", $hash, 0); - return undef; - -} - -##################################### - -sub -ALL4000T_GetStatus($) -{ - my ($hash) = @_; - - my $buf; - - if(!defined($hash->{Host_Port})) { return(""); } - - Log 5, "ALL4000T_GetStatus"; - my $name = $hash->{NAME}; - my $host = $hash->{Host}; - my $host_port = $hash->{Host_Port}; - my $text=''; - my $err_log=''; - - my $delay=$attr{$name}{delay}||300; - InternalTimer(gettimeofday()+$delay, "ALL4000T_GetStatus", $hash, 0); - - my $xml = new XML::Simple; - - my $URL="http://".$host."/xml"; - my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 3); - my $header = HTTP::Request->new(GET => $URL); - my $request = HTTP::Request->new('GET', $URL, $header); - my $response = $agent->request($request); - - $err_log.= "Can't get $URL -- ".$response->status_line - unless $response->is_success; - - if($err_log ne "") - { - Log GetLogLevel($name,2), "ALL4000T ".$err_log; - return(""); - } - - my $body = $response->content; - my $data = $xml->XMLin($body); - my $current=trim($data->{BODY}->{FORM}->{TEXTAREA}->{xml}->{data}->{$host_port}); - - $text="Temperature: ".$current; - my $sensor="temperature"; - Log 4,"$name: $text"; - if (!$hash->{local}){ - $hash->{CHANGED}[0] = $text; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $current." (Celsius)";; - DoTrigger($name, undef) if($init_done); - } - $hash->{STATE} = "T: ".$current; - return($text); -} - - -1; - - -=pod -=begin html - - -

ALL4000T

-
    - Note: this module requires the following perl modules: XML::Simple LWP::UserAgent - HTTP::Request. -

    - - Define -
      - define <name> ALL4000T <ip-address> <port> <delay> -

      - Defines a temperature sensor connected on an Allnet 4000 device via its ip address and port. Use the delay argument to define the delay between polls.

      - - Examples: -
        - define AUSSEN.POOL.TEMP.vorlauf ALL4000T 192.168.68.20 t2 120
        -
      -
    -
    -
-=end html -=cut diff --git a/FHEM/88_Itach_Relay.pm b/FHEM/88_Itach_Relay.pm deleted file mode 100644 index 4154f3d08..000000000 --- a/FHEM/88_Itach_Relay.pm +++ /dev/null @@ -1,186 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2011 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -############################################## -package main; - -use strict; -use warnings; -use Data::Dumper; -use Net::Telnet; - -sub -ITACH_RELAY_Initialize($) -{ - my ($hash) = @_; - - $hash->{SetFn} = "ITACH_RELAY_Set"; - $hash->{DefFn} = "ITACH_RELAY_Define"; - $hash->{AttrList} = "loglevel:0,1,2,3,4,5,6"; -} - -################################### -sub -ITACH_RELAY_Set($@) -{ - my ($hash, @a) = @_; - - return "no set value specified" if(int(@a) != 2); - return "Unknown argument $a[1], choose one of on off toggle" if($a[1] eq "?"); - - my $v = $a[1]; - - if($v eq "toggle") - { - if(defined $hash->{READINGS}{state}{VAL}) - { - if($hash->{READINGS}{state}{VAL} eq "off") - { - $v="on"; - } - else - { - $v="off"; - } - } - else - { - $v="off"; - } - } - - ITACH_RELAY_execute($hash->{DEF},$v); - - Log GetLogLevel($a[0],2), "ITACH_RELAY set @a"; - - $hash->{CHANGED}[0] = $v; - $hash->{STATE} = $v; - $hash->{READINGS}{state}{TIME} = TimeNow(); - $hash->{READINGS}{state}{VAL} = $v; - - DoTrigger($hash->{NAME}, undef); - - return undef; - -} -################################### -sub -ITACH_RELAY_execute($@) -{ - my ($target,$cmd) = @_; - my $URL=''; - my $v=''; - my $err_log=''; - - if($cmd eq "on") { $v=1; } - else { $v=0; } - - my @a = split("[ \t][ \t]*", $target); - - my $tel=new Net::Telnet(Host => $a[0], Port => 4998,Timeout => 3, Binmode => 0, Telnetmode => 0, Errmode => "return"); - - if(!defined($tel)) - { - Log 4,"Error connecting to ".$a[0].":4998"; - } - else - { - my $cmd="setstate,1:".$a[1].",".$v."\n"; - $tel->print($cmd); - sleep(1); - } - - return undef; -} - -sub -ITACH_RELAY_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - - my $host = $a[2]; - my $host_port = $a[3]; - - return "Wrong syntax: use define ITACH_RELAY " if(int(@a) != 4); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - - return undef; -} - -1; - -=pod -=begin html - - -

ITACH_RELAY

-
    - Note: this module needs the Net::Telnet module. -

    - - Define -
      - define <name> ITACH_RELAY <ip-address> <port> -

      - Defines an Global Cache iTach Relay device (Box with 3 relays) via its ip address.

      - - - Examples: -
        - define motor1 ITACH_RELAY 192.168.8.200 1
        -
      -
    -
    - - - Set -
      - set <name> <value> -

      - where value is one of:
      - 
      -    off
-    on
-    toggle
-
      - Examples: -
        - set motor1 on
        -
      -
      - Notes: -
        -
      • Toggle is special implemented. List name returns "on" or "off" even after a toggle command
        • -
      -
    -
- -=end html -=cut diff --git a/FHEM/88_LINDY_HDMI_SWITCH.pm b/FHEM/88_LINDY_HDMI_SWITCH.pm deleted file mode 100644 index 3bfb5cf01..000000000 --- a/FHEM/88_LINDY_HDMI_SWITCH.pm +++ /dev/null @@ -1,153 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2013 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -############################################## -package main; - -use strict; -use warnings; -use Data::Dumper; -use Net::Telnet; - -sub -LINDY_HDMI_SWITCH_Initialize($) -{ - my ($hash) = @_; - - $hash->{SetFn} = "LINDY_HDMI_SWITCH_Set"; - $hash->{DefFn} = "LINDY_HDMI_SWITCH_Define"; - $hash->{AttrList} = "loglevel:0,1,2,3,4,5,6"; -} - -################################### -sub -LINDY_HDMI_SWITCH_Set($@) -{ - my ($hash, @a) = @_; - - return "no set value specified" if(int(@a) != 2); - return "Unknown argument $a[1], choose one of 11 12 13 14 21 22 23 24" if($a[1] eq "?"); - - my $v = $a[1]; - - my $tel=new Net::Telnet(Host => $hash->{Host}, Port => $hash->{Host_Port},Timeout => 3, Binmode => 0, Telnetmode => 0, Errmode => "return"); - if(!defined($tel)) - { - Log 4,"Error connecting to ".$a[0].":4999"; - } - else - { - my $cmd="PORT ".$v."\n"; - $tel->print($cmd); - sleep(1); - } - - Log GetLogLevel($a[0],2), "LINDY_HDMI_SWITCH set @a"; - - $hash->{CHANGED}[0] = $v; - $hash->{STATE} = $v; - $hash->{READINGS}{state}{TIME} = TimeNow(); - $hash->{READINGS}{state}{VAL} = $v; - - DoTrigger($hash->{NAME}, undef); - - return undef; - -} - -sub -LINDY_HDMI_SWITCH_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - - my $host = $a[2]; - my $host_port = $a[3]; - - return "Wrong syntax: use define LINDY_HDMI_SWITCH " if(int(@a) != 4); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - - return undef; -} - -1; - -=pod -=item device -=item summary Controls LINDY HDMI 38054 4:2 switch -=item summary_DE Steuert LINDY HDMI 38054 4:2 Umschalter - -=begin html - - -

LINDY_HDMI_SWITCH

-
    - Note: this module needs the Net::Telnet module. -

    - - Define -
      - define <name> LINDY_HDMI_SWITCH <ip-address> <port> -

      - Defines an Lindy 4:2 HDMI Switch serial connected to a transparent ethernet to serial adapter via the ip address of the adapter. Lindy partnumber: 38054

      - - Examples: -
        - define livingroom.hdmi LINDY_HDMI_SWITCH 192.168.1.64 4999
        -
      -
    -
    - - - Set -
      - set <name> <value> -

      - where value is one of:
      - 
      -	11 
-	12
-	13
-	14
-	21
-	22
-	23
-	24
-
      - First digit is the output port, second digit is the input port. - Example: -
        - set livingroom.hdmi 12
        -
      -
      -
    -
- -=end html -=cut diff --git a/FHEM/88_VantagePro2.pm b/FHEM/88_VantagePro2.pm deleted file mode 100644 index 9fb5bc5ec..000000000 --- a/FHEM/88_VantagePro2.pm +++ /dev/null @@ -1,393 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2010 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -package main; - -use strict; -use warnings; -use Data::Dumper; -use Net::Telnet; - -sub Log($$); -##################################### - -sub -VantagePro2_Initialize($) -{ - my ($hash) = @_; - # Consumer - $hash->{DefFn} = "VantagePro2_Define"; - $hash->{AttrList}= "model:VantagePro2 delay loglevel:0,1,2,3,4,5,6"; -} - -##################################### - -sub -VantagePro2_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - Log 5, "VantagePro2 Define: $a[0] $a[1] $a[2] $a[3]"; - return "Define the host as a parameter i.e. VantagePro2" if(@a < 3); - - my $host = $a[2]; - my $port=$a[3]; - my $delay=$a[4]; - $attr{$name}{delay}=$delay if $delay; - Log 1, "VantagePro2 device is none, commands will be echoed only" if($host eq "none"); - - $hash->{Host} = $host; - $hash->{Port} = $port; - $hash->{STATE} = "Initialized"; - - InternalTimer(gettimeofday()+$delay, "VantagePro2_GetStatus", $hash, 0); - return undef; - -} - -##################################### - -sub -VantagePro2_GetStatus($) -{ - my ($hash) = @_; - - my $buf; - - Log 5, "VantagePro2_GetStatus"; - my $name = $hash->{NAME}; - my $host = $hash->{Host}; - my $port = $hash->{Port}; - my $text=''; - my $err_log=''; - my $answer; - my $sensor; - - my $delay=$attr{$name}{delay}||300; - InternalTimer(gettimeofday()+$delay, "VantagePro2_GetStatus", $hash, 0); - - my $tel=new Net::Telnet(Host => $host, Port => $port,Timeout => 3, Binmode => 1, Telnetmode => 0, Errmode => "return"); - - if(!defined($tel)) - { - Log 4,"$name: Error connecting to $host:$port"; - } - else - { - $tel->print(""); - $answer=$tel->get(); - $tel->print("TEST"); - $answer=$tel->get(); - $tel->print("LOOP 1"); - sleep(1); - $answer=$tel->get(); - $tel->close(); - -# print "Debug:".length($answer)."\n"; - - if(length($answer)>=63) - { - my $offset=1; - my $t; - my $btrend=""; - - $t=substr($answer,$offset+3,1); - my ($bartrend)=unpack("c1",$t); - - $t=substr($answer,$offset+7,2); - my ($barometer)=unpack("s2",$t); - - $barometer=sprintf("%.02f",$barometer/1000*2.54); - - $t=substr($answer,$offset+9,2); - my ($itemp)=unpack("s2",$t); - - $t=substr($answer,$offset+11,1); - my ($ihum)=unpack("c1",$t); - - $t=substr($answer,$offset+12,2); - my ($otemp)=unpack("s2",$t); - - $t=substr($answer,$offset+33,1); - my ($ohum)=unpack("c1",$t); - - $t=substr($answer,$offset+14,1); - my ($windspeed)=unpack("c1",$t); - - $t=substr($answer,$offset+15,1); - my ($avgwindspeed)=unpack("c1",$t); - - $t=substr($answer,$offset+16,2); - my ($winddir)=unpack("s1",$t); - - $t=substr($answer,$offset+41,2); - my ($rainrate)=unpack("s2",$t); - - $t=substr($answer,$offset+43,1); - my ($uv)=unpack("c1",$t); - - $t=substr($answer,$offset+44,2); - my ($solar)=unpack("s2",$t); - - $t=substr($answer,$offset+46,2); - my ($stormrain)=unpack("s2",$t); - $stormrain=sprintf("%.02f",($stormrain/100*25.4)); - - $t=substr($answer,$offset+50,2); - my ($drain)=unpack("s2",$t); - $drain=sprintf("%.02f",($drain*0.2)); #Es werden Anzahl ticks à 0.2mm übermittelt - - $t=substr($answer,$offset+52,2); - my ($mrain)=unpack("s2",$t); - $mrain=sprintf("%.02f",($mrain*0.2)); #Es werden Anzahl ticks à 0.2mm übermittelt - - $t=substr($answer,$offset+54,2); - my ($yrain)=unpack("s2",$t); - $yrain=sprintf("%.02f",($yrain*0.2)); # #Es werden Anzahl ticks à 0.2mm übermittelt - - $t=substr($answer,$offset+56,2); - my ($etday)=unpack("s2",$t); - $etday=sprintf("%.02f",($etday/1000*25.4)); - - $t=substr($answer,$offset+58,2); - my ($etmonth)=unpack("s2",$t); - $etmonth=sprintf("%.02f",($etmonth/100*25.4)); - - $t=substr($answer,$offset+60,2); - my ($etyear)=unpack("s2",$t); - $etyear=sprintf("%.02f",($etyear/100*25.4)); - - $itemp=sprintf("%.02f",(($itemp/10)-32)*5/9); - $otemp=sprintf("%.02f",(($otemp/10)-32)*5/9); - $rainrate=sprintf("%.02f",$rainrate/5); - $windspeed=sprintf("%.02f",$windspeed*1.609); - $avgwindspeed=sprintf("%.02f",$avgwindspeed*1.609); - $uv=$uv/10; - if($bartrend==0) { $btrend="Steady"; } - elsif($bartrend==20) { $btrend="Rising Slowly"; } - elsif($bartrend==60) { $btrend="Rising Rapidly"; } - elsif($bartrend==-20) { $btrend="Falling Slowly"; } - elsif($bartrend==-60) { $btrend="Falling Rapidly"; } - - # WindChill and HeatIndex by Andreas Berweger - - my $wct; #WindChill temperature - my $hit; #HeatIndex temperature - - if($otemp<10 && $avgwindspeed>5) - { - $wct=sprintf("%.02f",(13.12+(0.6215*$otemp)-(11.37*$avgwindspeed**0.16)+(0.3965*$otemp*$avgwindspeed**0.16))); - } - else - { - $wct=$otemp; - } - - if($otemp>25 && $ohum>40) - { - $hit=sprintf("%.02f",(-8.784695 + (1.61139411*$otemp) + (2.338549*$ohum) + (-0.14611605*$otemp*$ohum) + (-1.2308094*10**-2*$otemp**2) + (-1.6424828*10**-2*$ohum**2) + (2.211732*10**-3*$otemp**2*$ohum) + (7.2546*10**-4*$otemp*$ohum**2) + (-3.582*10**-6*$otemp**2*$ohum**2))); - } - else - { - $hit=$otemp; - } - - $text="T-OUT: ".$otemp." T-WC-OUT: ".$wct." T-HI-OUT: ".$hit." T-IN: ".$itemp." H-OUT: ".$ohum." H-IN: ".$ihum." W: ".$windspeed." W-AV: ".$avgwindspeed." WD: ".$winddir." R: ".$rainrate." S: ".$solar." UV: ".$uv." RD: ".$drain." RM: ".$mrain. " RY: ".$yrain." SR: ".$stormrain." BM: ".$barometer." BT: ".$btrend. " ET-DAY: ".$etday." ET-MONTH: ".$etmonth." ET-YEAR: ".$etyear; - my $n=0; - - Log 4,"$name: $text"; - if (!$hash->{local}){ - $sensor="temperature-outside"; - $hash->{CHANGED}[$n++] = "Temperature Outside: ".$otemp; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $otemp." (Celsius)";; - - $sensor="temperature-windchill"; - $hash->{CHANGED}[$n++] = "WCT: ".$wct; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $wct." (Celsius)";; - - $sensor="temperature-heatindex"; - $hash->{CHANGED}[$n++] = "HeatT: ".$hit; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $hit." (Celsius)";; - - $sensor="temperature-inside"; - $hash->{CHANGED}[$n++] = "Temperature Inside: ".$itemp; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $itemp." (Celsius)";; - - $sensor="humidity outside"; - $hash->{CHANGED}[$n++] = "Humidity Outside: ".$ohum; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $ohum." (%)";; - - $sensor="humidity inside"; - $hash->{CHANGED}[$n++] = "Humidity Inside: ".$ihum; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $ihum." (%)";; - - $sensor="windspeed"; - $hash->{CHANGED}[$n++] = "Wind: ".$windspeed; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $windspeed." (km/h)";; - - $sensor="10 min. average windspeed"; - $hash->{CHANGED}[$n++] = "10 Min. Wind: ".$avgwindspeed; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $avgwindspeed." (km/h)";; - - $sensor="wind direction"; - $hash->{CHANGED}[$n++] = "Wind Direction: ".$winddir; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $winddir." (Degrees)";; - - $sensor="solar"; - $hash->{CHANGED}[$n++] = "Solar: ".$solar; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $solar." (Watt/m^2)";; - - $sensor="UV"; - $hash->{CHANGED}[$n++] = "UV: ".$uv; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $uv." (UV/Index)";; - - $sensor="rainrate"; - $hash->{CHANGED}[$n++] = "Rainrate: ".$rainrate; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $rainrate." (mm/h)";; - - $sensor="day rain"; - $hash->{CHANGED}[$n++] = "Dayrain: ".$drain; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $drain." (mm/day)";; - - $sensor="month rain"; - $hash->{CHANGED}[$n++] = "Monthrain: ".$mrain; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $mrain." (mm/month)";; - - $sensor="year rain"; - $hash->{CHANGED}[$n++] = "Yearrain: ".$yrain; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $yrain." (mm/year)";; - - $sensor="storm rain"; - $hash->{CHANGED}[$n++] = "SR: ".$stormrain; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $stormrain." (mm/storm)";; - - $sensor="barometer"; - $hash->{CHANGED}[$n++] = "Barometer: ".$barometer; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $barometer." (Millimeters)";; - - $sensor="barometer trend"; - $hash->{CHANGED}[$n++] = "Barometer Trend: ".$btrend; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $btrend; - - $sensor="ET Day"; - $hash->{CHANGED}[$n++] = "ETD: ".$etday; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $etday." (mm/day)";; - - $sensor="ET Month"; - $hash->{CHANGED}[$n++] = "ETM: ".$etmonth; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $etmonth." (mm/month)";; - - $sensor="ET Year"; - $hash->{CHANGED}[$n++] = "ETY: ".$etyear; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $etyear." (mm/year)";; - - DoTrigger($name, undef) if($init_done); - } - $hash->{STATE} = $text; - } - } - return($text); -} - - -1; - - -=pod -=begin html - - -

VantagePro2

-
    - Note: this module needs the Net::Telnet perl module. -

    - - Define -
      - define <name> <ip-address> <port> <delay> -

      - Defines a Davis VantagePro2 weatherstation attached on transparent ethernet/usb|serial server accessable by telnet.

      - - Examples: -
        - define AUSSEN.wetterstation VantagePro2 192.168.8.127 4999 60
        - - fhem> list AUSSEN.wetterstation
        - Internals:
        - DEF 192.168.8.127 4999 60
        - Host 192.168.8.127
        - NAME AUSSEN.wetterstation
        - NR 5
        - Port 4999
        - STATE T-OUT: 22.78 T-IN: 26.50 H-OUT: 55 H-IN: 45 W: 1.61 W-AV: 1.61 WS 257 R: 0.00 S: 770 UV: 4.1 RD: 0 RM: 41 RY: 241 BM: 76.27 BT: Steady
        - TYPE VantagePro2
        - Readings:
        - 2010-08-04 10:15:17 10 min. average windspeed 1.61 (km/h)
        - 2010-08-04 10:15:17 UV 4.1 (UV/Index)
        - 2010-08-04 10:15:17 barometer 76.27 (Millimeters)
        - 2010-08-04 10:15:17 barometer trend Steady
        - 2010-08-04 10:15:17 day rain 0 (mm/day)
        - 2010-08-04 10:15:17 humidity inside 45 (%)
        - 2010-08-04 10:15:17 humidity outside 55 (%)
        - 2010-08-04 10:15:17 month rain 41 (mm/month)
        - 2010-08-04 10:15:17 rainrate 0.00 (mm/h)
        - 2010-08-04 10:15:17 solar 770 (Watt/m^2)
        - 2010-08-04 10:15:17 temperature-inside 26.50 (Celsius)
        - 2010-08-04 10:15:17 temperature-outside 22.78 (Celsius)
        - 2010-08-04 10:15:17 wind direction 257 (Degrees)
        - 2010-08-04 10:15:17 windspeed 1.61 (km/h)
        - 2010-08-04 10:15:17 year rain 241 (mm/year)
        -Attributes:
        - delay 60
        -
        -
      -
    -
- -=end html -=cut diff --git a/FHEM/88_WEBCOUNT.pm b/FHEM/88_WEBCOUNT.pm deleted file mode 100644 index 4e3bc34f2..000000000 --- a/FHEM/88_WEBCOUNT.pm +++ /dev/null @@ -1,161 +0,0 @@ -################################################################ -# -# Copyright notice -# -# (c) 2019 Christoph Morrison -# 2011 Sacha Gloor (sacha@imp.ch) -# -# 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 -# (at your option) 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. -# -# This copyright notice MUST APPEAR in all copies of the script! -# -################################################################ -# $Id$ - -package main; - -use strict; -use warnings; -use XML::Simple; -use Data::Dumper; -use LWP::UserAgent; -use HTTP::Request; - -##################################### - -sub WEBCOUNT_Initialize($) -{ - my ($hash) = @_; - # Consumer - $hash->{DefFn} = "WEBCOUNT_Define"; - $hash->{AttrList}= "model:WEBCOUNT delay loglevel:0,1,2,3,4,5,6"; -} - -##################################### - -sub WEBCOUNT_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - Log 5, "WEBCOUNT Define: $a[0] $a[1] $a[2] $a[3] $a[4]"; - return "Define the host as a parameter i.e. WEBCOUNT" if(@a < 4); - - my $host = $a[2]; - my $host_port = $a[3]; - my $delay=$a[4]; - $attr{$name}{delay}=$delay if $delay; - Log 1, "WEBCOUNT device is none, commands will be echoed only" if($host eq "none"); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - $hash->{STATE} = "Initialized"; - Log 4,"$name: Delay $delay"; - - InternalTimer(gettimeofday()+$delay, "WEBCOUNT_GetStatus", $hash, 0); - return undef; - -} - -##################################### - -sub WEBCOUNT_GetStatus($) -{ - my ($hash) = @_; - - my $buf; - - if(!defined($hash->{Host_Port})) { return(""); } - - Log 5, "WEBCOUNT_GetStatus"; - my $name = $hash->{NAME}; - my $host = $hash->{Host}; - my $host_port = $hash->{Host_Port}; - my $text=''; - my $err_log=''; - - my $delay=$attr{$name}{delay}||300; - InternalTimer(gettimeofday()+$delay, "WEBCOUNT_GetStatus", $hash, 0); - - my $xml = new XML::Simple; - - my $URL="http://".$host."/counter?PW=&"; - my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 3); - my $header = HTTP::Request->new(GET => $URL); - my $request = HTTP::Request->new('GET', $URL, $header); - my $response = $agent->request($request); - - $err_log.= "Can't get $URL -- ".$response->status_line - unless $response->is_success; - - if($err_log ne "") - { - Log GetLogLevel($name,2), "WEBCOUNT ".$err_log; - return(""); - } - - my $body = $response->content; - - my @cur = split(";", $body); - - my $current=$cur[$host_port]; - - $text="Counter: ".$current; - my $sensor="counter"; - Log 4,"$name: $text"; - if (!$hash->{local}){ - $hash->{CHANGED}[0] = $text; - $hash->{READINGS}{$sensor}{TIME} = TimeNow(); - $hash->{READINGS}{$sensor}{VAL} = $current; - DoTrigger($name, undef) if($init_done); - } - $hash->{STATE} = $current; - return($text); -} - - -1; - - -=pod -=item device -=item summary Support for Wiesemann & Theis 57652 Web-Count 6x Digital -=item summary_DE Unterstützung für Wiesemann & Theis 57652 Web-Count 6x Digital - -=begin html - - -

WEBCOUNT

-
    - Note: this module needs the HTTP::Request and LWP::UserAgent perl modules. -

    - - Define -
      - define <name> WEBCOUNT <ip-address> <port> <delay> -

      - Defines an WEBCOUNT device (Box with 6 count pulses, www.wut.de) via ip address. The device is pooled (delay interval).

      - - - Examples: -
        - define pump WEBCOUNT 192.168.8.200 1 60
        -
      -
    -
    -
-=end html -=cut diff --git a/contrib/23_WEBTHERM.pm b/contrib/23_WEBTHERM.pm deleted file mode 100644 index 5b5c4af74..000000000 --- a/contrib/23_WEBTHERM.pm +++ /dev/null @@ -1,179 +0,0 @@ -# $Id: 23_WEBTHERM.pm 4793 2014-02-02 11:20:16Z betateilchen $ -################################################################ -# -# This module will connect a webbased thermometer -# to your fhem installation. -# -# Further informations about required hardware: -# http://www.wut.de/e-57w0w-ww-dade-000.php -# -# (c) 2010 Sacha Gloor (sacha@imp.ch) -# -# corrections & documentation added for fhem -# 2013-07-30 by betateilchen ® -# -# 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 main; - -use strict; -use warnings; -use Data::Dumper; -use LWP::UserAgent; -use HTTP::Request; - -sub -WEBTHERM_Initialize($) -{ - my ($hash) = @_; - - $hash->{DefFn} = "WEBTHERM_Define"; - $hash->{AttrList} = "loglevel:0,1,2,3,4,5,6"; -} - -sub -WEBTHERM_Define($$) -{ - my ($hash, $def) = @_; - my $name=$hash->{NAME}; - my @a = split("[ \t][ \t]*", $def); - - my $host = $a[2]; - my $host_port = $a[3]; - my $interval=$a[4]; - $attr{$name}{interval}=$interval if $interval; - - return "Usage: define WEBTHERM " if(int(@a) != 5); - - $hash->{Host} = $host; - $hash->{Host_Port} = $host_port; - - InternalTimer(gettimeofday()+$interval, "WEBTHERM_GetStatus", $hash, 0); - - return; -} - -sub -WEBTHERM_GetStatus($) -{ - my ($hash) = @_; - my $err_log=''; - my $line; - - my $name = $hash->{NAME}; - my $host = $hash->{Host}; - - my $interval=$attr{$name}{interval}||300; - InternalTimer(gettimeofday()+$interval, "WEBTHERM_GetStatus", $hash, 0); - - if(!defined($hash->{Host_Port})) { return(""); } - my $host_port = $hash->{Host_Port}; - -### 2013-07-30 corrected by betateilchen -# my $URL="http://".$host."/Single".$host_port; - my $URL="http://".$host.":".$host_port."/Single"; -### end-of-correction - my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 3); - my $header = HTTP::Request->new(GET => $URL); - my $request = HTTP::Request->new('GET', $URL, $header); - my $response = $agent->request($request); - - $err_log.= "Can't get $URL -- ".$response->status_line - unless $response->is_success; - - if($err_log ne "") - { - Log GetLogLevel($name,2), "WEBTHERM $name ".$err_log; - return; - } - - my $body = $response->content; - my $text=''; - - my @values=split(/;/,$body); - my $last=$values[$#values]; - my $state=$last; - $state=~s/,/./g; - $state=substr($state,0,-2); - - my $sensor="temperature"; - Log 4, "WEBTHERM_GetStatus: $name $host_port ".$hash->{STATE}." -> ".$state; - - $text="Temperature: ".$state; - $hash->{STATE} = "T: ".$state; - $hash->{CHANGED}[0] = $text; - - readingsSingleUpdate($name, $sensor, $state, 1); - return; -} - -1; - -=pod -not to be translated -=begin html - - -

WEBTHERM

-
    - This module connects a Web-Thermometer made by W&T to your FHEM installation.
    - Currently this module is no longer maintained, but it should work in its current state.
    - It is provided "as is" for backward compatibility.
    -
    - - Define -

      - define <name> WEBTHERM <ip-address> <port-nr> <interval>
      -
      - Defines a WEBTHERM device at given ip and port.
      - Values are polled periodically defined by given interval (in seconds).
      - Read temperature is written into reading "state".
      -
    -

    - - - Set -
      - N/A -
    -

    - - - Get -
      - N/A -
    -

    - - - Attr -
      - N/A -
    -
-=end html -=begin html_DE - - -

WEBTHERM

-
    -Sorry, keine deutsche Dokumentation vorhanden.

    -Die englische Doku gibt es hier: WEBTHERM
    -
-=end html_DE -=cut