diff --git a/agc_2-X/trunk/UPGRADE b/agc_2-X/trunk/UPGRADE index af5dd726..d73cef2b 100644 --- a/agc_2-X/trunk/UPGRADE +++ b/agc_2-X/trunk/UPGRADE @@ -175,6 +175,59 @@ OTHER CHANGES: 37. Converted ereg to preg in the agc agent interface PHP scripts +38. Added agi-phone_monitor.agi script to allow monitoring of agents using only + their user IDs or phone extensions and no web browser needed. + You can add as an AGI to a Call Menu, or just an extension transfer: + call menu AGI with options: + agi-phone_monitor.agi,USER---N---LISTEN + or as extension transfer to "up_monitor_exit" context and "s" extension + + settings for this script: + 1. USER or PHONE, lookup by user id or phone extension (default is USER) + 2. Y or N, log in api log (default is N) + 3. BARGE or LISTEN, (default is LISTEN) + + For this to work you need to add these lines to your extensions.conf: + (which can be added to the "System Settings -> Custom Dialplan" instead) + + ; quiet entry, listen-only, exit-on-dtmf conferences for VICIDIAL (listen) + exten => _568600XXX,1,Set(MEETME_EXIT_CONTEXT=up_monitor_exit) + exten => _568600XXX,n,Meetme(${EXTEN:2},mqX) + exten => _568600XXX,n,Hangup() + + ; barge, exit-on-dtmf conferences for VICIDIAL (barge) + exten => _578600XXX,1,Set(MEETME_EXIT_CONTEXT=up_monitor_exit) + exten => _578600XXX,n,Meetme(${EXTEN:2},X) + exten => _578600XXX,n,Hangup() + + [up_monitor] + exten => h,1,AGI(agi://127.0.0.1:4577/call_log--HVcauses--PRI-----NODEBUG-----${HANGUPCAUSE}-----${DIALSTATUS}-----${DIALEDTIME}-----${ANSWEREDTIME}) + + exten => s,1,Set(MEETME_EXIT_CONTEXT=up_monitor_exit) + exten => s,n,AGI(agi-phone_monitor.agi,USER---N---LISTEN) + exten => s,n,Hangup() + + exten => i,1,Goto(up_monitor_exit,s,1) + exten => i,n,Hangup() + exten => #,1,Goto(up_monitor_exit,s,1) + exten => #,n,Hangup() + exten => t,1,Goto(up_monitor_exit,s,1) + exten => t,n,Hangup() + + [up_monitor_exit] + exten => h,1,AGI(agi://127.0.0.1:4577/call_log--HVcauses--PRI-----NODEBUG-----${HANGUPCAUSE}-----${DIALSTATUS}-----${DIALEDTIME}-----${ANSWEREDTIME}) + + exten => _X,1,Goto(up_monitor,s,1) + exten => _X,n,Hangup() + + exten => i,1,Goto(up_monitor,s,1) + exten => i,n,Hangup() + exten => #,1,Goto(up_monitor,s,1) + exten => #,n,Hangup() + exten => t,1,Goto(up_monitor,s,1) + exten => t,n,Hangup() + + diff --git a/agc_2-X/trunk/agi/agi-phone_monitor.agi b/agc_2-X/trunk/agi/agi-phone_monitor.agi new file mode 100644 index 00000000..d5e52d37 --- /dev/null +++ b/agc_2-X/trunk/agi/agi-phone_monitor.agi @@ -0,0 +1,493 @@ +#!/usr/bin/perl +# +# agi-phone_monitor.agi version 2.6 +# +# This script is designed to allow managers to listen to agent sessions by +# dialing a phone exten number or user ID number. For this to work, the user ID +# or phone extension must be only digits. If you are using the phone extension, +# then all phone extensions on the system must be unique. +# +# user is prompted for a user ID or phone login then press # +# then the user is forwarded to monitor the active vicidial agent session +# +# ; settings for this script: +# ; 1. USER or PHONE, lookup by user id or phone extension (default is USER) +# ; 2. Y or N, log in api log (default is N) +# ; 3. BARGE or LISTEN, (default is LISTEN) +# +# can be added as an AGI to a Call Menu, or just a direct extension transfer: +# +# ; call menu AGI with options: +# agi-phone_monitor.agi,USER---N---LISTEN +# +# ; or as extension transfer to "up_monitor_exit" context and "s" extension +# +# Copyright (C) 2013 Matt Florell LICENSE: AGPLv2 +# +# CHANGELOG +# 130401-0724 - First build +# + +&get_time_now; +$start_epoch = $now_date_epoch; + +$script = 'agi-phone_monitor.agi'; + +$now_date_epoch = time(); +$now_date = "$year-$mon-$mday $hour:$min:$sec"; + +($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); +$year = ($year + 1900); +$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";} + +$US='_'; + + +# default path to astguiclient configuration file: +$PATHconf = '/etc/astguiclient.conf'; + +open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n"; +@conf = ; +close(conf); +$i=0; +foreach(@conf) + { + $line = $conf[$i]; + $line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi; + if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) ) + {$PATHlogs = $line; $PATHlogs =~ 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/phone_monitor.$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; + + +### BEGIN parsing run-time options ### +if (length($ARGV[0])>1) + { + if ($AGILOG) {$agi_string = "Perl Environment Dump:"; &agi_output;} + $i=0; + while ($#ARGV >= $i) + { + $args = "$args $ARGV[$i]"; + if ($AGILOG) {$agi_string = "$i|$ARGV[$i]"; &agi_output;} + $i++; + } + + ### list of command-line array arguments: + @ARGV_vars = split(/---/, $ARGV[0]); + + $user_phone = $ARGV_vars[0]; + $api_log = $ARGV_vars[1]; + $barge_listen = $ARGV_vars[2]; + } +if ( (length($user_phone) < 1) || ($user_phone !~ /USER|PHONE/) ) + {$user_phone = 'USER';} +if ( (length($api_log) < 1) || ($api_log !~ /Y|N/) ) + {$api_log = 'N';} +if ( (length($barge_listen) < 1) || ($barge_listen !~ /BARGE|LISTEN/) ) + {$barge_listen = 'LISTEN';} +### END parsing run-time options ### + + +$|=1; +while() + { + chomp; + last unless length($_); + if ($V) + { + if (/^agi_(\w+)\:\s+(.*)$/) + { + $AGI{$1} = $2; + } + } + + if (/^agi_context\:\s+(.*)$/) {$context = $1;} + if (/^agi_uniqueid\:\s+(.*)$/) {$unique_id = $1;} + if (/^agi_extension\:\s+(.*)$/) {$extension = $1;} + if (/^agi_channel\:\s+(.*)$/) {$channel = $1;} + if (/^agi_callerid\:\s+(.*)$/) {$callerid = $1;} + if (/^agi_calleridname\:\s+(.*)$/) {$calleridname = $1;} + } + +if ( ($callerid =~ /\".*\"/) && ( (!$calleridname) or ($calleridname =~ /unknown/) ) ) + { + $calleridname = $callerid; + $calleridname =~ s/\<\d\d\d\d\d\d\d\d\d\d\>//gi; + $calleridname =~ s/\"|\" //gi; + } + +$callerid =~ s/\D//gi; +$calleridname =~ s/unknown//gi; +if ( (!$callerid) or ($callerid =~ /unknown/) ) + {$callerid = $calleridname;} +$phone_number=$callerid; + +### Grab Server values from the database +$stmtA = "SELECT ext_context,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; +$rec_count=0; +while ($sthArows > $rec_count) + { + @aryA = $sthA->fetchrow_array; + $DBext_context = $aryA[0]; + $DBagi_output = $aryA[1]; + if ($DBext_context) {$ext_context = $DBext_context;} + if ($DBagi_output =~ /STDERR/) {$AGILOG = '1';} + if ($DBagi_output =~ /FILE/) {$AGILOG = '2';} + if ($DBagi_output =~ /BOTH/) {$AGILOG = '3';} + $rec_count++; + } +$sthA->finish(); + + +$AGI->stream_file('sip-silence'); +$AGI->stream_file('sip-silence'); + + +$entry_chances=0; +$VALID_login=0; +$ACTIVE_login=0; +$VDADremDIALstr=''; +while ( ($entry_chances < 3) && ($VALID_login < 1) ) + { + $entry_chances++; + + + &user_phone_gather; + + + ###### Check userID and password against vicidial_users table + $stmtA = "SELECT count(*) FROM vicidial_users where user='$PIN_number' and active='Y';"; + if ($user_phone =~ /PHONE/) + {$stmtA = "SELECT count(*) FROM phones where extension='$PIN_number' and active='Y';";} + $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr; + $sthA->execute or die "executing: $stmtA ", $dbhA->errstr; + $sthArows=$sthA->rows; + if ($sthArows > 0) + { + @aryA = $sthA->fetchrow_array; + $VALID_login = $aryA[0]; + } + $sthA->finish(); + + if ($VALID_login > 0) + { + $AGI->stream_file('pin-number-accepted'); + } + else + { + if ($api_log =~ /Y/) + { + $stmtA="INSERT INTO vicidial_api_log set user='$calleridname',agent_user='$PIN_number',function='phone_monitor',value='',result='ERROR',result_reason='No user found',source='monitor',data='$calleridname|$callerid',api_date='$now_date',api_script='$script',run_time='0';"; + $affected_rows = $dbhA->do($stmtA); + if ($AGILOG) {$agi_string = "API LOG INSERT $affected_rows|$stmtA|"; &agi_output;} + } + + $AGI->stream_file('pin-invalid'); + } + } + + + +if ($VALID_login < 1) + { + if ($AGILOG) {$agi_string = "PHONE MONITOR END: Invalid Login |$VALID_login|$PIN_number|"; &agi_output;} + + if ($use_call_menu =~ /Y/) + { + if ($AGILOG) {$agi_string = "exiting the agent dial-in app, transferring call to B @ $context"; &agi_output;} + print "SET CONTEXT $context\n"; + $result = ; + checkresult($result); + print "SET EXTENSION B\n"; + $result = ; + checkresult($result); + print "SET PRIORITY 1\n"; + $result = ; + checkresult($result); + } + else + { + $AGI->stream_file('vm-goodbye'); + + $AGI->hangup(); + + $dbhA->disconnect(); + } + exit; + } +else + { + $secX = time(); + $PDtarget = ($secX - 30); + ($Psec,$Pmin,$Phour,$Pmday,$Pmon,$Pyear,$Pwday,$Pyday,$Pisdst) = localtime($PDtarget); + $Pyear = ($Pyear + 1900); + $Pmon++; + if ($Pmon < 10) {$Pmon = "0$Pmon";} + if ($Pmday < 10) {$Pmday = "0$Pmday";} + if ($Phour < 10) {$Phour = "0$Phour";} + if ($Pmin < 10) {$Pmin = "0$Pmin";} + if ($Psec < 10) {$Psec = "0$Psec";} + $PDtsSQLdate = "$Pyear$Pmon$Pmday$Phour$Pmin$Psec"; + + + ###### Check if user is logged in, vicidial_live_agents table + $stmtA = "SELECT count(*) FROM vicidial_live_agents where user='$PIN_number' and last_update_time > \"$PDtsSQLdate\";"; + if ($user_phone =~ /PHONE/) + {$stmtA = "SELECT count(*) FROM vicidial_live_agents where extension LIKE \"%/$PIN_number\" and last_update_time > \"$PDtsSQLdate\";";} + $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr; + $sthA->execute or die "executing: $stmtA ", $dbhA->errstr; + $sthArows=$sthA->rows; + if ($sthArows > 0) + { + @aryA = $sthA->fetchrow_array; + $ACTIVE_login = "$aryA[0]"; + } + $sthA->finish(); + + if ($ACTIVE_login < 1) + { + if ($AGILOG) {$agi_string = "PHONE MONIOR END: Inactive Login |$VALID_login|$PIN_number|$PASS_word| |$ACTIVE_login|$PDtsSQLdate|"; &agi_output;} + + if ($api_log =~ /Y/) + { + $stmtA="INSERT INTO vicidial_api_log set user='$calleridname',agent_user='$PIN_number',function='phone_monitor',value='',result='ERROR',result_reason='Inactive Login',source='monitor',data='$calleridname|$callerid',api_date='$now_date',api_script='$script',run_time='0';"; + $affected_rows = $dbhA->do($stmtA); + if ($AGILOG) {$agi_string = "API LOG INSERT $affected_rows|$stmtA|"; &agi_output;} + } + + $AGI->stream_file('login-fail'); + $AGI->stream_file('vm-goodbye'); + + $AGI->hangup(); + + $dbhA->disconnect(); + exit; + } + else + { + $stmtA = "SELECT conf_exten,extension,server_ip from vicidial_live_agents WHERE user='$PIN_number' and last_update_time > \"$PDtsSQLdate\" limit 1;"; + if ($user_phone =~ /PHONE/) + {$stmtA = "SELECT conf_exten,extension,server_ip FROM vicidial_live_agents where extension LIKE \"%/$PIN_number\" and last_update_time > \"$PDtsSQLdate\" limit 1;";} + if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;} + $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr; + $sthA->execute or die "executing: $stmtA ", $dbhA->errstr; + $sthArows=$sthA->rows; + $rec_countCUSTDATA=0; + if ($sthArows > 0) + { + @aryA = $sthA->fetchrow_array; + $VDADconf_exten = $aryA[0]; + $VDADextension = $aryA[1]; + $VDADserver_ip = $aryA[2]; + } + $sthA->finish(); + + ### format the remote server dialstring to get the call to the overflow agent meetme room + $S='*'; + if( $VDADserver_ip =~ m/(\S+)\.(\S+)\.(\S+)\.(\S+)/ ) + { + $a = leading_zero($1); + $b = leading_zero($2); + $c = leading_zero($3); + $d = leading_zero($4); + # use double-star prefix to go through native bridge IAX path + $VDADremDIALstr = "$S$S$a$S$b$S$c$S$d$S"; + } + $barge_listen_prefix = '56'; + if($barge_listen =~ /BARGE/) + {$barge_listen_prefix = '57';} + $VDADremDIALstr .= "$barge_listen_prefix$VDADconf_exten"; + + if ($api_log =~ /Y/) + { + $stmtA="INSERT INTO vicidial_api_log set user='$calleridname',agent_user='$PIN_number',function='phone_monitor',value='',result='SUCCESS',result_reason='',source='monitor',data='$VDADconf_exten|$VDADextension|$VDADserver_ip|$calleridname|$callerid',api_date='$now_date',api_script='$script',run_time='0';"; + $affected_rows = $dbhA->do($stmtA); + if ($AGILOG) {$agi_string = "API LOG INSERT $affected_rows|$stmtA|"; &agi_output;} + } + + if ($AGILOG) {$agi_string = "Agent $PIN_number sent to $VDADremDIALstr"; &agi_output;} + + print "SET CONTEXT $ext_context\n"; + $result = ; + checkresult($result); + print "SET EXTENSION $VDADremDIALstr\n"; + $result = ; + checkresult($result); + print "SET PRIORITY 1\n"; + $result = ; + checkresult($result); + } + } + +$dbhA->disconnect(); + +exit; + + + + + +################################################################################ +##### SUBROUTINES ############################################################## +################################################################################ + + +##### BEGIN collect the user and password ###################################### +sub user_phone_gather + { + ################################################################################ + # please enter the pin number followed by the pound key + + $interrupt_digit=''; + + $interrupt_digit = $AGI->stream_file('ld_welcome_pin_number','0123456789'); + + print STDERR "interrupt_digit |$interrupt_digit|\n"; + + $digits_being_entered=1; + $PIN_number=''; + if ($interrupt_digit > 0) + { + # if ($interrupt_digit == 35) {$interrupt_digit='#';} + # if ($interrupt_digit == 42) {$interrupt_digit='*';} + if ($interrupt_digit == 48) {$interrupt_digit=0;} + if ($interrupt_digit == 49) {$interrupt_digit=1;} + if ($interrupt_digit == 50) {$interrupt_digit=2;} + if ($interrupt_digit == 51) {$interrupt_digit=3;} + if ($interrupt_digit == 52) {$interrupt_digit=4;} + if ($interrupt_digit == 53) {$interrupt_digit=5;} + if ($interrupt_digit == 54) {$interrupt_digit=6;} + if ($interrupt_digit == 55) {$interrupt_digit=7;} + if ($interrupt_digit == 56) {$interrupt_digit=8;} + if ($interrupt_digit == 57) {$interrupt_digit=9;} + + $PIN_number=$interrupt_digit; + } + + $digit_loop_counter=0; + while ( ($digits_being_entered > 0) && ($digit_loop_counter < 20) ) + { + $digit = chr($AGI->wait_for_digit('10000')); # wait 10 seconds for input or until the pound key is pressed + if ($digit =~ /\d/) + { + $PIN_number = "$PIN_number$digit"; + print STDERR "digit |$digit| PIN_number |$PIN_number|\n"; + # $AGI->say_digits("$digit"); + undef $digit; + } + else + { + $digits_being_entered=0; + } + + $digit_loop_counter++; + } + + $PIN_number =~ s/\D//gi; + if ($PIN_number) {print STDERR "digit |$digit| PIN_number |$PIN_number|\n";} + } +##### END collect the user and password ############################################### + + + +sub get_time_now #get the current date and time and epoch for logging call lengths and datetimes + { + ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); + $year = ($year + 1900); + $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"; + $filedate = "$year$mon$mday$hour$min$sec"; + } + + + +sub checkresult + { + my ($res) = @_; + my $retval; + $tests++; + chomp $res; + if ($res =~ /^200/) { + $res =~ /result=(-?\d+)/; + if (!length($1)) + { + print STDERR "FAIL ($res)\n"; + $fail++; + } + else + { + print STDERR "PASS ($1)\n"; + $pass++; + } + } + else + { + print STDERR "FAIL (unexpected result '$res')\n"; + $fail++; + } + } + +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 leading_zero($) + { + $_ = $_[0]; + s/^(\d)$/0$1/; + s/^(\d\d)$/0$1/; + return $_; + } # End of the leading_zero() routine. diff --git a/agc_2-X/trunk/bin/ADMIN_keepalive_ALL.pl b/agc_2-X/trunk/bin/ADMIN_keepalive_ALL.pl index edb354a8..a1d68467 100644 --- a/agc_2-X/trunk/bin/ADMIN_keepalive_ALL.pl +++ b/agc_2-X/trunk/bin/ADMIN_keepalive_ALL.pl @@ -81,6 +81,7 @@ # 130108-1657 - Changes for Asterisk 1.8 compatibility # 130227-1605 - Added --fill-staggered option for the AST_VDauto_dialFILL script # 130326-1754 - Added ability to use .agi scripts as part of Call Menu Prompt +# 130402-2148 - Changes to allow for native IAX bridging to other servers # $DB=0; # Debug flag @@ -1555,6 +1556,8 @@ if ( ($active_asterisk_server =~ /Y/) && ($generate_vicidial_conf =~ /Y/) && ($r $Lext .= "; Local Server: $server_ip\n"; $Lext .= "exten => _$VARremDIALstr*.,1,Goto(default,\${EXTEN:16},1)\n"; $Lext .= "exten => _$VARremDIALstr*.,2,Hangup()\n"; + $Lext .= "exten => _**$VARremDIALstr*.,1,Goto(default,\${EXTEN:18},1)\n"; + $Lext .= "exten => _**$VARremDIALstr*.,2,Hangup()\n"; $Liax .= "\n"; $Liax .= "[ASTloop]\n"; @@ -1635,6 +1638,9 @@ if ( ($active_asterisk_server =~ /Y/) && ($generate_vicidial_conf =~ /Y/) && ($r $Lext .= "; Remote Server VDAD extens: $server_id[$i] $server_ip[$i]\n"; $Lext .= "exten => _$VARremDIALstr*.,1,Dial(\${TRUNK$server_id[$i]}/\${EXTEN:16},55,oT)\n"; $Lext .= "exten => _$VARremDIALstr*.,2,Hangup()\n"; + $Lext .= "; Remote Server native bridge extens: $server_id[$i] $server_ip[$i]\n"; + $Lext .= "exten => _**$VARremDIALstr*.,1,Dial(\${TRUNK$server_id[$i]}/\${EXTEN:18},55,o)\n"; + $Lext .= "exten => _**$VARremDIALstr*.,2,Hangup()\n"; $Liax .= "\n"; $Liax .= "[$server_id[$i]]\n";