|
|
|
@ -80,16 +80,18 @@ while (my $line = <STDIN>) {
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
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;
|
|
|
|
|
} elsif ($line =~ /^\**DL ESTABLISH REQUEST sapi = (\d+), ces = (\d+)/) {
|
|
|
|
|
$ces_to_tei{$2} = $1;
|
|
|
|
|
}
|
|
|
|
|
if ($line =~ /^DL DATA INDICATION sapi = (\d+), ces = (\d+)/) {
|
|
|
|
|
$tei = $ces_to_tei{$2};
|
|
|
|
|
$sapi = $1;
|
|
|
|
|
if ($line =~ /DL (UNIT )?DATA INDICATION sapi = (\d+), ces = (\d+)/) {
|
|
|
|
|
$tei = $ces_to_tei{$3};
|
|
|
|
|
$sapi = $2;
|
|
|
|
|
$state = 1;
|
|
|
|
|
$msg_hex = "";
|
|
|
|
|
} elsif ($line =~ /^DL_DATA_REQUEST sapi = (\d+)/) {
|
|
|
|
|
$sapi = $1;
|
|
|
|
|
} elsif ($line =~ /DL_(UNIT)?DATA_REQUEST sapi = (\d+)/) {
|
|
|
|
|
$sapi = $2;
|
|
|
|
|
$state = 2;
|
|
|
|
|
$msg_hex = "";
|
|
|
|
|
}
|
|
|
|
|