3 * Log and send a zephyrgram about any critical errors.
5 * (c) Copyright 1988 by the Massachusetts Institute of Technology.
6 * For copying and distribution information, please see the file
10 #include <mit-copyright.h>
12 #include <sys/types.h>
14 #include <moira_site.h>
16 #include <zephyr/zephyr.h>
23 /* mode to create the file with */
24 #define LOGFILEMODE 0644
29 /* This routine sends a class MOIRA zephyrgram of specified instance
30 * and logs to a special logfile the message passed to it via msg
31 * and args in printf format. *** It expects the global variable
32 * whoami to be defined and contain the name of the calling program.
33 * It's a kludge that it takes a max of 8 arguments in a way that
34 * isn't necessarily portable, but varargs doesn't work here and we
35 * don't have vsprintf().
38 void critical_alert(instance, msg, arg1, arg2, arg3, arg4,
39 arg5, arg6, arg7, arg8)
40 char *instance; /* Instance for zephyr gram */
41 char *msg; /* printf format message */
42 char *arg1, *arg2, *arg3, *arg4, *arg5, *arg6, *arg7, *arg8;
44 FILE *crit; /* FILE for critical log file */
45 char buf[BUFSIZ]; /* Holds the formatted message */
47 sprintf(buf, msg, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
49 /* Send zephyr notice */
50 send_zgram(instance, buf);
52 /* Log message to critical file */
53 if ((crit = fopen(CRITERRLOG, "a")) != (FILE *)NULL)
59 time_s = ctime(&t) + 4;
60 time_s[strlen(time_s)-6] = '\0';
62 fprintf(crit, "%s <%d> %s\n", time_s, getpid(), buf);
66 com_err(whoami, 0, buf);
71 /* Sends a zephyrgram of class "MOIRA", instance as a parameter. Ignores
72 * errors while sending message.
82 bzero (&znotice, sizeof (znotice));
83 znotice.z_kind = UNSAFE;
84 znotice.z_class = "MOIRA";
85 znotice.z_class_inst = inst;
86 znotice.z_default_format = "MOIRA $instance on $fromhost:\n $message\n";
87 (void) ZInitialize ();
88 znotice.z_message = msg;
89 znotice.z_message_len = strlen(msg) + 1;
90 znotice.z_opcode = "";
91 znotice.z_recipient = "";
92 ZSendNotice(&znotice, ZNOAUTH);
97 sprintf(buf, "MOIRA: %s %s", inst, msg);