Improve racal2pcap for other tests like 6113 call signalling tests
The text logs have stuff like UNIT DATA INDICATION which we didn't parse so far
This commit is contained in:
parent
b8d8e6c835
commit
93c031cd06
|
@ -80,16 +80,18 @@ while (my $line = <STDIN>) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if ($state == 0) {
|
if ($state == 0) {
|
||||||
if ($line =~ /^MDL_ASSIGN_REQUEST ces = (\d+),tei = (\d+)/) {
|
if ($line =~ /MDL_ASSIGN_REQUEST ces = (\d+),tei = (\d+)/) {
|
||||||
$ces_to_tei{$1} = $2;
|
$ces_to_tei{$1} = $2;
|
||||||
|
} elsif ($line =~ /^\**DL ESTABLISH REQUEST sapi = (\d+), ces = (\d+)/) {
|
||||||
|
$ces_to_tei{$2} = $1;
|
||||||
}
|
}
|
||||||
if ($line =~ /^DL DATA INDICATION sapi = (\d+), ces = (\d+)/) {
|
if ($line =~ /DL (UNIT )?DATA INDICATION sapi = (\d+), ces = (\d+)/) {
|
||||||
$tei = $ces_to_tei{$2};
|
$tei = $ces_to_tei{$3};
|
||||||
$sapi = $1;
|
$sapi = $2;
|
||||||
$state = 1;
|
$state = 1;
|
||||||
$msg_hex = "";
|
$msg_hex = "";
|
||||||
} elsif ($line =~ /^DL_DATA_REQUEST sapi = (\d+)/) {
|
} elsif ($line =~ /DL_(UNIT)?DATA_REQUEST sapi = (\d+)/) {
|
||||||
$sapi = $1;
|
$sapi = $2;
|
||||||
$state = 2;
|
$state = 2;
|
||||||
$msg_hex = "";
|
$msg_hex = "";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue