Added a call to com_err to critical_alert().

diff --git a/lib/critical.c b/lib/critical.c
index 51680ba6a9b46ef4335cbef3f0ff4569ee3689f0..3e84ad21c5ab443db8b5866d73c5fe159770e78c 100644 (file)
--- a/lib/critical.c
+++ b/lib/critical.c
@@ -21,7 +21,8 @@ void critical_alert(instance, msg, args)
                                /* args = arguements, printf style */
   /* This routine sends a class SMS zephyrgram of specified instance
      and logs to a special logfile the message passed to it via msg
-     and args in printf format. */
+     and args in printf format.  *** It expects the global variable
+     whoami to be defined and contain the name of the calling program. */
   /* Note: The part of this code that process the variable arguements
      was stolen from sprintf(). */
 {
@@ -52,6 +53,8 @@ void critical_alert(instance, msg, args)
        fprintf(crit, "%s <%d> %s\n", time_s, getpid(), buf);
        fclose(crit);
     }
+
+    com_err(whoami, 0, buf);
 }