7fc4a92001-06-24Martin Nilsson inherit "http_common"; void main(int argc, array argv) { string sep = "\r\n"; int psize = 100000; if( argc < 4 ) exit( BADARG ); Stdio.File f = connect( argv[1] ); write_fragmented( f, "GET "+argv[2]+" HTTP/"+argv[4]+sep+ "Connection: close"+sep+ "User-Agent: testscript"+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 ); }