Initial IBM OpenAFS 1.0 tree
[openafs.git] / src / bozo / bos.c
1 /* Copyright (C) 1998 Transarc Corporation - All rights reserved */
2 /*
3  * (C) COPYRIGHT IBM CORPORATION 1987, 1988
4  * LICENSED MATERIALS - PROPERTY OF IBM
5  */
6
7 #include <afs/param.h>
8 #include <afs/stds.h>
9 #include <stdlib.h>
10 #include <stddef.h>
11 #include <sys/types.h>
12 #ifdef AFS_NT40_ENV
13 #include <winsock2.h>
14 #include <io.h>
15 #include <fcntl.h>
16 #else
17 #include <sys/file.h>
18 #include <netinet/in.h>
19 #include <netdb.h>
20 #include <sys/socket.h>
21 #include <strings.h>
22 #endif /* AFS_NT40_ENV */
23 #include <string.h>
24 #include <afs/procmgmt.h>  /* signal(), kill(), wait(), etc. */
25 #include <time.h>
26 #include "bnode.h"
27 #include <errno.h>
28 #include <afs/afsutil.h>
29 #include <afs/cellconfig.h>
30 #include <rx/rx.h>
31 #include <sys/stat.h>
32 #include <rx/xdr.h>
33 #include <afs/auth.h>
34 #include <rx/rxkad.h>
35 #include <afs/cellconfig.h>
36 #include <stdio.h>
37 #include <afs/cmd.h>
38 #include <afs/com_err.h>
39 #include <ubik.h>
40 #include <afs/ktime.h>
41
42
43
44 extern char *volutil_PartitionName();
45 extern struct rx_call *rx_NewCall();
46 extern char *volutil_PartitionName();
47 extern struct hostent *hostutil_GetHostByName();
48
49 static IStatServer();
50 static DoStat();
51
52 #include "bosint.h"
53 #include "../permit_xprt.h"
54
55 /* dummy routine for the audit work.  It should do nothing since audits */
56 /* occur at the server level and bos is not a server. */
57 osi_audit() {return 0;}
58
59 /* keep those lines small */
60 static char *em(acode)
61 afs_int32 acode; {
62     if (acode == -1)
63         return "communications failure (-1)";
64     else if (acode == -3)
65         return "communications timeout (-3)";
66     else return (char *) error_message(acode);
67 }
68
69 /* get partition id from a name */
70 static afs_int32 GetPartitionID(aname)
71 char *aname; {
72     register char tc;
73     char ascii[3];
74
75     tc = *aname;
76     if (tc == 0) return -1;     /* unknown */
77     /* numbers go straight through */
78     if (tc >= '0' && tc <= '9') {
79         return atoi(aname);
80     }
81     /* otherwise check for vicepa or /vicepa, or just plain "a" */
82     ascii[2] = 0;
83     if (strlen(aname) <= 2) {
84         strcpy(ascii, aname);
85     }
86     else if (!strncmp(aname, "/vicep", 6)) {
87         strncpy(ascii, aname+6, 2);
88     }
89     else if (!strncmp(aname, "vicep", 5)) {
90         strncpy(ascii, aname+5, 2);
91     }
92     else return -1;     /* bad partition name */
93     /* now partitions are named /vicepa ... /vicepz, /vicepaa, /vicepab,
94      * .../vicepzz, and are numbered from 0.  Do the appropriate conversion */
95     if (ascii[1] == 0) {
96         /* one char name, 0..25 */
97         if (ascii[0] <  'a' || ascii[0] > 'z')  return -1;  /* wrongo */
98         return ascii[0] - 'a';
99     }
100     else {
101         /* two char name, 26 .. <whatever> */
102         if (ascii[0] <  'a' || ascii[0] > 'z')  return -1;  /* wrongo */
103         if (ascii[1] <  'a' || ascii[1] > 'z')  return -1;  /* just as bad */
104         return (ascii[0] - 'a') * 26 + (ascii[1] - 'a') + 26;
105     }
106 }
107
108 /* make ctime easier to use */
109 static char *DateOf(atime)
110 afs_int32 atime; {
111     static char tbuffer[30];
112     register char *tp;
113     tp=ctime((time_t *)&atime);
114     if (tp) {
115         strcpy(tbuffer, tp);
116         tbuffer[24] = 0;    /* get rid of new line */
117     }
118     else
119         strcpy(tbuffer, "BAD TIME");
120     return tbuffer;
121 }
122
123 /* global stuff from main for communicating with GetConn */
124 static struct rx_securityClass *sc[3];
125 static int scIndex;
126
127 /* use the syntax descr to get a connection, authenticated appropriately.
128  * aencrypt is set if we want to encrypt the data on the wire.
129  */
130 static struct rx_connection *GetConn(as, aencrypt)
131 int aencrypt;
132 struct cmd_syndesc *as; {
133     struct hostent *th;
134     char *hostname;
135     register afs_int32 code;
136     register struct rx_connection *tconn;
137     afs_int32 addr;
138     register struct afsconf_dir *tdir;
139     int encryptLevel;
140     struct ktc_principal sname;
141     struct ktc_token ttoken;
142     int localauth;
143     const char *confdir;
144
145     hostname = as->parms[0].items->data;
146     th = hostutil_GetHostByName(hostname);
147     if (!th) {
148         printf("bos: can't find address for host '%s'\n", hostname);
149         exit(1);
150     }
151     bcopy(th->h_addr, &addr, sizeof(afs_int32));
152
153     /* get tokens for making authenticated connections */
154     localauth = (as->parms[14].items != 0);
155     confdir = (localauth ? AFSDIR_SERVER_ETC_DIRPATH : AFSDIR_CLIENT_ETC_DIRPATH);
156     tdir = afsconf_Open (confdir);
157     if (tdir) {
158         struct afsconf_cell info;
159         char *tname;
160
161         if (as->parms[12].items) tname = as->parms[12].items->data;
162         else tname = (char *) 0;
163         /* next call expands cell name abbrevs for us and handles looking up
164          * local cell */
165         code = afsconf_GetCellInfo(tdir, tname, (char *) 0, &info);
166         if (code) {
167             com_err ("bos", code, "(can't find cell '%s' in cell database)",
168                    (tname? tname : "<default>"));
169             exit(1);
170         }
171         else strcpy(sname.cell, info.name);
172     }
173     else {
174         printf("bos: can't open cell database (%s)\n", confdir);
175         exit(1);
176     }
177     sname.instance[0] = 0;
178     strcpy(sname.name, "afs");
179     sc[0] = (struct rx_securityClass *) rxnull_NewClientSecurityObject();
180     sc[1] = 0;
181     sc[2] = 0;
182     scIndex = 0;
183
184     if (!as->parms[13].items) { /* not -noauth */
185         if (as->parms[14].items) { /* -localauth */
186             code = afsconf_GetLatestKey (tdir, 0,0);
187             if (code) com_err ("bos", code, "(getting key from local KeyFile)");
188             else {
189                 if (aencrypt)
190                     code = afsconf_ClientAuthSecure (tdir, &sc[2], &scIndex);
191                 else
192                     code = afsconf_ClientAuth (tdir, &sc[2], &scIndex);
193                 if (code) com_err ("bos", code, "(calling ClientAuth)");
194                 else if (scIndex != 2)  /* this shouldn't happen */
195                     sc[scIndex] = sc[2];
196             }
197         } else { /* not -localauth, check for tickets */
198             code = ktc_GetToken(&sname, &ttoken, sizeof(ttoken), (char *)0);
199             if (code == 0) {
200                 /* have tickets, will travel */
201                 if (ttoken.kvno >= 0 && ttoken.kvno <= 255) ;
202                 else {
203                     fprintf (stderr,
204                              "bos: funny kvno (%d) in ticket, proceeding\n",
205                              ttoken.kvno);
206                 }
207                 /* kerberos tix */
208                 if (aencrypt) encryptLevel = rxkad_crypt;
209                 else encryptLevel = rxkad_clear;
210                 sc[2] = (struct rx_securityClass *)
211                     rxkad_NewClientSecurityObject
212                         (encryptLevel, &ttoken.sessionKey,
213                          ttoken.kvno, ttoken.ticketLen, ttoken.ticket);
214                 scIndex = 2;
215             } else com_err ("bos", code, "(getting tickets)");
216         }
217         if ((scIndex == 0) || (sc[scIndex] == 0)) {
218             fprintf (stderr, "bos: running unauthenticated\n");
219             scIndex = 0;
220         }
221     }
222     tconn = rx_NewConnection (addr, htons(AFSCONF_NANNYPORT), 1,
223                               sc[scIndex], scIndex);
224     if (!tconn) {
225         fprintf (stderr, "bos: could not create rx connection\n");
226         exit(1);
227     }
228     rxs_Release (sc[scIndex]);
229
230     return tconn;
231 }
232
233 static SetAuth(as)
234 struct cmd_syndesc *as; {
235     register afs_int32 code;
236     register struct rx_connection *tconn;
237     afs_int32 flag;
238     register char *tp;
239     
240     tconn = GetConn(as, 0);
241     tp = as->parms[1].items->data;
242     if (strcmp(tp, "on")==0) flag = 0;  /* auth req.: noauthflag is false */
243     else if (strcmp(tp, "off") == 0) flag = 1;
244     else {
245         printf("bos: illegal authentication specifier '%s', must be 'off' or 'on'.\n", tp);
246         return 1;
247     }
248     code = BOZO_SetNoAuthFlag(tconn, flag);
249     if (code) com_err ("bos", code, "(failed to set authentication flag)");
250     return 0;
251 }
252
253 /* take a name (e.g. foo/bar, and a dir e.g. /usr/afs/bin, and construct
254  * /usr/afs/bin/bar */
255 static ComputeDestDir(aname, adir, aresult, alen)
256 char *aname, *adir, *aresult;
257 afs_int32 alen; {
258     register char *tp;
259
260     strcpy(aresult, adir);
261     tp = rindex(aname, '/');
262     if (!tp) {
263         /* no '/' in name */
264         strcat(aresult, "/");
265         strcat(aresult, aname);
266     }
267     else {
268         /* tp points at the / character */
269         strcat(aresult, tp);
270     }
271     return 0;
272 }
273
274 /* copy data from fd afd to rx call acall */
275 static CopyBytes(afd, acall)
276 int afd;
277 register struct rx_call *acall; {
278     register afs_int32 code;
279     register afs_int32 len;
280     char tbuffer[256];
281
282     while(1) {
283         len = read(afd, tbuffer, sizeof(tbuffer));
284         if (len < 0) return errno;
285         if (len == 0) return 0;    /* all done */
286         code = rx_Write(acall, tbuffer, len);
287         if (code != len) return -1;
288     }
289 }
290
291 static Prune(as)
292 register struct cmd_syndesc *as; {
293     register afs_int32 code;
294     register struct rx_connection *tconn;
295     register afs_int32 flags;
296     
297     tconn = GetConn(as, 0);
298     flags = 0;
299     if (as->parms[1].items) flags |= BOZO_PRUNEBAK;
300     if (as->parms[2].items) flags |= BOZO_PRUNEOLD;
301     if (as->parms[3].items) flags |= BOZO_PRUNECORE;
302     if (as->parms[4].items) flags |= 0xff;
303     code = BOZO_Prune(tconn, flags);
304     if (code) com_err ("bos", code, "(failed to prune server files)");
305     return code;
306 }
307
308 static Exec(as)
309 register struct cmd_syndesc *as; {
310     register struct rx_connection *tconn;
311     register afs_int32 code;
312
313     tconn = GetConn(as, 0);
314     code = BOZO_Exec(tconn, as->parms[1].items->data);
315     if (code) printf("bos: failed to execute command (%s)\n",
316                      em(code));
317     return code;
318 }
319
320 static GetDate(as)
321 register struct cmd_syndesc *as; {
322     register afs_int32 code;
323     char tbuffer[256];
324     char destDir[256];
325     afs_int32 time, bakTime, oldTime;
326     register struct rx_connection *tconn;
327     register struct cmd_item *ti;
328
329     tconn = GetConn(as, 0);
330     if (!as->parms[1].items) {
331         printf("bos: no files to check\n");
332         return 1;
333     }
334
335     /* compute dest dir or file; default MUST be canonical form of dir path */
336     if (as->parms[2].items) strcpy(destDir, as->parms[2].items->data);
337     else strcpy(destDir, AFSDIR_CANONICAL_SERVER_BIN_DIRPATH);
338
339     for(ti=as->parms[1].items; ti; ti=ti->next) {
340         /* check date for each file */
341         ComputeDestDir(ti->data, destDir, tbuffer, sizeof(tbuffer));
342         code = BOZO_GetDates(tconn, tbuffer, &time, &bakTime, &oldTime);
343         if (code) {
344             printf("bos: failed to check date on %s (%s)\n", ti->data,
345                    em(code));
346             return 1;
347         }
348         else {
349             printf("File %s ", tbuffer);
350             if (time == 0) printf("does not exist, ");
351             else printf("dated %s, ", DateOf(time));
352             if (bakTime == 0) printf("no .BAK file, ");
353             else printf(".BAK file dated %s, ", DateOf(bakTime));
354             if (oldTime == 0) printf("no .OLD file.");
355             else printf(".OLD file dated %s.", DateOf(oldTime));
356             printf("\n");
357         }
358     }
359 }
360
361 static UnInstall(as)
362 register struct cmd_syndesc *as; {
363     register afs_int32 code;
364     char tbuffer[256];
365     char destDir[256];
366     register struct cmd_item *ti;
367     register struct rx_connection *tconn;
368
369     tconn = GetConn(as, 0);
370     if (!as->parms[1].items) {
371         printf("bos: no files to uninstall\n");
372         return 1;
373     }
374
375     /* compute dest dir or file; default MUST be canonical form of dir path */
376     if (as->parms[2].items) strcpy(destDir, as->parms[2].items->data);
377     else strcpy(destDir, AFSDIR_CANONICAL_SERVER_BIN_DIRPATH);
378
379     for(ti=as->parms[1].items; ti; ti=ti->next) {
380         /* uninstall each file */
381         ComputeDestDir(ti->data, destDir, tbuffer, sizeof(tbuffer));
382         code = BOZO_UnInstall(tconn, tbuffer);
383         if (code) {
384             printf("bos: failed to uninstall %s (%s)\n", ti->data,
385                    em(code));
386             return 1;
387         }
388         else printf("bos: uninstalled file %s\n", ti->data);
389     }
390     return 0;
391 }
392
393 static afs_int32 GetServerGoal(aconn, aname)
394 char *aname;
395 struct rx_connection *aconn; {
396     char buffer[500];
397     char *tp;
398     register afs_int32 code;
399     struct bozo_status istatus;
400
401     tp = buffer;
402     code = BOZO_GetInstanceInfo(aconn, aname, &tp, &istatus);
403     if (code) {
404         printf("bos: failed to get instance info for '%s' (%s)\n",
405                aname, em(code));
406         /* if we can't get the answer, assume its running */
407         return BSTAT_NORMAL; 
408     }
409     if (istatus.goal == 0)
410         return BSTAT_SHUTDOWN;
411     else
412         return BSTAT_NORMAL;
413 }
414
415 static Install(as)
416 struct cmd_syndesc *as; {
417     struct rx_connection *tconn;
418     register afs_int32 code;
419     register struct cmd_item *ti;
420     struct stat tstat;
421     char tbuffer[256];
422     int fd;
423     struct rx_call *tcall;
424     char destDir[256];
425
426     tconn = GetConn(as, 0);
427     if (!as->parms[1].items) {
428         printf("bos: no files to install\n");
429         return 1;
430     }
431
432     /* compute dest dir or file; default MUST be canonical form of dir path */
433     if (as->parms[2].items) strcpy(destDir, as->parms[2].items->data);
434     else strcpy(destDir, AFSDIR_CANONICAL_SERVER_BIN_DIRPATH);
435
436     for(ti=as->parms[1].items; ti; ti=ti->next) {
437         /* install each file */
438         fd = open(ti->data, O_RDONLY);
439         if (fd < 0) {
440             /* better to quit on error than continue for install command */
441             printf("bos: can't find file '%s', quitting\n", ti->data);
442             return 1;
443         }
444         code = fstat(fd, &tstat);
445         if (code) {
446             printf("bos: failed to stat file %s, errno is %d\n", ti->data,
447                    errno);
448             return 1;
449         }
450         /* compute destination dir */
451         ComputeDestDir(ti->data, destDir, tbuffer, sizeof(tbuffer));
452         tcall = rx_NewCall(tconn);
453         code = StartBOZO_Install(tcall, tbuffer, tstat.st_size, (afs_int32)tstat.st_mode,
454                                  tstat.st_mtime);
455         if (code == 0) {
456             code = CopyBytes(fd, tcall);
457         }
458         code = rx_EndCall(tcall, code);
459         if (code) {
460             printf("bos: failed to install %s (%s)\n", ti->data, em(code));
461             return 1;
462         }
463         else printf("bos: installed file %s\n", ti->data);
464     }
465     return 0;
466 }
467
468 static Shutdown(as)
469 struct cmd_syndesc *as; {
470     register struct rx_connection *tconn;
471     register afs_int32 code;
472     register struct cmd_item *ti;
473     
474     tconn = GetConn(as, 0);
475     if (as->parms[1].items == 0) {
476         code = BOZO_ShutdownAll(tconn);
477         if (code) printf("bos: failed to shutdown servers (%s)\n", em(code));
478     }
479     else {
480         for(ti = as->parms[1].items; ti; ti=ti->next) {
481             code = BOZO_SetTStatus(tconn, ti->data, BSTAT_SHUTDOWN);
482             if (code)
483                 printf("bos: failed to shutdown instance %s (%s)\n",
484                        ti->data, em(code));
485         }
486     }
487     if (as->parms[8].items) {
488         code = BOZO_WaitAll(tconn);
489         if (code)
490             printf("bos: can't wait for processes to shutdown (%s)\n",
491                    em(code));
492     }
493     return 0;
494 }
495
496 static GetRestartCmd(as, arock)
497 struct cmd_syndesc *as;
498 char *arock; {
499     register afs_int32 code;
500     struct ktime generalTime, newBinaryTime;
501     char messageBuffer[256];
502     struct rx_connection *tconn;
503     char *hostp;
504
505     hostp = as->parms[0].items->data;   /* host name for messages */
506     tconn = GetConn(as, 0);
507
508     code = BOZO_GetRestartTime(tconn, 1, &generalTime);
509     if (code) {
510         printf("bos: failed to retrieve restart information (%s)\n", em(code));
511         return code;
512     }
513     code = BOZO_GetRestartTime(tconn, 2, &newBinaryTime);
514     if (code) {
515         printf("bos: failed to retrieve restart information (%s)\n", em(code));
516         return code;
517     }
518
519     code = ktime_DisplayString(&generalTime, messageBuffer);
520     if (code) {
521         printf("bos: failed to decode restart time (%s)\n", em(code));
522         return code;
523     }
524     printf("Server %s restarts %s\n", hostp, messageBuffer);
525
526     code = ktime_DisplayString(&newBinaryTime, messageBuffer);
527     if (code) {
528         printf("bos: failed to decode restart time (%s)\n", em(code));
529         return code;
530     }
531     printf("Server %s restarts for new binaries %s\n", hostp, messageBuffer);
532
533     /* all done now */
534     return 0;
535 }
536
537 static SetRestartCmd(as, arock)
538 struct cmd_syndesc *as;
539 char *arock; {
540     afs_int32 count;
541     register afs_int32 code;
542     struct ktime restartTime;
543     afs_int32 type;
544     struct rx_connection *tconn;
545
546     count = 0;
547     tconn = GetConn(as, 0);
548     if (as->parms[2].items) {count++; type = 1;}
549     if (as->parms[3].items) {count++; type = 2;}
550     if (count > 1) {
551         printf("bos: can't specify more than one restart time at a time\n");
552         return -1;
553     }
554     if (count == 0) type = 1;   /* by default set general restart time */
555
556     if (code = ktime_ParsePeriodic(as->parms[1].items->data, &restartTime)) {
557         printf("bos: failed to parse '%s' as periodic restart time(%s)\n",
558                as->parms[1].items->data, em(code));
559         return code;
560     }
561
562     code = BOZO_SetRestartTime(tconn, type, &restartTime);
563     if (code) {
564         printf("bos: failed to set restart time at server (%s)\n", em(code));
565         return code;
566     }
567     return 0;
568 }
569
570 static Startup(as)
571 struct cmd_syndesc *as; {
572     register struct rx_connection *tconn;
573     register afs_int32 code;
574     register struct cmd_item *ti;
575     
576     tconn = GetConn(as, 0);
577     if (as->parms[1].items == 0) {
578         code = BOZO_StartupAll(tconn);
579         if (code)
580             printf("bos: failed to startup servers (%s)\n", em(code));
581     }
582     else {
583         for(ti = as->parms[1].items; ti; ti=ti->next) {
584             code = BOZO_SetTStatus(tconn, ti->data, BSTAT_NORMAL);
585             if (code)
586                 printf("bos: failed to start instance %s (%s)\n",
587                        ti->data, em(code));
588         }
589     }
590     return 0;
591 }
592
593 static Restart(as)
594 struct cmd_syndesc *as; {
595     register struct rx_connection *tconn;
596     register afs_int32 code;
597     register struct cmd_item *ti;
598     
599     tconn = GetConn(as, 0);
600     if (as->parms[2].items) {
601         /* this is really a rebozo command */
602         if (as->parms[1].items) {
603             /* specified specific things to restart, can't do this at the same
604              * time */
605             printf("bos: can't specify both '-bos' and specific servers to restart.\n");
606             return 1;
607         }
608         /* otherwise do a rebozo */
609         code = BOZO_ReBozo(tconn);
610         if (code)
611             printf("bos: failed to restart bosserver (%s)\n", em(code));
612         return code;
613     }
614     if (as->parms[1].items == 0) {
615         if (as->parms[3].items) {               /* '-all' */
616             code = BOZO_RestartAll(tconn);
617             if (code) printf("bos: failed to restart servers (%s)\n", em(code));
618         } else
619             printf("bos: To restart all processes please specify '-all'\n");
620     }
621     else {
622         if (as->parms[3].items) {
623             printf("bos: Can't use '-all' along with individual instances\n");
624         } else {
625             for(ti = as->parms[1].items; ti; ti=ti->next) {
626                 code = BOZO_Restart(tconn, ti->data);
627                 if (code)
628                     printf("bos: failed to restart instance %s (%s)\n", ti->data,
629                            em(code));
630             }
631         }
632     }
633     return 0;
634 }
635
636 static SetCellName(as)
637 struct cmd_syndesc *as; {
638     register struct rx_connection *tconn;
639     register afs_int32 code;
640     
641     tconn = GetConn(as, 0);
642     code = BOZO_SetCellName(tconn, as->parms[1].items->data);
643     if (code) printf("bos: failed to set cell (%s)\n", em(code));
644     return 0;
645 }
646
647 static AddHost(as)
648 register struct cmd_syndesc *as; {
649     register struct rx_connection *tconn;
650     register afs_int32 code;
651     register struct cmd_item *ti;
652     
653     tconn = GetConn(as, 0);
654     for(ti = as->parms[1].items; ti; ti=ti->next) {
655         code = BOZO_AddCellHost(tconn, ti->data);
656         if (code)
657             printf("bos: failed to add host %s (%s)\n", ti->data, em(code));
658     }
659     return 0;
660 }
661
662 static RemoveHost(as)
663 register struct cmd_syndesc *as; {
664     register struct rx_connection *tconn;
665     register afs_int32 code;
666     register struct cmd_item *ti;
667     
668     tconn = GetConn(as, 0);
669     for(ti=as->parms[1].items; ti; ti=ti->next) {
670         code = BOZO_DeleteCellHost(tconn, ti->data);
671         if (code)
672             printf("bos: failed to delete host %s (%s)\n", ti->data, em(code));
673     }
674     return 0;
675 }
676
677 static ListHosts(as)
678 register struct cmd_syndesc *as; {
679     register struct rx_connection *tconn;
680     register afs_int32 code;
681     char tbuffer[256];
682     char *tp;
683     register afs_int32 i;
684
685     tp = tbuffer;
686     tconn = GetConn(as, 0);
687     code = BOZO_GetCellName(tconn, &tp);
688     if (code) {
689         printf("bos: failed to get cell name (%s)\n", em(code));
690         exit(1);
691     }
692     printf("Cell name is %s\n", tbuffer);
693     for(i=0;;i++) {
694         code = BOZO_GetCellHost(tconn, i, &tp);
695         if (code == BZDOM) break;
696         if (code != 0) {
697             printf("bos: failed to get cell host %d (%s)\n", i, em(code));
698             exit(1);
699         }
700         printf("    Host %d is %s\n", i+1, tbuffer);
701     }
702     return 0;
703 }
704
705 static AddKey(as)
706 register struct cmd_syndesc *as; {
707     register struct rx_connection *tconn;
708     register afs_int32 code;
709     struct ktc_encryptionKey tkey;
710     afs_int32 temp;
711     char *tcell;
712     char cellBuffer[256];
713     char buf[BUFSIZ], ver[BUFSIZ];
714     
715     tconn = GetConn(as, 1);
716     bzero(&tkey, sizeof(struct ktc_encryptionKey));
717
718         if(as->parms[1].items)
719                 strcpy(buf,as->parms[1].items->data);
720         else
721         {
722                 /* prompt for key */
723                 code=des_read_pw_string(buf,sizeof(buf),"input key: ",0);
724                 if(code || strlen(buf)==0)
725                 {
726                         fprintf(stderr,"Bad key: \n");
727                         exit(1);
728                 }
729                 code=des_read_pw_string(ver,sizeof(ver),"Retype input key: ",0);
730                 if(code || strlen(ver)==0)
731                 {
732                         fprintf(stderr,"Bad key: \n");
733                         exit(1);
734                 }
735                 if (strcmp (ver, buf) != 0) {
736                     fprintf (stderr, "\nInput key mismatch\n");
737                     exit(1);
738                 }
739
740         }
741
742     temp = atoi(as->parms[2].items->data);
743     if (temp == 999) {
744         /* bcrypt key */
745 /*
746         strcpy((char *)&tkey, as->parms[1].items->data);
747 */
748         strcpy((char *)&tkey, buf);
749     }
750     else {    /* kerberos key */
751         if (as->parms[12].items) {
752             strcpy(cellBuffer, as->parms[12].items->data);
753
754             /* string to key needs upper-case cell names */
755
756             /* I don't believe this is true.  The string to key function
757              * actually expands the cell name, then LOWER-CASES it.  Perhaps it
758              * didn't use to??? */
759             ucstring(cellBuffer, cellBuffer, strlen(cellBuffer));
760             tcell = cellBuffer;
761         }
762         else tcell = (char *) 0;    /* no cell specified, use current */
763 /*
764         ka_StringToKey(as->parms[1].items->data, tcell, &tkey);
765 */
766         ka_StringToKey(buf,tcell,&tkey);
767     }
768     tconn = GetConn(as, 1);
769     code = BOZO_AddKey(tconn, temp, &tkey);
770     if (code) {
771         printf("bos: failed to set key %d (%s)\n", temp, em(code));
772         exit(1);
773     }
774     return 0;
775 }
776
777 static RemoveKey(as)
778 register struct cmd_syndesc *as; {
779     register struct rx_connection *tconn;
780     register afs_int32 code;
781     afs_int32 temp;
782     register struct cmd_item *ti;
783     
784     tconn = GetConn(as, 0);
785     for(ti=as->parms[1].items; ti; ti=ti->next) {
786         temp = atoi(ti->data);
787         code = BOZO_DeleteKey(tconn, temp);
788         if (code) {
789             printf("bos: failed to delete key %d (%s)\n", temp, em(code));
790             exit(1);
791         }
792     }
793     return 0;
794 }
795
796 static ListKeys(as)
797   IN register struct cmd_syndesc *as;
798 {
799     register struct rx_connection *tconn;
800     register afs_int32 code;
801     struct ktc_encryptionKey tkey;
802     afs_int32 kvno;
803     struct bozo_keyInfo keyInfo;
804     int everWorked;
805     register afs_int32 i;
806     
807     tconn = GetConn(as, 1);
808     everWorked = 0;
809     for(i=0;;i++) {
810         code = BOZO_ListKeys(tconn, i, &kvno, &tkey, &keyInfo);
811         if (code) break;
812         everWorked = 1;
813         /* first check if key is returned */
814         if ((!ka_KeyIsZero (&tkey, sizeof(tkey))) && (as->parms[1].items)) {
815             printf ("key %d is '", kvno);
816             ka_PrintBytes (&tkey, sizeof(tkey));
817             printf ("'\n");
818         } else {
819             if (keyInfo.keyCheckSum == 0) /* shouldn't happen */
820                 printf ("key version is %d\n", kvno);
821             else
822                 printf ("key %d has cksum %u\n", kvno, keyInfo.keyCheckSum);
823         }
824     }
825     if (everWorked) {
826         printf("Keys last changed on %s.\n", DateOf(keyInfo.mod_sec));
827     }
828     if (code != BZDOM)
829         printf("bos: %s error encountered while listing keys\n", em(code));
830     else
831         printf("All done.\n");
832     return 0;
833 }
834
835 static AddSUser(as)
836 register struct cmd_syndesc *as; {
837     register struct rx_connection *tconn;
838     register afs_int32 code;
839     int failed;
840     register struct cmd_item *ti;
841
842     failed = 0;
843     tconn = GetConn(as, 0);
844     for(ti=as->parms[1].items; ti; ti=ti->next) {
845         code = BOZO_AddSUser(tconn, ti->data);
846         if (code) {
847             printf("bos: failed to add user '%s' (%s)\n", ti->data, em(code));
848             failed = 1;
849         }
850     }
851     return failed;
852 }
853
854 static RemoveSUser(as)
855 register struct cmd_syndesc *as; {
856     register struct rx_connection *tconn;
857     register struct cmd_item *ti;
858     register afs_int32 code;
859     int failed;
860
861     failed = 0;
862     tconn = GetConn(as, 0);
863     for(ti=as->parms[1].items; ti; ti=ti->next) {
864         code = BOZO_DeleteSUser(tconn, ti->data);
865         if (code) {
866             printf("bos: failed to delete user '%s', ", ti->data);
867             if (code == ENOENT)
868                 printf("(no such user)\n");
869             else
870                 printf("(%s)\n", em(code));
871             failed = 1;
872         }
873     }
874     return failed;
875 }
876
877 #define NPERLINE    10      /* dudes to print per line */
878 static ListSUsers(as)
879 register struct cmd_syndesc *as; {
880     register struct rx_connection *tconn;
881     register int i;
882     register afs_int32 code;
883     char tbuffer[256];
884     char *tp;
885     int lastNL, printGreeting;
886     
887     tconn = GetConn(as, 0);
888     lastNL = 0;
889     printGreeting = 1;
890     for(i=0;;i++) {
891         tp = tbuffer;
892         code = BOZO_ListSUsers(tconn, i, &tp);
893         if (code) break;
894         if (printGreeting) {
895             printGreeting = 0;  /* delay until after first call succeeds */
896             printf("SUsers are: ");
897         }
898         printf("%s ", tbuffer);
899         if ((i % NPERLINE) == NPERLINE-1) {
900             printf("\n");
901             lastNL = 1;
902         }
903         else lastNL = 0;
904     }
905     if (code != 1) {
906         /* a real error code, instead of scanned past end */
907         printf("bos: failed to retrieve super-user list (%s)\n", em(code));
908         return code;
909     }
910     if (lastNL == 0) printf("\n");
911     return 0;
912 }
913
914 static StatServer(as)
915 register struct cmd_syndesc *as; {
916     register struct rx_connection *tconn;
917     register afs_int32 code;
918     register int i;
919     char ibuffer[BOZO_BSSIZE];
920     char *tp;
921     int int32p;
922     
923     /* int32p==1 is obsolete, smaller, printout */
924     int32p = (as->parms[2].items != 0? 2 : 0);
925
926     /* no parms does something pretty different */
927     if (as->parms[1].items) return IStatServer(as, int32p);
928
929     tconn = GetConn(as, 0);
930     for(i=0;;i++) {
931         /* for each instance */
932         tp = ibuffer;
933         code = BOZO_EnumerateInstance(tconn, i, &tp);
934         if (code == BZDOM) break;
935         if (code) {
936             printf("bos: failed to contact host's bosserver (%s).\n",
937                    em(code));
938             break;
939         }
940         DoStat(ibuffer, tconn, int32p, (i==0)); /* print status line */
941     }
942     return 0;
943 }
944
945 static CreateServer(as)
946 register struct cmd_syndesc *as; {
947     register struct rx_connection *tconn;
948     register afs_int32 code;
949     char *parms[6];
950     register struct cmd_item *ti;
951     register int i;
952     char *type, *name, *notifier=NONOTIFIER;
953
954     tconn = GetConn(as, 0);
955     for(i=0;i<6;i++) parms[i] = "";
956     for(i=0,ti=as->parms[3].items; (ti && i<6); ti=ti->next,i++) {
957         parms[i] = ti->data;
958     }
959     name = as->parms[1].items->data;
960     type = as->parms[2].items->data;
961     if (ti = as->parms[4].items) {
962         notifier = ti->data;
963     }
964     code = BOZO_CreateBnode(tconn, type, name, parms[0], parms[1], parms[2],
965                             parms[3], parms[4], notifier);
966     if (code) {
967         printf("bos: failed to create new server instance %s of type '%s' (%s)\n", 
968                name, type, em(code));
969     }
970     return code;
971 }
972
973 static DeleteServer(as)
974 register struct cmd_syndesc *as; {
975     register struct rx_connection *tconn;
976     register afs_int32 code;
977     register struct cmd_item *ti;
978
979     code = 0;
980     tconn = GetConn(as, 0);
981     for(ti=as->parms[1].items; ti; ti=ti->next) {
982         code = BOZO_DeleteBnode(tconn, ti->data);
983         if (code) {
984             if (code == BZBUSY)
985                 printf("bos: can't delete running instance '%s'\n", ti->data);
986             else
987                 printf("bos: failed to delete instance '%s' (%s)\n",
988                        ti->data, em(code));
989         }
990     }
991     return code;
992 }
993
994 static StartServer(as)
995 register struct cmd_syndesc *as; {
996     register struct rx_connection *tconn;
997     register afs_int32 code;
998     register struct cmd_item *ti;
999
1000     code = 0;
1001     tconn = GetConn(as, 0);
1002     for(ti=as->parms[1].items; ti; ti=ti->next) {
1003         code = BOZO_SetStatus(tconn, ti->data, BSTAT_NORMAL);
1004         if (code)
1005             printf("bos: failed to start instance '%s' (%s)\n",
1006                    ti->data, em(code));
1007     }
1008     return code;
1009 }
1010
1011 static StopServer(as)
1012 register struct cmd_syndesc *as; {
1013     register struct rx_connection *tconn;
1014     register afs_int32 code;
1015     register struct cmd_item *ti;
1016
1017     code = 0;
1018     tconn = GetConn(as, 0);
1019     for(ti=as->parms[1].items; ti; ti=ti->next) {
1020         code = BOZO_SetStatus(tconn, ti->data, BSTAT_SHUTDOWN);
1021         if (code)
1022             printf("bos: failed to change stop instance '%s' (%s)\n",
1023                    ti->data, em(code));
1024     }
1025     if (as->parms[8].items) {
1026         code = BOZO_WaitAll(tconn);
1027         if (code)
1028             printf("bos: can't wait for processes to shutdown (%s)\n",
1029                    em(code));
1030     }
1031     return code;
1032 }
1033
1034 static DoSalvage(aconn, aparm1, aparm2, aoutName, showlog,parallel,atmpDir,orphans)
1035 struct rx_connection *aconn;
1036 char *aoutName;
1037 char *aparm1;
1038 char *aparm2; 
1039 afs_int32 showlog;
1040 char *parallel;
1041 char *atmpDir;
1042 char *orphans;
1043 {
1044     register afs_int32 code;
1045     char *parms[6];
1046     char buffer;
1047     char tbuffer[BOZO_BSSIZE];
1048     struct bozo_status istatus;
1049     struct rx_call *tcall;
1050     char *tp;
1051     FILE *outFile;
1052     int closeIt;
1053     char partName[20];  /* canonical name for partition */
1054     afs_int32 partNumber;
1055     char *notifier = NONOTIFIER;
1056
1057     /* if a partition was specified, canonicalize the name, since
1058        the salvager has a stupid partition ID parser */
1059     if (aparm1) {
1060         partNumber = volutil_GetPartitionID(aparm1);
1061         if (partNumber < 0) {
1062             printf("bos: could not parse partition ID '%s'\n", aparm1);
1063             return EINVAL;
1064         }
1065         tp = volutil_PartitionName(partNumber);
1066         if (!tp) {
1067             printf("bos: internal error parsing partition ID '%s'\n", aparm1);
1068             return EINVAL;
1069         }
1070         strcpy(partName, tp);
1071     }
1072     else partName[0] = 0;
1073
1074     /* open the file name */
1075     if (aoutName) {
1076         outFile = fopen(aoutName, "w");
1077         if (!outFile) {
1078             printf("bos: can't open specified SalvageLog file '%s'\n",
1079                    aoutName);
1080             return ENOENT;
1081         }
1082         closeIt = 1;    /* close this file later */
1083     }
1084     else {
1085         outFile = stdout;
1086         closeIt = 0;    /* don't close this file later */
1087     }
1088
1089     for(code=2;code<6;code++) parms[code] = "";
1090     if (!aparm2) aparm2 = "";
1091     /* MUST pass canonical (wire-format) salvager path to bosserver */
1092     strncpy(tbuffer, AFSDIR_CANONICAL_SERVER_SALVAGER_FILEPATH, BOZO_BSSIZE);
1093     if (*aparm2 != 0) {
1094         if ( (strlen(tbuffer) + 1 + strlen(partName) + 1 + strlen(aparm2) + 1) > BOZO_BSSIZE ) {
1095            printf("bos: command line too big\n");
1096            return(E2BIG);
1097         }
1098         strcat(tbuffer, " ");
1099         strcat(tbuffer, partName);
1100         strcat(tbuffer, " ");
1101         strcat(tbuffer, aparm2);
1102     } else {
1103         if ( (strlen(tbuffer) + 4 + strlen(partName) + 1) > BOZO_BSSIZE ) {
1104            printf("bos: command line too big\n");
1105            return(E2BIG);
1106         }
1107         strcat (tbuffer, " -f ");
1108         strcat (tbuffer, partName);
1109     }
1110
1111     /* add the parallel option if given */
1112     if (parallel != (char *)0) {
1113         if ( (strlen(tbuffer) + 11 + strlen(parallel) + 1) > BOZO_BSSIZE ) {
1114            printf("bos: command line too big\n");
1115            return(E2BIG);
1116         }
1117         strcat(tbuffer, " -parallel ");
1118         strcat(tbuffer, parallel);
1119     }
1120
1121     /* add the tmpdir option if given */
1122     if (atmpDir != (char *)0) {
1123         if ( (strlen(tbuffer) + 9 + strlen(atmpDir) + 1) > BOZO_BSSIZE ) {
1124            printf("bos: command line too big\n");
1125            return(E2BIG);
1126         }
1127         strcat(tbuffer, " -tmpdir ");
1128         strcat(tbuffer, atmpDir);
1129     }
1130
1131     /* add the orphans option if given */
1132     if (orphans != (char *)0) {
1133         if ( (strlen(tbuffer) + 10 + strlen(orphans) + 1) > BOZO_BSSIZE ) {
1134            printf("bos: command line too big\n");
1135            return(E2BIG);
1136         }
1137         strcat(tbuffer, " -orphans ");
1138         strcat(tbuffer, orphans);
1139     }
1140
1141     parms[0] = tbuffer;
1142     parms[1] = "now";       /* when to do it */
1143     code = BOZO_CreateBnode(aconn, "cron", "salvage-tmp", parms[0], parms[1],
1144                             parms[2], parms[3], parms[4], notifier);
1145     if (code) goto done;
1146     /* now wait for bnode to disappear */
1147     while (1) {
1148         IOMGR_Sleep(5);
1149         tp = tbuffer;
1150         code = BOZO_GetInstanceInfo(aconn, "salvage-tmp", &tp, &istatus);
1151         if (code) break;
1152         printf("bos: waiting for salvage to complete.\n");
1153     }
1154     if (code != BZNOENT) {
1155         printf("bos: salvage failed (%s)\n", em(code));
1156         goto done;
1157     }
1158
1159     /* now print the log file to the output file */
1160     printf("bos: salvage completed\n");
1161     if (aoutName || showlog) {
1162         fprintf(outFile, "SalvageLog:\n");
1163         tcall = rx_NewCall(aconn);
1164         /* MUST pass canonical (wire-format) salvager log path to bosserver */
1165         code = StartBOZO_GetLog(tcall, AFSDIR_CANONICAL_SERVER_SLVGLOG_FILEPATH);
1166         if (code) {
1167             rx_EndCall(tcall, code);
1168             goto done;
1169         }
1170         /* copy data */
1171         while(1) {
1172             code = rx_Read(tcall, &buffer, 1);
1173             if (code != 1) break;
1174             putc(buffer, outFile);
1175             if (buffer == 0) break;     /* the end delimeter */
1176         }
1177         code = rx_EndCall(tcall, 0);
1178         /* fall through into cleanup code */
1179     }
1180
1181   done:
1182     if (closeIt && outFile) fclose(outFile);
1183     return code;
1184 }
1185
1186 static GetLogCmd(as)
1187 register struct cmd_syndesc *as; {
1188     struct rx_connection *tconn;
1189     register struct rx_call *tcall;
1190     register afs_int32 code;
1191     char buffer;
1192     int error;
1193
1194     printf("Fetching log file '%s'...\n", as->parms[1].items->data);
1195     tconn = GetConn(as, 0);
1196     tcall = rx_NewCall(tconn);
1197     code = StartBOZO_GetLog(tcall, as->parms[1].items->data);
1198     if (code) {
1199         rx_EndCall(tcall, code);
1200         goto done;
1201     }
1202     /* copy data */
1203     error = 0;
1204     while(1) {
1205         code = rx_Read(tcall, &buffer, 1);
1206         if (code != 1) {
1207             error = EIO;
1208             break;
1209         }
1210         if (buffer == 0) break; /* the end delimeter */
1211         putchar(buffer);
1212     }
1213     code = rx_EndCall(tcall, error);
1214     /* fall through into cleanup code */
1215
1216   done:
1217     if (code)
1218         com_err("bos", code, "(while reading log)");
1219     return code;
1220 }
1221
1222 static SalvageCmd(as)
1223 struct cmd_syndesc *as; {
1224     register struct rx_connection *tconn;
1225     register afs_int32 code, rc;
1226     char *outName;
1227     char tname[65];
1228     afs_int32 newID;
1229     extern struct ubik_client *cstruct;
1230     afs_int32 curGoal, showlog = 0;
1231     char *parallel;
1232     char *tmpDir;
1233     char *orphans;
1234     
1235     /* parm 0 is machine name, 1 is partition, 2 is volume, 3 is -all flag */
1236     tconn = GetConn(as, 0);
1237
1238     /* we can do a volume, a partition or the whole thing, but not mixtures
1239      * thereof */
1240     if (!as->parms[1].items && as->parms[2].items) {
1241         printf("bos: must specify partition to salvage individual volume.\n");
1242         return -1;
1243     }
1244     if (as->parms[5].items && as->parms[3].items) {
1245         printf("bos: can not specify both -file and -showlog.\n");
1246         return -1;
1247     }
1248     if (as->parms[4].items && (as->parms[1].items || as->parms[2].items)) {
1249         printf("bos: can not specify -all with other flags.\n");
1250         return -1;
1251     }
1252
1253     /* get the output file name, if any */
1254     if (as->parms[3].items)
1255         outName = as->parms[3].items->data;
1256     else
1257         outName = (char *) 0;
1258
1259     if (as->parms[5].items)
1260         showlog = 1;
1261
1262     /* parallel option */
1263     parallel = (char *) 0;
1264     if (as->parms[6].items)
1265         parallel = as->parms[6].items->data;
1266
1267     /* get the tmpdir filename if any */
1268     tmpDir = (char *)0;
1269     if (as->parms[7].items)
1270         tmpDir = as->parms[7].items->data;
1271
1272     /* -orphans option */
1273     orphans = (char *)0;
1274     if (as->parms[8].items)
1275         orphans = as->parms[8].items->data;
1276
1277     if (as->parms[4].items) {
1278         /* salvage whole enchilada */
1279         curGoal = GetServerGoal(tconn, "fs");
1280         if (curGoal == BSTAT_NORMAL) {
1281             printf("bos: shutting down fs.\n");
1282             code = BOZO_SetTStatus(tconn, "fs", BSTAT_SHUTDOWN);
1283             if (code) {
1284                 printf("bos: failed to stop 'fs' (%s)\n", em(code));
1285                 return code;
1286             }
1287             code = BOZO_WaitAll(tconn); /* wait for shutdown to complete */
1288             if (code)
1289                 printf("bos: failed to wait for file server shutdown, continuing.\n");
1290         }
1291         /* now do the salvage operation */
1292         printf("Starting salvage.\n");
1293         rc = DoSalvage(tconn, (char *) 0, (char *) 0, outName, showlog,parallel,tmpDir,orphans);
1294         if (rc) printf("bos: failed to start 'salvager' (%s)\n", em(rc));
1295         if (curGoal == BSTAT_NORMAL) {
1296             printf("bos: restarting fs.\n");
1297             code = BOZO_SetTStatus(tconn, "fs", BSTAT_NORMAL);
1298             if (code) {
1299                 printf("bos: failed to restart 'fs' (%s)\n", em(code));
1300                 return code;
1301             }
1302         }
1303         if (rc) return rc;
1304     }
1305     else if (!as->parms[2].items) {
1306         if (!as->parms[1].items) {
1307             printf("bos: must specify -all switch to salvage all partitions.\n");
1308             return -1;
1309         }
1310         if (volutil_GetPartitionID(as->parms[1].items->data) < 0) {
1311             /* can't parse volume ID, so complain before shutting down
1312              * file server.
1313              */
1314             printf("bos: can't interpret %s as partition ID.\n",
1315                    as->parms[1].items->data);
1316             return -1;
1317         }
1318         curGoal = GetServerGoal(tconn, "fs");
1319         /* salvage a whole partition (specified by parms[1]) */
1320         if (curGoal == BSTAT_NORMAL) {
1321             printf("bos: shutting down fs.\n");
1322             code = BOZO_SetTStatus(tconn, "fs", BSTAT_SHUTDOWN);
1323             if (code) {
1324                 printf("bos: can't stop 'fs' (%s)\n", em(code));
1325                 return code;
1326             }
1327             code = BOZO_WaitAll(tconn); /* wait for shutdown to complete */
1328             if (code)
1329                 printf("bos: failed to wait for file server shutdown, continuing.\n");
1330         }
1331         /* now do the salvage operation */
1332         printf("Starting salvage.\n");
1333         rc = DoSalvage(tconn, as->parms[1].items->data, (char *) 0,
1334                        outName, showlog,parallel,tmpDir,orphans);
1335         if (rc) printf("bos: failed to start 'salvager' (%s)\n", em(rc));
1336         if (curGoal == BSTAT_NORMAL) {
1337             printf("bos: restarting fs.\n");
1338             code = BOZO_SetTStatus(tconn, "fs", BSTAT_NORMAL);
1339             if (code) {
1340                 printf("bos: failed to restart 'fs' (%s)\n", em(code));
1341                 return code;
1342             }
1343         }
1344         if (rc) return rc;
1345     }
1346     else {
1347         /* salvage individual volume (don't shutdown fs first), just use
1348          * single-shot cron bnode.  Must leave server running when using this
1349          * option, since salvager will ask file server for the volume */
1350         char *tmpname;
1351         afs_int32 err;
1352         const char *confdir;
1353         int localauth;
1354
1355         if (as->parms[12].items) tmpname = as->parms[12].items->data;
1356         else tmpname = (char *) 0;
1357
1358         localauth = (as->parms[14].items != 0);
1359         confdir = (localauth ? AFSDIR_SERVER_ETC_DIRPATH : AFSDIR_CLIENT_ETC_DIRPATH);
1360         code = vsu_ClientInit(/* noauth */ 1, confdir, tmpname,
1361                               /* server auth */ 0, &cstruct, (int (*)()) 0);
1362         if (code == 0) {
1363             newID = vsu_GetVolumeID(as->parms[2].items->data, cstruct, &err);
1364             if (newID == 0) {
1365                 printf("bos: can't interpret %s as volume name or ID\n", as->parms[2].items->data);
1366                 return -1;
1367             }
1368             sprintf(tname, "%u", newID);
1369         }
1370         else {
1371             printf("bos: can't initialize volume system client (code %d), trying anyway.\n",
1372                    as->parms[2].items->data, code);
1373             strncpy(tname, as->parms[2].items->data, sizeof(tname));
1374         }
1375         if (volutil_GetPartitionID(as->parms[1].items->data) < 0) {
1376             /* can't parse volume ID, so complain before shutting down
1377              * file server.
1378              */
1379             printf("bos: can't interpret %s as partition ID.\n",
1380                    as->parms[1].items->data);
1381             return -1;
1382         }
1383         printf("Starting salvage.\n");
1384         rc = DoSalvage(tconn, as->parms[1].items->data, tname, outName,
1385                        showlog,parallel,tmpDir,orphans);
1386         if (rc) {
1387            printf("bos: failed to start 'salvager' (%s)\n", em(rc));
1388            return rc;
1389         }
1390     }
1391     return 0;
1392 }
1393
1394 static IStatServer(as, int32p)
1395 int int32p;
1396 register struct cmd_syndesc *as; {
1397     register struct rx_connection *tconn;
1398     register struct cmd_item *ti;
1399     int firstTime = 1;
1400
1401     tconn = GetConn(as, 0);
1402     for (ti=as->parms[1].items; ti; ti=ti->next) {
1403         DoStat(ti->data, tconn, int32p, firstTime);
1404         firstTime = 0;
1405     }
1406     return 0;
1407 }
1408
1409 static DoStat (aname, aconn, aint32p, firstTime)
1410   IN char *aname;
1411   IN register struct rx_connection *aconn;
1412   IN int aint32p;
1413   IN int firstTime;                     /* true iff first instance in cmd */
1414 {
1415     afs_int32 temp;
1416     char buffer[500];
1417     register afs_int32 code;
1418     register afs_int32 i;
1419     struct bozo_status istatus;
1420     char *tp;
1421     char *is1, *is2, *is3, *is4;        /* instance strings */
1422
1423     tp = buffer;
1424     code = BOZO_GetInstanceInfo(aconn, aname, &tp, &istatus);
1425     if (code) {
1426         printf("bos: failed to get instance info for '%s' (%s)\n",
1427                aname, em(code));
1428         return -1;
1429     }
1430     if (firstTime && aint32p && (istatus.flags & BOZO_BADDIRACCESS))
1431         printf ("Bosserver reports inappropriate access on server directories\n");
1432     printf("Instance %s, ", aname);
1433     if (aint32p) printf("(type is %s) ", buffer);
1434     if (istatus.fileGoal == istatus.goal) {
1435         if (!istatus.goal) printf("disabled, ");
1436     }
1437     else {
1438         if (istatus.fileGoal) printf("temporarily disabled, ");
1439         else printf("temporarily enabled, ");
1440     }
1441
1442     if (istatus.flags & BOZO_ERRORSTOP)
1443         printf("stopped for too many errors, ");
1444     if (istatus.flags & BOZO_HASCORE)
1445         printf("has core file, ");
1446
1447     tp = buffer;
1448     code = BOZO_GetStatus(aconn, aname, &temp, &tp);
1449     if (code)
1450         printf("bos: failed to get status for instance '%s' (%s)\n",
1451                aname, em(code));
1452     else {
1453         printf("currently ", aname);
1454         if (temp == BSTAT_NORMAL) printf("running normally.\n");
1455         else if (temp == BSTAT_SHUTDOWN) printf("shutdown.\n");
1456         else if (temp == BSTAT_STARTINGUP) printf("starting up.\n");
1457         else if (temp == BSTAT_SHUTTINGDOWN) printf("shutting down.\n");
1458         if (buffer[0] != 0) {
1459             printf("    Auxiliary status is: %s.\n", buffer);
1460         }
1461     }
1462
1463     /* are we done yet? */
1464     if (!aint32p) return 0;
1465
1466     if (istatus.procStartTime)
1467         printf("    Process last started at %s (%d proc starts)\n",
1468                DateOf(istatus.procStartTime), istatus.procStarts);
1469     if (istatus.lastAnyExit) {
1470         printf("    Last exit at %s\n", DateOf(istatus.lastAnyExit));
1471     }
1472     if (istatus.lastErrorExit) {
1473         is1 = is2 = is3 = is4 = (char *) 0;
1474         printf("    Last error exit at %s, ", DateOf(istatus.lastErrorExit));
1475         code = BOZO_GetInstanceStrings(aconn, aname, &is1, &is2, &is3, &is4);
1476         /* don't complain about failing call, since could simply mean
1477          * interface mismatch.
1478          */
1479         if (code == 0) {
1480             if (*is1 != 0) {
1481                 /* non-null instance string */
1482                 printf("by %s, ", is1);
1483             }
1484             free(is1);
1485             free(is2);
1486             free(is3);
1487             free(is4);
1488         }
1489         if (istatus.errorSignal) {
1490             if (istatus.errorSignal == SIGTERM)
1491                 printf("due to shutdown request\n");
1492             else
1493                 printf("due to signal %d\n", istatus.errorSignal);
1494         }
1495         else
1496             printf("by exiting with code %d\n", istatus.errorCode);
1497     }
1498     
1499     if (aint32p > 1) {
1500         /* try to display all the parms */
1501         for(i=0;;i++) {
1502             tp = buffer;
1503             code = BOZO_GetInstanceParm(aconn, aname, i, &tp);
1504             if (code) break;
1505             printf("    Command %d is '%s'\n", i+1, buffer);
1506         }
1507         tp = buffer;
1508         code = BOZO_GetInstanceParm(aconn, aname, 999, &tp);
1509         if (!code) {
1510             /* Any type of failure is treated as not having a notifier program */
1511             printf("    Notifier  is '%s'\n", buffer);
1512         }
1513         printf("\n");
1514     }
1515     return 0;
1516 }
1517
1518 static void add_std_args (ts)
1519   register struct cmd_syndesc *ts;
1520 {
1521     cmd_Seek(ts, 12);
1522     /* 12 */ cmd_AddParm(ts, "-cell", CMD_SINGLE, CMD_OPTIONAL, "cell name");
1523     /* 13 */cmd_AddParm(ts, "-noauth", CMD_FLAG, CMD_OPTIONAL,
1524                         "don't authenticate");
1525     /* 14 */ cmd_AddParm (ts, "-localauth", CMD_FLAG, CMD_OPTIONAL,
1526                           "create tickets from KeyFile");
1527 }
1528   
1529 #include "AFS_component_version_number.c"
1530
1531 main(argc, argv)
1532   int argc;
1533   char **argv;
1534 {
1535     register afs_int32 code;
1536     register struct cmd_syndesc *ts;
1537     extern int afsconf_SawCell;
1538
1539 #ifdef  AFS_AIX32_ENV
1540     /*
1541      * The following signal action for AIX is necessary so that in case of a 
1542      * crash (i.e. core is generated) we can include the user's data section 
1543      * in the core dump. Unfortunately, by default, only a partial core is
1544      * generated which, in many cases, isn't too useful.
1545      */
1546     struct sigaction nsa;
1547     
1548     sigemptyset(&nsa.sa_mask);
1549     nsa.sa_handler = SIG_DFL;
1550     nsa.sa_flags = SA_FULLDUMP;
1551     sigaction(SIGSEGV, &nsa, NULL);
1552     sigaction(SIGABRT, &nsa, NULL);
1553 #endif
1554
1555     /* start up rx */
1556     code = rx_Init(0);
1557     if (code) {
1558         printf("bos: could not initialize rx (%s)\n", em(code));
1559         exit(1);
1560     }
1561
1562     /* To resolve a AFSCELL environment "Note: ..." problem: Because bos calls ka_Init (why?) before any
1563      * checkup on the existance of a "-cell" option on the particular bos command we don't print the
1564      * message if a cell is passed in. Luckily the rest of the programs don't call these adhoc routines
1565      * and things work fine. Note that if the "-cell" isn't passed then we're still ok since later on
1566      * the proper routine (afsconf_GetCellInfo) is going to be called to do the right thing.
1567      */
1568     afsconf_SawCell = 1;        /* Means don't print warning if AFSCELL is set */
1569     ka_Init(0);
1570     afsconf_SawCell = 0;        /* Reset it */
1571     /* don't check error code, since fails sometimes when we're setting up a
1572      * system */
1573     initialize_cmd_error_table();
1574     initialize_bz_error_table();
1575
1576     ts = cmd_CreateSyntax("start", StartServer, 0, "start running a server");
1577     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1578     cmd_AddParm(ts, "-instance", CMD_LIST, 0, "server process name");
1579     add_std_args (ts);
1580
1581     ts = cmd_CreateSyntax("stop", StopServer, 0, "halt a server instance");
1582     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1583     cmd_AddParm(ts, "-instance", CMD_LIST, 0, "server process name");
1584     cmd_Seek(ts, 8);
1585     cmd_AddParm(ts, "-wait", CMD_FLAG, CMD_OPTIONAL,
1586                 "wait for process to stop");
1587     add_std_args (ts);
1588     
1589     ts = cmd_CreateSyntax("status", StatServer, 0,
1590                           "show server instance status");
1591     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1592     cmd_AddParm(ts, "-instance", CMD_LIST, CMD_OPTIONAL,
1593                 "server process name");
1594     cmd_AddParm(ts, "-long", CMD_FLAG, CMD_OPTIONAL, "long status");
1595     add_std_args (ts);
1596
1597     ts = cmd_CreateSyntax("shutdown", Shutdown, 0, "shutdown all processes");
1598     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1599     cmd_AddParm(ts, "-instance", CMD_LIST, CMD_OPTIONAL, "instances");
1600     cmd_Seek(ts, 8);
1601     cmd_AddParm(ts, "-wait", CMD_FLAG, CMD_OPTIONAL,
1602                 "wait for process to stop");
1603     add_std_args (ts);
1604
1605     ts = cmd_CreateSyntax("startup", Startup, 0, "start all processes");
1606     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1607     cmd_AddParm(ts, "-instance", CMD_LIST, CMD_OPTIONAL, "instances");
1608     add_std_args (ts);
1609
1610     ts = cmd_CreateSyntax("restart", Restart, 0, "restart all processes");
1611     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1612     cmd_AddParm(ts, "-instance", CMD_LIST, CMD_OPTIONAL, "instances");
1613     cmd_AddParm(ts, "-bosserver", CMD_FLAG, CMD_OPTIONAL, "restart bosserver");
1614     cmd_AddParm(ts, "-all", CMD_FLAG, CMD_OPTIONAL, "restart all processes");
1615     add_std_args (ts);
1616
1617 #ifndef OPBOS
1618
1619     ts = cmd_CreateSyntax("create", CreateServer, 0,
1620                           "create a new server instance");
1621     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1622     cmd_AddParm(ts, "-instance", CMD_SINGLE, 0, "server process name");
1623     cmd_AddParm(ts, "-type", CMD_SINGLE, 0, "server type");
1624     cmd_AddParm(ts, "-cmd", CMD_LIST, 0, "command lines");
1625     cmd_AddParm(ts, "-notifier", CMD_SINGLE, CMD_OPTIONAL, "Notifier program");
1626     add_std_args (ts);
1627
1628     ts = cmd_CreateSyntax("delete", DeleteServer, 0,
1629                           "delete a server instance");
1630     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1631     cmd_AddParm(ts, "-instance", CMD_LIST, 0, "server process name");
1632     add_std_args (ts);
1633     
1634     ts = cmd_CreateSyntax("adduser", AddSUser, 0,
1635                           "add users to super-user list");
1636     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1637     cmd_AddParm(ts, "-user", CMD_LIST, 0, "user names");
1638     add_std_args (ts);
1639
1640     ts = cmd_CreateSyntax("removeuser", RemoveSUser, 0,
1641                           "remove users from super-user list");
1642     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1643     cmd_AddParm(ts, "-user", CMD_LIST, 0, "user names");
1644     add_std_args (ts);
1645
1646     ts = cmd_CreateSyntax("listusers", ListSUsers, 0, "list super-users");
1647     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1648     add_std_args (ts);
1649
1650     ts = cmd_CreateSyntax("addkey", AddKey, 0,
1651                            "add keys to key dbase (kvno 999 is bcrypt)");
1652     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1653     cmd_AddParm(ts, "-key", CMD_SINGLE, CMD_OPTIONAL, "key");
1654     cmd_AddParm(ts, "-kvno", CMD_SINGLE, 0, "key version number");
1655     add_std_args (ts);
1656
1657     ts = cmd_CreateSyntax("removekey", RemoveKey, 0,
1658                           "remove keys from key dbase");
1659     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1660     cmd_AddParm(ts, "-kvno", CMD_LIST, 0, "key version number");
1661     add_std_args (ts);
1662
1663     ts = cmd_CreateSyntax("listkeys", ListKeys, 0, "list keys");
1664     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1665     cmd_AddParm(ts, "-showkey", CMD_FLAG, CMD_OPTIONAL, "show the actual key rather than the checksum");
1666     add_std_args (ts);
1667
1668     ts = cmd_CreateSyntax("listhosts", ListHosts, 0, "get cell host list");
1669     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1670     add_std_args (ts);
1671     cmd_CreateAlias(ts, "getcell");
1672
1673     ts = cmd_CreateSyntax("setcellname", SetCellName, 0, "set cell name");
1674     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1675     cmd_AddParm(ts, "-name", CMD_SINGLE, 0, "cell name");
1676     add_std_args (ts);
1677
1678     ts = cmd_CreateSyntax("addhost", AddHost, 0, "add host to cell dbase");
1679     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1680     cmd_AddParm(ts, "-host", CMD_LIST, 0, "host name");
1681     add_std_args (ts);
1682
1683     ts = cmd_CreateSyntax("removehost", RemoveHost, 0,
1684                           "remove host from cell dbase");
1685     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1686     cmd_AddParm(ts, "-host", CMD_LIST, 0, "host name");
1687     add_std_args (ts);
1688
1689     ts = cmd_CreateSyntax("setauth", SetAuth, 0,
1690                           "set authentication required flag");
1691     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1692     cmd_AddParm(ts, "-authrequired", CMD_SINGLE,
1693                 0, "on or off: authentication required for admin requests");
1694     add_std_args (ts);
1695     
1696     ts = cmd_CreateSyntax("install", Install, 0, "install program");
1697     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1698     cmd_AddParm(ts, "-file", CMD_LIST, 0, "files to install");
1699     cmd_AddParm(ts, "-dir", CMD_SINGLE, CMD_OPTIONAL, "destination dir");
1700     add_std_args (ts);
1701
1702     ts = cmd_CreateSyntax("uninstall", UnInstall, 0, "uninstall program");
1703     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1704     cmd_AddParm(ts, "-file", CMD_LIST, 0, "files to uninstall");
1705     cmd_AddParm(ts, "-dir", CMD_SINGLE, CMD_OPTIONAL, "destination dir");
1706     add_std_args (ts);
1707
1708     ts = cmd_CreateSyntax("getlog", GetLogCmd, 0, "examine log file");
1709     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1710     cmd_AddParm(ts, "-file", CMD_SINGLE, 0, "log file to examine");
1711     add_std_args (ts);
1712
1713     ts = cmd_CreateSyntax("getdate", GetDate, 0, "get dates for programs");
1714     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1715     cmd_AddParm(ts, "-file", CMD_LIST, 0, "files to check");
1716     cmd_AddParm(ts, "-dir", CMD_SINGLE, CMD_OPTIONAL, "destination dir");
1717     add_std_args (ts);
1718
1719     ts = cmd_CreateSyntax("exec", Exec, 0, "execute shell command on server");
1720     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1721     cmd_AddParm(ts, "-cmd", CMD_SINGLE, 0, "command to execute");
1722     add_std_args (ts);
1723
1724     ts = cmd_CreateSyntax("prune", Prune, 0, "prune server files");
1725     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1726     cmd_AddParm(ts, "-bak", CMD_FLAG, CMD_OPTIONAL, "delete .BAK files");
1727     cmd_AddParm(ts, "-old", CMD_FLAG, CMD_OPTIONAL, "delete .OLD files");
1728     cmd_AddParm(ts, "-core", CMD_FLAG, CMD_OPTIONAL, "delete core files");
1729     cmd_AddParm(ts, "-all", CMD_FLAG, CMD_OPTIONAL, "delete all junk files");
1730     add_std_args (ts);
1731
1732     ts = cmd_CreateSyntax("setrestart", SetRestartCmd, 0, "set restart times");
1733     cmd_AddParm(ts, "-server", CMD_SINGLE, CMD_REQUIRED, "machine name");
1734     cmd_AddParm(ts, "-time", CMD_SINGLE,
1735                 CMD_REQUIRED, "time to restart server");
1736     cmd_AddParm(ts, "-general", CMD_FLAG,
1737                 CMD_OPTIONAL, "set general restart time");
1738     cmd_AddParm(ts, "-newbinary", CMD_FLAG,
1739                 CMD_OPTIONAL, "set new binary restart time");
1740     add_std_args (ts);
1741
1742     ts = cmd_CreateSyntax("getrestart", GetRestartCmd, 0, "get restart times");
1743     cmd_AddParm(ts, "-server", CMD_SINGLE, CMD_REQUIRED, "machine name");
1744     add_std_args (ts);
1745
1746     ts = cmd_CreateSyntax("salvage", SalvageCmd, 0,
1747                           "salvage partition or volumes");
1748     cmd_AddParm(ts, "-server", CMD_SINGLE, 0, "machine name");
1749     cmd_AddParm(ts, "-partition", CMD_SINGLE,
1750                 CMD_OPTIONAL, "salvage partition");
1751     cmd_AddParm(ts, "-volume", CMD_SINGLE,
1752                 CMD_OPTIONAL, "salvage volume number or volume name");
1753     cmd_AddParm(ts, "-file", CMD_SINGLE,
1754                 CMD_OPTIONAL, "salvage log output file");
1755     cmd_AddParm(ts, "-all", CMD_FLAG, CMD_OPTIONAL, "salvage whole server");
1756     cmd_AddParm(ts, "-showlog", CMD_FLAG, CMD_OPTIONAL, "display salvage log");
1757     cmd_AddParm(ts, "-parallel",CMD_SINGLE, CMD_OPTIONAL, 
1758                 "# of max parallel partition salvaging");
1759     cmd_AddParm(ts, "-tmpdir",CMD_SINGLE, CMD_OPTIONAL, 
1760                 "directory to place tmp files");
1761     cmd_AddParm(ts, "-orphans", CMD_SINGLE, CMD_OPTIONAL, 
1762                 "ignore | remove | attach");
1763     add_std_args (ts);
1764
1765 #endif
1766
1767     code = cmd_Dispatch(argc, argv);
1768     rx_Finalize();
1769     exit(code);
1770 }