LayoutTests/http/tests/xmlhttprequest/resources/post-echo-as-ascii.cgi - Issue 135583003: checkpoint Blink-side work to use Apache on Windows

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: LayoutTests/http/tests/xmlhttprequest/resources/post-echo-as-ascii.cgi

Issue 135583003: checkpoint Blink-side work to use Apache on Windows (Closed) Base URL: https://chromium.googlesource.com/chromium/blink.git@master

Patch Set: new rollup patch Created 6 years, 10 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

View unified diff | Download patch

« no previous file with comments | « LayoutTests/http/tests/xmlhttprequest/resources/post-echo.cgi ('k') | LayoutTests/http/tests/xmlhttprequest/resources/post-echo-as-utf-8.cgi » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Hide Comments ('s')

OLD	NEW
1 #!/usr/bin/perl -w	1 #!/usr/bin/perl -wT

2	2

3 print "Content-type: text/plain\n\n";	3 print "Content-type: text/plain\n\n";

4	4

5 if ($ENV{'REQUEST_METHOD'} eq "POST") {	5 if ($ENV{'REQUEST_METHOD'} eq "POST") {

6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'})	6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'})

7 \|\| die "Could not get query\n";	7 \|\| die "Could not get query\n";

8 my @array = split //, $request;	8 my @array = split //, $request;

9 @array = map(ord, @array);	9 @array = map(ord, @array);

10 print "@array";	10 print "@array";

11 } else {	11 } else {

12 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n";	12 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n";

13 }	13 }

OLD	NEW