mirror/mongoose
1
0
Fork 0
mirror of https://github.com/cesanta/mongoose.git synced 2025-08-06 13:37:34 +08:00
Code Issues Actions 4 Packages Projects Releases Wiki Activity

Added test for relative path to the CGI interpreter

Browse Source
This commit is contained in:
Sergey Lyubka 2012-01-29 19:21:43 +00:00
parent d4eecd5070
commit 8b65d40fad
1 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
test/test.pl
View File

@ -26,7 +26,7 @@ my $exit_code = 0;
my @files_to_delete = ('debug.log', 'access.log', $config, "$root/a/put.txt", my @files_to_delete = ('debug.log', 'access.log', $config, "$root/a/put.txt",
"$root/a+.txt", "$root/.htpasswd", "$root/binary_file", "$root/a", "$root/a+.txt", "$root/.htpasswd", "$root/binary_file", "$root/a",
$embed_exe, $unit_test_exe); "$root/myperl", $embed_exe, $unit_test_exe);
END { END {
unlink @files_to_delete; unlink @files_to_delete;
@ -164,14 +164,16 @@ unlink $config;
kill_spawned_child(); kill_spawned_child();
# Spawn the server on port $port # Spawn the server on port $port
write_file($config, ""); my $cmd = "$exe ".
my $cmd = "$exe $config -listening_ports $port -access_log_file access.log ". "-listening_ports $port ".
"-error_log_file debug.log ". "-access_log_file access.log ".
"-cgi_environment CGI_FOO=foo,CGI_BAR=bar,CGI_BAZ=baz " . "-error_log_file debug.log ".
"-extra_mime_types .bar=foo/bar,.tar.gz=blah,.baz=foo " . "-cgi_environment CGI_FOO=foo,CGI_BAR=bar,CGI_BAZ=baz " .
'-put_delete_passwords_file test/passfile ' . "-extra_mime_types .bar=foo/bar,.tar.gz=blah,.baz=foo " .
'-access_control_list -0.0.0.0/0,+127.0.0.1 ' . '-put_delete_passwords_file test/passfile ' .
"-document_root $root -url_rewrite_patterns /aiased=/etc/,/ta=$test_dir"; '-access_control_list -0.0.0.0/0,+127.0.0.1 ' .
"-document_root $root ".
"-url_rewrite_patterns /aiased=/etc/,/ta=$test_dir";
$cmd .= ' -cgi_interpreter perl' if on_windows(); $cmd .= ' -cgi_interpreter perl' if on_windows();
spawn($cmd); spawn($cmd);
@ -227,7 +229,7 @@ o("GET /not-exist HTTP/1.0\r\n\n", 'HTTP/1.1 404', 'Not existent file');
mkdir $test_dir . $dir_separator . 'x'; mkdir $test_dir . $dir_separator . 'x';
my $path = $test_dir . $dir_separator . 'x' . $dir_separator . 'index.cgi'; my $path = $test_dir . $dir_separator . 'x' . $dir_separator . 'index.cgi';
write_file($path, read_file($root . $dir_separator . 'env.cgi')); write_file($path, read_file($root . $dir_separator . 'env.cgi'));
chmod 0755, $path; chmod(0755, $path);
o("GET /$test_dir_uri/x/ HTTP/1.0\n\n", "Content-Type: text/html\r\n\r\n", o("GET /$test_dir_uri/x/ HTTP/1.0\n\n", "Content-Type: text/html\r\n\r\n",
'index.cgi execution'); 'index.cgi execution');
o("GET /$test_dir_uri/x/ HTTP/1.0\n\n", o("GET /$test_dir_uri/x/ HTTP/1.0\n\n",
@ -235,6 +237,14 @@ o("GET /$test_dir_uri/x/ HTTP/1.0\n\n",
o("GET /ta/x/ HTTP/1.0\n\n", "SCRIPT_NAME=/ta/x/index.cgi", o("GET /ta/x/ HTTP/1.0\n\n", "SCRIPT_NAME=/ta/x/index.cgi",
'Aliases SCRIPT_NAME'); 'Aliases SCRIPT_NAME');
o("GET /hello.txt HTTP/1.1\n\n", 'Connection: close', 'No keep-alive'); o("GET /hello.txt HTTP/1.1\n\n", 'Connection: close', 'No keep-alive');
$path = $test_dir . $dir_separator . 'x' . $dir_separator . 'a.cgi';
system("ln -s `which perl` $root/myperl") == 0 or fail("Can't symlink perl");
write_file($path, "#!../../myperl\n" .
"print \"Content-Type: text/plain\\n\\nhi\";");
chmod(0755, $path);
o("GET /$test_dir_uri/x/a.cgi HTTP/1.0\n\n", "hi", 'Relative CGI interp path');
#o("GET /hello.txt HTTP/1.1\n\n GET /hello.txt HTTP/1.0\n\n", #o("GET /hello.txt HTTP/1.1\n\n GET /hello.txt HTTP/1.0\n\n",
# 'HTTP/1.1 200.+keep-alive.+HTTP/1.1 200.+close', # 'HTTP/1.1 200.+keep-alive.+HTTP/1.1 200.+close',
# 'Request pipelining', 2); # 'Request pipelining', 2);
@ -327,7 +337,7 @@ unless (scalar(@ARGV) > 0 and $ARGV[0] eq "basic_tests") {
unlink "$root/.htpasswd"; unlink "$root/.htpasswd";
o("GET /env.cgi HTTP/1.0\n\r\n", 'HTTP/1.1 200 OK', 'GET CGI file'); o("GET /env.cgi HTTP/1.0\n\r\n", 'HTTP/1.1 200 OK', 'GET CGI file');
o("GET /redirect.cgi HTTP/1.0\n\n", 'HTTP/1.1 302', 'Redirect'); #o("GET /redirect.cgi HTTP/1.0\n\n", 'HTTP/1.1 302', 'Redirect');
o("GET /sh.cgi HTTP/1.0\n\r\n", 'shell script CGI', o("GET /sh.cgi HTTP/1.0\n\r\n", 'shell script CGI',
'GET sh CGI file') unless on_windows(); 'GET sh CGI file') unless on_windows();
o("GET /env.cgi?var=HELLO HTTP/1.0\n\n", 'QUERY_STRING=var=HELLO', o("GET /env.cgi?var=HELLO HTTP/1.0\n\n", 'QUERY_STRING=var=HELLO',