dimas:

Что вы имели в виду каку-то другую ситуацию

$AGI->exec($app, $options)

Executes AGI Command "EXEC $app "$options""

The most powerful AGI command. Executes the given application passing the given options.

Example: $AGI->exec('Dial', 'Zap/g2/8005551212');

Returns: -2 on failure to find application, or whatever the given application returns

т.е. иногда данные заменяются на новые, иногда остаются прежними(или после работы скрипта снова переписываются * ??).

что значит "прежними"? Что конкретно там лежит?? "AGI","..." ?

Я правильно понимаю что вы эти данные потом в пост-процессинге/биллинге где-то используете? То есть берете из базы CDR и для чего-то там используете?
Если это ради этого все делается то имхо это крайне неправильный способ - не нужно бороться с астериском пытаясь положить какие-то свои особые значения в служебные по большому счету поля. Что вам мешает custom-поля в CDR использовать?

#!/usr/bin/perl

use strict;
use Asterisk::AGI;
use DBI;
sub Debug (@);

$SIG{HUP} = "IGNORE";

my $gate = 1; # gateways.id

my $loc_rate = "0.00";
my $fix_rate = "0.00";
my $mob_rate = "2.00";

# данные для соединения с базой
my $host_name = "192.168.100.11";
my $db_name = "aster";

my $login = "blabla";
my $passw = "blabla";

my $AGI = new Asterisk::AGI;
my %var = $AGI->ReadParse();

# читаем нужные переменные
my $clid = $var{callerid};
my $user_id = $AGI->get_variable("user_id");
my $call_id = $AGI->get_variable("CDR(uniqueid)");
my $billsec = $AGI->get_variable("ANSWEREDTIME");

my $call_type = $AGI->get_variable("call_type");
my $call_num = $AGI->get_variable("call_num");

my $dial_status = $AGI->get_variable("DIALSTATUS");
my $hangup_cause = $AGI->get_variable("HANGUPCAUSE");

Debug "Line hang up, clid: $clid, user_id: $user_id, billsec: $billsec, call_id: $call_id";
Debug "DIALSTATUS: $dial_status, HANGUPCAUSE: $hangup_cause";

if ( $dial_status eq "CANCEL" ) {
Debug "Call was canceled by caller";
exit;
}

# смотрим DIALSTATUS
unless ( $dial_status =~ /^answer/i ) {
Debug "Unsuccessful call, exiting";

$AGI->exec('NoOp', "ERR Dial status: $dial_status, $hangup_cause");
exit;
}

# парсим clid
unless ( $clid =~ /^(\d+)(\d)(\d{4})$/ ) {
Debug "Clid $clid has wrong format";

$AGI->exec('NoOp', "ERR clid wrong format: $clid");
exit;
}

my $customer_id = $1;
my $group = $2;
my $short = $3;

# сверяем customer_id и user_id
unless ( $customer_id == $user_id ) {
Debug "User_id $user_id is not equal customer_id $customer_id";

$AGI->exec('NoOp', "ERR different user ids: $user_id, $customer_id");
exit;
}

my $dbh = db_connect();

# проверка существования номера
my $clid_exists = $dbh->selectrow_array(qq/SELECT COUNT(*) FROM al_clids
WHERE clid = ? AND customer_id = ?/, undef, $group.$short, $customer_id);

unless ($clid_exists) {
Debug "Clid $clid is not found at al_clids";

$AGI->exec('NoOp', "ERR Clid not found: $clid");
exit;
}

my $fee;

if ($call_type eq 'local') { #звонок внутри сети
$fee = sprintf "%.4f", $billsec * $loc_rate / 60;

Debug "Local call, rate: $loc_rate, fee: $fee";
}
elsif ($call_type eq 'fix') { # городской
$fee = sprintf "%.4f", $billsec * $fix_rate / 60;

Debug "Fix call, rate: $fix_rate, fee: $fee";
}
elsif ($call_type eq 'mob') { # мобильный
$fee = sprintf "%.4f", $billsec * $mob_rate / 60;

Debug "Mobile call, rate: $mob_rate, fee: $fee";
}
elsif ($call_type eq 'native' or 'foreign') { # МГМН
my $cnum = $call_num; $cnum =~ s/^810// or $cnum =~ s/^8/7/;
my($pref, $desc, $rate) = search_route($dbh, $cnum, $gate);

if (defined $pref) {
$fee = sprintf "%.4f", $billsec * $rate / 60;

Debug "Longdist call, rate: $rate, fee: $fee, gate: $gate, prefix: $pref";
} else {
Debug "Cant find route for num $call_num";

$AGI->exec('NoOp', "ERR No route to num: $call_num");
exit;
}
}
else { # неизвестный звонок
Debug "Unknown or undefined call type $call_type";

$AGI->exec('NoOp', "ERR Unknown call type: $call_type");
exit;
}

$dbh->do(qq/UPDATE customers SET balance = balance - $fee
WHERE id = ?/, undef, $user_id) if $fee > 0;

$dbh->disconnect;

# прописываем в CDR
$AGI->set_variable('CDR(userfield)' => $fee);
$AGI->exec('NoOp', "OK $call_type:$call_num");


sub search_route {
my($dbh, $num, $gate) = @_;

my $sth = $dbh->prepare(qq/SELECT prefix, description, rate2 FROM routs
WHERE prefix = ? AND gateway_id = ?/);

do {
my $rc = $sth->execute($num, $gate);
return $sth->fetchrow_array if $rc + 0;
chop $num;
}
while (length $num);

return;
}

sub Debug(@) {
my $string = shift;
my $level = shift || 3;

$AGI->verbose(">>>> $string\n", $level);
}

sub db_connect {
my $dsn = "DBI:mysql:host=$host_name;database=$db_name";

return DBI->connect($dsn, $login, $passw,
{PrintError => 0, RaiseError => 1});
}

$AGI->exec('NoOp', "OK $call_type:$call_num"); 

$AGI->set_variable('CDR(accountcode)' => "OK $call_type:$call_num");