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

check raw paramters

Browse Source 
added discover command


git-svn-id: https://svn.fhem.de/fhem/trunk@3516 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2013-07-28 09:23:26 +00:00
parent 685adc2c2d
commit ca9672a9c7
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/FHEM/34_panStamp.pm
View File

@ -136,22 +136,23 @@ panStamp_Set($@)
{ {
my ($hash, @a) = @_; my ($hash, @a) = @_;
return "\"set panStamp\" needs at least one parameter" if(@a < 2);
my $name = shift @a; my $name = shift @a;
my $cmd = shift @a; my $cmd = shift @a;
my $arg = join("", @a); my $arg = join("", @a);
my $ll = GetLogLevel($name,3);
my $list = "raw"; my $list = "discover raw";
return $list if( $cmd eq '?' ); return $list if( $cmd eq '?' );
if($cmd eq "raw") { if($cmd eq "raw") {
return "Expecting a 0-padded hex number" return "\"set panStamp $cmd\" needs exactly one parameter" if(@_ != 4);
if((length($arg)&1) == 1 && $cmd ne "raw"); return "Expecting a even length hex number" if((length($arg)&1) == 1 || $arg !~ m/^[\dA-F]{12,}$/ );
Log $ll, "set $name $cmd $arg"; Log GetLogLevel($name,4), "set $name $cmd $arg";
panStamp_SimpleWrite($hash, $arg); panStamp_SimpleWrite($hash, $arg);
} elsif($cmd eq "discover") {
Log GetLogLevel($name,4), "set $name $cmd";
panStamp_SimpleWrite($hash, "00".$hash->{address}."0000010000" );
} else { } else {
return "Unknown argument $cmd, choose one of ".$list; return "Unknown argument $cmd, choose one of ".$list;
} }
@ -221,7 +222,7 @@ panStamp_DoInit($)
$hash->{syncword} = sprintf( "%04s", $val ); $hash->{syncword} = sprintf( "%04s", $val );
panStamp_SimpleWrite($hash, "ATCH=$hash->{channel}" ); panStamp_SimpleWrite($hash, "ATCH=$hash->{channel}" );
($err, $val) = panStamp_ReadAnswer($hash, "address", 0, undef); ($err, $val) = panStamp_ReadAnswer($hash, "channel", 0, undef);
return "$name: $err" if($err && ($err !~ m/Timeout/)); return "$name: $err" if($err && ($err !~ m/Timeout/));
panStamp_SimpleWrite($hash, "ATCH?" ); panStamp_SimpleWrite($hash, "ATCH?" );
@ -241,7 +242,7 @@ panStamp_DoInit($)
panStamp_SimpleWrite($hash, "ATO" ); panStamp_SimpleWrite($hash, "ATO" );
panStamp_ReadAnswer($hash, "data mode?", 0, undef); panStamp_ReadAnswer($hash, "data mode?", 0, undef);
panStamp_SimpleWrite($hash, "00010000010000" ); panStamp_SimpleWrite($hash, "00".$hash->{address}."0000010000" );
$hash->{STATE} = "Initialized"; $hash->{STATE} = "Initialized";
@ -347,7 +348,7 @@ panStamp_Write($$$)
my ($hash,$addr,$msg) = @_; my ($hash,$addr,$msg) = @_;
Log 5, "$hash->{NAME} sending $addr $msg"; Log 5, "$hash->{NAME} sending $addr $msg";
my $bstring = $addr.$hash->{"address"}.$msg; my $bstring = $addr.$hash->{address}.$msg;
panStamp_AddQueue($hash, $bstring); panStamp_AddQueue($hash, $bstring);
#panStamp_SimpleWrite($hash, $bstring); #panStamp_SimpleWrite($hash, $bstring);