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