2 * support/nfs/cacheio.c
3 * support IO on the cache channel files in 2.5 and beyond.
4 * These use 'qwords' which are like words, but with a little quoting.
10 * Support routines for text-based upcalls.
11 * Fields are separated by spaces.
12 * Fields are either mangled to quote space tab newline slosh with slosh
13 * or a hexified with a leading \x
14 * Record is terminated with newline.
20 #include <stdio_ext.h>
23 #include <sys/types.h>
29 void qword_add(char **bpp, int *lp, char *str)
37 while ((c=*str++) && len)
45 *bp++ = '0' + ((c & 0300)>>6);
46 *bp++ = '0' + ((c & 0070)>>3);
47 *bp++ = '0' + ((c & 0007)>>0);
55 if (c || len <1) len = -1;
64 void qword_addhex(char **bpp, int *lp, char *buf, int blen)
75 while (blen && len >= 2) {
76 unsigned char c = *buf++;
77 *bp++ = '0' + ((c&0xf0)>>4) + (c>=0xa0)*('a'-'9'-1);
78 *bp++ = '0' + (c&0x0f) + ((c&0x0f)>=0x0a)*('a'-'9'-1);
83 if (blen || len<1) len = -1;
92 void qword_addint(char **bpp, int *lp, int n)
96 len = snprintf(*bpp, *lp, "%d ", n);
103 void qword_adduint(char **bpp, int *lp, unsigned int n)
107 len = snprintf(*bpp, *lp, "%u ", n);
114 void qword_addeol(char **bpp, int *lp)
123 static char qword_buf[8192];
124 void qword_print(FILE *f, char *str)
126 char *bp = qword_buf;
127 int len = sizeof(qword_buf);
128 qword_add(&bp, &len, str);
129 if (fwrite(qword_buf, bp-qword_buf, 1, f) != 1) {
130 xlog_warn("qword_print: fwrite failed: errno %d (%s)",
131 errno, strerror(errno));
135 void qword_printhex(FILE *f, char *str, int slen)
137 char *bp = qword_buf;
138 int len = sizeof(qword_buf);
139 qword_addhex(&bp, &len, str, slen);
140 if (fwrite(qword_buf, bp-qword_buf, 1, f) != 1) {
141 xlog_warn("qword_printhex: fwrite failed: errno %d (%s)",
142 errno, strerror(errno));
146 void qword_printint(FILE *f, int num)
148 fprintf(f, "%d ", num);
151 void qword_printuint(FILE *f, unsigned int num)
153 fprintf(f, "%u ", num);
156 void qword_printtimefrom(FILE *f, unsigned int num)
158 fprintf(f, "%lu ", time(0) + num);
161 int qword_eol(FILE *f)
168 xlog_warn("qword_eol: fflush failed: errno %d (%s)",
169 errno, strerror(errno));
172 * We must send one line (and one line only) in a single write
173 * call. In case of a write error, libc may accumulate the
174 * unwritten data and try to write it again later, resulting in a
175 * multi-line write. So we must explicitly ask it to throw away
176 * any such cached data. But we return any original error
177 * indication to the caller.
186 #define isodigit(c) (isdigit(c) && c <= '7')
187 int qword_get(char **bpp, char *dest, int bufsize)
189 /* return bytes copied, or -1 on error */
193 while (*bp == ' ') bp++;
195 if (bp[0] == '\\' && bp[1] == 'x') {
198 while (isxdigit(bp[0]) && isxdigit(bp[1]) && len < bufsize) {
199 int byte = isdigit(*bp) ? *bp-'0' : toupper(*bp)-'A'+10;
202 byte |= isdigit(*bp) ? *bp-'0' : toupper(*bp)-'A'+10;
208 /* text with \nnn octal quoting */
209 while (*bp != ' ' && *bp != '\n' && *bp && len < bufsize-1) {
211 isodigit(bp[1]) && (bp[1] <= '3') &&
214 int byte = (*++bp -'0');
216 byte = (byte << 3) | (*bp++ - '0');
217 byte = (byte << 3) | (*bp++ - '0');
227 if (*bp != ' ' && *bp != '\n' && *bp != '\0')
229 while (*bp == ' ') bp++;
235 int qword_get_int(char **bpp, int *anint)
240 int len = qword_get(bpp, buf, 50);
241 if (len < 0) return -1;
242 if (len ==0) return -1;
243 rv = strtol(buf, &ep, 0);
249 int qword_get_uint(char **bpp, unsigned int *anint)
254 int len = qword_get(bpp, buf, 50);
255 if (len < 0) return -1;
256 if (len ==0) return -1;
257 rv = strtoul(buf, &ep, 0);
263 #define READLINE_BUFFER_INCREMENT 2048
265 int readline(int fd, char **buf, int *lenp)
267 /* read a line into *buf, which is malloced *len long
268 * realloc if needed until we find a \n
269 * nul out the \n and return
270 * 0 on eof, 1 on success
275 char *b = malloc(READLINE_BUFFER_INCREMENT);
279 *lenp = READLINE_BUFFER_INCREMENT;
281 len = read(fd, *buf, *lenp);
284 while ((*buf)[len-1] != '\n') {
285 /* now the less common case. There was no newline,
286 * so we have to keep reading after re-alloc
290 *lenp += READLINE_BUFFER_INCREMENT;
291 new = realloc(*buf, *lenp);
295 nl = read(fd, *buf + len, *lenp - len);
300 (*buf)[len-1] = '\0';
305 /* Check if we should use the new caching interface
306 * This succeeds iff the "nfsd" filesystem is mounted on
310 check_new_cache(void)
312 return (access("/proc/fs/nfs/filehandle", F_OK) == 0) ||
313 (access("/proc/fs/nfsd/filehandle", F_OK) == 0);
317 /* flush the kNFSd caches.
318 * Set the flush time to the mtime of _PATH_ETAB or
320 * the caches to flush are:
321 * auth.unix.ip nfsd.export nfsd.fh
325 cache_flush(int force)
332 /* Note: the order of these caches is important.
333 * They need to be flushed in dependancy order. So
334 * a cache that references items in another cache,
335 * as nfsd.fh entries reference items in nfsd.export,
336 * must be flushed before the cache that it references.
338 static char *cachelist[] = {
347 stat(_PATH_ETAB, &stb) != 0 ||
349 stb.st_mtime = time(0);
351 sprintf(stime, "%ld\n", stb.st_mtime);
352 for (c=0; cachelist[c]; c++) {
354 sprintf(path, "/proc/net/rpc/%s/flush", cachelist[c]);
355 fd = open(path, O_RDWR);
357 if (write(fd, stime, strlen(stime)) != (ssize_t)strlen(stime)) {
358 xlog_warn("Writing to '%s' failed: errno %d (%s)",
359 path, errno, strerror(errno));