kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-14 01:49:05 +00:00
Code Issues Projects Releases Wiki Activity

remove old code

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12860 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale
2009-03-31 23:56:47 +00:00
parent 0112970da8
commit 7cdc96e889
4 changed files with 0 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -429,24 +429,6 @@ static switch_xml_t perl_fetch(const char *section,
return xml;
}
static void message_query_handler(switch_event_t *event)
{
char *account = switch_event_get_header(event, "message-account");
if (account) {
char path[512], *cmd;
switch_snprintf(path, sizeof(path), "%s%smwi.pl", SWITCH_GLOBAL_dirs.script_dir, SWITCH_PATH_SEPARATOR);
if (switch_file_exists(path, NULL) == SWITCH_STATUS_SUCCESS) {
cmd = switch_mprintf("%s %s", path, account);
switch_assert(cmd != NULL);
perl_thread(cmd);
switch_safe_free(cmd);
}
}
}
static switch_status_t do_config(void)
{
char *cf = "perl.conf";
@@ -491,12 +473,6 @@ SWITCH_MODULE_LOAD_FUNCTION(mod_perl_load)
globals.pool = pool;
if (switch_event_bind_removable(modname, SWITCH_EVENT_MESSAGE_QUERY, SWITCH_EVENT_SUBCLASS_ANY, message_query_handler, NULL, &globals.node)
!= SWITCH_STATUS_SUCCESS) {
switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Couldn't bind!\n");
return SWITCH_STATUS_GENERR;
}
if (!(my_perl = perl_alloc())) {
switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Could not allocate perl interpreter\n");
return SWITCH_STATUS_MEMERR;