[AsteriskBrasil] Script para gravar ligações em mp3(a quem interessar)

[Beethoven]

A quem interessar...

Dae  pessoal, seguinte, tive problemas em gravar as ligações do asterisk durante o dia, pois estava utilizando
toda cpu da maquina, entaum montei esse script q roda de madrugada, lista tudo e transforma pra mp3.

*Necessita ter o sox instalado na maquina
*no exemplo ta coletando as gravacoes do diretorio monitor

abraço

---------------------------------------------------------------------------------------------------
extensions.conf


exten => _.,1,Answer
exten => _.,2,Set(HORIGEM=${CALLERID})
exten => _.,3,Set(CALLFILENAME=${DNID}/${TIMESTAMP}__.${HORIGEM}.__)
exten => _.,4,Monitor(wav,/monitor/${CALLFILENAME},m)


 -------------------------------------------------------------------------------------------------
#!/usr/bin/perl
@lista = `find *.wav /monitor/*|grep in.wav`;

foreach $linha_1(@lista){
chomp $linha_1;
$linha_1 =~ s/ /\\ /g;
$linha_1 =~ s/\"/\\"/g;
$linha_1 =~ s/\</\\</g;
$linha_1 =~ s/\>/\\>/g;

$linha_1_tmp = $linha_1;
$linha_1_tmp =~ s/\.wav$/-tmp\.wav/;

$linha_2 = $linha_1;
$linha_2 =~ s/in\.wav$/out\.wav/;
$linha_2_tmp = $linha_2;
$linha_2_tmp =~ s/\.wav$/-tmp\.wav/;

$linha_final = $linha_1;
$linha_final =~ s/-in\.wav$/\.mp3/;
`/usr/local/bin/sox $linha_1 -c 2 $linha_1_tmp pan -1`;
`/usr/local/bin/sox $linha_2 -c 2 $linha_2_tmp pan 1`;
`soxmix $linha_1_tmp $linha_2_tmp $linha_final`;
`rm -f $linha_1_tmp`;
`rm -f $linha_1`;
`rm -f $linha_2_tmp`;
`rm -f $linha_2`;
                        }
--------------------------------------------------------------------------------------------------
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://listas.asteriskbrasil.org/pipermail/asteriskbrasil/attachments/20070622/fe8d8467/attachment.html