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