ftpserver.pl: Corrected SMTP QUIT response to be more realistic

# what set by "RCPT"

my $smtp_rcpt;

# The type of server (SMTP or ESMTP)

my $smtp_type;

sub EHLO_smtp {

    my ($client) = @_;

    my @data;

        $client = "[127.0.0.1]";

    }

    # Set the server type to ESMTP

    $smtp_type = "ESMTP";

    # Calculate the EHLO response

    push @data, "ESMTP pingpong test server Hello $client";

    push @data, "$smtp_type pingpong test server Hello $client";

    if((@capabilities) || (@auth_mechs)) {

        my $mechs;

        $client = "[127.0.0.1]";

    }

    sendcontrol "250 SMTP pingpong test server Hello $client\r\n";

    # Set the server type to SMTP

    $smtp_type = "SMTP";

    # Send the HELO response

    sendcontrol "250 $smtp_type pingpong test server Hello $client\r\n";

    return 0;

}

sub QUIT_smtp {

    sendcontrol "221 byebye\r\n";

    sendcontrol "221 cURL $smtp_type server signing off\r\n";

    return 0;

}