From 6447de0c98a9c9036026dad06b5fc0ca703a76ad Mon Sep 17 00:00:00 2001
From: Daniel-Constantin Mierla <miconda@gmail.com>
Date: Fri, 30 Dec 2016 09:19:46 +0100
Subject: [PATCH] app_perl: removed mi command (was not enabled anyhow)

---
 src/modules/app_perl/Makefile       |  3 +-
 src/modules/app_perl/app_perl_mod.c | 53 +++--------------------------
 2 files changed, 5 insertions(+), 51 deletions(-)

diff --git a/src/modules/app_perl/Makefile b/src/modules/app_perl/Makefile
index eb23db5081e..6c1fb33b1b6 100644
--- a/src/modules/app_perl/Makefile
+++ b/src/modules/app_perl/Makefile
@@ -1,6 +1,6 @@
 # perl module makefile
 #
-# 
+#
 # WARNING: do not run this directly, it should be run by the master Makefile
 
 include ../../Makefile.defs
@@ -23,7 +23,6 @@ DEFS+=$(PERLCCOPTS)
 DEFS+=-DKAMAILIO_MOD_INTERFACE
 
 SERLIBPATH=../../lib
-SER_LIBS+=$(SERLIBPATH)/kmi/kmi
 
 PODFILES=kamailioxs.xs `find lib/perl -name *.pm`
 
diff --git a/src/modules/app_perl/app_perl_mod.c b/src/modules/app_perl/app_perl_mod.c
index c55f7be18ee..d7e1e5c8ede 100644
--- a/src/modules/app_perl/app_perl_mod.c
+++ b/src/modules/app_perl/app_perl_mod.c
@@ -1,6 +1,4 @@
 /*
- * $Id$
- *
  * Perl module for Kamailio
  *
  * Copyright (C) 2006 Collax GmbH
@@ -36,7 +34,6 @@
 #include "../../core/sr_module.h"
 #include "../../core/mem/mem.h"
 #include "../../core/mem/shm_mem.h"
-#include "../../lib/kmi/mi.h"
 #include "../../modules/rr/api.h"
 #include "../../modules/sl/sl.h"
 
@@ -97,13 +94,6 @@ extern char **environ;
 static int mod_init(void);
 
 
-/*
- * Reload perl interpreter - reload perl script. Forward declaration.
- */
-struct mi_root* perl_mi_reload(struct mi_root *cmd_tree, void *param);
-
-
-
 /*
  * Exported functions
  */
@@ -114,7 +104,7 @@ static cmd_export_t cmds[] = {
 	{ "perl_exec_simple", (cmd_function)perl_exec_simple2, 2,  NULL, 0,
 							     REQUEST_ROUTE | FAILURE_ROUTE
 							   | ONREPLY_ROUTE | BRANCH_ROUTE },
-	{ "perl_exec", (cmd_function)perl_exec1, 1,  NULL, 0, 
+	{ "perl_exec", (cmd_function)perl_exec1, 1,  NULL, 0,
 							     REQUEST_ROUTE | FAILURE_ROUTE
 							   | ONREPLY_ROUTE | BRANCH_ROUTE },
 	{ "perl_exec", (cmd_function)perl_exec2, 2, NULL, 0,
@@ -137,19 +127,6 @@ static param_export_t params[] = {
 };
 
 
-/*
- * Exported MI functions
- */
-static mi_export_t mi_cmds[] = {
-	/* FIXME This does not yet work... 
-	{ "perl_reload",  perl_mi_reload, MI_NO_INPUT_FLAG,  0,  0  },*/
-	{ 0, 0, 0, 0, 0}
-
-};
-
-
-
-
 /*
  * Module info
  */
@@ -168,12 +145,12 @@ static mi_export_t mi_cmds[] = {
  * Module interface
  */
 struct module_exports _app_perl_exports = {
-	"app_perl", 
+	"app_perl",
 	RTLD_NOW | RTLD_GLOBAL,
 	cmds,       /* Exported functions */
 	params,     /* Exported parameters */
 	0,          /* exported statistics */
-	mi_cmds,    /* exported MI functions */
+	0,          /* exported MI functions */
 	0,          /* exported pseudo-variables */
 	0,          /* extra processes */
 	mod_init,   /* module initialization function */
@@ -324,21 +301,6 @@ int perl_reload(void)
 }
 
 
-/*
- * Reinit through fifo.
- * Currently does not seem to work :((
- */
-struct mi_root* perl_mi_reload(struct mi_root *cmd_tree, void *param)
-{
-	if (perl_reload()<0) {
-		return init_mi_tree( 500, "Perl reload failed", 18);
-	} else {
-		return init_mi_tree( 200, MI_OK_S, MI_OK_LEN);
-	}
-
-}
-
-
 /*
  * mod_init
  * Called by kamailio at init time
@@ -351,14 +313,7 @@ static int mod_init(void) {
 	struct timeval t1;
 	struct timeval t2;
 
-	if(register_mi_mod(_app_perl_exports.name, mi_cmds)!=0)
-	{
-		LM_ERR("failed to register MI commands\n");
-		return -1;
-	}
-
-	if(ap_init_rpc()<0)
-	{
+	if(ap_init_rpc()<0) {
 		LM_ERR("failed to register RPC commands\n");
 		return -1;
 	}