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

ControlPoint: Namespace konfigurierbar gemacht

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18187 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Reinerlein
2019-01-08 22:01:47 +00:00
parent 120f1c435b
commit cd07a5d7c0
1 changed files with 36 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
fhem/FHEM/lib/UPnP/ControlPoint.pm
View File

@@ -52,6 +52,7 @@ our @IGNOREIP;
our @USEDONLYIP;
our $LogLevel;
our $EnvPrefix;
our $EnvNamespace;
sub isIgnoreIP($) {
my($ip) = @_;
@@ -104,6 +105,7 @@ sub new {
@USEDONLYIP = @{$args{UsedOnlyIP}};
$LogLevel = $args{LogLevel} || 0;
$EnvPrefix = $args{EnvPrefix} || $SOAP::Constants::PREFIX_ENV;
$EnvNamespace = $args{EnvNamespace} || 'u';
my $reuseport = $args{ReusePort};
$reuseport = 0 if (!defined($reuseport));
@@ -710,15 +712,26 @@ sub queryStateVariable {
my $result;
if ($SOAP::Lite::VERSION >= 0.67) {
$result = SOAP::Lite
->envprefix($EnvPrefix)
->ns("u")
->uri('urn:schemas-upnp-org:control-1-0')
->proxy($self->controlURL)
->call('QueryStateVariable' =>
SOAP::Data->name('varName')
->uri('urn:schemas-upnp-org:control-1-0')
->value($name));
if ($EnvNamespace eq '<undef>') {
$result = SOAP::Lite
->envprefix($EnvPrefix)
->uri('urn:schemas-upnp-org:control-1-0')
->proxy($self->controlURL)
->call('QueryStateVariable' =>
SOAP::Data->name('varName')
->uri('urn:schemas-upnp-org:control-1-0')
->value($name));
} else {
$result = SOAP::Lite
->envprefix($EnvPrefix)
->ns($EnvNamespace)
->uri('urn:schemas-upnp-org:control-1-0')
->proxy($self->controlURL)
->call('QueryStateVariable' =>
SOAP::Data->name('varName')
->uri('urn:schemas-upnp-org:control-1-0')
->value($name));
}
} else {
$result = SOAP::Lite
->envprefix($EnvPrefix)
@@ -882,10 +895,20 @@ sub new {
my($class, $service) = @_;
if ($SOAP::Lite::VERSION >= 0.67) {
return bless {
_service => $service,
_proxy => SOAP::Lite->envprefix($EnvPrefix)->ns("u")->uri($service->serviceType)->proxy($service->controlURL),
}, $class;
if ($EnvNamespace eq '<undef>') {
return bless {
_service => $service,
_proxy => SOAP::Lite->envprefix($EnvPrefix)
->uri($service->serviceType)->proxy($service->controlURL),
}, $class;
} else {
return bless {
_service => $service,
_proxy => SOAP::Lite->envprefix($EnvPrefix)
->ns($EnvNamespace)
->uri($service->serviceType)->proxy($service->controlURL),
}, $class;
}
} else {
return bless {
_service => $service,