Subject: Re: tcp-wrappers, tcpd, and NetBSD
To: Simon J. Gerraty <sjg@quick.com.au>
From: Warner Losh <imp@village.org>
List: current-users
Date: 03/15/1997 18:07:02 
In message <199703151319.AAA25097@zen.quick.com.au> "Simon J. Gerraty" writes:
: 0 , 0 : ERROR : UNKNOWN-ERROR

I've found that 

#!/usr/local/bin/perl
($a, $b) = split(/[,\n\r ]+/,<>);
print "$a , $b : OTHER : Warm-Fuzzy\r\n";

works better than the above.  And it is 100% protocol compliant. :-)

Warner