SCR_DIR=`readlink -f $0 | xargs dirname`
TESTCASE_BN=testcase.txt
WHAT=?????????
+REQUEST_STEP=
#############
# FUNCTIONS #
echo " source_directory:"
echo " The source directory may contain .xml and .metadata files grouped by pairs and alphabetically classified,"
echo " and also (and this is VERY IMPORTANT), a file called 'origin-hosts' containing a list of Origin-Host"
- echo " values that are used from the point of view of the ADML testing system, together with the type of the"
+ echo " values that represents the point of view of the ADML testing system, together with the type of the"
echo " simulated ADML node (client/server):"
echo
echo " <id>.hex.as.xml: ANNA-Diameter XML message format."
local adml_type=$4
local wait_command=waitfe
+ # wait xml variant:
+ local waitxml_command=waitfe-xml
local send_command=sendxml2e
- [ "$adml_type" = "server" ] && { wait_command=waitfc ; send_command=sendxml2c ; }
+ [ "$adml_type" = "server" ] && { wait_command=waitfc ; waitxml_command=waitfc-xml ; send_command=sendxml2c ; }
# Ignore disconnect peer messages on testcase format (they have no session-id):
local lines=$(wc -l $TESTCASE_BN | awk '{ print $1 }')
local s_wait="test|1|$wait_command|$code|$((1-isrequest))"
+ # wait xml variant:
+ local s_waitxml="test|1|$waitxml_command|$xml"
[ -n "$sessionid" ] && s_wait="${s_wait}|||${sessionid}"
+ local s_send="test|1|$send_command|$xml"
+
if [ $isrequest -eq 1 ]
then
- echo "test|1|$send_command|$xml" >> $TESTCASE_BN
+ # Send the request
+ # Special case for SNR/SNA (code=8388636) and STR (code=275) going to SAPC: the Session-Id is created on client and received on SLR previously
+ if [ "$adml_type" = "server" ]
+ then
+ if [ "$code" = "8388636" -o "$code" = "275" ]
+ then
+ s_send="test|1|$send_command|$xml|$REQUEST_STEP"
+ s_wait="test|1|$wait_command|$code|0|||"
+ fi
+ fi
+
+ echo "$s_send" >> $TESTCASE_BN
+
if [ -n "$resultcode" ]
then
local hbh="$(grep -o "hop-by-hop-id=\"[0-9]*\"" $xml)"
_rc=$(getResultCode $ans_xml)
[ -n "$_rc" ] && rc=$_rc
fi
+
+ # Wait the answer:
s_wait="${s_wait}|${rc}"
fi
- echo "$s_wait" >> $TESTCASE_BN
+ echo "$s_waitxml" >> $TESTCASE_BN
+ echo "#$s_wait" >> $TESTCASE_BN
else
+ local next_step_number=$((lines+1))
+
+ # Wait the request
+ # Special case for SLR/SLA (code=8388635) and STR (code=275) coming from SAPC: the Session-Id is created on client
+ if [ "$adml_type" = "server" ]
+ then
+ if [ "$code" = "8388635" -o "$code" = "275" ]
+ then
+ s_wait="test|1|$wait_command|$code|1"
+ REQUEST_STEP=$next_step_number
+ fi
+ fi
echo "$s_wait" >> $TESTCASE_BN
- echo "test|1|$send_command|$xml|$((lines+1))" >> $TESTCASE_BN
+
+ # Send the answer
+ echo "test|1|$send_command|$xml|$next_step_number" >> $TESTCASE_BN
fi
}
mv .involved_frames_sort .involved_frames
# Messages classification:
-0> cers_4_starting
-0> ceas_4_establishing
+#0> cers_4_starting
+#0> ceas_4_establishing
0> cers_4_starting_origin_hosts
0> ceas_4_establishing_origin_hosts
0> requests_4_sending
0> $TESTCASE_BN
# Optional timeout:
-TIMEOUT_SEC=$3
+TIMEOUT_SEC=$2
[ -n "$TIMEOUT_SEC" ] && echo "test|1|timeout|$((TIMEOUT_SEC * 1000))" >> $TESTCASE_BN
# Process frames:
grep -q "^code=257$" $mtd
if [ $? -eq 0 ]
then
- echo $frame >> cers_4_starting
+ #echo $frame >> cers_4_starting
[ -z "$originHost" ] && _exit "Missing Origin-Host (frame $frame, CER message) !!"
echo "$originHost" >> cers_4_starting_origin_hosts
ln -sf $xml cer.${originHost}.xml
grep -q "^code=257$" $mtd
if [ $? -eq 0 ]
then
- echo $frame >> ceas_4_establishing
+ #echo $frame >> ceas_4_establishing
originHost=$(grep ^originhost= ${frame}.metadata | cut -d= -f2-)
[ -z "$originHost" ] && _exit "Missing Origin-Host (frame $frame, CEA message) !!"
echo "$originHost" >> ceas_4_establishing_origin_hosts
echo $oh >> cers_4_starting_origin_hosts
echo "Missing CER: `basename $cer` (a basic template has been created, please edit & fix the unknowns)"
cat << EOF > $cer
-<message version="1" name="CER" application-id="0" hop-by-hop-id="1" end-by-end-id="1">
+<message version="1" name="CER" application-id="0" hop-by-hop-id="1" end-to-end-id="1">
<avp name="Origin-Host" data="$oh"/>
<avp name="Origin-Realm" data="$(echo $oh | cut -d\. -f2-) $WHAT"/>
<avp name="Auth-Application-Id" data="16777236 $WHAT 16777238 $WHAT"/>
echo $oh >> ceas_4_establishing_origin_hosts
echo "Missing CEA: `basename $cea` (a basic template has been created, please edit & fix the unknowns)"
cat << EOF > $cea
-<message version="1" name="CEA" application-id="0" hop-by-hop-id="1" end-by-end-id="1">
+<message version="1" name="CEA" application-id="0" hop-by-hop-id="1" end-to-end-id="1">
<avp name="Result-Code" data="2001" alias="DIAMETER_SUCCESS"/>
<avp name="Origin-Host" data="$oh"/>
<avp name="Origin-Realm" data="$(echo $oh | cut -d\. -f2-) $WHAT"/>