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

Adding VDAD support.

Browse Source 
Also fixed some issues with db orm.


git-svn-id: svn://192.168.202.10@301 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
jaywhy
2006-09-26 23:56:10 +00:00
parent d95dea6c1a
commit d4845f2e43
3 changed files with 184 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/branches/agc_30/lib/Astguiclient.pm
+8 -1
View File
@@ -29,7 +29,14 @@ sub new {
# Setup accessors;
$self->config( Astguiclient::Config->new() );
$self->dbi( Astguiclient::DBI->connect( $self->config ) );
my $f = $self->config->file();
my $dsn = "DBI:mysql:datbase=$f->{'Database'}{'DB_name'};host=$f->{'Database'}{'Host'};port=$f->{'Database'}{'Port'}";
$self->dbi (
Astguiclient::DB->connect( $dsn, $f->{'Database'}{'User'}, $f->{'Database'}{'Password'} )
);
return $self;
}
=head2 load
agc_2-X/branches/agc_30/lib/Astguiclient/Campaign.pm
+3 -3
View File
@@ -59,14 +59,14 @@ sub find {
if( defined $args{id} ) {
$args{id} = Astguiclient->dbi->quote( $args{id} );
$sql = "SELECT * FROM vicidial_campaigns WHERE id = $args{id}";
} elsif( $type eq 'all' ) {
$sql = "SELECT * FROM vicidial_campaigns";
} elsif( $type eq 'active_agents' ) {
$sql =
"SELECT * FROM vicidial_campaigns
ON vicidial_campaigns.id = vicidial_live_agents.campaign_id
WHERE vicidial_live_agents.status IN ( $ACTIVE_AGENTS )";
}
} else {
$sql = "SELECT * FROM vicidial_campaigns";
}
my $sth = Astguiclient->dbi->prepare( $sql );
$sth->execute();
agc_2-X/branches/agc_30/lib/Astguiclient/VDAD.pm
+173
View File
@@ -0,0 +1,173 @@
package Astguiclient::VDAD;
use strict;
use base qw/Astguiclient Class::Accessor::Fast/;
__PACKAGE__->mk_accessor(qw//);
=head1 NAME
Astguiclient::VDAD - .
=head1 DESCRIPTION
Give description here
=head2 new
=cut
sub new {
my $class = shift;
return bless {}, $class;
}
=head2
=cut
sub call_log {
my $self = shift;
my $dbh = $self->dbi;
if( $self->agi->{'extension'} =~ /h/i ) {
$dbh->do("UPDATE call_log SET end_time = NOW() WHERE uniqueid = ?", undef, $unique_id);
$dbh->do("DELETE FROM live_inbound WHERE uniqueid = ? AND server_ip = ?", undef, $unique_id, $self->file->{'server_ip'});
#NOTE: Not sure of the logic here.
#"UPDATE park_log set status='HUNGUP',hangup_time='$now_date',parked_sec='$parked_sec',talked_sec='$talked_sec' where uniqueid='$unique_id' and server_ip='$VARserver_ip'";
#"SELECT UNIX_TIMESTAMP(parked_time),UNIX_TIMESTAMP(grab_time) FROM park_log where uniqueid='$unique_id' and server_ip='$VARserver_ip' LIMIT 1;";
} else {
$dbh->do("INSERT INTO call_log
(uniqueid,channel,channel_group,type,server_ip,extension,
number_dialed,start_time,end_time,caller_code)
VALUES(?,?,?,?,?,?,?,?,'',?)",
undef,
$unique_id,$channel,$channel_group,$type,$VARserver_ip,
$extension,$number_dialed,$now_date,$now_date_epoch,$callerid
);
}
}
=head2 vdad_transfer
Runs when a call comes in from the VICIDIAL_auto_dialer. This script will
Send the calls out to the reps that are logged in.
0 Channel is down and available
1 Channel is down, but reserved
2 Channel is off hook
3 Digits (or equivalent) have been dialed
4 Line is ringing
5 Remote end is ringing
6 Line is up
7 Line is busy
=cut
#NOTE: This function isn't nearly complete.
# Is the campaign() basically a singleton?
# Where else is this log functionality?
# Is there other transfer or voicemail calls?
# Where should this campaign method be put?
# Write the campaign first..
sub vdad_transfer {
my $self = shift;
my %campaign = $self->campaign($campaign_id);
# When a call is answered, this timer begins.
my $drop_start_timer;
# Time for the start of the loop
my $start_time = [gettimeofday]
# Amount of time you should wait for answer before hanging up(how many rings essentially)
my $call_wait_time = '30'
TRANSFER: while( tv_interval( $start_time, [gettimeofday] ) > $call_wait_time ) {
my $status = $self->agi->check_status();
# Line is down or busy.
if( ( $status < 3 ) ||
( $status == 7 ) ) {
$self->_log_call( $status );
last;
} elsif( $status == 6 ) { # Line is answered
$start_timer = [gettimeofday];
}
$self->_transfer_to_agent();
if( tv_interval( $start_timer, [gettimeofday] ) {
$self->_send_to_voicemail();
last;
}
}
$self->_log_call( $call_status );
}
sub _log_call {
my($self, $call_status) = @_;
if( lc($call_status) eq 'drop' ) {
$self->dbh->do("DELETE FROM vicidial_auto_calls where callerid = ?", undef, $callerid);
}
$self->dbh->do("UPDATE vicidial_log set status = ?,end_time = NOW() WHERE uniqueid = ?", undef, $status, $unique_id);
$self->dbh->do("UPDATE vicidial_list set status='DROP' where lead_id = '$CIDlead_id'");
}
sub _send_to_voicemail {
my $self = shift;
$self->agi->set_context( $ext_context );
$self->agi->set_extension( $drop_exten );
}
sub _transfer_to_agent {
my $self = shift;
my($conf_exten, $user, $extension) = $self->dbi->selectrow_arary("
SELECT conf_exten,extension FROM vicidial_live_agents
WHERE status = 'QUEUE' and server_ip = ? and campaign_id = ? and callerid = ? and channel= ?
ORDER BY last_call_time limit 1",
undef,
#XXX
);
$self->agi->set_context( $ext_context );
$self->agi->set_extension( $drop_exten );
$dbh->do("UPDATE vicidial_auto_calls set status='XFER' WHERE callerid = ?", undef, $callerid);
}
=head1 AUTHOR
Jason Yates <jaywhy@gmail.com>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006 Matt Florell <vicidial@gmail.com>
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
=cut
1;