/* PalmPilot gateway to chess server  (ehg, lorenz) */#include <u.h>#include <libc.h>#include <bio.h>#include <libsec.h>#include "httpd.h"#include "httpsrv.h" char *P2 = "tcp!netlib2.cs.bell-labs.com!575";enum{ CHAN_IMMEDIATE=0, CHAN_NEW, CHAN_START=12000 }; Biobuf	bserv, bservr; voidmain(int argc, char **argv){	HConnect *c;	Hio *hout;	int ch, datafd, n_to, n_from;	char *s;	char addr[200];	uchar bin[3*1024]; 	c = init(argc, argv);	hout = &c->hout;	if(c->req.search == nil){		hfail(c, HSyntax);		exits("failed");	}	alarm(120000); 	n_to = strlen(c->req.search);	if(n_to > 4*(sizeof(bin)-1)/3)		n_to = 4*(sizeof(bin)-1)/3;	n_to = dec64(bin, sizeof bin, c->req.search, n_to);	strncpy(addr, P2, sizeof addr);	if(bin[0] != CHAN_IMMEDIATE && bin[0] != CHAN_NEW){		s = strchr(addr+4, '!');		if(s == nil){			hfail(c, HInternal, "P2 addr");			exits("failed");		}		s++;		snprint(s, sizeof addr - (s-addr), "%d", CHAN_START+bin[0]-(CHAN_NEW+1));	}	datafd = dial(addr, nil, nil, nil);	if(datafd < 0){		hfail(c, HNotFound, addr);		exits("failed");	}	Binit(&bserv, datafd, OWRITE); 	/* copy the incoming request */	Bwrite(&bserv, (char*)bin, n_to);	Bterm(&bserv); 	/* copy reply */	Binit(&bservr, datafd, OREAD);	n_from = 0;	while((ch = Bgetc(&bservr)) != Beof){		hputc(hout, ch);		n_from++;	}	hflush(hout);	exits(nil);}