1 files changed, 36 insertions, 0 deletions
diff --git a/crypto/heimdal/appl/popper/pop_log.c b/crypto/heimdal/appl/popper/pop_log.c
new file mode 100644
index 0000000..deb9841
--- /dev/null
+++ b/crypto/heimdal/appl/popper/pop_log.c
@@ -0,0 +1,36 @@
+/*
+ * Copyright (c) 1989 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#include <popper.h>
+RCSID("$Id: pop_log.c,v 1.13 1997/10/14 21:59:07 joda Exp $");
+
+/* 
+ *  log:    Make a log entry
+ */
+
+int
+pop_log(POP *p, int stat, char *format, ...)
+{
+    char msgbuf[MAXLINELEN];
+    va_list     ap;
+
+    va_start(ap, format);
+    vsnprintf(msgbuf, sizeof(msgbuf), format, ap);
+
+    if (p->debug && p->trace) {
+        fprintf(p->trace,"%s\n",msgbuf);
+        fflush(p->trace);
+    } else {
+#ifdef KRB5
+	krb5_log(p->context, p->logf, stat, "%s", msgbuf);
+#else
+        syslog (stat,"%s",msgbuf);
+#endif
+    }
+    va_end(ap);
+
+    return(stat);
+}