tests/mod-cgi.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 IO::Socket;
  11 use Test::More tests => 16;
  12 use LightyTest;
  13
  14 my $tf = LightyTest->new();
  15 my $t;
  16
  17 ok($tf->start_proc == 0, "Starting lighttpd") or die();
  18
  19 # mod-cgi
  20 #
  21 $t->{REQUEST}  = ( <<EOF
  22 GET /cgi.pl HTTP/1.0
  23 EOF
  24  );
  25 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  26 ok($tf->handle_http($t) == 0, 'perl via cgi');
  27
  28 $t->{REQUEST}  = ( <<EOF
  29 GET /cgi.pl/foo HTTP/1.0
  30 EOF
  31  );
  32 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/cgi.pl' } ];
  33 ok($tf->handle_http($t) == 0, 'perl via cgi + pathinfo');
  34
  35 $t->{REQUEST}  = ( <<EOF
  36 GET /cgi.pl?internal-redir HTTP/1.0
  37 EOF
  38  );
  39 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  40 ok($tf->handle_http($t) == 0, 'perl via cgi and internal redirect from CGI');
  41
  42 $t->{REQUEST}  = ( <<EOF
  43 GET /cgi-pathinfo.pl/foo HTTP/1.0
  44 EOF
  45  );
  46 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => '/foo' } ];
  47 ok($tf->handle_http($t) == 0, 'perl via cgi + pathinfo');
  48
  49 $t->{REQUEST}  = ( <<EOF
  50 GET /nph-status.pl?30 HTTP/1.0
  51 EOF
  52  );
  53 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  54 ok($tf->handle_http($t) == 0, 'NPH + perl, invalid status-code (#14)');
  55
  56 $t->{REQUEST}  = ( <<EOF
  57 GET /nph-status.pl?304 HTTP/1.0
  58 EOF
  59  );
  60 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
  61 ok($tf->handle_http($t) == 0, 'NPH + perl, setting status-code (#1125)');
  62
  63 $t->{REQUEST}  = ( <<EOF
  64 GET /nph-status.pl?200 HTTP/1.0
  65 EOF
  66  );
  67 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
  68 ok($tf->handle_http($t) == 0, 'NPH + perl, setting status-code');
  69
  70 $t->{REQUEST} = ( <<EOF
  71 GET /get-header.pl?GATEWAY_INTERFACE HTTP/1.0
  72 EOF
  73  );
  74 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } ];
  75 ok($tf->handle_http($t) == 0, 'cgi-env: GATEWAY_INTERFACE');
  76
  77 $t->{REQUEST} = ( <<EOF
  78 GET /get-header.pl?QUERY_STRING HTTP/1.0
  79 EOF
  80  );
  81 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'QUERY_STRING' } ];
  82 ok($tf->handle_http($t) == 0, 'cgi-env: QUERY_STRING');
  83
  84 $t->{REQUEST} = ( <<EOF
  85 GET /get-header.pl?GATEWAY_INTERFACE HTTP/1.0
  86 EOF
  87  );
  88 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'CGI/1.1' } ];
  89 ok($tf->handle_http($t) == 0, 'cgi-env: GATEWAY_INTERFACE');
  90
  91 $t->{REQUEST}  = ( <<EOF
  92 GET /get-header.pl?HTTP_XX_YY123 HTTP/1.0
  93 xx-yy123: foo
  94 EOF
  95  );
  96 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'foo' } ];
  97 ok($tf->handle_http($t) == 0, 'cgi-env: quoting headers with numbers');
  98
  99 $t->{REQUEST}  = ( <<EOF
 100 GET /get-header.pl?HTTP_HOST HTTP/1.0
 101 Host: www.example.org
 102 EOF
 103  );
 104 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'HTTP-Content' => 'www.example.org', 'Content-Type' => 'text/plain' } ];
 105 ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
 106
 107 $t->{REQUEST}  = ( <<EOF
 108 GET /get-header.pl?HTTP_HOST HTTP/1.1
 109 Host: www.example.org
 110 Connection: close
 111 EOF
 112  );
 113 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.1', 'HTTP-Status' => 200, '+Content-Length' => '' } ];
 114 ok($tf->handle_http($t) == 0, 'cgi-env: HTTP_HOST');
 115
 116 # broken header crash
 117 $t->{REQUEST}  = ( <<EOF
 118 GET /crlfcrash.pl HTTP/1.0
 119 EOF
 120  );
 121 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 302, 'Location' => 'http://www.example.org/' } ];
 122 ok($tf->handle_http($t) == 0, 'broken header via perl cgi');
 123
 124 ok($tf->stop_proc == 0, "Stopping lighttpd");
 125