show doc

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@2592 d0543943-73ff-0310-b7d9-9358b9ac24b2

src/mod/languages/mod_perl/fs_perl.pm

@@ -61,6 +61,7 @@ package fs_perl;
 *fs_channel_get_variable = *fs_perlc::fs_channel_get_variable;
 *fs_channel_set_state = *fs_perlc::fs_channel_set_state;
 *fs_ivr_play_file = *fs_perlc::fs_ivr_play_file;
+*fs_ivr_play_file2 = *fs_perlc::fs_ivr_play_file2;
 
 # ------- VARIABLE STUBS --------
 

src/mod/languages/mod_perl/switch_swig.c

@@ -55,9 +55,15 @@ int fs_console_loop(void)
 	return 0;
 }
 
-void fs_console_log(char *msg)
+void fs_console_log(char *level_str, char *msg)
 {
-	switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, msg);
+	switch_log_level_t level = SWITCH_LOG_DEBUG;
+
+	if (level_str) {
+		level = switch_log_str2level(level_str);
+	}
+	
+	switch_log_printf(SWITCH_CHANNEL_LOG, level, msg);
 }
 
 void fs_console_clean(char *msg)