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

fixed selected CID agi script to work with Asterisk 1.0 and 1.2 trees

Browse Source 
git-svn-id: svn://192.168.202.10@290 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2006-09-20 03:23:16 +00:00
parent bf858efd5a
commit e0e5920fa7
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/agi/agi-VDADselective_CID.agi
+15 -4
View File
@@ -21,6 +21,7 @@
$script = 'agi-VDADselective_CID.agi'; $script = 'agi-VDADselective_CID.agi';
$AGILOG=0; $AGILOG=0;
$FD=0; # force debug for testing
# CLEAR AREA CODE LISTINGS: # CLEAR AREA CODE LISTINGS:
# Florida: 239|305|321|352|386|407|561|689|727|754|772|786|813|836|850|861|863|904|941|954 # Florida: 239|305|321|352|386|407|561|689|727|754|772|786|813|836|850|861|863|904|941|954
@@ -115,11 +116,22 @@ if ($areacode !~ /$clear_area_codes/)
} }
### set the callerid to the ACQS value(calleridname) ### set the callerid to the ACQS value(calleridname)
print "SET CALLERID \"$calleridname\" <0000000000>\n"; ## use these two lines for Asterisk 1.2 tree
$newcallerid = "\"$calleridname <0000000000>\"";
$AGI->set_callerid($newcallerid);
## use these two lines for Asterisk 1.0 tree
# print "SET CALLERID \"$calleridname\" <0000000000>\n";
# print "SET CALLERIDNAME \"$calleridname\"\n";
checkresult($result); checkresult($result);
if ($AGILOG) {$agi_string = "callerID changed: \"$calleridname\" <0000000000>"; &agi_output;} if ($AGILOG) {$agi_string = "callerID changed: \"$calleridname\" \<0000000000\>"; &agi_output;}
}
if ($FD > 0) {print STDERR "callerID changed: \"$calleridname\" \<0000000000\>\n";}
}
else
{
if ($FD > 0) {print STDERR "callerID NOT changed: \"$calleridname\" <$callerid>\n";}
}
if ($AGILOG) {$agi_string = "AGI Variables: |$extension|$areacode|$callerid|$calleridname|"; &agi_output;} if ($AGILOG) {$agi_string = "AGI Variables: |$extension|$areacode|$callerid|$calleridname|"; &agi_output;}
exit; exit;
@@ -127,7 +139,6 @@ exit;
sub checkresult { sub checkresult {
my ($res) = @_; my ($res) = @_;
my $retval; my $retval;