update blist.pl to new kernel interface

tests/blist.pl

@@ -3,18 +3,30 @@
 use strict;
 use warnings;
 use Socket;
+use Socket6;
 
 my $t = $ARGV[0] || "0";
 
+my $format = 'SS ia16SS ia16SS ia16SS CCCC   LLLLLL';
+my $len = length(pack($format, (0) x 100));
+
 open(X, "<", "/proc/mediaproxy/$t/blist") or die;
 my $buf;
-while (sysread(X, $buf, 48)) {
-	my @b = unpack("Sa2 a4a4 SS a4 Sa2   LLLLLL", $buf);
-	for (2,3,6) {
-		$b[$_] = inet_ntoa($b[$_]);
+while (sysread(X, $buf, $len)) {
+	my @b = unpack($format, $buf);
+	for (2,6,10) {
+		if ($b[$_] == AF_INET) {
+			$b[$_ + 1] = inet_ntoa($b[$_ + 1]);
+		}
+		elsif ($b[$_] == AF_INET6) {
+			$b[$_ + 1] = inet_ntop(AF_INET6, $b[$_ + 1]);
+		}
+		elsif ($b[$_] == 0) {
+			$b[$_ + 1] = '---';
+		}
 	}
-	for (9,11,13) {
+	for (18, 20, 22) {
 		$b[$_] += $b[$_ + 1] * 2**32;
 	}
-	printf("%5u %15s:%-5u -> %15s:%-5u (-> %15s:%-5u) [%llu %llu %llu]\n", @b[0,2,4,3,5,6,7,9,11,13]);
+	printf("%5u %15s:%-5u -> %15s:%-5u (-> %15s:%-5u) [%u] [%llu %llu %llu]\n", @b[0,3,4,7,8,11,12,14,18,20,22]);
 }