changed the logging to work when the logfile is removed during testing

require "getpart.pm";

open(FTPLOG, ">log/ftpd.log") ||

    print STDERR "failed to open log file, runs without logging\n";

# open and close each time to allow removal at any time

sub logmsg {

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =

        localtime(time);

    open(FTPLOG, ">>log/ftpd.log");

    printf FTPLOG ("%02d:%02d:%02d (%d) ",

                   $hour, $min, $sec, $$);

    print FTPLOG @_;

    close(FTPLOG);

}

sub ftpmsg {

    open(STDIN,  "<&Client")   || die "can't dup client to stdin";

    open(STDOUT, ">&Client")   || die "can't dup client to stdout";

    FTPLOG->autoflush(1);

    &customize(); # read test control instructions

    print @welcome;