kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-03-13 12:40:17 +00:00
Code Issues Projects Releases Wiki Activity

add chat app to perl

Browse Source
This commit is contained in:
Anthony Minessale 2011-10-19 08:25:06 -05:00
parent 0891702118
commit 18897f9e3d
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/mod/languages/mod_perl/mod_perl.c
View File

@ -234,6 +234,7 @@ struct perl_o {
switch_stream_handle_t *stream;
switch_core_session_t *session;
char *cmd;
switch_event_t *message;
int d;
};
@ -247,6 +248,7 @@ static void *SWITCH_THREAD_FUNC perl_thread_run(switch_thread_t *thread, void *o
char *cmd = po->cmd;
switch_stream_handle_t *stream = po->stream;
switch_core_session_t *session = po->session;
switch_event_t *message = po->message;
if (session) {
uuid = switch_core_session_get_uuid(session);
@ -271,6 +273,11 @@ static void *SWITCH_THREAD_FUNC perl_thread_run(switch_thread_t *thread, void *o
mod_perl_conjure_event(my_perl, stream->param_event, "env");
}
}
if (message) {
mod_perl_conjure_event(my_perl, message, "message");
}
//Perl_safe_eval(my_perl, cmd);
perl_parse_and_execute(my_perl, cmd, NULL);
}
@ -432,6 +439,27 @@ static switch_xml_t perl_fetch(const char *section,
return xml;
}
SWITCH_STANDARD_CHAT_APP(perl_chat_function)
{
struct perl_o po = { 0 };
if (zstr(data)) {
return SWITCH_STATUS_FALSE;
}
po.cmd = strdup(data);
po.stream = NULL;
po.session = NULL;
po.message = message;
perl_thread_run(NULL, &po);
return SWITCH_STATUS_SUCCESS;
}
static switch_status_t do_config(void)
{
char *cf = "perl.conf";