#!/usr/bin/perl
use Asterisk::AGI;
use strict;

my $AGI = new Asterisk::AGI;
my @account;
my $line;
my %input = $AGI->ReadParse();
my $pass_file = $AGI->get_variable('FILE');
my $pass = $AGI->get_variable('PASSWORD');

$AGI->send_text("Password is $pass");
$input{extension} =~s/^(\*1)?//;

open(FILE,$pass_file) or die "Can't open file $pass_file";

while ($line = <FILE>) {
if ($line =~m/^(;)*(\d){3,4}(\s)*(=){1}(>)?(\s)*(\w)+/i) {
$line =~s/(\s)*(=){1}(>)?(\s)*/,/;
chop $line;
@account = split(/,/,$line,5);
if ($account[1] eq $pass) {
$AGI->send_text("Found extension $account[0] -- $input{extension}");
my $act = 0;
if ($account[0] =~m/^(;)+/) {
$account[0] =~s/^(;)+//;
$act = 1;
}
if (($input{extension} eq "") || ($input{extension} eq $account[0])) {
$AGI->send_text("Trying to put to the DB");
$input{channel} =~s/(-){1}(\w){8}$//;
$AGI->database_put("MOBILITY/".$account[0],"dev",$input{channel});
if ($act eq "0") { $AGI->database_put("MOBILITY/".$account[0],"status","active"); }
else { $AGI->database_put("MOBILITY/".$account[0],"status","blocked"); }
$AGI->database_put("MOBILITY/".$account[0],"name","\"".$account[2]."\"");
}
}
}
}
close FILE;