FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 20:06:18 +00:00
Code Issues Releases Wiki Activity

Changed comments

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1840 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-09-12 13:52:08 +00:00
parent a6914fc9de
commit f7013d862a
5 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fhem/FHEM/00_CUL.pm
View File

@ -933,7 +933,8 @@ CUL_SimpleWrite(@)
syswrite($hash->{TCPDev}, $msg) if($hash->{TCPDev}); syswrite($hash->{TCPDev}, $msg) if($hash->{TCPDev});
syswrite($hash->{DIODev}, $msg) if($hash->{DIODev}); syswrite($hash->{DIODev}, $msg) if($hash->{DIODev});
select(undef, undef, undef, 0.001); # Some linux installations are broken with 0.001, T01 returns no answer
select(undef, undef, undef, 0.01);
} }
sub sub

3
fhem/FHEM/00_ZWDongle.pm
View File

@ -1,10 +1,10 @@
############################################## ##############################################
# $Id: 00_ZWDongle.pm 1721 2012-07-11 14:48:24Z rudolfkoenig $ # $Id: 00_ZWDongle.pm 1721 2012-07-11 14:48:24Z rudolfkoenig $
# TODO: # TODO:
# - routing commands
# - one command to create a fhem device for all nodeList entries # - one command to create a fhem device for all nodeList entries
# - inclusion mode active only for a given time (pairForSec) # - inclusion mode active only for a given time (pairForSec)
# - use central readings functions # - use central readings functions
# - add usbscan
package main; package main;
use strict; use strict;
@ -406,7 +406,6 @@ ZWDongle_Read($@)
my $ll5 = GetLogLevel($name,5); my $ll5 = GetLogLevel($name,5);
$buf = unpack('H*', $buf); $buf = unpack('H*', $buf);
# The dongle looses data over USB for some commands(?), and dropping the old # The dongle looses data over USB for some commands(?), and dropping the old
# buffer after a timeout is my only idea of solving this problem. # buffer after a timeout is my only idea of solving this problem.
my $ts = gettimeofday(); my $ts = gettimeofday();

2
fhem/FHEM/10_ZWave.pm
View File

@ -1,12 +1,14 @@
############################################## ##############################################
# See ZWDongle.pm for inspiration # See ZWDongle.pm for inspiration
# TODO # TODO
# - versioned commands
# - use central readings functions # - use central readings functions
# - Generate MISSING ACK # - Generate MISSING ACK
# - implement (global?) on-for-timer # - implement (global?) on-for-timer
# - better autocreate integration # - better autocreate integration
# - get support in FHEMWEB # - get support in FHEMWEB
# - class meter: get # - class meter: get
# - class SWITCH_ALL
package main; package main;
use strict; use strict;

1
fhem/FHEM/95_PachLog.pm
View File

@ -73,6 +73,7 @@ sub PachLog_Define($@)
my($package, $filename, $line, $subroutine) = caller(3); my($package, $filename, $line, $subroutine) = caller(3);
# Log 0 , "PachLog_Define => $package: $filename LINE: $line SUB: $subroutine \n"; # Log 0 , "PachLog_Define => $package: $filename LINE: $line SUB: $subroutine \n";
Log 5, Dumper(@_) . "\n"; Log 5, Dumper(@_) . "\n";
Log 1, "Got: ". join(",", @a);
return "Unknown argument count " . int(@a) . " , usage set <name> dataset value or set <name> delete dataset" if(int(@a) != 1); return "Unknown argument count " . int(@a) . " , usage set <name> dataset value or set <name> delete dataset" if(int(@a) != 1);
return undef; return undef;

10
fhem/FHEM/99_XmlList.pm
View File

@ -45,13 +45,19 @@ CommandXmlList($$)
my ($cl, $param) = @_; my ($cl, $param) = @_;
my $str = "<FHZINFO>\n"; my $str = "<FHZINFO>\n";
my $lt = ""; my $lt = "";
my %filter;
if($param) {
my @arr = devspec2array($param);
map { $filter{$_} = 1 } @arr;
}
delete($modules{""}) if(defined($modules{""})); # ???
delete($modules{""}) if(defined($modules{""}));
for my $d (sort { my $x = $modules{$defs{$a}{TYPE}}{ORDER}.$defs{$a}{TYPE} cmp for my $d (sort { my $x = $modules{$defs{$a}{TYPE}}{ORDER}.$defs{$a}{TYPE} cmp
$modules{$defs{$b}{TYPE}}{ORDER}.$defs{$b}{TYPE}; $modules{$defs{$b}{TYPE}}{ORDER}.$defs{$b}{TYPE};
$x = ($a cmp $b) if($x == 0); $x; } keys %defs) { $x = ($a cmp $b) if($x == 0); $x; } keys %defs) {
next if(IsIgnored($d)); next if(IsIgnored($d) || (%filter && !$filter{$d}));
my $p = $defs{$d}; my $p = $defs{$d};
my $t = $p->{TYPE}; my $t = $p->{TYPE};
if($t ne $lt) { if($t ne $lt) {