update

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

scripts/socket/sock.pl

@@ -22,7 +22,7 @@ print "Call: $data->{'caller-channel-name'} $data->{'unique-id'}\n";
 $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 @@ while(my $r = $fs->readhash(undef)) {
     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");
   }