add more info to the log to ease debugging

logmsg sprintf("FTP server started on port IPv%d/$port\n", $ipv6?6:4);

open(PID, ">$pidfile");

print PID $$;

print PID $$."\n";

close(PID);

logmsg("logged pid $$ in $pidfile\n");

sub sockfilt {

    my $l;

    foreach $l (@_) {