|
| #--- warte auf Transponder-ID von irgendeinem Lesemodul
|
| $getXpID->Call($FromAdr, $terminalType, $state, $XpCount, $XpIDs, $ZusatzInfo);
|
| $XpID1 = substr($XpIDs, 0, 8);
|
| ($XpID)= unpack( 'H*', $XpID1 );
|
| $Msg= $RELAIS1_EIN if ($XpID eq "000000000073bbad"); #--- Transponder-1
|
| $Msg= $RELAIS2_EIN if ($XpID eq "0000000000826593"); #--- Transponder-2
|
| $SendMsg->Call(chr(ord($FromAdr)), substr($FromAdr,1), 'O', $Msg, chr(1)) or die "Fehler\n";
|
| last if ($XpID eq "000000000073bc50"); #--- beende mit Transponder-3
|
|
|