Author: anthm Date: Mon Jan 7 13:21:34 2008 New Revision: 7130 Modified: freeswitch/trunk/scripts/socket/sock.pl Log: update Modified: freeswitch/trunk/scripts/socket/sock.pl ============================================================================== --- freeswitch/trunk/scripts/socket/sock.pl (original) +++ freeswitch/trunk/scripts/socket/sock.pl Mon Jan 7 13:21:34 2008 @@ -22,7 +22,7 @@ $o = $fs->call_command("answer"); #to turn on events when in async mode $o = $fs->raw_command("myevents"); -$o = $fs->call_command("echo"); +$o = $fs->call_command("playback", "/ram/swimp.raw"); #comment exit in async mode @@ -37,8 +37,7 @@ print Dumper $r->{event}; } if ($r->{event}->{'event-name'} !~ /execute/i) { - printf "wtf $data->{'unique-id'}\n"; - print "."; + printf "uuid: $data->{'unique-id'}\n"; $o = $fs->call_command("break"); $o = $fs->call_command("hangup"); }