Fix to remove backslash-canceled-out double-quotes in TILTX AGI script
git-svn-id: svn://192.168.202.10@3515 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
@@ -19,6 +19,7 @@
|
|||||||
#
|
#
|
||||||
# changes:
|
# changes:
|
||||||
# 210605-0936 - first build
|
# 210605-0936 - first build
|
||||||
|
# 210908-1722 - Fix to remove backslash-canceled-out double-quotes
|
||||||
#
|
#
|
||||||
|
|
||||||
$script = 'agi-TILTX_SHAKEN.agi';
|
$script = 'agi-TILTX_SHAKEN.agi';
|
||||||
@@ -392,24 +393,28 @@ foreach(@Wdoc)
|
|||||||
{
|
{
|
||||||
$TILTXID = $Wdoc[$i];
|
$TILTXID = $Wdoc[$i];
|
||||||
$TILTXID =~ s/.*"TILTXID":"//;
|
$TILTXID =~ s/.*"TILTXID":"//;
|
||||||
|
$TILTXID =~ s/\\"//g;
|
||||||
$TILTXID =~ s/".*//;
|
$TILTXID =~ s/".*//;
|
||||||
}
|
}
|
||||||
if ($Wdoc[$i] =~ /"Identity":".*"/i)
|
if ($Wdoc[$i] =~ /"Identity":".*"/i)
|
||||||
{
|
{
|
||||||
$Identity = $Wdoc[$i];
|
$Identity = $Wdoc[$i];
|
||||||
$Identity =~ s/.*"Identity":"//;
|
$Identity =~ s/.*"Identity":"//;
|
||||||
|
$Identity =~ s/\\"//g;
|
||||||
$Identity =~ s/".*//;
|
$Identity =~ s/".*//;
|
||||||
}
|
}
|
||||||
if ($Wdoc[$i] =~ /"CAID":".*"/i)
|
if ($Wdoc[$i] =~ /"CAID":".*"/i)
|
||||||
{
|
{
|
||||||
$CAID = $Wdoc[$i];
|
$CAID = $Wdoc[$i];
|
||||||
$CAID =~ s/.*"CAID":"//;
|
$CAID =~ s/.*"CAID":"//;
|
||||||
|
$CAID =~ s/\\"//g;
|
||||||
$CAID =~ s/".*//;
|
$CAID =~ s/".*//;
|
||||||
}
|
}
|
||||||
if ($Wdoc[$i] =~ /"CallerIDToUse":".*"/i)
|
if ($Wdoc[$i] =~ /"CallerIDToUse":".*"/i)
|
||||||
{
|
{
|
||||||
$CallerIDToUse = $Wdoc[$i];
|
$CallerIDToUse = $Wdoc[$i];
|
||||||
$CallerIDToUse =~ s/.*"CallerIDToUse":"//;
|
$CallerIDToUse =~ s/.*"CallerIDToUse":"//;
|
||||||
|
$CallerIDToUse =~ s/\\"//g;
|
||||||
$CallerIDToUse =~ s/".*//;
|
$CallerIDToUse =~ s/".*//;
|
||||||
}
|
}
|
||||||
# log all response data as a single string together
|
# log all response data as a single string together
|
||||||
|
|||||||
Reference in New Issue
Block a user