FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 09:55:38 +00:00
Code Issues 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:
nasseeder1 2024-08-23 21:29:22 +00:00
parent 8d4d713ea3
commit a380dc4127
1 changed files with 9 additions and 8 deletions
Show Stats 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,
socket => $socket,
cmd => getCmdString ($hrsnb{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrsnb{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'serialNumber'
}
);
@ -909,7 +909,7 @@ sub _callManufacturerInfo {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hrmfi{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrmfi{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'manufacturerInfo'
}
);
@ -951,7 +951,7 @@ sub _callProtocolVersion {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hrprt{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrprt{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'protocolVersion'
}
);
@ -986,7 +986,7 @@ sub _callSoftwareVersion {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hrswv{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrswv{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'softwareVersion'
}
);
@ -1022,7 +1022,7 @@ sub _callSystemParameters {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hrspm{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrspm{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'systemParameters'
}
);
@ -1072,7 +1072,7 @@ sub _callAnalogValue {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hrcmn{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrcmn{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'analogValue'
}
);
@ -1192,7 +1192,7 @@ sub _callAlarmInfo {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hralm{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hralm{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'alarmInfo'
}
);
@ -1295,7 +1295,7 @@ sub _callChargeManagmentInfo {
my $res = Request ({ hash => $hash,
socket => $socket,
cmd => getCmdString ($hrcmi{$hash->{BATADDRESS}}{cmd}),
cmd => getCmdString ($hash, $hrcmi{$hash->{BATADDRESS}}{cmd}),
cmdtxt => 'chargeManagmentInfo'
}
);
@ -1517,6 +1517,7 @@ return $text;
# Teilstring aus Kommandohash wird übergeben
###############################################################
sub getCmdString {
my $hash = shift;
my $cstr = shift; # Komamndoteilstring
my $cmd = $pfx.$cstr;