Small fix to whoisd.pl

	It is an old issue but...
	why don't you port whoisd to be called from [x]inetd. So you
won't need any networking hack. It has been like that on radb.ra.net,
and it seems to be fine.
		Laurent
PS: lot of advantages: do not need to run as root, IP filtering, logging,

In our previous episode, Tony Bates said:
> 
> Hi,
> 	I am in the process of porting the RR stuff to run on Slowaris
> (SunOS 5.4 to be exact ) and came across this amazing horrible nit
> which we should reflect back in the src. In the whoisd code we do a
> setsockopt so we can reuse the address like so:
> 
> setsockopt(S, $SOL_SOCKET, $SO_REUSEADDR, 1) || die "setsockopt: $!";
> 
> Unfortunately, the value of OPTVAL (1) in the c source of perl is not
> tranlated properly into a pointer to an integer as it needs to be for
> the system call to work properly. The odd thing is on SunOS4.1.3 the
> setsockopt routine doesn't actually care if it is wrong. After hacking
> the perl code and lots of debugging to gdb we (thanks Dennis for
> considerable gdb help) found the SunOS5.4 networking code does and returns
> invalid argument.
> 
> The awful fix is to do the following. Change the lines to:
> 
> $on = "\0\0\001";
> setsockopt(S, $SOL_SOCKET, $SO_REUSEADDR, $on) || die "setsockopt: $!";
> 
> Or some such.
> 
> This actually fakes the c code to do the right thing and actually make
> the you get a point to int with a non-zero value. This is a terrible 
> and also annoying as in perl5 all this code is re-written as it is
> done properly. Anyway, you may want to test and reflect this change
> back in the source. 
> 
> Cheers,
> 		--Tony.
> 


-- 
Laurent Joncheray,                                  E-Mail: lpj at merit.edu
    Merit Network Inc, 4251 Plymouth Rd, Suite C,   Phone:  +1 (313) 936 2065
    Ann Arbor, MI 48105, USA                        Fax:    +1 (313) 747 3185
"This is the end, Beautiful friend. This is the end, My only friend, the end" JM



-------- Logged at  Wed May 3 21:41:05 MET DST 1995  ---------