#!/usr/bin/perl
         # Here Module's are define
         use DBI;
                                                         # For database Connectivity
         my $DSN = q/dbi:ODBC:SQLSERVER/;
         my $uid = q/ivr/;
         my $pwd = q/ivr/;
         
        
         my $DRIVER = "Freetds";
         my $dbh = DBI->connect($DSN,$uid,$pwd) or die "Coudn't

#!/usr/bin/perl

use DBI;

use Data::Dumper;
use Asterisk::AGI;

my $agi = new Asterisk::AGI;

$account_number  ='89746123#';
$call_number ='1234524';
$service_id  =6;

my $DSN = q/dbi:ODBC:SQLSERVER/;
my $uid = q/ivr/;
my $pwd = q/ivr/;

my $DRIVER = "Freetds";
my $dbh = DBI->connect($DSN,$uid,$pwd) or die "Coudn't

@pri_status=`asterisk -rx "dahdi show status" |cut -c40-47`;

$n=$#pri_status;

for($i=1;$i<=$n;$i++)
{
        if ("$pri_status[$i]" eq "RED")
        {

foreach $file (@change_dir)
{
        if (-d $file)
                {
                 $file_dir = "/var/spool/asterisk/voicemail/default/$file/INBOX";