f54a2553c2
- fix: Via branch calculation - security.c: increased max acceptable line length - security.c: prevent libosip2 to die with "out of memory" on some malformed headers
27 lines
602 B
Perl
Executable File
27 lines
602 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
#
|
|
# extract a buffer dump from siproxd's debug log and
|
|
# write the plain content into a file. This file then
|
|
# may be used to feed netcat for a replay.#
|
|
#
|
|
# $ netcat -u siphost 5060 < buffer.sip
|
|
#
|
|
# usage:
|
|
# reads from STDIN and writes to STDOUT
|
|
#
|
|
# $ cat bufferdump.log | extract_sip.pl > buffer.sip
|
|
|
|
while (<>) {
|
|
# strip off CR/LF
|
|
chomp;
|
|
|
|
# cut out the hex digits and store them into an array
|
|
my @hex=split(/ /, substr($_, 2, 47));
|
|
|
|
for (my $i=0; $i<16; $i++) {
|
|
# write HEX byte as character
|
|
if (hex($hex[$i]) != "") {print chr(hex($hex[$i]));}
|
|
}
|
|
}
|