mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

70_PylonLowVoltage: internal code changes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29097 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2024-08-23 21:29:22 +00:00
parent 6ea01ad493
commit affe1f4d37
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/70_PylonLowVoltage.pm
View File

@@ -873,7 +873,7 @@ sub _callSerialNumber {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrsnb{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrsnb{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'serialNumber' cmdtxt => 'serialNumber'
} }
); );
@@ -909,7 +909,7 @@ sub _callManufacturerInfo {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrmfi{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrmfi{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'manufacturerInfo' cmdtxt => 'manufacturerInfo'
} }
); );
@@ -951,7 +951,7 @@ sub _callProtocolVersion {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrprt{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrprt{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'protocolVersion' cmdtxt => 'protocolVersion'
} }
); );
@@ -986,7 +986,7 @@ sub _callSoftwareVersion {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrswv{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrswv{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'softwareVersion' cmdtxt => 'softwareVersion'
} }
); );
@@ -1022,7 +1022,7 @@ sub _callSystemParameters {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrspm{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrspm{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'systemParameters' cmdtxt => 'systemParameters'
} }
); );
@@ -1072,7 +1072,7 @@ sub _callAnalogValue {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrcmn{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrcmn{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'analogValue' cmdtxt => 'analogValue'
} }
); );
@@ -1192,7 +1192,7 @@ sub _callAlarmInfo {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hralm{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hralm{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'alarmInfo' cmdtxt => 'alarmInfo'
} }
); );
@@ -1295,7 +1295,7 @@ sub _callChargeManagmentInfo {
my $res = Request ({ hash => $hash, my $res = Request ({ hash => $hash,
socket => $socket, socket => $socket,
cmd => getCmdString ($hrcmi{$hash->{BATADDRESS}}{cmd}), cmd => getCmdString ($hash, $hrcmi{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'chargeManagmentInfo' cmdtxt => 'chargeManagmentInfo'
} }
); );
@@ -1517,6 +1517,7 @@ return $text;
# Teilstring aus Kommandohash wird übergeben # Teilstring aus Kommandohash wird übergeben
############################################################### ###############################################################
sub getCmdString { sub getCmdString {
my $hash = shift;
my $cstr = shift; # Komamndoteilstring my $cstr = shift; # Komamndoteilstring
my $cmd = $pfx.$cstr; my $cmd = $pfx.$cstr;