Return to 404.fcgi CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www

Annotation of embedaddon/lighttpd/tests/docroot/www/404.fcgi, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl
                      2: #use CGI qw/:standard/;
                      3: use CGI::Fast qw(:standard);
                      4: my $cgi = new CGI;
                      5: while (new CGI::Fast) {
                      6:     my $request_uri = $ENV{'REQUEST_URI'};
                      7:     print (STDERR "REQUEST_URI: $request_uri\n");
                      8:     if ($request_uri =~ m/^\/dynamic\/200\// ) {
                      9:       print header ( -status => 200,
                     10:                      -type   => 'text/plain' );
                     11:       print ("found here\n");
                     12:     }
                     13:     elsif ($request_uri =~ m|^/dynamic/302/| ) {
                     14:       print header( -status=>302,
                     15:                     -location => 'http://www.example.org/');
                     16:     }
                     17:     elsif ($request_uri =~ m/^\/dynamic\/404\// ) {
                     18:       print header ( -status => 404
                     19:                      -type   => 'text/plain' );
                     20:       print ("Not found here\n");
                     21:     }
                     22:     else {
                     23:       print header ( -status => 500,
                     24:                      -type   => 'text/plain');
                     25:       print ("huh\n");
                     26:     };
                     27: };