diff --git a/scripts/ZoneMinder/lib/ZoneMinder/ONVIF.pm.in b/scripts/ZoneMinder/lib/ZoneMinder/ONVIF.pm.in index 01536bf77..d90a5fea3 100644 --- a/scripts/ZoneMinder/lib/ZoneMinder/ONVIF.pm.in +++ b/scripts/ZoneMinder/lib/ZoneMinder/ONVIF.pm.in @@ -163,7 +163,7 @@ sub interpret_messages { # functions sub discover { - my ($soap_version, $net_interface) = @_; + my ($soap_versions, $net_interface) = @_; my @results; ## collect all responses @@ -178,7 +178,7 @@ sub discover { my $uuid_gen = Data::UUID->new(); - foreach my $version ( $soap_version ? ( $soap_version ) : ( '1.1', '1.2') ) { + foreach my $version ( $soap_versions ? ( split(',',$soap_versions) ) : ( '1.1', '1.2') ) { my %services; print "Probing for SOAP $version\n" if $verbose; diff --git a/scripts/zmonvif-probe.pl.in b/scripts/zmonvif-probe.pl.in index 3598dfcae..b9d3cd0bf 100644 --- a/scripts/zmonvif-probe.pl.in +++ b/scripts/zmonvif-probe.pl.in @@ -41,7 +41,7 @@ my $OPTIONS = 'v'; sub HELP_MESSAGE { my ($fh, $pkg, $ver, $opts) = @_; - print $fh "Usage: " . __FILE__ . " [-v] probe \n"; + print $fh "Usage: " . __FILE__ . " [-v] probe \n"; print $fh " " . __FILE__ . " [-v] \n"; print $fh <