diff options
Diffstat (limited to 'tests/docroot')
-rwxr-xr-x | tests/docroot/www/404.fcgi | 4 | ||||
-rwxr-xr-x | tests/docroot/www/404.pl | 4 | ||||
-rw-r--r-- | tests/docroot/www/cgi-pathinfo.pl | 2 | ||||
-rw-r--r-- | tests/docroot/www/cgi.pl | 2 | ||||
-rw-r--r-- | tests/docroot/www/get-header.pl | 2 | ||||
-rw-r--r-- | tests/docroot/www/get-post-len.pl | 4 | ||||
-rwxr-xr-x | tests/docroot/www/ip.pl | 2 | ||||
-rwxr-xr-x | tests/docroot/www/nph-status.pl | 2 | ||||
-rwxr-xr-x | tests/docroot/www/send404.pl | 2 |
9 files changed, 13 insertions, 11 deletions
diff --git a/tests/docroot/www/404.fcgi b/tests/docroot/www/404.fcgi index 468089f8..f98c3f6c 100755 --- a/tests/docroot/www/404.fcgi +++ b/tests/docroot/www/404.fcgi @@ -1,6 +1,8 @@ -#!/usr/bin/perl +#!/usr/bin/env perl + #use CGI qw/:standard/; use CGI::Fast qw(:standard); + my $cgi = new CGI; while (new CGI::Fast) { my $request_uri = $ENV{'REQUEST_URI'}; diff --git a/tests/docroot/www/404.pl b/tests/docroot/www/404.pl index 0f743d03..9486ed66 100755 --- a/tests/docroot/www/404.pl +++ b/tests/docroot/www/404.pl @@ -1,5 +1,7 @@ -#!/usr/bin/perl +#!/usr/bin/env perl + use CGI qw/:standard/; + my $cgi = new CGI; my $request_uri = $ENV{'REQUEST_URI'}; print (STDERR "REQUEST_URI: $request_uri\n"); diff --git a/tests/docroot/www/cgi-pathinfo.pl b/tests/docroot/www/cgi-pathinfo.pl index 7bebb0c9..6b3a3355 100644 --- a/tests/docroot/www/cgi-pathinfo.pl +++ b/tests/docroot/www/cgi-pathinfo.pl @@ -1,4 +1,4 @@ -#! /usr/bin/perl +#!/usr/bin/env perl print "Content-Type: text/html\r\n\r\n"; diff --git a/tests/docroot/www/cgi.pl b/tests/docroot/www/cgi.pl index 88ae6d35..6269bd2f 100644 --- a/tests/docroot/www/cgi.pl +++ b/tests/docroot/www/cgi.pl @@ -1,4 +1,4 @@ -#! /usr/bin/perl +#!/usr/bin/env perl print "Content-Type: text/html\r\n\r\n"; diff --git a/tests/docroot/www/get-header.pl b/tests/docroot/www/get-header.pl index 905f3e79..1e19677d 100644 --- a/tests/docroot/www/get-header.pl +++ b/tests/docroot/www/get-header.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl my $s = $ENV{$ENV{"QUERY_STRING"}}; diff --git a/tests/docroot/www/get-post-len.pl b/tests/docroot/www/get-post-len.pl index bac8bbf8..82276bd6 100644 --- a/tests/docroot/www/get-post-len.pl +++ b/tests/docroot/www/get-post-len.pl @@ -1,5 +1,4 @@ -#!/usr/bin/perl - +#!/usr/bin/env perl print "Content-Type: text/plain\r\n\r\n"; @@ -12,4 +11,3 @@ if ($ENV{"REQUEST_METHOD"} eq "POST") { } else { print "0"; } - diff --git a/tests/docroot/www/ip.pl b/tests/docroot/www/ip.pl index 6c9e993a..fa56ddcf 100755 --- a/tests/docroot/www/ip.pl +++ b/tests/docroot/www/ip.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl print "Content-Type: text/html\r\n\r\n"; print $ENV{'REMOTE_ADDR'}; diff --git a/tests/docroot/www/nph-status.pl b/tests/docroot/www/nph-status.pl index d817c7fd..b42da741 100755 --- a/tests/docroot/www/nph-status.pl +++ b/tests/docroot/www/nph-status.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl my $status = 200; diff --git a/tests/docroot/www/send404.pl b/tests/docroot/www/send404.pl index a92dfa6c..7a8ab0e7 100755 --- a/tests/docroot/www/send404.pl +++ b/tests/docroot/www/send404.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl use CGI qw/:standard/; print header ( -status => 404 -type => 'text/plain' ); |