#!/usr/bin/perl

$path='/var/spool/asterisk/monitor';
$mount='/mnt/nas/';

@Files = glob($path.'/*.wav');

foreach $File (@Files)
{
        if((-M $File)>0.0002)
        {
                if(($FileName)=($File=~/(.+)\-out.wav/))
                {
                        system("/usr/bin/sox -m $FileName-in.wav $FileName-out.wav $FileName.wav");
                        unlink "$FileName-in.wav";
                        unlink "$FileName-out.wav";
                }
                elsif(($FileName)=($File=~/(.+)\-in.wav/))
                {
                        system("/usr/bin/sox -m $FileName-in.wav $FileName-out.wav $FileName.wav");
                        unlink "$FileName-in.wav";
                        unlink "$FileName-out.wav";
                }
                else
                {
                        ($FileName) = ($File=~/(.+)\.wav/);
                }

                print "Creating $FileName.mp3\n";
                
system("/usr/bin/lame --cbr -b 32 --noreplaygain -q 2 \"$FileName.wav\" \"$FileName.mp3\" --quiet");

                if(-e "$FileName.mp3")
                {
print "Moving $FileName.mp3 to $mount\n";
system("mv ".$FileName.".mp3 ".$mount);
                        print "Deleting $FileName.wav\n";
                        unlink "$FileName.wav";
                }
        }
}