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