[asterisk-users] Attatch monitor recording to a voicemail

[Ben Willcox]

Jared Smith wrote:

> No, unfortunately this was done under NDA, but the general gist goes like this:

As it happens, I deployed my solution to this on our live PBX today, which I
wrote with some help from another asterisk-users user. Here is what I
came up with:

Firstly, in features.conf I don't use the normal automon function in the
featuremap, but an applicationmap:

[applicationmap]
recordtovm =>*1,self,Macro,recordtovm


Then in extensions.conf we have the following additions:

[globals]
DYNAMIC_FEATURES=>recordtovm

[macro-recordtovm]
exten => s,1,Set(MONITOR_FILENAME=${STRFTIME(${EPOCH},,%Y%m%d-%H%M%S)}-${CALLERID(num)})
exten => s,n,Set(DYNAMIC_FEATURES=recordtovm)
exten => s,n,MixMonitor(${MONITOR_FILENAME}.wav,b,/etc/asterisk/recordtovm.pl ${CALLERID(num)} ${MONITOR_FILENAME}.wav)

And finally the perl script recordtovm.pl in /etc/asterisk/ is as follows:

#!/usr/bin/perl -w
#
use strict;

my $monitordir="/var/spool/asterisk/monitor/";
my $vmdir="/var/spool/asterisk/voicemail/default/";
my $vmfolder="INBOX";
my $vmbox=$ARGV[0];
my $vmpath=$vmdir."$vmbox/"."$vmfolder";
my $monitorfilename=$ARGV[1];

opendir (DIR, $vmpath);
my @files = grep(/\.txt$/,readdir(DIR));
closedir(DIR);
my @sortedfiles = sort {$b cmp $a} @files;
my $vmid;
if ($sortedfiles[0] =~ /^(msg)(\d\d\d\d)(.txt)/)
{
	$vmid=$2;
	$vmid++;
}
else
{
	$vmid="0000";
};

open VMFILE,"> $vmpath/msg$vmid.txt";
print VMFILE ";\n";
print VMFILE "; Message Information file\n";
print VMFILE ";\n";
print VMFILE "[message]\n";
print VMFILE "origmailbox=$vmbox\n";
print VMFILE "context=\n";
print VMFILE "macrocontext=\n";
print VMFILE "exten=s\n";
print VMFILE "priority=\n";
print VMFILE "callerchan=\n";
print VMFILE "callerid=\n";
print VMFILE "origdate=\n";
print VMFILE "origtime=\n";
print VMFILE "category=\n";
print VMFILE "duration=\n";
close VMFILE;

if ($ARGV[1])
{
	system("mv $monitordir"."$monitorfilename $vmpath/msg$vmid.wav");
};


Seems to work pretty well, we have the Record button on our SNOM phones mapped to DTMF *1,
so its a single press to start recording. The perl script doesn't populate the origdate and
origtime fields at the moment so you'll need to add this if you want the time and date saving
with the message.

Hope this helps,

Ben