[Asterisk-Users] Syncronize Monitored Calls

[David Carr]

If I understand the script, your technique first calculates how much longer
OUT is than IN, then trims that amount off the beginning of OUT, then mixes
the files. We're using the older technique of mixing OUT and IN in reverse
(starting from the end). Do you feel this new technique is markedly better
than the old technique?

The reason I ask is that everyone assumes the start times of OUT and IN are
always different and the end times are always the same. However, I have
gotten such mixed sync results from the reverse technique that it leads me
to believe the end times are not always the same. If that is true then the
new technique couldn't be much better than the old one.

Thoughts?

  -----Original Message-----
  From: asterisk-users-admin at lists.digium.com
[mailto:asterisk-users-admin at lists.digium.com]On Behalf Of David Harris
  Sent: Monday, August 25, 2003 10:21 AM
  To: asterisk-users at lists.digium.com
  Subject: [Asterisk-Users] Syncronize Monitored Calls


  I thought I would post this in case it might be of any use to anyone.  Not
anything special but it does work.  Keep in mind you need sox and wmix.



  Here is some relevant exerpts of my extensions.conf using John Todds
macro.



  [globals]

  CALLFILENAME=foo

  FOO=foo

  CALLERIDNUM=foo



  [default]



  exten => 287,1,Macro(dial,SIP/agent20002|20)

  exten => 287,2,Voicemail(u287)

  exten => h,1,Macro(hangup)



  [macro-dial]



  exten => s,1,AGI(set-timestamp.agi)

  exten =>
s,2,SetVar(CALLFILENAME=${timestamp}-${CALLERIDNUM}-${MACRO_EXTEN})

  exten => s,3,Monitor(wav,${CALLFILENAME})

  exten => s,4,Dial(${ARG1},${ARG2},${ARG3})



  [macro-hangup]



  exten => s,1,SetVar(MONITORDIR=/var/spool/asterisk/monitor)

  exten => s,2,GotoIf($[${CALLFILENAME} = ${FOO}]?6:3)

  exten => s,3,System(/usr/local/bin/mix_monitor_files.pl ${MONITORDIR}
${CALLFILENAME}-in.wav ${CALLFILENAME}-out.wav ${CALLFILENAME}.wav)

  exten => s,6,NoOp





  Here is mix_monitor_files.pl.  sox and wmix must be in the path of your
perl script



  #!/usr/bin/perl



  $monitordir = shift;

  $infile = shift;

  $outfile = shift;

  $finishfile = shift;



  chdir($monitordir);





  $infile_output = `sox $infile -e stat 2>&1`;

  $outfile_output = `sox $outfile -e stat 2>&1`;



  $infile_output =~ /Samples read:\s+(\d+)/;

  $infile_samples = $1;



  $outfile_output =~ /Samples read:\s+(\d+)/;

  $outfile_samples = $1;





  if($outfile_samples > $infile_samples)

  {

          $diff_samples = $outfile_samples - $infile_samples;

          system("sox $outfile temp${outfile} trim  ${diff_samples}s");

          system("wmix $infile temp${outfile} > $finishfile");

          system("rm -f $infile temp${outfile} $outfile");

  }

  elsif($infile_samples > $outfile_samples)

  {

          $diff_samples = $infile_samples - $outfile_samples;

          system("sox $infile temp${infile} trim  ${diff_samples}s");

          system("wmix temp${infile} $outfile > $finishfile");

          system("rm -f temp${infile} $outfile $infile");

  }

  else

  {

          system("wmix $infile $outfile > $finishfile");

          system("rm -f $infile $outfile");

  }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.digium.com/pipermail/asterisk-users/attachments/20030825/787ea4e2/attachment.htm