diff --git a/FHEM/00_CUL.pm b/FHEM/00_CUL.pm index 82409e4c2..aebec8b6c 100755 --- a/FHEM/00_CUL.pm +++ b/FHEM/00_CUL.pm @@ -103,7 +103,7 @@ CUL_Initialize($) $hash->{SetFn} = "CUL_Set"; $hash->{AttrFn} = "CUL_Attr"; $hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " . - "showtime:1,0 model:CUL,CUN,CUR " . + "showtime:1,0 model:CUL,CUN " . "sendpool addvaltrigger rfmode:SlowRF,HomeMatic,MAX ". "hmId ". "hmProtocolEvents:0_off,1_dump,2_dumpFull,3_dumpTrigger "; @@ -203,17 +203,10 @@ sub CUL_Shutdown($) { my ($hash) = @_; - CUL_SimpleWrite($hash, "X00") if(!CUL_isCUR($hash)); + CUL_SimpleWrite($hash, "X00"); return undef; } -sub -CUL_isCUR($) -{ - my ($hash) = @_; - return ($hash->{VERSION} && $hash->{VERSION} =~ m/CUR/); -} - sub CUL_RemoveHMPair($) { @@ -317,47 +310,6 @@ GOTBW: CUL_SimpleWrite($hash, "W1F$v"); CUL_SimpleWrite($hash, $hash->{initString}); - } elsif($type eq "file") { ######################################## - - return "Only supported for CUR devices (see VERSION)" if(!CUL_isCUR($hash)); - - return "$name: Need 2 further arguments: source destination" - if(@a != 2); - my ($buf, $msg, $err); - return "$a[0]: $!" if(!open(FH, $a[0])); - $buf = join("", ); - close(FH); - - my $len = length($buf); - CUL_Clear($hash); - CUL_SimpleWrite($hash, "X00"); - - CUL_SimpleWrite($hash, sprintf("w%08X$a[1]", $len)); - ($err, $msg) = CUL_ReadAnswer($hash, $type, 1, undef); - goto WRITEEND if($err); - if($msg ne sprintf("%08X\r\n", $len)) { - $err = "Bogus length received: $msg"; - goto WRITEEND; - } - - my $off = 0; - while($off < $len) { - my $mlen = ($len-$off) > 32 ? 32 : ($len-$off); - CUL_SimpleWrite($hash, substr($buf,$off,$mlen), 1); - $off += $mlen; - } - -WRITEEND: - CUL_SimpleWrite($hash, $hash->{initString}); - return "$name: $err" if($err); - - } elsif($type eq "time") { ######################################## - - return "Only supported for CUR devices (see VERSION)" if(!CUL_isCUR($hash)); - my @a = localtime; - my $msg = sprintf("c%02d%02d%02d", $a[2],$a[1],$a[0]); - CUL_SimpleWrite($hash, $msg); - } else { ############################################### raw,led,patable return "Expecting a 0-padded hex number" @@ -407,68 +359,6 @@ CUL_Get($@) 4+4*($r{"1D"}&3) #Sens ); - } elsif($a[1] eq "file") { - - return "Only supported for CUR devices (see VERSION)" if(!CUL_isCUR($hash)); - - CUL_Clear($hash); - CUL_SimpleWrite($hash, "X00"); - - if(int(@a) == 2) { # No argument: List directory - - CUL_SimpleWrite($hash, "r."); - ($err, $msg) = CUL_ReadAnswer($hash, $a[1], 0, undef); - goto READEND if($err); - - $msg =~ s/[\r\n]//g; - my @a; - foreach my $f (split(" ", $msg)) { - my ($name, $size) = split("/", $f); - push @a, sprintf("%-14s %5d", $name, hex($size)); - } - $msg = join("\n", @a); - - } else { # Read specific file - - if(@a != 4) { - $err = "Need 2 further arguments: source [destination|-]"; - goto READEND; - } - - CUL_SimpleWrite($hash, "r$a[2]"); - ($err, $msg) = CUL_ReadAnswer($hash, $a[1], 0, undef); - goto READEND if($err); - - if($msg eq "X") { - $err = "$a[2]: file not found on CUL"; - goto READEND if($err); - } - $msg =~ s/[\r\n]//g; - my ($len, $buf) = (hex($msg), ""); - $msg = ""; - while(length($msg) != $len) { - ($err, $buf) = CUL_ReadAnswer($hash, $a[1], 1, undef); - goto READEND if($err); - $msg .= $buf; - } - - if($a[3] ne "-") { - if(!open(FH, ">$a[3]")) { - $err = "$a[3]: $!"; - goto READEND; - } - print FH $msg; - close(FH); - $msg = ""; - } - - } - -READEND: - CUL_SimpleWrite($hash, $hash->{initString}); - return "$name: $err" if($err); - return $msg; - } else { CUL_SimpleWrite($hash, $gets{$a[1]}[0] . $arg); @@ -540,13 +430,6 @@ CUL_DoInit($) $ver =~ s/[\r\n]//g; $hash->{VERSION} = $ver; - if($ver =~ m/CUR/) { - my @a = localtime; - my $msg = sprintf("c%02d%02d%02d%02d%02d%02d", - ($a[5]+1900)%100,$a[4]+1,$a[3],$a[2],$a[1],$a[0]); - CUL_SimpleWrite($hash, $msg); - } - # Cmd-String feststellen my $cmds = CUL_Get($hash, $name, "cmds", 0); @@ -1106,7 +989,7 @@ CUL_Attr(@)
- The CUL/CUR/CUN(O) is a family of RF devices sold by busware.de. With the opensource firmware @@ -1141,7 +1024,7 @@ CUL_Attr(@)
    define <name> CUL <device> <FHTID>

    - USB-connected devices (CUL/CUR/CUN):
      + USB-connected devices (CUL/CUN):
        <device> specifies the serial port to communicate with the CUL. The name of the serial-device depends on your distribution, under linux the cdc_acm kernel module is responsible, and usually a @@ -1278,7 +1161,7 @@ CUL_Attr(@)
      • do_not_notify
      • dummy
      • showtime
        • -
      • model (CUL,CUN,CUR)
        • +
      • model (CUL,CUN)
      • sendpool
        If using more than one CUL for covering a large area, sending different events by the different CUL's might disturb each other. This @@ -1343,7 +1226,7 @@ CUL_Attr(@)
        - Der CUL/CUR/CUN(O) ist eine Familie von Funkempfängern, die von der Firma + Der CUL/CUN(O) ist eine Familie von Funkempfängern, die von der Firma Busware verkauft wird. Mit der OpenSource Firmware @@ -1382,7 +1265,7 @@ CUL_Attr(@)
          define <name> CUL <device> <FHTID>

          - Geräte, die an USB angeschlossen sind (CUL/CUR/CUN):
          + Geräte, die an USB angeschlossen sind (CUL/CUN):
            <device> gibt die serielle Schnittstelle an, mit der der CUL kommuniziert. Der Name der seriellen Schnittstelle hängt von der @@ -1524,7 +1407,7 @@ CUL_Attr(@)
          • cmds
            - In abhägigkeit der installierten Firmware hat der CUL/CUR/CUN(O) + In abhägigkeit der installierten Firmware hat der CUL/CUN(O) unterschiedliche Befehlssätze. Nähere Informationen über die Befehle bzw. deren Interpretation siehe README Datei der verwendeten CUL Firmware. Siehe auch Anmerkungen beim raw Befehl. @@ -1541,7 +1424,7 @@ CUL_Attr(@)
          • do_not_notify
          • dummy
          • showtime
            • -
          • model (CUL,CUN,CUR)
            • +
          • model (CUL,CUN)
          • sendpool
            Wenn mehr als ein CUL verwendet wird, um einen größeren Bereich abzudecken, können diese sich gegenseitig