From 08afb50efa3965196b5a6bbc5262635d378409bd Mon Sep 17 00:00:00 2001
From: Isaac Connor <isaac@zoneminder.com>
Date: Thu, 25 Jun 2020 16:04:50 -0400
Subject: [PATCH] debug, spacing, quotes

---
 .../NotificationProducerPort.pm               | 57 ++++++++-----------
 1 file changed, 23 insertions(+), 34 deletions(-)

diff --git a/onvif/proxy/lib/WSNotification/Interfaces/WSBaseNotificationSender/NotificationProducerPort.pm b/onvif/proxy/lib/WSNotification/Interfaces/WSBaseNotificationSender/NotificationProducerPort.pm
index ee55035ca..5a8f4d0b1 100644
--- a/onvif/proxy/lib/WSNotification/Interfaces/WSBaseNotificationSender/NotificationProducerPort.pm
+++ b/onvif/proxy/lib/WSNotification/Interfaces/WSBaseNotificationSender/NotificationProducerPort.pm
@@ -20,18 +20,16 @@ sub START {
 sub Subscribe {
     my ($self, $body, $header) = @_;
     die "Subscribe must be called as object method (\$self is <$self>)" if not blessed($self);
+#print " proxy/lib/WSNotification/Interfaces/WSBaseNotificationSender/NotificationProducerPort.pm Subscribe\n";
     return $self->SUPER::call({
         operation => 'Subscribe',
         soap_action => 'http://docs.oasis-open.org/wsn/bw-2/Subscribe',
         style => 'document',
         body => {
-            
-
-           'use'            => 'literal',
-            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            encodingStyle   => '',
-            parts           =>  [qw( WSNotification::Elements::Subscribe )],
-
+           use            => 'literal',
+					 namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+					 encodingStyle   => '',
+					 parts           =>  [qw( WSNotification::Elements::Subscribe )],
         },
         header => {
             
@@ -42,39 +40,30 @@ sub Subscribe {
     }, $body, $header);
 }
 
-
 sub GetCurrentMessage {
-    my ($self, $body, $header) = @_;
-    die "GetCurrentMessage must be called as object method (\$self is <$self>)" if not blessed($self);
-    return $self->SUPER::call({
-        operation => 'GetCurrentMessage',
-        soap_action => 'http://docs.oasis-open.org/wsn/bw-2/GetCurrentMessage',
-        style => 'document',
-        body => {
-            
+	my ($self, $body, $header) = @_;
+	die "GetCurrentMessage must be called as object method (\$self is <$self>)" if not blessed($self);
+	return $self->SUPER::call({
+			operation => 'GetCurrentMessage',
+			soap_action => 'http://docs.oasis-open.org/wsn/bw-2/GetCurrentMessage',
+			style => 'document',
+			body => {
+			use            => 'literal',
+			namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+			encodingStyle   => '',
+			parts           =>  [qw( WSNotification::Elements::GetCurrentMessage )],
 
-           'use'            => 'literal',
-            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            encodingStyle   => '',
-            parts           =>  [qw( WSNotification::Elements::GetCurrentMessage )],
+			},
+			header => {
 
-        },
-        header => {
-            
-        },
-        headerfault => {
-            
-        }
-    }, $body, $header);
+			},
+			headerfault => {
+
+			}
+			}, $body, $header);
 }
 
-
-
-
 1;
-
-
-
 __END__
 
 =pod