1 7a4ee46d 2003-11-23 devnull #include "stdinc.h"
 2 7a4ee46d 2003-11-23 devnull #include "dat.h"
 3 7a4ee46d 2003-11-23 devnull #include "fns.h"
 4 7a4ee46d 2003-11-23 devnull 
 5 7a4ee46d 2003-11-23 devnull char *host;
 6 7a4ee46d 2003-11-23 devnull 
 7 7a4ee46d 2003-11-23 devnull void
 8 7a4ee46d 2003-11-23 devnull usage(void)
 9 7a4ee46d 2003-11-23 devnull {
10 7a4ee46d 2003-11-23 devnull 	fprint(2, "usage: write [-z] [-h host] [-t type] <datablock\n");
11 7a4ee46d 2003-11-23 devnull 	threadexitsall("usage");
12 7a4ee46d 2003-11-23 devnull }
13 7a4ee46d 2003-11-23 devnull 
14 7a4ee46d 2003-11-23 devnull void
15 7a4ee46d 2003-11-23 devnull threadmain(int argc, char *argv[])
16 7a4ee46d 2003-11-23 devnull {
17 7a4ee46d 2003-11-23 devnull 	uchar *p, score[VtScoreSize];
18 7a4ee46d 2003-11-23 devnull 	int type, n, dotrunc;
19 7a4ee46d 2003-11-23 devnull 	VtConn *z;
20 7a4ee46d 2003-11-23 devnull 
21 7a4ee46d 2003-11-23 devnull 	dotrunc = 0;
22 7a4ee46d 2003-11-23 devnull 	type = VtDataType;
23 7a4ee46d 2003-11-23 devnull 	ARGBEGIN{
24 7a4ee46d 2003-11-23 devnull 	case 'z':
25 7a4ee46d 2003-11-23 devnull 		dotrunc = 1;
26 7a4ee46d 2003-11-23 devnull 		break;
27 7a4ee46d 2003-11-23 devnull 	case 'h':
28 7a4ee46d 2003-11-23 devnull 		host = EARGF(usage());
29 7a4ee46d 2003-11-23 devnull 		break;
30 7a4ee46d 2003-11-23 devnull 	case 't':
31 7a4ee46d 2003-11-23 devnull 		type = atoi(EARGF(usage()));
32 7a4ee46d 2003-11-23 devnull 		break;
33 7a4ee46d 2003-11-23 devnull 	default:
34 7a4ee46d 2003-11-23 devnull 		usage();
35 7a4ee46d 2003-11-23 devnull 		break;
36 7a4ee46d 2003-11-23 devnull 	}ARGEND
37 7a4ee46d 2003-11-23 devnull 
38 7a4ee46d 2003-11-23 devnull 	if(argc != 0)
39 7a4ee46d 2003-11-23 devnull 		usage();
40 7a4ee46d 2003-11-23 devnull 
41 7a4ee46d 2003-11-23 devnull 
42 7a4ee46d 2003-11-23 devnull 	fmtinstall('V', vtscorefmt);
43 7a4ee46d 2003-11-23 devnull 
44 7a4ee46d 2003-11-23 devnull 	p = ezmalloc(VtMaxLumpSize+1);
45 7a4ee46d 2003-11-23 devnull 	n = readn(0, p, VtMaxLumpSize+1);
46 7a4ee46d 2003-11-23 devnull 	if(n > VtMaxLumpSize)
47 7a4ee46d 2003-11-23 devnull 		sysfatal("data too big");
48 7a4ee46d 2003-11-23 devnull 	z = vtdial(host);
49 7a4ee46d 2003-11-23 devnull 	if(z == nil)
50 7a4ee46d 2003-11-23 devnull 		sysfatal("could not connect to server: %r");
51 7a4ee46d 2003-11-23 devnull 	if(vtconnect(z) < 0)
52 7a4ee46d 2003-11-23 devnull 		sysfatal("vtconnect: %r");
53 7a4ee46d 2003-11-23 devnull 	if(dotrunc)
54 7a4ee46d 2003-11-23 devnull 		n = vtzerotruncate(type, p, n);
55 7a4ee46d 2003-11-23 devnull 	if(vtwrite(z, score, type, p, n) < 0)
56 7a4ee46d 2003-11-23 devnull 		sysfatal("vtwrite: %r");
57 7a4ee46d 2003-11-23 devnull 	vthangup(z);
58 7a4ee46d 2003-11-23 devnull 	print("%V\n", score);
59 7a4ee46d 2003-11-23 devnull 	threadexitsall(0);
60 7a4ee46d 2003-11-23 devnull }