TT#98650 ?suppress_flush=1 parameter

suppress executing "ul.flush" kamailio xmlrpc after
"ul.add" or "ul.rm", as it seems to be another source of timeouts.

Change-Id: I8faf907c4cbfd6adbe3e3645f5c32069df2eb999
(cherry picked from commit 186ddabb17)

lib/NGCP/Panel/Controller/API/SubscriberRegistrations.pm

@@ -154,11 +154,15 @@ sub POST :Allow {
         last unless $txn_ok;
 
         $item = $self->fetch_item($c, $resource, $form, $item);
-        last unless $item;
 
+        if ($item) {
             $c->response->status(HTTP_CREATED);
             $c->response->header(Location => sprintf('/%s%s', $c->request->path, $item->id));
             $c->response->body(q());
+        } else {
+            $c->response->status(HTTP_CREATED);
+            $c->response->body(q());
+        }
     }
     return;
 }

lib/NGCP/Panel/Controller/API/SubscriberRegistrationsItem.pm

@@ -96,8 +96,8 @@ sub PATCH :Allow {
         last unless $txn_ok;
 
         $item = $self->fetch_item($c, $resource, $form, $item);
-        last unless $item;
 
+        if ($item) {
             if ('minimal' eq $preference) {
                 $c->response->status(HTTP_NO_CONTENT);
                 $c->response->header(Preference_Applied => 'return=minimal');
@@ -113,6 +113,10 @@ sub PATCH :Allow {
                 $c->response->header(Location => sprintf('%s%s', $self->dispatch_path, $item->id));
                 $c->response->body($response->content);
             }
+        } else {
+            $c->response->status(HTTP_NO_CONTENT);
+            $c->response->body(q());            
+        }
     }
 
     return;
@@ -152,8 +156,8 @@ sub PUT :Allow {
         last unless $txn_ok;
 
         $item = $self->fetch_item($c, $resource, $form, $item);
-        last unless $item;
 
+        if ($item) {
             if ('minimal' eq $preference) {
                 $c->response->status(HTTP_NO_CONTENT);
                 $c->response->header(Preference_Applied => 'return=minimal');
@@ -169,6 +173,10 @@ sub PUT :Allow {
                 $c->response->header(Location => sprintf('%s%s', $self->dispatch_path, $item->id));
                 $c->response->body($response->content);
             }
+        } else {
+            $c->response->status(HTTP_NO_CONTENT);
+            $c->response->body(q());            
+        }
     }
 
     return;
@@ -195,7 +203,7 @@ sub delete_item {
     return unless($sub);
     NGCP::Panel::Utils::Kamailio::delete_location_contact($c,
         $sub, $item->contact);
-    NGCP::Panel::Utils::Kamailio::flush($c);
+    NGCP::Panel::Utils::Kamailio::flush($c) unless $self->suppress_flush($c);
     return 1;
 }
 

lib/NGCP/Panel/Role/API/SubscriberRegistrations.pm

@@ -229,7 +229,7 @@ sub update_item {
         $sub->provisioning_voip_subscriber,
         $values
     );
-    NGCP::Panel::Utils::Kamailio::flush($c);
+    NGCP::Panel::Utils::Kamailio::flush($c) unless $self->suppress_flush($c);
 
     return $item;
 }
@@ -270,6 +270,19 @@ sub fetch_item {
     return $item;
 }
 
+sub suppress_flush {
+    
+    my ($self, $c) = @_;
+    my $suppress_flush = $c->req->param('suppress_flush');
+    if (length($suppress_flush)
+        and ('1' eq $suppress_flush
+        or 'true' eq lc($suppress_flush))) {
+        return 1;
+    }
+    return 0;
+    
+}
+
 sub valid_id {
     my ($self, $id) = @_;
     if (defined $id && length $id > 0) {