Unmangle NBT stuff which comes out multi-line in tcpdump

[vinegar-ip.git] / blank-ttl-ipcsum.pl

diff --git a/blank-ttl-ipcsum.pl b/blank-ttl-ipcsum.pl
index 07a43b63fc13b96feddd1d35e14e51b5b1c63b8d..063b36bb53ae61e166f1a5e6df08e6a2477d7e45 100755 (executable)
--- a/blank-ttl-ipcsum.pl
+++ b/blank-ttl-ipcsum.pl
@@ -1,7 +1,8 @@
 #!/usr/bin/perl -p
 if ($zonk) {
-    s/^(\s\s+4\w\w\w \w{4} \w{4} \w{4}) \w\w(\w\w) \w{4} (\w{4} \w{4})$/$1 ##$2 #### $3/ or die "$_ ?";
+    s/^(\t\t\t 4\w\w\w \w{4} \w{4} \w{4}) \w\w(\w\w) \w{4} (\w{4} \w{4})$/$1 ##$2 #### $3/ or die "$_ ?";
     $zonk=0;
 } elsif (m/^ ?[^ \t]/ && s/(\(ttl )\d+(, id \d+\))$/$1###$2/) {
     $zonk=1;
 }
+# $Id$