497c8aee615b5a5efa9f52d7cb1cf0506414b5df
[openssl.git] / crypto / bio / bss_log.c
1 /* crypto/bio/bss_log.c */
2 /* ====================================================================
3  * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  *
9  * 1. Redistributions of source code must retain the above copyright
10  *    notice, this list of conditions and the following disclaimer. 
11  *
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in
14  *    the documentation and/or other materials provided with the
15  *    distribution.
16  *
17  * 3. All advertising materials mentioning features or use of this
18  *    software must display the following acknowledgment:
19  *    "This product includes software developed by the OpenSSL Project
20  *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
21  *
22  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
23  *    endorse or promote products derived from this software without
24  *    prior written permission. For written permission, please contact
25  *    licensing@OpenSSL.org.
26  *
27  * 5. Products derived from this software may not be called "OpenSSL"
28  *    nor may "OpenSSL" appear in their names without prior written
29  *    permission of the OpenSSL Project.
30  *
31  * 6. Redistributions of any form whatsoever must retain the following
32  *    acknowledgment:
33  *    "This product includes software developed by the OpenSSL Project
34  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
35  *
36  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
37  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
38  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
39  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
40  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
41  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
42  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
43  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
44  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
45  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
46  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
47  * OF THE POSSIBILITY OF SUCH DAMAGE.
48  * ====================================================================
49  *
50  * This product includes cryptographic software written by Eric Young
51  * (eay@cryptsoft.com).  This product includes software written by Tim
52  * Hudson (tjh@cryptsoft.com).
53  *
54  */
55
56 /*
57         Why BIO_s_log?
58
59         BIO_s_log is useful for system daemons (or services under NT).
60         It is one-way BIO, it sends all stuff to syslogd (or event log
61         under NT).
62
63 */
64
65
66 #include <stdio.h>
67 #include <errno.h>
68
69 #ifndef WIN32
70 #ifdef __ultrix
71 #include <sys/syslog.h>
72 #else
73 #include <syslog.h>
74 #endif
75 #else
76 #include <process.h>
77 #endif
78
79 #include "cryptlib.h"
80 #include <openssl/buffer.h>
81 #include <openssl/err.h>
82 #ifndef NO_SYSLOG
83
84
85 static int MS_CALLBACK slg_write(BIO *h,char *buf,int num);
86 static int MS_CALLBACK slg_puts(BIO *h,char *str);
87 static long MS_CALLBACK slg_ctrl(BIO *h,int cmd,long arg1,char *arg2);
88 static int MS_CALLBACK slg_new(BIO *h);
89 static int MS_CALLBACK slg_free(BIO *data);
90 static int xopenlog(BIO* bp, const char* name, int level);
91 static int xcloselog(BIO* bp);
92
93 static BIO_METHOD methods_slg=
94         {
95         BIO_TYPE_MEM,"syslog",
96         slg_write,
97         NULL,
98         slg_puts,
99         NULL,
100         slg_ctrl,
101         slg_new,
102         slg_free,
103         };
104
105 BIO_METHOD *BIO_s_log(void)
106         {
107         return(&methods_slg);
108         }
109
110 static int MS_CALLBACK slg_new(BIO *bi)
111         {
112         bi->init=1;
113         bi->num=0;
114         bi->ptr=NULL;
115 #ifndef WIN32
116         xopenlog(bi, "application", LOG_DAEMON);
117 #else
118         xopenlog(bi, "application", 0);
119 #endif
120         return(1);
121         }
122
123 static int MS_CALLBACK slg_free(BIO *a)
124         {
125         if (a == NULL) return(0);
126         xcloselog(a);
127         return(1);
128         }
129         
130 static int MS_CALLBACK slg_write(BIO *b, char *in, int inl)
131         {
132         int ret= inl;
133         char* buf= in;
134         char* pp;
135 #if defined(WIN32)
136         LPTSTR lpszStrings[2];
137         WORD evtype= EVENTLOG_ERROR_TYPE;
138         int pid = _getpid();
139         char pidbuf[20];
140         int pidbufl;
141 #else
142         int priority;
143 #endif
144
145         if((buf= (char *)Malloc(inl+ 1)) == NULL){
146                 return(0);
147         }
148         strncpy(buf, in, inl);
149         buf[inl]= '\0';
150 #if defined(WIN32)
151         if(strncmp(buf, "ERR ", 4) == 0){
152                 evtype= EVENTLOG_ERROR_TYPE;
153                 pp= buf+ 4;
154         }else if(strncmp(buf, "WAR ", 4) == 0){
155                 evtype= EVENTLOG_WARNING_TYPE;
156                 pp= buf+ 4;
157         }else if(strncmp(buf, "INF ", 4) == 0){
158                 evtype= EVENTLOG_INFORMATION_TYPE;
159                 pp= buf+ 4;
160         }else{
161                 evtype= EVENTLOG_ERROR_TYPE;
162                 pp= buf;
163         }
164
165         sprintf(pidbuf, "[%d] ", pid);
166         lpszStrings[0] = pidbuf;
167         lpszStrings[1] = pp;
168
169         if(b->ptr)
170                 ReportEvent(b->ptr, evtype, 0, 1024, NULL, 2, 0,
171                                 lpszStrings, NULL);
172 #else
173         if(strncmp(buf, "ERR ", 4) == 0){
174                 priority= LOG_ERR;
175                 pp= buf+ 4;
176         }else if(strncmp(buf, "WAR ", 4) == 0){
177                 priority= LOG_WARNING;
178                 pp= buf+ 4;
179         }else if(strncmp(buf, "INF ", 4) == 0){
180                 priority= LOG_INFO;
181                 pp= buf+ 4;
182         }else{
183                 priority= LOG_ERR;
184                 pp= buf;
185         }
186
187         syslog(priority, "%s", pp);
188 #endif
189         Free(buf);
190         return(ret);
191         }
192
193 static long MS_CALLBACK slg_ctrl(BIO *b, int cmd, long num, char *ptr)
194         {
195         switch (cmd)
196                 {
197         case BIO_CTRL_SET:
198                 xcloselog(b);
199                 xopenlog(b, ptr, num);
200                 break;
201         default:
202                 break;
203                 }
204         return(0);
205         }
206
207 static int MS_CALLBACK slg_puts(BIO *bp, char *str)
208         {
209         int n,ret;
210
211         n=strlen(str);
212         ret=slg_write(bp,str,n);
213         return(ret);
214         }
215
216 static int xopenlog(BIO* bp, const char* name, int level)
217 {
218 #if defined(WIN32)
219         if((bp->ptr= (char *)RegisterEventSource(NULL, name)) == NULL){
220                 return(0);
221         }
222 #else
223         openlog(name, LOG_PID|LOG_CONS, level);
224 #endif
225         return(1);
226 }
227
228 static int xcloselog(BIO* bp)
229 {
230 #if defined(WIN32)
231         if(bp->ptr)
232                 DeregisterEventSource((HANDLE)(bp->ptr));
233         bp->ptr= NULL;
234 #else
235         closelog();
236 #endif
237         return(1);
238 }
239
240 #endif