Preston_PLB/freeswitch
1
0
Fork 0
forked from Mirrors/freeswitch
Code Pull Requests Activity

doh

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8291 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale 2008-05-07 14:52:34 +00:00
parent 8da11c524e
commit c317b1936d
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -311,6 +311,12 @@ int perl_thread(const char *text)
}
SWITCH_STANDARD_API(perlrun_api_function) {
if (switch_strlen_zero(cmd)) {
stream->write_function(stream, "-ERR Missing args.\n");
return SWITCH_STATUS_SUCCESS;
}
perl_thread(cmd);
stream->write_function(stream, "+OK\n");
return SWITCH_STATUS_SUCCESS;
@ -319,6 +325,12 @@ SWITCH_STANDARD_API(perlrun_api_function) {
SWITCH_STANDARD_API(perl_api_function) {
struct perl_o po = { 0 };
if (switch_strlen_zero(cmd)) {
stream->write_function(stream, "-ERR Missing args.\n");
return SWITCH_STATUS_SUCCESS;
}
po.cmd = strdup(cmd);
po.stream = stream;
po.session = session;