ff3dba1930fde11d9139ec34d02065a6b1ecef41
[openafs.git] / src / bozo / bnode.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  * 
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #include <afsconfig.h>
11 #include <afs/param.h>
12
13 RCSID("$Header$");
14
15 #include <stddef.h>
16 #include <stdlib.h>
17 #include <stdio.h>
18 #include <errno.h>
19 #include <sys/types.h>
20 #ifdef AFS_NT40_ENV
21 #include <io.h>
22 #else
23 #include <sys/file.h>
24 #include <sys/time.h>
25 #endif
26 #ifdef BOZO_SAVE_CORES
27 #include <time.h>
28 #endif
29 #include <sys/stat.h>
30 #include <afs/procmgmt.h>  /* signal(), kill(), wait(), etc. */
31 #include <lwp.h>
32 #include <afs/audit.h>
33 #include <afs/afsutil.h>
34 #include <afs/fileutil.h>
35 #include "bnode.h"
36
37 #ifdef AFS_AIX_ENV
38 /* All known versions of AIX lack WCOREDUMP but this works */
39 #define WCOREDUMP(x) ((x) & 0x80)
40 #endif
41
42 #define BNODE_LWP_STACKSIZE     (16 * 1024)
43
44 int bnode_waiting = 0;
45 static PROCESS bproc_pid;                       /* pid of waker-upper */
46 static struct bnode *allBnodes=0;       /* list of all bnodes */
47 static struct bnode_proc *allProcs=0;   /* list of all processes for which we're waiting */
48 static struct bnode_type *allTypes=0;   /* list of registered type handlers */
49
50 static struct bnode_stats {
51     int weirdPids;
52 } bnode_stats;
53
54 static afs_int32 SendNotifierData();
55 static int DeleteProc();
56
57 #ifndef AFS_NT40_ENV
58 extern char **environ;                  /* env structure */
59 #endif
60
61 /* Remember the name of the process, if any, that failed last */
62 static void RememberProcName(ap)
63 register struct bnode_proc *ap; {
64     register struct bnode *tbnodep;
65
66     tbnodep = ap->bnode;
67     if (tbnodep->lastErrorName) {
68         free(tbnodep->lastErrorName);
69         tbnodep->lastErrorName = (char *) 0;
70     }
71     if (ap->coreName) {
72         tbnodep->lastErrorName = (char *) malloc(strlen(ap->coreName)+1);
73         strcpy(tbnodep->lastErrorName, ap->coreName);
74     }
75 }
76
77 /* utility for use by BOP_HASCORE functions to determine where a core file might
78  * be stored.
79  */
80 bnode_CoreName(abnode, acoreName, abuffer)
81 register struct bnode *abnode;
82 char *acoreName;
83 char *abuffer; {
84     strcpy(abuffer, AFSDIR_SERVER_CORELOG_FILEPATH);
85     if (acoreName) {
86         strcat(abuffer, acoreName);
87         strcat(abuffer, ".");
88     }
89     strcat(abuffer, abnode->name);
90     return 0;
91 }
92
93 /* save core file, if any */
94 static void SaveCore(abnode, aproc)
95 register struct bnode_proc *aproc;
96 register struct bnode *abnode; {
97     char tbuffer[256];
98     struct stat tstat;
99     register afs_int32 code;
100 #ifdef BOZO_SAVE_CORES
101     struct timeval  Start;
102     struct tm *TimeFields;
103     char FileName[256];
104 #endif
105
106     code = stat(AFSDIR_SERVER_CORELOG_FILEPATH, &tstat);
107     if (code) return;
108     
109     bnode_CoreName(abnode, aproc->coreName, tbuffer);
110 #ifdef BOZO_SAVE_CORES
111     TM_GetTimeOfDay(&Start, 0);
112     TimeFields = localtime(&Start.tv_sec);
113     sprintf(FileName,"%s.%d%02d%02d%02d%02d%02d", tbuffer,
114             TimeFields->tm_year, TimeFields->tm_mon + 1,
115             TimeFields->tm_mday, TimeFields->tm_hour, TimeFields->tm_min,
116             TimeFields->tm_sec);
117     strcpy(tbuffer,FileName);
118 #endif
119     code = renamefile(AFSDIR_SERVER_CORELOG_FILEPATH, tbuffer);
120 }
121
122 bnode_GetString(abnode, abuffer, alen)
123 register struct bnode *abnode;
124 register char *abuffer;
125 register afs_int32 alen;{
126     return BOP_GETSTRING(abnode, abuffer, alen);
127 }
128
129 bnode_GetParm(abnode, aindex, abuffer, alen)
130 register struct bnode *abnode;
131 register afs_int32 aindex;
132 register char *abuffer;
133 afs_int32 alen; {
134     return BOP_GETPARM(abnode, aindex, abuffer, alen);
135 }
136
137 bnode_GetStat(abnode, astatus)
138 register struct bnode *abnode;
139 register afs_int32 *astatus; {
140     return BOP_GETSTAT(abnode, astatus);
141 }
142
143 bnode_RestartP(abnode)
144 register struct bnode *abnode; {
145     return BOP_RESTARTP(abnode);
146 }
147
148 static bnode_Check(abnode)
149 register struct bnode *abnode; {
150     if (abnode->flags & BNODE_WAIT) {
151         abnode->flags &= ~BNODE_WAIT;
152         LWP_NoYieldSignal(abnode);
153     }
154     return 0;
155 }
156
157 /* tell if an instance has a core file */
158 bnode_HasCore(abnode)
159 register struct bnode *abnode; {
160     return BOP_HASCORE(abnode);
161 }
162
163 /* wait for all bnodes to stabilize */
164 bnode_WaitAll() {
165     register struct bnode *tb;
166     register afs_int32 code;
167     afs_int32 stat;
168
169   retry:
170     for(tb = allBnodes; tb; tb=tb->next) {
171         bnode_Hold(tb);
172         code = BOP_GETSTAT(tb, &stat);
173         if (code) {
174             bnode_Release(tb);
175             return code;
176         }
177         if (stat != tb->goal) {
178             tb->flags |= BNODE_WAIT;
179             LWP_WaitProcess(tb);
180             bnode_Release(tb);
181             goto retry;
182         }
183         bnode_Release(tb);
184     }
185     return 0;
186 }
187
188 /* wait until bnode status is correct */
189 bnode_WaitStatus(abnode, astatus)
190 int astatus;
191 register struct bnode *abnode; {
192     register afs_int32 code;
193     afs_int32 stat;
194
195     bnode_Hold(abnode);
196     while (1) {
197         /* get the status */
198         code = BOP_GETSTAT(abnode, &stat);
199         if (code) return code;
200
201         /* otherwise, check if we're done */
202         if (stat == astatus) {
203             bnode_Release(abnode);
204             return 0;       /* done */
205         }
206         if (astatus != abnode->goal) {
207             bnode_Release(abnode);
208             return -1;  /* no longer our goal, don't keep waiting */
209         }
210         /* otherwise, block */
211         abnode->flags |= BNODE_WAIT;
212         LWP_WaitProcess(abnode);
213     }
214 }
215
216 bnode_SetStat(abnode, agoal)
217 register struct bnode *abnode;
218 register int agoal; {
219     abnode->goal = agoal;
220     bnode_Check(abnode);
221     BOP_SETSTAT(abnode, agoal);
222     abnode->flags &= ~BNODE_ERRORSTOP;
223     return 0;
224 }
225
226 bnode_SetGoal(abnode, agoal)
227 register struct bnode *abnode;
228 register int agoal; {
229     abnode->goal = agoal;
230     bnode_Check(abnode);
231     return 0;
232 }
233
234 bnode_SetFileGoal(abnode, agoal)
235 register struct bnode *abnode;
236 register int agoal; {
237     if (abnode->fileGoal == agoal) return 0;    /* already done */
238     abnode->fileGoal = agoal;
239     WriteBozoFile(0);
240     return 0;
241 }
242
243 /* apply a function to all bnodes in the system */
244 int bnode_ApplyInstance(aproc, arock)
245 int (*aproc)();
246 char *arock; {
247     register struct bnode *tb, *nb;
248     register afs_int32 code;
249
250     for(tb = allBnodes; tb; tb=nb) {
251         nb = tb->next;
252         code = (*aproc) (tb, arock);
253         if (code) return code;
254     }
255     return 0;
256 }
257
258 struct bnode *bnode_FindInstance (aname)
259 register char *aname; {
260     register struct bnode *tb;
261     
262     for(tb=allBnodes;tb;tb=tb->next) {
263         if (!strcmp(tb->name, aname)) return tb;
264     }
265     return (struct bnode *) 0;
266 }
267
268 static struct bnode_type *FindType(aname)
269 register char *aname; {
270     register struct bnode_type *tt;
271     
272     for(tt=allTypes;tt;tt=tt->next) {
273         if (!strcmp(tt->name, aname)) return tt;
274     }
275     return (struct bnode_type *) 0;
276 }
277
278 bnode_Register(atype, aprocs, anparms)
279 char *atype;
280 int anparms;        /* number of parms to create */
281 struct bnode_ops *aprocs; {
282     register struct bnode_type *tt;
283
284     for(tt=allTypes;tt;tt=tt->next) {
285         if (!strcmp(tt->name, atype)) break;
286     }
287     if (!tt) {
288         tt = (struct bnode_type *) malloc(sizeof(struct bnode_type));
289         memset(tt, 0, sizeof(struct bnode_type));
290         tt->next = allTypes;
291         allTypes = tt;
292         tt->name = atype;
293     }
294     tt->ops = aprocs;
295     return 0;
296 }
297
298 afs_int32 bnode_Create(atype, ainstance, abp, ap1, ap2, ap3, ap4, ap5, notifier,fileGoal)
299 char *atype;
300 char *ainstance;
301 struct bnode **abp;
302 char *ap1, *ap2, *ap3, *ap4, *ap5, *notifier; 
303 int fileGoal;{
304     struct bnode_type *type;
305     struct bnode *tb;
306     char *notifierpath = NULL;
307     struct stat tstat;
308
309     if (bnode_FindInstance(ainstance)) return BZEXISTS;
310     type = FindType(atype);
311     if (!type) return BZBADTYPE;
312
313     if (notifier && strcmp(notifier, NONOTIFIER)) {
314         /* construct local path from canonical (wire-format) path */
315         if (ConstructLocalBinPath(notifier, &notifierpath)) {
316             bozo_Log("BNODE-Create: Notifier program path invalid '%s'\n", notifier);
317             return BZNOCREATE;
318         }
319
320         if (stat(notifierpath, &tstat)) {
321             bozo_Log("BNODE-Create: Notifier program '%s' not found\n", notifierpath);
322             free(notifierpath);
323             return BZNOCREATE;
324         }
325     }
326     tb = (*type->ops->create)(ainstance, ap1, ap2, ap3, ap4, ap5);
327     if (!tb) {
328         free(notifierpath);
329         return BZNOCREATE;
330     }
331     tb->notifier = notifierpath;
332     *abp = tb;
333     tb->type = type;
334
335     /* The fs_create above calls bnode_InitBnode() which always sets the 
336     ** fileGoal to BSTAT_NORMAL .... overwrite it with whatever is passed into
337     ** this function as a parameter... */
338     tb->fileGoal = fileGoal;
339
340     bnode_SetStat(tb, tb->goal);    /* nudge it once */
341     WriteBozoFile(0);
342     return 0;
343 }
344
345 int bnode_DeleteName(ainstance)
346 char *ainstance; {
347     register struct bnode *tb;
348
349     tb = bnode_FindInstance(ainstance);
350     if (!tb) return BZNOENT;
351     
352     return bnode_Delete(tb);
353 }
354
355 bnode_Hold(abnode)
356 register struct bnode *abnode; {
357     abnode->refCount++;
358     return 0;
359 }
360
361 bnode_Release(abnode)
362 register struct bnode *abnode; {
363     abnode->refCount--;
364     if (abnode->refCount == 0 && abnode->flags & BNODE_DELETE) {
365         abnode->flags &= ~BNODE_DELETE; /* we're going for it */
366         bnode_Delete(abnode);
367     }
368     return 0;
369 }
370
371 int bnode_Delete(abnode)
372 register struct bnode *abnode; {
373     register afs_int32 code;
374     register struct bnode **lb, *ub;
375     afs_int32 temp;
376     
377     if (abnode->refCount != 0) {
378         abnode->flags |= BNODE_DELETE;
379         return 0;
380     }
381
382     /* make sure the bnode is idle before zapping */
383     bnode_Hold(abnode);
384     code = BOP_GETSTAT(abnode, &temp);
385     bnode_Release(abnode);
386     if (code) return code;
387     if (temp != BSTAT_SHUTDOWN) return BZBUSY;
388
389     /* all clear to zap */
390     for(lb = &allBnodes, ub = *lb; ub; lb= &ub->next, ub = *lb) {
391         if (ub == abnode) {
392             /* unthread it from the list */
393             *lb = ub->next;
394             break;
395         }
396     }
397     free(abnode->name); /* do this first, since bnode fields may be bad after BOP_DELETE */
398     code = BOP_DELETE(abnode);  /* don't play games like holding over this one */
399     WriteBozoFile(0);
400     return code;
401 }
402
403 /* function to tell if there's a timeout coming up */
404 int bnode_PendingTimeout(abnode)
405 register struct bnode *abnode; {
406     return (abnode->flags & BNODE_NEEDTIMEOUT);
407 }
408
409 /* function called to set / clear periodic bnode wakeup times */
410 int bnode_SetTimeout(abnode, atimeout)
411 register struct bnode *abnode;
412 afs_int32 atimeout; {
413     if (atimeout != 0) {
414         abnode->nextTimeout = FT_ApproxTime() + atimeout;
415         abnode->flags |= BNODE_NEEDTIMEOUT;
416         abnode->period = atimeout;
417         IOMGR_Cancel(bproc_pid);
418     }
419     else {
420         abnode->flags &= ~BNODE_NEEDTIMEOUT;
421     }
422     return 0;
423 }
424
425 /* used by new bnode creation code to format bnode header */
426 int bnode_InitBnode (abnode, abnodeops, aname)
427 register struct bnode *abnode;
428 char *aname;
429 struct bnode_ops *abnodeops; {
430     struct bnode **lb, *nb;
431
432     /* format the bnode properly */
433     memset(abnode, 0, sizeof(struct bnode));
434     abnode->ops = abnodeops;
435     abnode->name = (char *) malloc(strlen(aname)+1);
436     strcpy(abnode->name, aname);
437     abnode->flags = BNODE_ACTIVE;
438     abnode->fileGoal = BSTAT_NORMAL;
439     abnode->goal = BSTAT_SHUTDOWN;
440
441     /* put the bnode at the end of the list so we write bnode file in same order */
442     for(lb = &allBnodes, nb = *lb; nb; lb = &nb->next, nb = *lb);
443     *lb = abnode;
444
445     return 0;
446 }
447
448 /* bnode lwp executes this code repeatedly */
449 static int bproc() {
450     register afs_int32 code;
451     register struct bnode *tb;
452     register afs_int32 temp;
453     register struct bnode_proc *tp;
454     struct bnode *nb;
455     int options;   /* must not be register */
456     struct timeval tv;
457     int setAny;
458     int status;
459
460     while (1) {
461         /* first figure out how long to sleep for */
462         temp = 0x7fffffff;          /* afs_int32 time; maxint doesn't work in select */
463         setAny = 0;
464         for(tb = allBnodes; tb; tb=tb->next) {
465             if (tb->flags & BNODE_NEEDTIMEOUT) {
466                 if (tb->nextTimeout < temp) {
467                     setAny = 1;
468                     temp = tb->nextTimeout;
469                 }
470             }
471         }
472         /* now temp has the time at which we should wakeup next */
473
474         /* sleep */
475         if (setAny) temp -= FT_ApproxTime(); /* how many seconds until next event */
476         else temp = 999999;
477         if (temp > 0) {
478             tv.tv_sec = temp;
479             tv.tv_usec = 0;
480             code = IOMGR_Select(0, 0, 0, 0, &tv);
481         }
482         else code = 0;  /* fake timeout code */
483
484         /* figure out why we woke up; child exit or timeouts */
485         FT_GetTimeOfDay(&tv, 0);    /* must do the real gettimeofday once and a while */
486         temp = tv.tv_sec;
487
488         /* check all bnodes to see which ones need timeout events */
489         for(tb = allBnodes; tb; tb=nb) {
490             if ((tb->flags & BNODE_NEEDTIMEOUT) && temp > tb->nextTimeout) {
491                 bnode_Hold(tb);
492                 BOP_TIMEOUT(tb);
493                 bnode_Check(tb);
494                 if (tb->flags & BNODE_NEEDTIMEOUT) {    /* check again, BOP_TIMEOUT could change */
495                     tb->nextTimeout = FT_ApproxTime() + tb->period;
496                 }
497                 nb = tb->next;
498                 bnode_Release(tb);  /* delete may occur here */
499             }
500             else nb=tb->next;
501         }
502
503         if (code < 0) {
504             /* signalled, probably by incoming signal */
505             while (1) {
506                 options = WNOHANG;
507                 bnode_waiting = options | 0x800000;
508                 code = waitpid((pid_t)-1, &status, options);
509                 bnode_waiting = 0;
510                 if (code == 0 || code == -1) break;     /* all done */
511                 /* otherwise code has a process id, which we now search for */
512                 for(tp=allProcs; tp; tp=tp->next)
513                     if (tp->pid == code) break;
514                 if (tp) {
515                     /* found the pid */
516                     tb = tp->bnode;
517                     bnode_Hold(tb);
518
519                     /* count restarts in last 10 seconds */
520                     if (temp > tb->rsTime + 30) {
521                         /* it's been 10 seconds we've been counting */
522                         tb->rsTime = temp;
523                         tb->rsCount = 0;
524                     }
525
526                     if (WIFSIGNALED(status) == 0) {
527                         /* exited, not signalled */
528                         tp->lastExit = WEXITSTATUS(status);
529                         tp->lastSignal = 0;
530                         if (tp->lastExit) {
531                             tb->errorCode = tp->lastExit;
532                             tb->lastErrorExit = FT_ApproxTime();
533                             RememberProcName(tp);
534                             tb->errorSignal = 0;
535                         }
536                         if (tp->coreName)
537                             bozo_Log("%s:%s exited with code %d",
538                                 tb->name, tp->coreName, tp->lastExit);
539                         else
540                             bozo_Log("%s exited with code %d",
541                                 tb->name, tp->lastExit);
542                     }
543                     else {
544                         /* Signal occurred, perhaps spurious due to shutdown request.
545                          * If due to a shutdown request, don't overwrite last error
546                          * information.
547                          */
548                         tp->lastSignal = WTERMSIG(status);
549                         tp->lastExit = 0;
550                         if (tp->lastSignal != SIGQUIT && tp->lastSignal != SIGTERM
551                             && tp->lastSignal != SIGKILL) {
552                             tb->errorSignal = tp->lastSignal;
553                             tb->lastErrorExit = FT_ApproxTime();
554                             RememberProcName(tp);
555                         }
556                         if (tp->coreName)
557                             bozo_Log("%s:%s exited on signal %d%s\n",
558                                 tb->name, tp->coreName, tp->lastSignal,
559                                 WCOREDUMP(status) ? " (core dumped)" : "");
560                         else
561                             bozo_Log("%s exited on signal %d%s\n",
562                                 tb->name, tp->lastSignal,
563                                 WCOREDUMP(status) ? " (core dumped)" : "");
564                         SaveCore(tb, tp);
565                     }
566                     tb->lastAnyExit = FT_ApproxTime();
567
568                     if (tb->notifier) {
569                         bozo_Log("BNODE: Notifier %s will be called\n", tb->notifier);
570                         hdl_notifier(tp);
571                     }
572                     BOP_PROCEXIT(tb, tp);
573
574                     bnode_Check(tb);
575                     if (tb->rsCount++ > 10) {
576                         /* 10 in 10 seconds */
577                         tb->flags |= BNODE_ERRORSTOP;
578                         bnode_SetGoal(tb, BSTAT_SHUTDOWN);
579                         bozo_Log("BNODE '%s' repeatedly failed to start, perhaps missing executable.\n",
580                                tb->name);
581                     }
582                     bnode_Release(tb);  /* bnode delete can happen here */
583                     DeleteProc(tp);
584                 }
585                 else bnode_stats.weirdPids++;
586             }
587         }
588     }
589 }
590
591
592 #ifdef  notdef
593 sigcatch()
594 {
595     signal(SIGPIPE, SIG_IGN);
596     bozo_Log("Notifier aborted prematurely");
597     exit(0);
598 }
599 #endif
600
601
602
603 hdl_notifier(tp) 
604     struct bnode_proc *tp;
605 {
606 #ifndef AFS_NT40_ENV  /* NT notifier callout not yet implemented */
607     int code, pid, status;
608     struct stat tstat;
609
610     if (stat(tp->bnode->notifier, &tstat)) {
611         bozo_Log("BNODE: Failed to find notifier '%s'; ignored\n", tp->bnode->notifier);
612         return(1);
613     }
614     if ((pid = fork()) == 0) {
615         FILE *fout;
616         struct bnode *tb = tp->bnode;
617         int ec;
618
619 #if defined(AFS_HPUX_ENV) || defined(AFS_SUN5_ENV) || defined(AFS_SGI51_ENV)
620         ec = setsid();
621 #else
622 #ifdef AFS_LINUX20_ENV
623         ec = setpgrp();
624 #else
625         ec = setpgrp(0,0);
626 #endif
627 #endif
628         fout = popen(tb->notifier, "w");
629         if (fout == NULL) {
630             bozo_Log("BNODE: Failed to find notifier '%s'; ignored\n", tb->notifier);
631             perror(tb->notifier);       
632             exit(1);
633         }
634         code = SendNotifierData(fileno(fout), tp);
635         pclose(fout);
636         exit(0);
637     } else if (pid < 0) {
638         bozo_Log("Failed to fork creating process to handle notifier '%s'\n", tp->bnode->notifier);
639         return -1;
640     }
641 #endif /* AFS_NT40_ENV */
642     return(0);
643 }
644
645
646 static afs_int32 SendNotifierData(fd, tp)
647     register int fd;
648     register struct bnode_proc *tp;
649 {
650     register struct bnode *tb = tp->bnode;
651     char buffer[1000], *bufp = buffer, *buf1;
652     register int len;
653
654     /*
655      * First sent out the bnode_proc struct
656      */
657     (void) sprintf(bufp, "BEGIN bnode_proc\n");
658     bufp += strlen(bufp);
659     (void) sprintf(bufp, "comLine: %s\n", tp->comLine);
660     bufp += strlen(bufp);
661     if (!(buf1 = tp->coreName))
662         buf1 = "(null)";
663     (void) sprintf(bufp, "coreName: %s\n", buf1);
664     bufp += strlen(bufp);
665     (void) sprintf(bufp, "pid: %ld\n", tp->pid);
666     bufp += strlen(bufp);
667     (void) sprintf(bufp, "lastExit: %ld\n", tp->lastExit);
668     bufp += strlen(bufp);
669 #ifdef notdef
670     (void) sprintf(bufp, "lastSignal: %ld\n", tp->lastSignal);
671     bufp += strlen(bufp);
672 #endif
673     (void) sprintf(bufp, "flags: %ld\n", tp->flags);
674     bufp += strlen(bufp);
675     (void) sprintf(bufp, "END bnode_proc\n");
676     bufp += strlen(bufp);
677     len =(int)(bufp-buffer);
678     if (write(fd, buffer, len) < 0) {
679         return -1;
680     }
681
682     /*
683      * Now sent out the bnode struct
684      */    
685     bufp = buffer;
686     (void) sprintf(bufp, "BEGIN bnode\n");
687     bufp += strlen(bufp);
688     (void) sprintf(bufp, "name: %s\n", tb->name);
689     bufp += strlen(bufp);
690     (void) sprintf(bufp, "rsTime: %ld\n", tb->rsTime);
691     bufp += strlen(bufp);
692     (void) sprintf(bufp, "rsCount: %ld\n", tb->rsCount);
693     bufp += strlen(bufp);
694     (void) sprintf(bufp, "procStartTime: %ld\n", tb->procStartTime);
695     bufp += strlen(bufp);
696     (void) sprintf(bufp, "procStarts: %ld\n", tb->procStarts);
697     bufp += strlen(bufp);
698     (void) sprintf(bufp, "lastAnyExit: %ld\n", tb->lastAnyExit);
699     bufp += strlen(bufp);
700     (void) sprintf(bufp, "lastErrorExit: %ld\n", tb->lastErrorExit);
701     bufp += strlen(bufp);
702     (void) sprintf(bufp, "errorCode: %ld\n", tb->errorCode);
703     bufp += strlen(bufp);
704     (void) sprintf(bufp, "errorSignal: %ld\n", tb->errorSignal);
705     bufp += strlen(bufp);
706 /*
707     (void) sprintf(bufp, "lastErrorName: %s\n", tb->lastErrorName);
708     bufp += strlen(bufp);
709 */
710     (void) sprintf(bufp, "goal: %d\n", tb->goal);
711     bufp += strlen(bufp);
712     (void) sprintf(bufp, "END bnode\n");
713     bufp += strlen(bufp);
714     len = (int)bufp-(int)buffer;
715     if (write(fd, buffer, len) < 0) {
716         return -1;
717     }
718 }
719
720
721     
722 /* Called by IOMGR at low priority on IOMGR's stack shortly after a SIGCHLD
723  * occurs.  Wakes up bproc do redo things */
724 bnode_SoftInt(int asignal)
725 {
726     IOMGR_Cancel(bproc_pid);
727     return 0;
728 }
729
730 /* Called at signal interrupt level; queues function to be called
731  * when IOMGR runs again.
732  */
733 void
734 bnode_Int(int asignal)
735 {
736     extern void bozo_ShutdownAndExit();
737
738     if (asignal == SIGQUIT) {
739         IOMGR_SoftSig(bozo_ShutdownAndExit, (char *)asignal);
740     } else {
741         IOMGR_SoftSig(bnode_SoftInt, (char *)asignal);
742     }
743 }
744
745
746 /* intialize the whole system */
747 int bnode_Init() {
748     PROCESS junk;
749     register afs_int32 code;
750     struct sigaction newaction;
751     static initDone = 0;
752
753     if (initDone) return 0;
754     initDone = 1;
755     memset(&bnode_stats, 0, sizeof(bnode_stats));
756     LWP_InitializeProcessSupport(1, &junk); /* just in case */
757     IOMGR_Initialize();
758     code = LWP_CreateProcess(bproc, BNODE_LWP_STACKSIZE,
759                              /* priority */ 1, /* parm */0, "bnode-manager", &bproc_pid);
760     if (code) return code;
761     memset((char *)&newaction, 0, sizeof(newaction));
762     newaction.sa_handler = bnode_Int;
763     code = sigaction(SIGCHLD, &newaction, NULL);
764     if (code) return errno;
765     code = sigaction(SIGQUIT, &newaction, NULL);
766     if (code) return errno;
767     return code;
768 }
769     
770 /* free token list returned by parseLine */
771 bnode_FreeTokens(alist)
772     register struct bnode_token *alist; {
773     register struct bnode_token *nlist;
774     for(; alist; alist = nlist) {
775         nlist = alist->next;
776         free(alist->key);
777         free(alist);
778     }
779     return 0;
780 }
781
782 static space(x)
783 int x; {
784     if (x == 0 || x == ' ' || x == '\t' || x== '\n') return 1;
785     else return 0;
786 }
787
788 bnode_ParseLine(aline, alist)
789     char *aline;
790     struct bnode_token **alist; {
791     char tbuffer[256];
792     register char *tptr;
793     int inToken;
794     struct bnode_token *first, *last;
795     register struct bnode_token *ttok;
796     register int tc;
797     
798     inToken = 0;        /* not copying token chars at start */
799     first = (struct bnode_token *) 0;
800     last = (struct bnode_token *) 0;
801     while (1) {
802         tc = *aline++;
803         if (tc == 0 || space(tc)) {    /* terminating null gets us in here, too */
804             if (inToken) {
805                 inToken = 0;    /* end of this token */
806                 *tptr++ = 0;
807                 ttok = (struct bnode_token *) malloc(sizeof(struct bnode_token));
808                 ttok->next = (struct bnode_token *) 0;
809                 ttok->key = (char *) malloc(strlen(tbuffer)+1);
810                 strcpy(ttok->key, tbuffer);
811                 if (last) {
812                     last->next = ttok;
813                     last = ttok;
814                 }
815                 else last = ttok;
816                 if (!first) first = ttok;
817             }
818         }
819         else {
820             /* an alpha character */
821             if (!inToken) {
822                 tptr = tbuffer;
823                 inToken = 1;
824             }
825             if (tptr - tbuffer >= sizeof(tbuffer)) return -1;   /* token too long */
826             *tptr++ = tc;
827         }
828         if (tc == 0) {
829             /* last token flushed 'cause space(0) --> true */
830             if (last) last->next = (struct bnode_token *) 0;
831             *alist = first;
832             return 0;
833         }
834     }
835 }
836
837 #define MAXVARGS            128
838 int bnode_NewProc(abnode, aexecString, coreName, aproc)
839 struct bnode_proc **aproc;
840 char *coreName;
841 struct bnode *abnode;
842 char *aexecString; {
843     struct bnode_token *tlist, *tt;
844     afs_int32 code;
845     struct bnode_proc *tp;
846     pid_t cpid;
847     char *argv[MAXVARGS];
848     int i;
849
850     code = bnode_ParseLine(aexecString, &tlist);  /* try parsing first */
851     if (code) return code;
852     tp = (struct bnode_proc *) malloc(sizeof(struct bnode_proc));
853     memset(tp, 0, sizeof(struct bnode_proc));
854     tp->next = allProcs;
855     allProcs = tp;
856     *aproc = tp;
857     tp->bnode = abnode;
858     tp->comLine = aexecString;
859     tp->coreName = coreName;    /* may be null */
860     abnode->procStartTime = FT_ApproxTime();
861     abnode->procStarts++;
862
863     /* convert linked list of tokens into argv structure */
864     for (tt = tlist, i = 0; i < (MAXVARGS - 1) && tt; tt = tt->next, i++) {
865         argv[i] = tt->key;
866     }
867     argv[i] = (char *) 0;   /* null-terminated */
868
869     cpid = spawnprocve(argv[0], argv, environ, -1);
870     osi_audit(BOSSpawnProcEvent, 0, AUD_STR, aexecString, AUD_END );
871
872     if (cpid == (pid_t)-1) {
873         bozo_Log("Failed to spawn process for bnode '%s'\n", abnode->name);
874         bnode_FreeTokens(tlist);
875         free(tp);
876         return errno;
877     }
878
879     bnode_FreeTokens(tlist);
880     tp->pid = cpid;
881     tp->flags = BPROC_STARTED;
882     tp->flags &= ~BPROC_EXITED;
883     bnode_Check(abnode);
884     return 0;
885 }
886
887 int bnode_StopProc(aproc, asignal)
888 register struct bnode_proc *aproc;
889 int asignal; {
890     register int code;
891     if (!(aproc->flags & BPROC_STARTED) || (aproc->flags & BPROC_EXITED))
892         return BZNOTACTIVE;
893
894     osi_audit( BOSStopProcEvent, 0, AUD_STR, (aproc ? aproc->comLine : (char *)0), AUD_END );
895
896     code = kill(aproc->pid, asignal);
897     bnode_Check(aproc->bnode);
898     return code;
899 }
900
901 int bnode_Deactivate(abnode)
902 register struct bnode *abnode; {
903     register struct bnode **pb, *tb;
904     struct bnode *nb;
905     if (!(abnode->flags & BNODE_ACTIVE)) return BZNOTACTIVE;
906     for(pb = &allBnodes,tb = *pb; tb; tb=nb) {
907         nb = tb->next;
908         if (tb == abnode) {
909             *pb = nb;
910             tb->flags &= ~BNODE_ACTIVE;
911             return 0;
912         }
913     }
914     return BZNOENT;
915 }
916
917 static int DeleteProc(abproc)
918 register struct bnode_proc *abproc; {
919     register struct bnode_proc **pb, *tb;
920     struct bnode_proc *nb;
921
922     for(pb = &allProcs,tb = *pb; tb; pb = &tb->next, tb=nb) {
923         nb = tb->next;
924         if (tb == abproc) {
925             *pb = nb;
926             free(tb);
927             return 0;
928         }
929     }
930     return BZNOENT;
931 }