Allow ftp server alternate replies to contain backslash-escaped control

For FTP, these are supported:

REPLY [command] [return value] [response string]

 - Changes how the server responds to the [command]

 - Changes how the server responds to the [command]. [response string] is

   evaluated as a perl string, so it can contain embedded \r\n, for example.

COUNT [command] [num]

 - Do the REPLY change for [command] only [num] times and then go back to the

   built-in approach

my %customcount;

my %delayreply;

sub customize {

    undef %customreply;

    $nosave = 0; # default is to save as normal

    $controldelay = 0; # default is no delaying the responses

    $retrweirdo = 0;

    $retrnosize = 0;

    $pasvbadip = 0;

    $nosave = 0;

    %customreply = ();

    %customcount = ();

    %delayreply = ();

    while(<CUSTOM>) {

        if($_ =~ /REPLY ([A-Z]+) (.*)/) {

            $customreply{$1}=$2;

            $customreply{$1}=eval "qq{$2}";

            logmsg "FTPD: set custom reply for $1\n";

        }

        if($_ =~ /COUNT ([A-Z]+) (.*)/) {