5b9d234167e1ae71e0f77d6a381b2f9dbd0fc7b6
[yaz-moved-to-github.git] / src / tcpdchk.c
1 /*
2  * Copyright (c) 1995-2000, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: tcpdchk.c,v $
7  * Revision 1.1  2003-10-27 12:21:35  adam
8  * Source restructure. yaz-marcdump part of installation
9  *
10  * Revision 1.5  2000/02/28 11:20:06  adam
11  * Using autoconf. New definitions: YAZ_BEGIN_CDECL/YAZ_END_CDECL.
12  *
13  * Revision 1.4  1999/11/30 13:47:12  adam
14  * Improved installation. Moved header files to include/yaz.
15  *
16  * Revision 1.3  1999/08/27 09:40:32  adam
17  * Renamed logf function to yaz_log. Removed VC++ project files.
18  *
19  * Revision 1.2  1999/04/20 09:56:48  adam
20  * Added 'name' paramter to encoder/decoder routines (typedef Odr_fun).
21  * Modified all encoders/decoders to reflect this change.
22  *
23  * Revision 1.1  1999/04/16 14:45:55  adam
24  * Added interface for tcpd wrapper for access control.
25  *
26  */
27
28 #include <stdio.h>
29 #include <string.h>
30
31 #include <yaz/yconfig.h>
32 #include <yaz/comstack.h>
33
34 #if HAVE_TCPD_H
35 #include <syslog.h>
36 #include <tcpd.h>
37
38
39 int allow_severity = LOG_INFO;
40 int deny_severity = LOG_WARNING;
41
42 #ifdef LOG_DEBUG
43 #undef LOG_DEBUG
44 #endif
45 #ifdef LOG_WARN
46 #undef LOG_WARN
47 #endif
48
49 #endif
50
51 #include <yaz/statserv.h>
52 #include <yaz/log.h>
53
54 int check_ip_tcpd(void *cd, const char *addr, int len, int type)
55 {
56     const char *daemon_name = (const char *) cd;
57
58     if (type == AF_INET)
59     {
60         if (daemon_name && *daemon_name)
61         {
62 #if HAVE_TCPD_H
63             struct request_info request_info;
64             int i;
65 #endif
66             char *host_name = 0, *host_addr = 0;
67             struct hostent *host;
68
69             struct sockaddr_in *addr_in = (struct sockaddr_in *) addr;
70             
71             if ((host = gethostbyaddr((char*)&addr_in->sin_addr,
72                                       sizeof(addr_in->sin_addr),
73                                       AF_INET)))
74                 host_name = (char*) host->h_name;
75             host_addr = inet_ntoa(addr_in->sin_addr);
76 #if HAVE_TCPD_H
77             if (host_addr)
78                 request_init(&request_info, RQ_DAEMON, daemon_name,
79                              RQ_CLIENT_NAME, host_name,
80                              RQ_CLIENT_SIN, addr_in,
81                              RQ_CLIENT_ADDR, host_addr, 0);
82             else
83                 request_init(&request_info, RQ_DAEMON, daemon_name,
84                              RQ_CLIENT_SIN, addr_in,
85                              RQ_CLIENT_ADDR, host_addr, 0);
86             i = hosts_access(&request_info);
87             if (!i)
88             {
89                 yaz_log (LOG_DEBUG, "access denied from %s",
90                          host_name ? host_name : host_addr);
91                 return 1;
92             }
93             yaz_log (LOG_DEBUG, "access granted from %s",
94                      host_name ? host_name : host_addr);
95 #endif
96         }
97     }
98     return 0;
99 }
100