DC Numbers

[gmcust3]

Referring to http://www.vicidial.org/VICIDIALmantis/view.php?id=641 , Its NOT available in GoautoDial 2.4 version.

Kindly correct me if I am wrong !!

[gmcust3]

I checked this and I didnt find Enhanced Disconnect Logging :

http://www.vicidial.org/vicidial_demo/a ... 1111111111

[williamconley]

diff from our client's backport (he was on -r 1890, we extracted EDL from -r 1912)

This does not create a "pref", it merely turns on the feature (if you dont want it ... don't run the patch, LOL, or keep a copy of the original pl file to put back).

If your version does not happen to be 1890, you may have to make these changes by hand!

Code: Select all

# This patch file was generated by NetBeans IDE
# This patch can be applied using context Tools: Apply Diff Patch action on respective folder.
# It uses platform neutral UTF-8 encoding.
# Above lines and this line are ignored by the patching process.
--- P:\Vicidial Netbeans Projects\Vicidial NA vs DC\FastAGI_log.pl.ORIG
+++ P:\Vicidial Netbeans Projects\Vicidial NA vs DC\FastAGI_log.pl.BACKPORT
@@ -59,6 +59,7 @@
 # 101111-1556 - Added source to vicidial_hopper inserts
 # 101123-0443 - Fixed minor parked call manual dial bug
 #
+# BACKPORT - # 121129-2322 - Added enhanced_disconnect_logging option
 
 # defaults for PreFork
 $VARfastagi_log_min_servers =   '3';
@@ -156,12 +157,18 @@
 use vars qw(@ISA);
 use Net::Server::PreFork; # any personality will do
 @ISA = qw(Net::Server::PreFork);
+#BACKPORT
+use Time::HiRes ('gettimeofday','usleep','sleep');  # necessary to have perl sleep command of less than one second
+#BACKPORT END
 
 
 
 
 sub process_request
    {
+# BACKPORT
+$enhanced_disconnect_logging=1;
+# BACKPORT END
    $carrier_logging_active=0;
    $process = 'begin';
    $script = 'VDfastAGI';
@@ -773,6 +780,9 @@
                ##############################################################
                ### BEGIN - CPD Look for result for B/DC calls
                ##############################################################
+# BACKPORT
+sleep(1);
+# BACKPORT END
                $stmtA = "SELECT result FROM vicidial_cpd_log where callerid='$callerid' and result NOT IN('Voice','Unknown','???','') order by cpd_id desc limit 1;";
                   if ($AGILOG) {$agi_string = "|$stmtA|";   &agi_output;}
                $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
@@ -804,13 +814,18 @@
                ### END - CPD Look for result for B/DC calls
                ##############################################################
 
-               if ( ($PRI =~ /^PRI$/) && ($callerid =~ /\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) && ( ( ($dialstatus =~ /BUSY/) || ( ($dialstatus =~ /CHANUNAVAIL/) && ($hangup_cause =~ /^1$|^28$/) ) ) || ($CPDfound > 0) ))
+               if ( ($PRI =~ /^PRI$/) && ($callerid =~ /\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) && ( ( ($dialstatus =~ /BUSY/) || ( ($dialstatus =~ /CHANUNAVAIL/) && ($hangup_cause =~ /^1$|^28$/) ) || ( ( ($dialstatus =~ /CONGESTION/) && ($hangup_cause =~ /^1$|^19$|^21$|^34$|^38$/) ) ) ) || ($CPDfound > 0) ))
                   {
                   if ($CPDfound < 1)
                      {
                      if ($dialstatus =~ /BUSY/) {$VDL_status = 'AB'; $VDAC_status = 'BUSY';}
                      if ($dialstatus =~ /CHANUNAVAIL/) {$VDL_status = 'ADC'; $VDAC_status = 'DISCONNECT';}
+                     if ($enhanced_disconnect_logging > 0)
+                        {
+                        if ($dialstatus =~ /CONGESTION/ && $hangup_cause =~ /^1$/) {$VDL_status = 'ADC'; $VDAC_status = 'DISCONNECT';}
+                        if ($dialstatus =~ /CONGESTION/ && $hangup_cause =~ /^19$|^21$|^34$|^38$/) {$VDL_status = 'ADCT'; $VDAC_status = 'DISCONNECT';}
                      }
+                     }
 
                   $stmtA = "UPDATE vicidial_list set status='$VDL_status' where lead_id = '$CIDlead_id';";
                      if ($AGILOG) {$agi_string = "|$stmtA|";   &agi_output;}


[gmcust3]

Prefer I wait for the Upgraded Goauto version (