Return to 404.pl CVS log

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

Annotation of embedaddon/lighttpd/tests/docroot/www/404.pl, revision 1.1

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