mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-02-24 02:18:57 +00:00
12 lines
232 B
Perl
12 lines
232 B
Perl
|
package fs_perl;
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
sub wazzup() {
|
||
|
|
fs_console_log("WOOHOO!\n");
|
||
|
|
$session = fs_core_session_locate($SWITCH_ENV{UUID});
|
||
|
|
fs_channel_answer($session);
|
||
|
|
fs_ivr_play_file($session, "/root/siriusraw.raw", "");
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|