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:
Harald Welte 2011-03-28 21:12:06 +02:00
parent b8d8e6c835
commit 93c031cd06
1 changed files with 8 additions and 6 deletions

View File

@ -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 = "";
} }