Yate call recorder script

record_all_calls.pl

#!/usr/bin/perl
use strict;
use warnings;
use Yate;
use Data::Dumper;

# Convert results into stereo wav:
#  sox -M /tmp/rec_2015-05-20T17\:09\:44_no-billid_6134-[AB].au /tmp/rec_2015-05-20T17:09:44_no-billid_6134.wav

my $yate = new Yate(Debug=>0);
$yate->connect("127.0.0.1:42428");
$yate->install('call.answered', \&call_answered_handler, 70);
$yate->listen();

sub call_answered_handler
{
  my $m = shift;
  my $billid = $m->param('billid') // 'no-billid';
  my $date = mk_date();
  my $fn = sprintf("/tmp/rec_%s_%s_%04d", $date, $billid, int(rand(10000)));
  my $ext = 'au';
  print "Recording call: $fn\n";
  $m->message('chan.masquerade', undef, '',
    message => "chan.record",
    id => $m->param('id'),
    peer => "wave/record/$fn-A.$ext",
    call => "wave/record/$fn-B.$ext",
  );
  open F, '>:utf8', "$fn.txt" or warn "Can't open $fn.txt: $!\n";
  print F Dumper($m->{params});
  close F or warn "Can't write to $fn.txt: $!\n";

  $date =~ s/_.*//;
  my $script = "/tmp/convert_$date.sh";
  my $first = !-e $script;
  open F, '>>:utf8', $script or warn "Can't open $script: $!\n";
  print F "#!/bin/sh\n" if $first;
  print F "sox -M $fn-[AB].au $fn.wav && rm $fn-[AB].au\n";
  close F;
  return undef;
}

sub mk_date
{
  my $time = shift;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time // time());
  return sprintf "%04d-%02d-%02d_%02d%02d%02d", $year + 1900, $mon + 1, $mday,$hour,$min,$sec;
}

Hi

Will you please help me the procedure to implement this file on Yate whereas am currently using Yate 6.0. And as i think this script record both leg of call and convert into single wav file if am not wrong. Connect with 42428 is failed on Yate 6.0.

Is it possible to update this script to latest version.

And also have doubt as whether if caller made multiple person conference then it would record every channel as well.?

tell me please, how can i run .pl file ?

As now I tried to use Yate and I need call recording so can you please let me know procedure to implement above script?

Thanks in advance!!!