#!/usr/bin/perl -W
$|=1;
use Asterisk::AGI;
use DBI;
use strict;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $dbh = mysql_connection();
            my $sql2 = "UPDATE conference SET status='0' WHERE uid='$uid'";
            my $sth2 = $dbh->prepare($sql2);
            $sth2->execute or die "Unable to execute SQL query: $dbh->errstr\n";
$dbh->disconnect;
$AGI->hangup;
exit;

sub mysql_connection {
        my $dsn = "mysql:asterisk:localhost";
        my $username = 'asterisk';
        my $password = 'maxwell.asterisk';
        return DBI->connect("DBI:$dsn",$username,$password) or die $DBI::errstr;
}