ViciDial/ViciDialSVN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

release 1.1.12

Browse Source 
git-svn-id: svn://192.168.202.10@10 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2006-07-07 15:30:10 +00:00
parent 8d319a6c2c
commit 398654d3d0
91 changed files with 4346 additions and 542 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_1-X/trunk/call_logCID.agi
+29 -22
View File
@@ -18,6 +18,10 @@
#
# Copyright (C) 2006 Matt Florell <vicidial@gmail.com> LICENSE: GPLv2
#
# changes
#
# 60622-0957 - Altered log for Zap client phones for consistent output
#
$V = 0; # set to 1 for verbose mode
$M = 1; # set to 1 for 2 line messages mode
@@ -151,31 +155,40 @@ else {$stage = 'START';}
### call start stage
if ($stage =~ /START/)
{
use Net::MySQL;
if (!$DB_port) {$DB_port='3306';}
my $dbh = Net::MySQL->new(hostname=>"$DB_server", database=>"$DB_database", user=>"$DB_user", password=>"$DB_pass", port => "$DB_port") or die "Couldn't connect to database: $DB_server - $DB_database\n";
if ($V) {print STDERR "\nCALL STARTED\n";}
if ($M) {print STDERR "+++++ CALL LOG START : |$unique_id|$channel|$extension|$type|$callerid|$now_date\n";}
$is_client_phone = 0;
if ($channel =~ /^SIP/) {$channel =~ s/-.*//gi;}
if ($channel =~ /^IAX2/) {$channel =~ s/\/\d+$//gi;}
if ($channel =~ /^Zap\//)
{
$channel_line = $channel;
$channel_line =~ s/^Zap\/|-\d$//gi;
if ($V) {print STDERR "|$channel_line|";}
### you will need to customize this to your configuration in terms of how you want the Zap lines described
if ($channel_line <= 72)
$channel_line =~ s/^Zap\///gi;
$dbh->query("SELECT count(*) FROM phones where server_ip='$server_ip' and extension='$channel_line' and protocol='Zap';");
if ($dbh->has_selected_record) {
$iter=$dbh->create_record_iterator;
while ( $record = $iter->each) {
$is_client_phone = "$record->[0]";
if ($V) {print STDERR "$is_client_phone|$channel_line|\n";}
}
}
if ($is_client_phone < 1)
{
$channel_group = 'Inbound Local T1-1';
$number_dialed = $callerid;
}
if ( ($channel_line >= 73) && ($channel_line <= 96) )
{
$channel_group = 'Inbound 800 T1-2';
$channel_group = 'Zap Trunk Line';
$number_dialed = $callerid;
}
}
### This section breaks the outbound dialed number down(or builds it up) to a 10 digit number and gives it a description
if ($channel =~ /^SIP|^IAX2/)
if ( ($channel =~ /^SIP|^IAX2/) or ($is_client_phone > 0) )
{
if ( ($extension =~ /^901144/) && (length($extension)==16) ) #test 207 608 6400
{$extension =~ s/^9//gi; $channel_group = 'Outbound Intl UK';}
@@ -189,27 +202,21 @@ if ($stage =~ /START/)
{$extension =~ s/^9//gi; $channel_group = 'Outbound Local';}
if ( ($extension =~ /^91/) && (length($extension)==12) )
{$extension =~ s/^91//gi; $channel_group = 'Outbound Long Distance';}
if ($is_client_phone > 0)
{$channel_group = 'Zap Client Phone';}
$SIP_ext = $channel; $SIP_ext =~ s/SIP\/|IAX2\///gi;
$SIP_ext = $channel; $SIP_ext =~ s/SIP\/|IAX2\/|Zap\///gi;
$number_dialed = $extension;
$extension = $SIP_ext;
}
use Net::MySQL;
if (!$DB_port) {$DB_port='3306';}
my $mysql = Net::MySQL->new(hostname=>"$DB_server", database=>"$DB_database", user=>"$DB_user", password=>"$DB_pass", port => "$DB_port") or die "Couldn't connect to database: $DB_server - $DB_database\n";
$stmtA = "INSERT INTO call_log (uniqueid,channel,channel_group,type,server_ip,extension,number_dialed,start_time,start_epoch,end_time,end_epoch,length_in_sec,length_in_min,caller_code) values('$unique_id','$channel','$channel_group','$type','$server_ip','$extension','$number_dialed','$now_date','$now_date_epoch','','','','','$calleridname')";
if ($V) {print STDERR "\n|$stmtA|\n";}
$mysql->query($stmtA) or die "Couldn't execute query:\n";
$dbh->query($stmtA) or die "Couldn't execute query:\n";
$mysql->close;
$dbh->close;
}