Skip to content

Instantly share code, notes, and snippets.

Created June 30, 2015 10:10
Show Gist options
  • Save vir/b1a868ef1d4aa5239064 to your computer and use it in GitHub Desktop.
Save vir/b1a868ef1d4aa5239064 to your computer and use it in GitHub Desktop.
Yate call recorder script
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->install('call.answered', \&call_answered_handler, 70);
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_$";
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;
Copy link


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.?

Copy link

DamDat commented Jul 31, 2018

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

Copy link

sfitsp commented Jul 29, 2019

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!!!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment