HTTP
HTTP GET
followlocation
FTP
PASV
FILE
#
# Server-side
HTTP/1.1 302 OK
Date: Thu, 09 Nov 2010 14:49:00 GMT
Server: test-server/fake swsclose
Content-Type: text/html
Funny-head: yesyes
Location: ftp://127.0.0.1:8992/10280002
Content-Length: 0
Connection: close
data
to
see
that FTP
works
so does it?
#
# Client-side
http
ftp
HTTP Location: redirect to FTP URL
-k http://%HOSTIP:%HTTPPORT/10280001 -L
# The data section doesn't do variable substitution, so we must assert this
perl -e "print 'Test requires default test server host and port' if ( '%HOSTIP' ne '127.0.0.1' || '%FTPPORT' ne '8992' );"
#
# Verify data after the test has been "shot"
^User-Agent:.*
GET /10280001 HTTP/1.1
Host: %HOSTIP:%HTTPPORT
Accept: */*
USER anonymous
PASS ftp@example.com
PWD
EPSV
TYPE I
SIZE 10280002
RETR 10280002
QUIT
HTTP/1.1 302 OK
Date: Thu, 09 Nov 2010 14:49:00 GMT
Server: test-server/fake swsclose
Content-Type: text/html
Funny-head: yesyes
Location: ftp://127.0.0.1:8992/10280002
Content-Length: 0
Connection: close
data
to
see
that FTP
works
so does it?