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