Agent Only Beep

Discussions about new features or changes in existing features

Moderators: gerski, enjay, williamconley, Op3r, Staydog, gardo, mflorell, MJCoate, mcargile, Kumba, Michael_N

Agent Only Beep

Postby mav2287 » Mon Aug 25, 2014 9:32 pm

About 9 months ago I hired someone to write code that would make the bloop only audible to the agent and not the lead. I got the code back from them but it only seems to work some times. The way they did it is with an AIG that adds a line to the vicidial_manager resulting in a sound being played via chanspy to the rep. The only problem is randomly it will get the channel wrong. For example sometimes it attaches to the prospects/leads channel. In this case the prospect/lead can here the beep but not the agent.

They are supposed to test it and get back to me, but it keeps getting pushed back so I thought I would release the code here and see if anyone has any ideas. I have been pouring over this code for a few weeks now and I just can't seem to crack why it seemly randomly attaches to the wrong channel. I have ran it in AIG debug mode and it appears that everything is working perfect then I see chanspy attach to the wrong channel. Anyone have any ideas on what could be causing this? My plan is to get it fixed and submit it to the SVN for others to use once it has been thoroughly tested.

Code: Select all
#!/usr/bin/perl
#
$script = 'agi-AgentOnlyBeep.agi';
#
# This script is to use ChanSpy to beep the agent without beeping the prospect
#
# This script goes into /var/lib/asterisk/agi-bin
# Remember to "chmod +x" the file (it must be executable just like all the other files in the folder!)
#
# Place this at the end of extensions.conf (or as a "custom dialplan entry", but be aware that older versions of vicidial do not allow contexts in this field)
# [agent-only-beep]
# exten => s,1,Answer()
# exten => s,n,NoOp(${AGENT_BEEP_CHANNEL})
# exten => s,n,ChanSpy(${AGENT_BEEP_CHANNEL},wq)
#
# Modify this section of extensions.conf by adding "q" in front of "F" for "qF" and the extra agi lines and renumbering of the priorities:
# ; VICIDIAL conferences
# exten => _86000[5-9]X,1,AGI(agi-AgentOnlyBeep.agi)
# exten => _86000[5-9]X,n,Meetme(${EXTEN},qF)
# exten => _86000[5-9]X,n,Hangup()
# exten => _8600[1-2]XX,1,AGI(agi-AgentOnlyBeep.agi)
# exten => _8600[1-2]XX,n,Meetme(${EXTEN},qF)
# exten => _8600[1-2]XX,n,Hangup()


$AGILOG = '0';
$mel=1;               # Mysql Error Log enabled = 1
$mysql_log_count=108;
$one_mysql_log=0;

$at='@';
$US='_';

# get date/time
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = ($year + 1900);
$Tyear = ($year - 2000);
$mon++;
if ($mon < 10)   {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10)   {$min = "0$min";}
if ($sec < 10)   {$sec = "0$sec";}

$now_date_epoch = time();
$now_date = "$year-$mon-$mday $hour:$min:$sec";
$CLInow_date = "$year-$mon-$mday\\ $hour:$min:$sec";
$start_time_epoch = $now_date_epoch;
$start_time=$now_date;
$YMD = "$year-$mon-$mday";
$CIDdate = "$mon$mday$hour$min$sec";
$tsSQLdate = "$year$mon$mday$hour$min$sec";
$filedate = "$US$year-$mon-$mday$US$hour$min$sec";
$recdate = "$year$mon$mday-$hour$min$sec";
$tinydate = "$Tyear$mon$mday$hour$min$sec";
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
$SQLdateBEGIN = $SQLdate;

$BDtarget = ($now_date_epoch - 5);
($Bsec,$Bmin,$Bhour,$Bmday,$Bmon,$Byear,$Bwday,$Byday,$Bisdst) = localtime($BDtarget);
$Byear = ($Byear + 1900);
$Bmon++;
if ($Bmon < 10) {$Bmon = "0$Bmon";}
if ($Bmday < 10) {$Bmday = "0$Bmday";}
if ($Bhour < 10) {$Bhour = "0$Bhour";}
if ($Bmin < 10) {$Bmin = "0$Bmin";}
if ($Bsec < 10) {$Bsec = "0$Bsec";}
$BDtsSQLdate = "$Byear$Bmon$Bmday$Bhour$Bmin$Bsec";

$FDtarget = ($now_date_epoch + 120);
($Fsec,$Fmin,$Fhour,$Fmday,$Fmon,$Fyear,$Fwday,$Fyday,$Fisdst) = localtime($FDtarget);
$Fyear = ($Fyear + 1900);
$Fmon++;
if ($Fmon < 10) {$Fmon = "0$Fmon";}
if ($Fmday < 10) {$Fmday = "0$Fmday";}
if ($Fhour < 10) {$Fhour = "0$Fhour";}
if ($Fmin < 10) {$Fmin = "0$Fmin";}
if ($Fsec < 10) {$Fsec = "0$Fsec";}
$FDtsSQLdate = "$Fyear$Fmon$Fmday$Fhour$Fmin$Fsec";


# default path to astguiclient configuration file:
$PATHconf =      '/etc/astguiclient.conf';

open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
$i=0;
foreach(@conf)
   {
   $line = $conf[$i];
   $line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
   if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
      {$PATHhome = $line;   $PATHhome =~ s/.*=//gi;}
   if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
      {$PATHlogs = $line;   $PATHlogs =~ s/.*=//gi;}
   if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
      {$PATHagi = $line;   $PATHagi =~ s/.*=//gi;}
   if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
      {$PATHweb = $line;   $PATHweb =~ s/.*=//gi;}
   if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
      {$PATHsounds = $line;   $PATHsounds =~ s/.*=//gi;}
   if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
      {$PATHmonitor = $line;   $PATHmonitor =~ s/.*=//gi;}
   if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
      {$VARserver_ip = $line;   $VARserver_ip =~ s/.*=//gi;}
   if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
      {$VARDB_server = $line;   $VARDB_server =~ s/.*=//gi;}
   if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
      {$VARDB_database = $line;   $VARDB_database =~ s/.*=//gi;}
   if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
      {$VARDB_user = $line;   $VARDB_user =~ s/.*=//gi;}
   if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
      {$VARDB_pass = $line;   $VARDB_pass =~ s/.*=//gi;}
   if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
      {$VARDB_port = $line;   $VARDB_port =~ s/.*=//gi;}
   $i++;
   }

if (!$VARDB_port)   {$VARDB_port='3306';}
if (!$AGILOGfile)   {$AGILOGfile = "$PATHlogs/agiout.$year-$mon-$mday";}
if (!$PRSLOGfile)   {$PRSLOGfile = "$PATHlogs/prsout.$year-$mon-$mday";}
if (!$PRSTESTfile)   {$PRSTESTfile = "$PATHlogs/prstest.$year-$mon-$mday";}
if (!$ERRLOGfile)   {$ERRLOGfile = "$PATHlogs/MySQLerror.$year-$mon-$mday";}
if (!$CEPLOGfile)   {$CEPLOGfile = "$PATHlogs/Cepstral.$year-$mon-$mday";}

use DBI;
use Asterisk::AGI;
$AGI = new Asterisk::AGI;

$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
    or die "Couldn't connect to database: " . DBI->errstr;

### Grab Server values from the database
$stmtA = "SELECT voicemail_dump_exten,ext_context,answer_transfer_agent,local_gmt,asterisk_version,max_vicidial_trunks,agi_output FROM servers where server_ip = '$VARserver_ip';";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
   $dbhP=$dbhA;   $mysql_count='01001';   $MEL_aff_rows=$sthArows;   &mysql_error_logging;
 $rec_count=0;
while ($sthArows > $rec_count)
   {
   @aryA = $sthA->fetchrow_array;
   $DBvoicemail_dump_exten   =   $aryA[0];
   $DBext_context =         $aryA[1];
   $DBanswer_transfer_agent =   $aryA[2];
   $DBSERVER_GMT =            $aryA[3];
   $asterisk_version =         $aryA[4];
   $DBmax_vicidial_trunks =   $aryA[5];
   $DBagi_output =            $aryA[6];
   if ($DBvoicemail_dump_exten)   {$voicemail_dump_exten = $DBvoicemail_dump_exten;}
   if ($DBext_context)            {$ext_context = $DBext_context;}
   if ($DBanswer_transfer_agent)   {$answer_transfer_agent = $DBanswer_transfer_agent;}
   if ($DBSERVER_GMT)            {$SERVER_GMT = $DBSERVER_GMT;}
   if ($asterisk_version)         {$AST_ver = $asterisk_version;}
   if ($DBmax_vicidial_trunks)      {$max_vicidial_trunks = $DBmax_vicidial_trunks;}
   if ($DBagi_output =~ /STDERR/)   {$AGILOG = '1';}
   if ($DBagi_output =~ /FILE/)   {$AGILOG = '2';}
   if ($DBagi_output =~ /BOTH/)   {$AGILOG = '3';}
   $rec_count++;
   }
$sthA->finish();


$|=1;
while(<STDIN>)
   {
   chomp;
   last unless length($_);
   if ($AGILOG)
      {
      if (/^agi_(\w+)\:\s+(.*)$/)
         {
         $AGI{$1} = $2;
         }
      }
   if (/^agi_extension\:\s+(.*)$/)      {$extension = $1;}

   }
   if ($AGILOG) {$agi_string = "$unique_id|$channel|$extension|";   &agi_output;}
#################################################################################
### Get AGENT channel from conference
$stmtA = "select extension,uniqueid from vicidial_live_agents where conf_exten='$extension' and server_ip='$VARserver_ip' limit 1;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
   $dbhP=$dbhA;   $mysql_count='01001';   $MEL_aff_rows=$sthArows;   &mysql_error_logging;
if ($sthArows > 0)
   {
   @aryA = $sthA->fetchrow_array;
   $agent_channel   =   $aryA[0];
   $uniqueid   =   $aryA[1];
   }
$sthA->finish();
print "SET VARIABLE AGENT_BEEP_CHANNEL '$agent_channel'";
### Let there be Beep!
if(length($uniqueid)>5)
    {
    $stmtA = "INSERT INTO `vicidial_manager` (`uniqueid`, `entry_date`, `status`, `response`, `server_ip`, `channel`, `action`, `callerid`, `cmd_line_b`, `cmd_line_c`, `cmd_line_d`, `cmd_line_e`, `cmd_line_f`, `cmd_line_g`, `cmd_line_h`, `cmd_line_i`, `cmd_line_j`, `cmd_line_k`) VALUES ('', now(), 'NEW', 'N', '$VARserver_ip', '', 'Originate', '', NULL, NULL, 'Channel: Local/s\@agent-only-beep', 'Application: Playback', 'Data: beep', NULL, '', '', '', '');";
    if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
    $affected_rows = $dbhA->do($stmtA);
    $dbhA->disconnect();
    }
else
    {
    $stmtA = "INSERT INTO `vicidial_manager` (`uniqueid`, `entry_date`, `status`, `response`, `server_ip`, `channel`, `action`, `callerid`, `cmd_line_b`, `cmd_line_c`, `cmd_line_d`, `cmd_line_e`, `cmd_line_f`, `cmd_line_g`, `cmd_line_h`, `cmd_line_i`, `cmd_line_j`, `cmd_line_k`) VALUES ('', now(), 'NEW', 'N', '$VARserver_ip', '', 'Originate', '', NULL, NULL, 'Channel: Local/s\@agent-only-beep', 'Application: Playback', 'Data: conf-onlyperson', NULL, '', '', '', '');";
    if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
    $affected_rows = $dbhA->do($stmtA);
    $dbhA->disconnect();
    }
exit;

sub agi_output
   {
   if ($AGILOG >=2)
      {
      ### open the log file for writing ###
      open(Lout, ">>$AGILOGfile")
            || die "Can't open $AGILOGfile: $!\n";
      print Lout "$now_date|$script|$agi_string\n";
      close(Lout);
      }
      ### send to STDERR writing ###
   if ( ($AGILOG == '1') || ($AGILOG == '3') )
      {print STDERR "$now_date|$script|$agi_string\n";}
   $agi_string='';
   }

sub mysql_error_logging
   {
   $errno='';
   $error='';
   if ( ($mel > 0) || ($one_mysql_log > 0) )
      {
      $errno = $dbhP->err();
      if ( ($errno > 0) || ($mel > 1) || ($one_mysql_log > 0) )
         {
         $error = $dbhP->errstr();
         ### open the log file for writing ###
         open(Eout, ">>$ERRLOGfile")
               || die "Can't open $ERRLOGfile: $!\n";
         print Eout "$now_date|$script|$mysql_count|$MEL_aff_rows|$errno|$error|$stmtA|$callerid|$CIDlead_id|\n";
         close(Eout);
         }
      }
   $one_mysql_log=0;
   }
ViciBox5.x86_64-5.0.3.preload from .iso upgraded to 13.1 | VERSION: 2.10-444c BUILD: 150129-0828 | 1.8.32.2-vici | Dual Server | No Digium/Sangoma Hardware | No Extra Software After Installation | Intel twin quad core 3Ghz Xeon chips | 32gb of RAM
mav2287
 
Posts: 256
Joined: Thu Oct 03, 2013 6:47 pm

Re: Agent Only Beep

Postby mflorell » Tue Aug 26, 2014 12:15 pm

There are a lot of problems with this approach, which is obviously why it isn't working consistently. About the only way to get this kind of feature working in a reliable way would be to build it in as an app_meetme option upon a channel joining a session. Even this would require quite a bit of code changes in both Asterisk and Vicidial, but it would be reliable and it would work. I believe we've quoted this as a project to about a half-dozen clients over the years, and nobody wanted to pay for it.
mflorell
Site Admin
 
Posts: 18335
Joined: Wed Jun 07, 2006 2:45 pm
Location: Florida

Re: Agent Only Beep

Postby mav2287 » Tue Aug 26, 2014 12:21 pm

Now knowing that what would it cost to go down that road? The other question I have would be is there a way to make this work consistently or is it just not going to work consistently period?
ViciBox5.x86_64-5.0.3.preload from .iso upgraded to 13.1 | VERSION: 2.10-444c BUILD: 150129-0828 | 1.8.32.2-vici | Dual Server | No Digium/Sangoma Hardware | No Extra Software After Installation | Intel twin quad core 3Ghz Xeon chips | 32gb of RAM
mav2287
 
Posts: 256
Joined: Thu Oct 03, 2013 6:47 pm

Re: Agent Only Beep

Postby mflorell » Tue Aug 26, 2014 1:06 pm

I've looked into it several times, and going the route your consultant went I can't see any way to make it work consistently 100% of the time.

As for what it would cost for us to make the changes to allow for this, We've quoted 80 hours to completely integrate this option into Vicidial including the Asterisk source code changes. That would be around $14,400.00 USD. And it would take us at least 2 months to complete and test it.
mflorell
Site Admin
 
Posts: 18335
Joined: Wed Jun 07, 2006 2:45 pm
Location: Florida

Re: Agent Only Beep

Postby mav2287 » Tue Aug 26, 2014 1:56 pm

:shock: WOW way more than I would have thought. I can say I definitely don't have the budget for that, but it makes sense considering the changes involved.

As for the AIG I any idea why chanspy seems to get confused and attach the wrong channel?
ViciBox5.x86_64-5.0.3.preload from .iso upgraded to 13.1 | VERSION: 2.10-444c BUILD: 150129-0828 | 1.8.32.2-vici | Dual Server | No Digium/Sangoma Hardware | No Extra Software After Installation | Intel twin quad core 3Ghz Xeon chips | 32gb of RAM
mav2287
 
Posts: 256
Joined: Thu Oct 03, 2013 6:47 pm

Re: Agent Only Beep

Postby mflorell » Tue Aug 26, 2014 10:30 pm

Chanspy isn't perfect, it does make mistakes, sometimes those mistakes cause Asterisk to crash. It's gotten better, but it's still not good enough to work all of the time.
mflorell
Site Admin
 
Posts: 18335
Joined: Wed Jun 07, 2006 2:45 pm
Location: Florida

Re: Agent Only Beep

Postby mav2287 » Wed Aug 27, 2014 11:47 am

So is it common that it would attach to the wrong channel?
ViciBox5.x86_64-5.0.3.preload from .iso upgraded to 13.1 | VERSION: 2.10-444c BUILD: 150129-0828 | 1.8.32.2-vici | Dual Server | No Digium/Sangoma Hardware | No Extra Software After Installation | Intel twin quad core 3Ghz Xeon chips | 32gb of RAM
mav2287
 
Posts: 256
Joined: Thu Oct 03, 2013 6:47 pm

Re: Agent Only Beep

Postby mflorell » Thu Aug 28, 2014 4:59 am

Yes, that has been our experience in testing.
mflorell
Site Admin
 
Posts: 18335
Joined: Wed Jun 07, 2006 2:45 pm
Location: Florida

Re: Agent Only Beep

Postby mav2287 » Thu Aug 28, 2014 1:22 pm

That is a bummer. Would have been nice to know that going in. Appreciate the input and help Matt!
ViciBox5.x86_64-5.0.3.preload from .iso upgraded to 13.1 | VERSION: 2.10-444c BUILD: 150129-0828 | 1.8.32.2-vici | Dual Server | No Digium/Sangoma Hardware | No Extra Software After Installation | Intel twin quad core 3Ghz Xeon chips | 32gb of RAM
mav2287
 
Posts: 256
Joined: Thu Oct 03, 2013 6:47 pm

Re: Agent Only Beep

Postby williamconley » Thu Apr 01, 2021 7:38 pm

Vicidial Agent Only Beep - Beta

Compatibility: Asterisk 1.8.32.3 and later

After installation, the Campaign's "Routing Extension" will be changed. Prospects/Leads will no longer hear the "Beep/Ding", but agents will still hear it.

Method: ChanSpy module in asterisk.

Standalone Servers and Clusters both tested. Seeking more installs to find any bugs or feature conflicts before full release.
Vicidial Installation and Repair, plus Hosting and Colocation
Newest Product: Vicidial Agent Only Beep - Beta
http://www.PoundTeam.com # 352-269-0000 # +44(203) 769-2294
williamconley
 
Posts: 20018
Joined: Wed Oct 31, 2007 4:17 pm
Location: Davenport, FL (By Disney!)

Re: Agent Only Beep

Postby carpenox » Fri Apr 02, 2021 12:12 pm

yo thats a sick module, good shit Bill. another great tool for the community brought into play by poundteam
Alma Linux 9.3 | Version: 2.14-911a | SVN Version: 3815 | DB Schema Version: 1710 | Asterisk 18.18.1
www.dialer.one -:- 1-833-DIALER-1 -:- https://linktr.ee/CyburDial -:- WhatsApp: +19549477572 -:- Skype: live:carpenox_3
carpenox
 
Posts: 2230
Joined: Wed Apr 08, 2020 2:02 am
Location: Coral Springs, FL


Return to Features

Who is online

Users browsing this forum: No registered users and 26 guests