Module: kamailio Branch: master Commit: b12335579437d12a5de12aa415477a832d6224cd URL: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a83...
Author: Daniel-Constantin Mierla miconda@gmail.com Committer: Daniel-Constantin Mierla miconda@gmail.com Date: 2022-07-08T10:19:03+02:00
app_perl: log the perl function name when not found
---
Modified: src/modules/app_perl/perlfunc.c
---
Diff: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a83... Patch: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a83...
---
diff --git a/src/modules/app_perl/perlfunc.c b/src/modules/app_perl/perlfunc.c index 122ece95a9..1f67628169 100644 --- a/src/modules/app_perl/perlfunc.c +++ b/src/modules/app_perl/perlfunc.c @@ -100,7 +100,7 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) { dSP;
if (!perl_checkfnc(fnc)) { - LM_ERR("unknown perl function called.\n"); + LM_ERR("unknown perl function called [%s]\n", ZSW(fnc)); reason.s = "Internal error"; reason.len = sizeof("Internal error")-1; if (slb.freply(_msg, 500, &reason) == -1) @@ -109,7 +109,7 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) { } return -1; } - + switch ((_msg->first_line).type) { case SIP_REQUEST: if (parse_sip_msg_uri(_msg) < 0) {