53ad7aa88ee85f3e67d5db4b429f78bd967a2573
[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/sylog.h>
72 #else
73 #include <syslog.h>
74 #endif
75 #endif
76
77 #include "cryptlib.h"
78 #include <openssl/buffer.h>
79 #include <openssl/err.h>
80 #ifndef NO_SYSLOG
81
82
83 static int MS_CALLBACK slg_write(BIO *h,char *buf,int num);
84 static int MS_CALLBACK slg_puts(BIO *h,char *str);
85 static long MS_CALLBACK slg_ctrl(BIO *h,int cmd,long arg1,char *arg2);
86 static int MS_CALLBACK slg_new(BIO *h);
87 static int MS_CALLBACK slg_free(BIO *data);
88 static int xopenlog(BIO* bp, const char* name, int level);
89 static int xcloselog(BIO* bp);
90
91 static BIO_METHOD methods_slg=
92         {
93         BIO_TYPE_MEM,"syslog",
94         slg_write,
95         NULL,
96         slg_puts,
97         NULL,
98         slg_ctrl,
99         slg_new,
100         slg_free,
101         };
102
103 BIO_METHOD *BIO_s_log(void)
104         {
105         return(&methods_slg);
106         }
107
108 static int MS_CALLBACK slg_new(BIO *bi)
109         {
110         bi->init=1;
111         bi->num=0;
112         bi->ptr=NULL;
113 #ifndef WIN32
114         xopenlog(bi, "application", LOG_DAEMON);
115 #else
116         xopenlog(bi, "application", 0);
117 #endif
118         return(1);
119         }
120
121 static int MS_CALLBACK slg_free(BIO *a)
122         {
123         if (a == NULL) return(0);
124         xcloselog(a);
125         return(1);
126         }
127         
128 static int MS_CALLBACK slg_write(BIO *b, char *in, int inl)
129         {
130         int ret= inl;
131         char* buf= in;
132         char* pp;
133 #if defined(WIN32)
134         LPTSTR lpszStrings[1];
135         WORD evtype= EVENTLOG_ERROR_TYPE;
136 #else
137         int priority;
138 #endif
139
140         if((buf= (char *)Malloc(inl+ 1)) == NULL){
141                 return(0);
142         }
143         strncpy(buf, in, inl);
144         buf[inl]= '\0';
145 #if defined(WIN32)
146         if(strncmp(buf, "ERR ", 4) == 0){
147                 evtype= EVENTLOG_ERROR_TYPE;
148                 pp= buf+ 4;
149         }else if(strncmp(buf, "WAR ", 4) == 0){
150                 evtype= EVENTLOG_WARNING_TYPE;
151                 pp= buf+ 4;
152         }else if(strncmp(buf, "INF ", 4) == 0){
153                 evtype= EVENTLOG_INFORMATION_TYPE;
154                 pp= buf+ 4;
155         }else{
156                 evtype= EVENTLOG_ERROR_TYPE;
157                 pp= buf;
158         }
159         lpszStrings[0]= pp;
160
161         if(b->ptr)
162                 ReportEvent(b->ptr, evtype, 0, 1024, NULL, 1, 0,
163                                 lpszStrings, NULL);
164 #else
165         if(strncmp(buf, "ERR ", 4) == 0){
166                 priority= LOG_ERR;
167                 pp= buf+ 4;
168         }else if(strncmp(buf, "WAR ", 4) == 0){
169                 priority= LOG_WARNING;
170                 pp= buf+ 4;
171         }else if(strncmp(buf, "INF ", 4) == 0){
172                 priority= LOG_INFO;
173                 pp= buf+ 4;
174         }else{
175                 priority= LOG_ERR;
176                 pp= buf;
177         }
178
179         syslog(priority, "%s", pp);
180 #endif
181         Free(buf);
182         return(ret);
183         }
184
185 static long MS_CALLBACK slg_ctrl(BIO *b, int cmd, long num, char *ptr)
186         {
187         switch (cmd)
188                 {
189         case BIO_CTRL_SET:
190                 xcloselog(b);
191                 xopenlog(b, ptr, num);
192                 break;
193         default:
194                 break;
195                 }
196         return(0);
197         }
198
199 static int MS_CALLBACK slg_puts(BIO *bp, char *str)
200         {
201         int n,ret;
202
203         n=strlen(str);
204         ret=slg_write(bp,str,n);
205         return(ret);
206         }
207
208 static int xopenlog(BIO* bp, const char* name, int level)
209 {
210 #if defined(WIN32)
211         if((bp->ptr= (char *)RegisterEventSource(NULL, name)) == NULL){
212                 return(0);
213         }
214 #else
215         openlog(name, LOG_PID|LOG_CONS, level);
216 #endif
217         return(1);
218 }
219
220 static int xcloselog(BIO* bp)
221 {
222 #if defined(WIN32)
223         if(bp->ptr)
224                 DeregisterEventSource((HANDLE)(bp->ptr));
225         bp->ptr= NULL;
226 #else
227         closelog();
228 #endif
229         return(1);
230 }
231
232 #endif