static int32_t
srvwstat(Chan *c, uint8_t *dp, int32_t n)
{
Proc *up = externup();
Dir d;
Srv *sp;
char *strs;
if(c->qid.type & QTDIR)
error(Eperm);
strs = nil;
qlock(&srvlk);
if(waserror()){
qunlock(&srvlk);
free(strs);
nexterror();
}
sp = srvlookup(nil, c->qid.path);
if(sp == 0)
error(Enonexist);
if(strcmp(sp->owner, up->user) != 0 && !iseve())
error(Eperm);
strs = smalloc(n);
n = convM2D(dp, n, &d, strs);
if(n == 0)
error(Eshortstat);
if(d.mode != (uint32_t)~0UL)
sp->perm = d.mode & 0777;
if(d.uid && *d.uid)
kstrdup(&sp->owner, d.uid);
if(d.name && *d.name && strcmp(sp->name, d.name) != 0) {
if(strchr(d.name, '/') != nil)
error(Ebadchar);
kstrdup(&sp->name, d.name);
}
qunlock(&srvlk);
free(strs);
poperror();
return n;
}
static void
srvcreate(Chan *c, char *name, int omode, int perm)
{
Proc *up = externup();
Srv *sp;
char *sname;
if(openmode(omode) != OWRITE)
error(Eperm);
if(omode & OCEXEC) /* can't happen */
panic("someone broke namec");
sp = smalloc(sizeof *sp);
sname = smalloc(strlen(name)+1);
qlock(&srvlk);
if(waserror()){
free(sname);
free(sp);
qunlock(&srvlk);
nexterror();
}
if(sp == nil || sname == nil)
error(Enomem);
if(srvlookup(name, -1))
error(Eexist);
sp->path = qidpath++;
sp->link = srv;
strcpy(sname, name);
sp->name = sname;
c->qid.type = QTFILE;
c->qid.path = sp->path;
srv = sp;
qunlock(&srvlk);
poperror();
kstrdup(&sp->owner, up->user);
sp->perm = perm&0777;
c->flag |= COPEN;
c->mode = OWRITE;
}
static Chan*
srvopen(Chan *c, int omode)
{
Srv *sp;
if(c->qid.type == QTDIR){
if(omode & ORCLOSE)
error(Eperm);
if(omode != OREAD)
error(Eisdir);
c->mode = omode;
c->flag |= COPEN;
c->offset = 0;
return c;
}
qlock(&srvlk);
if(waserror()){
qunlock(&srvlk);
nexterror();
}
sp = srvlookup(nil, c->qid.path);
if(sp == 0 || sp->chan == 0)
error(Eshutdown);
if(omode&OTRUNC)
error("srv file already exists");
if(openmode(omode)!=sp->chan->mode && sp->chan->mode!=ORDWR)
error(Eperm);
devpermcheck(sp->owner, sp->perm, omode);
cclose(c);
c = sp->chan;
incref(c);
c->offset = 0;
qunlock(&srvlk);
poperror();
return c;
}
static int32_t
srvwrite(Chan *c, void *va, int32_t n, int64_t mm)
{
Proc *up = externup();
Srv *sp;
Chan *c1;
int fd;
char buf[32];
if(n >= sizeof buf)
error(Egreg);
memmove(buf, va, n); /* so we can NUL-terminate */
buf[n] = 0;
fd = strtoul(buf, 0, 0);
c1 = fdtochan(fd, -1, 0, 1); /* error check and inc ref */
qlock(&srvlk);
if(waserror()) {
qunlock(&srvlk);
cclose(c1);
nexterror();
}
if(c1->flag & (CCEXEC|CRCLOSE))
error("posted fd has remove-on-close or close-on-exec");
if(c1->qid.type & QTAUTH)
error("cannot post auth file in srv");
sp = srvlookup(nil, c->qid.path);
if(sp == 0)
error(Enonexist);
if(sp->chan)
error(Ebadusefd);
sp->chan = c1;
qunlock(&srvlk);
poperror();
return n;
}
