moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

new daring features, not used by any current test

Browse Source
This commit is contained in:
Daniel Stenberg 2004-06-17 08:06:03 +00:00
parent 05baf94b43
commit b92e2ab6b1
2 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/ftpserver.pl
View File

@ -66,6 +66,7 @@ my $verbose=0; # set to 1 for debugging
my $retrweirdo=0; my $retrweirdo=0;
my $retrnosize=0; my $retrnosize=0;
my $srcdir="."; my $srcdir=".";
my $nosave=0;
my $port = 8921; # just a default my $port = 8921; # just a default
do { do {
@ -381,7 +382,10 @@ sub STOR_command {
my $ulsize=0; my $ulsize=0;
while (defined($line = <SOCK>)) { while (defined($line = <SOCK>)) {
$ulsize += length($line); $ulsize += length($line);
print FILE $line; print FILE $line if(!$nosave);
}
if($nosave) {
print FILE "$ulsize bytes would've been stored here\n";
} }
close(FILE); close(FILE);
close_dataconn(); close_dataconn();
@ -496,6 +500,9 @@ my %customcount;
my %delayreply; my %delayreply;
sub customize { sub customize {
undef %customreply; undef %customreply;
$nosave = 0; # default is to save as normal
open(CUSTOM, "<log/ftpserver.cmd") || open(CUSTOM, "<log/ftpserver.cmd") ||
return 1; return 1;
@ -504,23 +511,32 @@ sub customize {
while(<CUSTOM>) { while(<CUSTOM>) {
if($_ =~ /REPLY ([A-Z]+) (.*)/) { if($_ =~ /REPLY ([A-Z]+) (.*)/) {
$customreply{$1}=$2; $customreply{$1}=$2;
logmsg "FTPD: set custom reply for $1\n";
} }
if($_ =~ /COUNT ([A-Z]+) (.*)/) { if($_ =~ /COUNT ([A-Z]+) (.*)/) {
# we blank the customreply for this command when having # we blank the customreply for this command when having
# been used this number of times # been used this number of times
$customcount{$1}=$2; $customcount{$1}=$2;
logmsg "FTPD: blank custom reply for $1 after $2 uses\n";
} }
elsif($_ =~ /DELAY ([A-Z]+) (\d*)/) { elsif($_ =~ /DELAY ([A-Z]+) (\d*)/) {
$delayreply{$1}=$2; $delayreply{$1}=$2;
logmsg "FTPD: delay reply for $1 with $2 seconds\n";
} }
elsif($_ =~ /RETRWEIRDO/) { elsif($_ =~ /RETRWEIRDO/) {
print "instructed to use RETRWEIRDO\n"; logmsg "FTPD: instructed to use RETRWEIRDO\n";
$retrweirdo=1; $retrweirdo=1;
} }
elsif($_ =~ /RETRNOSIZE/) { elsif($_ =~ /RETRNOSIZE/) {
print "instructed to use RETRNOSIZE\n"; logmsg "FTPD: instructed to use RETRNOSIZE\n";
$retrnosize=1; $retrnosize=1;
} }
elsif($_ =~ /NOSAVE/) {
# don't actually store the file we upload - to be used when
# uploading insanely huge amounts
$nosave = 1;
logmsg "FTPD: NOSAVE prevents saving of uploaded data\n";
}
} }
close(CUSTOM); close(CUSTOM);
} }

11
tests/runtests.pl
View File

@ -1052,6 +1052,17 @@ sub singletest {
my $dumped_core; my $dumped_core;
my $cmdres; my $cmdres;
my @precommand= getpart("client", "precommand");
if($precommand[0]) {
# this is pure perl to eval!
my $code = join("", @precommand);
eval $code;
if($@) {
print "perl: $code\n";
print "precommand: $@";
exit;
}
}
if($gdbthis) { if($gdbthis) {
open(GDBCMD, ">log/gdbcmd"); open(GDBCMD, ">log/gdbcmd");