From: Josh Stompro <stomproj@larl.org>
Date: Mon, 5 Dec 2022 19:02:06 +0000 (-0600)
Subject: LP#1999065: update eg-pbx-mediator.pl to reflect RPC::XML::Server change
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b5967aeaf0361cef2a45b9ae089809aa040eb246;p=Evergreen.git

LP#1999065: update eg-pbx-mediator.pl to reflect RPC::XML::Server change

RPC::XML::Server switched from add_proc to add_procedure in version 0.75.

This patch fixes the following error:

eg-pbx-mediator.pl will not run and returns an error:
Can't locate object method "add_proc" via package "RPC::XML::Server::new:

Signed-off-by: Josh Stompro <stomproj@larl.org>
Signed-off-by: Galen Charlton <gmc@equinoxOLI.org>
---

diff --git a/Open-ILS/src/asterisk/pbx-daemon/eg-pbx-mediator.pl b/Open-ILS/src/asterisk/pbx-daemon/eg-pbx-mediator.pl
index 71b7397df5..741d0cdab8 100755
--- a/Open-ILS/src/asterisk/pbx-daemon/eg-pbx-mediator.pl
+++ b/Open-ILS/src/asterisk/pbx-daemon/eg-pbx-mediator.pl
@@ -362,23 +362,23 @@ sub main {
     #  ~ any other datatypes are for INCOMING args
     #
 
-    $server->add_proc({
+    $server->add_procedure({
         name => 'inject',   code => \&inject,   signature => ['struct string', 'struct string string', 'struct string string int']
     });
 
-    $server->add_proc({
+    $server->add_procedure({
         name => 'get_failures',
         code => \&get_failures,
         signature => ['array']
     });
 
-    $server->add_proc({
+    $server->add_procedure({
         name => 'ack_failures',
         code => \&ack_failures,
         signature => ['int array']
     });
 
-    $server->add_proc({
+    $server->add_procedure({
         name => 'set_holidays',
         code => \&set_holidays,
         signature => ['int array']