From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 26 Feb 2019 08:25:49 +0000 (+0100)
Subject: added IP address as first column
X-Git-Url: http://git.rot13.org/?p=safeq;a=commitdiff_plain;h=83e782d4a74a6638bb9d70c9e55d0da3f090ae85;ds=sidebyside

added IP address as first column
---

diff --git a/xq.pl b/xq.pl
index 854f21f..5245ab2 100755
--- a/xq.pl
+++ b/xq.pl
@@ -35,23 +35,24 @@ warn "# info=",dump($info) if $debug;
 
 my @headers = @{ $info->{hdrs} };
 unshift @headers, 'id' if $op eq 'list';
+unshift @headers, 'IP';
 
 print join("\t", @headers),"\n";
 
 foreach my $l ( @{ $info->{info} } ) {
 	warn "## l=",dump($l) if $debug > 1;
 	
-	$l->[3] = $info->{stats}->[ $l->[3] ];
-	$l->[4] = $info->{types}->[ $l->[4] ];
+	$l->[3] .= ':' . $info->{stats}->[ $l->[3] ];
+	$l->[4] .= ':' . $info->{types}->[ $l->[4] ];
 
-	print join("\t", @$l), "\n";
+	print join("\t", $ip, @$l), "\n";
 }
 
 foreach my $l ( @{ $info->{jHst} } ) {
 	warn "## l=",dump($l) if $debug > 1;
 	
-	$l->[2] = $info->{stsAry}->[ $l->[2] ];
-	$l->[3] = $info->{types}->[ $l->[3] ];
+	$l->[2] .= ':' . $info->{stsAry}->[ $l->[2] ];
+	$l->[3] .= ':' . $info->{types}->[ $l->[3] ];
 
-	print join("\t", @$l),"\n";
+	print join("\t", $ip, @$l),"\n";
 }