3ad2d52001-02-01Per Hedbor inherit "http_common"; void main(int argc, array argv) {
a3d6892001-02-01Per Hedbor  string sep; if( argc < 4 ) exit( BADARG ); if( argc == 5 ) sep = "\n"; else sep = "\r\n";
3ad2d52001-02-01Per Hedbor 
a3d6892001-02-01Per Hedbor  Stdio.File f = connect( argv[1] );
3ad2d52001-02-01Per Hedbor 
a3d6892001-02-01Per Hedbor  f->write( "GET "+argv[2]+sep );
3ad2d52001-02-01Per Hedbor  string data = f->read(); if( sizeof( data / "\r\n\r\n" ) != 1 ) exit( HEADERS ); if( (int)argv[3] ) if( data != ("\0" * (int)argv[3]) ) exit( BADDATA ); exit( OK ); }