tests/mod-fastcgi.t

   1 #!/usr/bin/env perl
   2 BEGIN {
   3         # add current source dir to the include-path
   4         # we need this for make distcheck
   5         (my $srcdir = $0) =~ s,/[^/]+$,/,;
   6         unshift @INC, $srcdir;
   7 }
   8
   9 use strict;
  10 use Test::More tests => 46;
  11 use LightyTest;
  12
  13 my $tf = LightyTest->new();
  14
  15 my $t;
  16
  17 SKIP: {
  18         skip "no php binary found", 31 unless $LightyTest::HAVE_PHP;
  19
  20         $tf->{CONFIGFILE} = 'fastcgi-10.conf';
  21         ok($tf->start_proc == 0, "Starting lighttpd") or goto cleanup;
  22
  23         $t->{REQUEST} = ( <<EOF
  24 GET /phpinfo.php HTTP/1.0
  25 Host: www.example.org
  26 EOF
  27  );
  28         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  29         ok($tf->handle_http($t) == 0, 'valid request');
  30
  31         $t->{REQUEST}  = ( <<EOF
  32 GET /phpinfofoobar.php HTTP/1.0
  33 Host: www.example.org
  34 EOF
  35  );
  36         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
  37         ok($tf->handle_http($t) == 0, 'file not found');
  38
  39         $t->{REQUEST}  = ( <<EOF
  40 GET /go/ HTTP/1.0
  41 Host: www.example.org
  42 EOF
  43  );
  44         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  45         ok($tf->handle_http($t) == 0, 'index-file handling');
  46
  47         $t->{REQUEST}  = ( <<EOF
  48 GET /redirect.php HTTP/1.0
  49 Host: www.example.org
  50 EOF
  51  );
  52         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 302, 'Location' => 'http://www.example.org:2048/' } ];
  53         ok($tf->handle_http($t) == 0, 'Status + Location via FastCGI');
  54
  55         $t->{REQUEST}  = ( <<EOF
  56 GET /redirect.php/ HTTP/1.0
  57 Host: www.example.org
  58 EOF
  59  );
  60         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 302, 'Location' => 'http://www.example.org:2048/' } ];
  61         ok($tf->handle_http($t) == 0, 'Trailing slash as path-info (#1989: workaround broken operating systems)');
  62
  63         $t->{REQUEST}  = ( <<EOF
  64 GET /get-server-env.php?env=PHP_SELF HTTP/1.0
  65 Host: www.example.org
  66 EOF
  67  );
  68         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  69         ok($tf->handle_http($t) == 0, '$_SERVER["PHP_SELF"]');
  70
  71         $t->{REQUEST}  = ( <<EOF
  72 GET /get-server-env.php/foo?env=SCRIPT_NAME HTTP/1.0
  73 Host: www.example.org
  74 EOF
  75  );
  76         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/get-server-env.php' } ];
  77         ok($tf->handle_http($t) == 0, '$_SERVER["SCRIPT_NAME"]');
  78
  79         $t->{REQUEST}  = ( <<EOF
  80 GET /get-server-env.php/foo?env=PATH_INFO HTTP/1.0
  81 Host: www.example.org
  82 EOF
  83  );
  84         $t->{RESPONSE}  = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/foo' } ];
  85         ok($tf->handle_http($t) == 0, '$_SERVER["PATH_INFO"]');
  86
  87         $t->{REQUEST}  = ( <<EOF
  88 GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
  89 Host: www.example.org
  90 EOF
  91  );
  92         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
  93         ok($tf->handle_http($t) == 0, 'SERVER_NAME');
  94
  95         $t->{REQUEST}  = ( <<EOF
  96 GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
  97 Host: foo.example.org
  98 EOF
  99  );
 100         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
 101         ok($tf->handle_http($t) == 0, 'SERVER_NAME');
 102
 103         $t->{REQUEST}  = ( <<EOF
 104 GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
 105 Host: vvv.example.org
 106 EOF
 107  );
 108         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org' } ];
 109         ok($tf->handle_http($t) == 0, 'SERVER_NAME');
 110
 111         $t->{REQUEST}  = ( <<EOF
 112 GET /cgi.php/abc HTTP/1.0
 113 EOF
 114  );
 115         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 116         ok($tf->handle_http($t) == 0, 'PATHINFO');
 117
 118     if ($^O ne "cygwin") {
 119         $t->{REQUEST}  = ( <<EOF
 120 GET /cgi.php%20%20%20 HTTP/1.0
 121 EOF
 122  );
 123         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
 124         ok($tf->handle_http($t) == 0, 'No source retrieval');
 125     } else {
 126         ok(1, 'No source retrieval; skipped on cygwin; see response.c');
 127     }
 128
 129         $t->{REQUEST}  = ( <<EOF
 130 GET /www/abc/def HTTP/1.0
 131 EOF
 132  );
 133         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
 134         ok($tf->handle_http($t) == 0, 'PATHINFO on a directory');
 135
 136         $t->{REQUEST}  = ( <<EOF
 137 GET /indexfile/ HTTP/1.0
 138 EOF
 139  );
 140         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/indexfile/index.php' } ];
 141         ok($tf->handle_http($t) == 0, 'PHP_SELF + Indexfile, Bug #3');
 142
 143         $t->{REQUEST}  = ( <<EOF
 144 GET /prefix.fcgi?var=SCRIPT_NAME HTTP/1.0
 145 EOF
 146  );
 147         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/prefix.fcgi' } ];
 148         ok($tf->handle_http($t) == 0, 'PATH_INFO, check-local off');
 149
 150         $t->{REQUEST}  = ( <<EOF
 151 GET /prefix.fcgi/foo/bar?var=SCRIPT_NAME HTTP/1.0
 152 EOF
 153  );
 154         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/prefix.fcgi' } ];
 155         ok($tf->handle_http($t) == 0, 'PATH_INFO, check-local off');
 156
 157         $t->{REQUEST}  = ( <<EOF
 158 GET /prefix.fcgi/foo/bar?var=PATH_INFO HTTP/1.0
 159 EOF
 160  );
 161         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/foo/bar' } ];
 162         ok($tf->handle_http($t) == 0, 'PATH_INFO, check-local off');
 163
 164         $t->{REQUEST}  = ( <<EOF
 165 GET /sendfile.php?range=0- HTTP/1.0
 166 EOF
 167  );
 168         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => 4348 } ];
 169         ok($tf->handle_http($t) == 0, 'X-Sendfile2');
 170
 171         $t->{REQUEST}  = ( <<EOF
 172 GET /sendfile.php?range=0-4&range2=5- HTTP/1.0
 173 EOF
 174  );
 175         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => 4348 } ];
 176         ok($tf->handle_http($t) == 0, 'X-Sendfile2');
 177
 178         $t->{REQUEST}  = ( <<EOF
 179 GET /get-server-env.php?env=REMOTE_USER HTTP/1.0
 180 Host: auth.example.org
 181 Authorization: Basic ZGVzOmRlcw==
 182 EOF
 183  );
 184         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'des' } ];
 185         ok($tf->handle_http($t) == 0, '$_SERVER["REMOTE_USER"]');
 186
 187         $t->{REQUEST}  = ( <<EOF
 188 GET /get-server-env.php?env=AUTH_TYPE HTTP/1.0
 189 Host: auth.example.org
 190 Authorization: Basic ZGVzOmRlcw==
 191 EOF
 192  );
 193         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'Basic' } ];
 194         ok($tf->handle_http($t) == 0, '$_SERVER["AUTH_TYPE"]');
 195
 196         $t->{REQUEST}  = ( <<EOF
 197 GET /get-server-env.php?env=SERVER_NAME HTTP/1.0
 198 Host: zzz.example.org
 199 EOF
 200  );
 201         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'zzz.example.org' } ];
 202         ok($tf->handle_http($t) == 0, 'FastCGI + Host');
 203
 204         $t->{REQUEST}  = ( <<EOF
 205 GET http://zzz.example.org/get-server-env.php?env=SERVER_NAME HTTP/1.0
 206 Host: aaa.example.org
 207 EOF
 208  );
 209         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'zzz.example.org' } ];
 210         ok($tf->handle_http($t) == 0, 'SERVER_NAME (absolute url in request line)');
 211
 212         $t->{REQUEST}  = ( <<EOF
 213 GET /indexfile/ HTTP/1.0
 214 Host: www.example.org
 215 EOF
 216  );
 217         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/indexfile/index.php' } ];
 218         ok($tf->handle_http($t) == 0, 'Bug #6');
 219
 220         $t->{REQUEST}  = ( <<EOF
 221 POST /indexfile/abc HTTP/1.0
 222 Host: www.example.org
 223 Content-Length: 0
 224 EOF
 225  );
 226         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404, 'HTTP-Content' => '/indexfile/return-404.php' } ];
 227         ok($tf->handle_http($t) == 0, 'Bug #12');
 228
 229         $t->{REQUEST}  = ( <<EOF
 230 GET /indexfile/index.php HTTP/1.0
 231 Host: bin-env.example.org
 232 EOF
 233  );
 234         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 235         ok($tf->handle_http($t) == 0, 'FastCGI + local spawning');
 236
 237         $t->{REQUEST} = ( <<EOF
 238 HEAD /indexfile/index.php HTTP/1.0
 239 Host: bin-env.example.org
 240 EOF
 241  );
 242         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '-Content-Length' => '0' } ];
 243         # Of course a valid content-length != 0 would be ok, but we assume for now that such one is not generated.
 244         ok($tf->handle_http($t) == 0, 'Check for buggy content length with HEAD');
 245
 246         $t->{REQUEST}  = ( <<EOF
 247 GET /get-env.php?env=MAIL HTTP/1.0
 248 Host: bin-env.example.org
 249 EOF
 250  );
 251         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 , 'HTTP-Content' => '' } ];
 252         ok($tf->handle_http($t) == 0, 'FastCGI + bin-copy-environment');
 253
 254         ok($tf->stop_proc == 0, "Stopping lighttpd");
 255 }
 256
 257 SKIP: {
 258         skip "no fcgi-auth, fcgi-responder found", 15
 259           unless (-x $tf->{BASEDIR}."/tests/fcgi-auth"      || -x $tf->{BASEDIR}."/tests/fcgi-auth.exe")
 260               && (-x $tf->{BASEDIR}."/tests/fcgi-responder" || -x $tf->{BASEDIR}."/tests/fcgi-responder.exe");
 261
 262         $tf->{CONFIGFILE} = 'fastcgi-responder.conf';
 263         ok($tf->start_proc == 0, "Starting lighttpd with $tf->{CONFIGFILE}") or die();
 264         $t->{REQUEST}  = ( <<EOF
 265 GET /index.html?ok HTTP/1.0
 266 Host: auth.example.org
 267 EOF
 268  );
 269         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 270         ok($tf->handle_http($t) == 0, 'FastCGI - Auth');
 271
 272         $t->{REQUEST}  = ( <<EOF
 273 GET /index.html?fail HTTP/1.0
 274 Host: auth.example.org
 275 EOF
 276  );
 277         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
 278         ok($tf->handle_http($t) == 0, 'FastCGI - Auth');
 279
 280         $t->{REQUEST}  = ( <<EOF
 281 GET /expire/access.txt?ok HTTP/1.0
 282 Host: auth.example.org
 283 EOF
 284  );
 285         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 286         ok($tf->handle_http($t) == 0, 'FastCGI - Auth in subdirectory');
 287
 288         $t->{REQUEST}  = ( <<EOF
 289 GET /index.fcgi?varfail HTTP/1.0
 290 Host: auth.example.org
 291 EOF
 292  );
 293         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 403 } ];
 294         ok($tf->handle_http($t) == 0, 'FastCGI - Auth Fail with FastCGI responder afterwards');
 295
 296         $t->{REQUEST}  = ( <<EOF
 297 GET /index.fcgi?var HTTP/1.0
 298 Host: auth.example.org
 299 EOF
 300  );
 301         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'LighttpdTestContent' } ];
 302         ok($tf->handle_http($t) == 0, 'FastCGI - Auth Success with Variable- to Env expansion');
 303
 304         $t->{REQUEST}  = ( <<EOF
 305 GET /index.fcgi?lf HTTP/1.0
 306 Host: www.example.org
 307 EOF
 308  );
 309         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
 310         ok($tf->handle_http($t) == 0, 'line-ending \n\n');
 311
 312         $t->{REQUEST}  = ( <<EOF
 313 GET /index.fcgi?crlf HTTP/1.0
 314 Host: www.example.org
 315 EOF
 316  );
 317         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
 318         ok($tf->handle_http($t) == 0, 'line-ending \r\n\r\n');
 319
 320         $t->{REQUEST}  = ( <<EOF
 321 GET /index.fcgi?slow-lf HTTP/1.0
 322 Host: www.example.org
 323 EOF
 324  );
 325         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
 326         ok($tf->handle_http($t) == 0, 'line-ending \n + \n');
 327
 328         $t->{REQUEST}  = ( <<EOF
 329 GET /index.fcgi?slow-crlf HTTP/1.0
 330 Host: www.example.org
 331 EOF
 332  );
 333         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
 334         ok($tf->handle_http($t) == 0, 'line-ending \r\n + \r\n');
 335
 336         $t->{REQUEST}  = ( <<EOF
 337 GET /abc/def/ghi?path_info HTTP/1.0
 338 Host: wsgi.example.org
 339 EOF
 340  );
 341         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/abc/def/ghi' } ];
 342         ok($tf->handle_http($t) == 0, 'PATH_INFO (wsgi)');
 343
 344         $t->{REQUEST}  = ( <<EOF
 345 GET /abc/def/ghi?script_name HTTP/1.0
 346 Host: wsgi.example.org
 347 EOF
 348  );
 349         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '' } ];
 350         ok($tf->handle_http($t) == 0, 'SCRIPT_NAME (wsgi)');
 351
 352
 353         $t->{REQUEST}  = ( <<EOF
 354 GET /index.fcgi?die-at-end HTTP/1.0
 355 Host: www.example.org
 356 EOF
 357  );
 358         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
 359         ok($tf->handle_http($t) == 0, 'killing fastcgi and wait for restart');
 360
 361         # (might take lighttpd 1 sec to detect backend exit)
 362         select(undef, undef, undef, .5);
 363         for (my $c = 2*20; $c && 0 == $tf->listening_on(10000); --$c) {
 364                 select(undef, undef, undef, 0.05);
 365         }
 366         $t->{REQUEST}  = ( <<EOF
 367 GET /index.fcgi?crlf HTTP/1.0
 368 Host: www.example.org
 369 EOF
 370  );
 371         $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'test123' } ];
 372         ok($tf->handle_http($t) == 0, 'regular response of after restart');
 373
 374
 375         ok($tf->stop_proc == 0, "Stopping lighttpd");
 376 }
 377
 378 exit 0;
 379
 380 cleanup: ;
 381
 382 die();