From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 28 Feb 2019 14:11:43 +0000 (+0100)
Subject: Merge branch 't42'
X-Git-Url: http://git.rot13.org/?p=safeq;a=commitdiff_plain;h=a2061cb4d01e067be217fdcbc6c04e3a1fd26084

Merge branch 't42'
---

a2061cb4d01e067be217fdcbc6c04e3a1fd26084
diff --cc xwc-jobs.pl
index e8e6f9c,7b6156c..3fd0f95
--- a/xwc-jobs.pl
+++ b/xwc-jobs.pl
@@@ -75,10 -78,21 +78,23 @@@ if ( exists $info->{spcs} ) 
  	}
  	exit 0;
  
- }
+ } elsif ( exists $info->{infoIn} ) {
+ 	print join($sep, 'IP', @{ $info->{hdrIn} }),"\n";
+ 	foreach my $row ( @{ $info->{infoIn} } ) {
+ 		$row->[1] .= ':' . $info->{stsIn}->[$row->[1]];
+ 		print join($sep, $ip, @$row),"\n";
+ 	}
+ 
+ 	print join($sep, 'IP', @{ $info->{hdrOut} }),"\n";
+ 	foreach my $row ( @{ $info->{infoOut} } ) {
+ 		$row->[1] .= ':' . $info->{stsIn}->[$row->[1]];
+ 		print join($sep, $ip, @$row),"\n";
+ 	}
+ 	exit 0;
+ } 
  
 +exit 1 if ! defined $info->{hdrs}; # we didn't get expected output
 +
  my @headers = @{ $info->{hdrs} };
  unshift @headers, 'id' if $op eq 'list';
  unshift @headers, 'IP';