'SIZE' => 'loggedin|twosock',
'PWD' => 'loggedin|twosock',
'QUIT' => 'loggedin|twosock',
+ 'DELE' => 'loggedin|twosock'
);
# initially, we're in 'fresh' state
'QUIT' => '221 bye bye baby', # just reply something
'PWD' => '257 "/nowhere/anywhere" is current directory',
'REST' => '350 Yeah yeah we set it there for you',
+ 'DELE' => '200 OK OK OK whatever you say'
);
# callback functions for certain commands
my %customreply;
sub customize {
+ undef %customreply;
open(CUSTOM, "<log/ftpserver.cmd") ||
return 1;
print STDERR "FTPD: Getting commands from log/ftpserver.cmd\n";
}
- undef %customreply;
while(<CUSTOM>) {
if($_ =~ /REPLY ([A-Z]+) (.*)/) {
$customreply{$1}=$2;