Roxen.git
/
server
/
etc
/
test
/
tests
/
http
/
http10.pike
version
»
Context lines:
10
20
40
80
file
none
3
Roxen.git/server/etc/test/tests/http/http10.pike:1:
inherit "http_common"; void main(int argc, array argv) {
-
string sep;
-
if(
argc
<
4
)
exit(
BADARG )
;
-
if( argc
==
5
)
sep
=
"\n";
else
sep = "\r\n"
;
+
string
sep
= "\r\n"
;
+
int
psize
=
100000
;
+
if( argc
<
4
)
+
exit(
BADARG
)
;
-
+
if( argc == 5 )
+
{
+
switch( (int)argv[4] )
+
{
+
case 1:
+
break;
+
case 2:
+
sep = "\n";
+
break;
+
case 3:
+
psize = 1;
+
break;
+
case 4:
+
psize = 10;
+
break;
+
}
+
}
+
Stdio.File f = connect( argv[1] );
-
f->write( "GET "+argv[2]+" HTTP/1.0"+sep+
-
"User-Agent: testcript"+sep+
-
sep );
+
-
+
write_fragmented( f,
+
"GET "+argv[2]+" HTTP/1.0"+sep+
+
"Connection: close"+sep+
+
"User-Agent: testcript"+sep+sep,
+
psize );
+
string _d = f->read(); array q = _d/"\r\n\r\n"; if( sizeof( q ) < 2 ) exit( BADHEADERS ); verify_headers( q[0], strlen(q[1]), "HTTP/1.0", (argv[2] != "/nofile" ? 200 : 404), (argv[2][strlen(argv[2])-3..]=="raw")); if( (int)argv[3] ) if( q[1] != ("\0" * (int)argv[3]) ) exit( BADDATA ); exit( OK ); }