Put local variables footer in all c, h files.
[idzebra-moved-to-github.git] / util / passwddb.c
1 /* $Id: passwddb.c,v 1.13 2006-05-10 08:13:46 adam Exp $
2    Copyright (C) 1995-2005
3    Index Data ApS
4
5 This file is part of the Zebra server.
6
7 Zebra is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
10 version.
11
12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
15 for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with Zebra; see the file LICENSE.zebra.  If not, write to the
19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA.
21 */
22
23
24 #if HAVE_UNISTD_H
25 #include <unistd.h>
26 #endif
27
28 #include <string.h>
29 #include <stdio.h>
30
31 #if HAVE_CRYPT_H
32 #include <crypt.h>
33 #endif
34
35 #include <yaz/log.h>
36 #include <yaz/xmalloc.h>
37
38 #include <passwddb.h>
39
40 struct passwd_entry {
41     int encrypt_flag;
42     char *name;
43     char *des;
44     struct passwd_entry *next;
45 };
46
47 struct passwd_db {
48     struct passwd_entry *entries;
49 };
50
51 Passwd_db passwd_db_open (void)
52 {
53     struct passwd_db *p = (struct passwd_db *) xmalloc (sizeof(*p));
54     p->entries = 0;
55     return p;
56 }
57
58 static int get_entry (const char **p, char *dst, int max)
59 {       
60     int i = 0;
61     while ((*p)[i] != ':' && (*p)[i])
62         i++;
63     if (i >= max)
64         i = max-1;
65     if (i)
66         memcpy (dst, *p, i);
67     dst[i] = '\0';
68     *p += i;
69     if (*p)
70         (*p)++;
71     return i;
72 }
73
74 static int passwd_db_file_int(Passwd_db db, const char *fname,
75                               int encrypt_flag)
76 {
77     FILE *f;
78     char buf[1024];
79     f = fopen (fname, "r");
80     if (!f)
81         return -1;
82     while (fgets (buf, sizeof(buf)-1, f))
83     {
84         struct passwd_entry *pe;
85         char name[128];
86         char des[128];
87         char *p;
88         const char *cp = buf;
89         if ((p = strchr (buf, '\n')))
90             *p = '\0';
91         get_entry (&cp, name, 128);
92         get_entry (&cp, des, 128);
93
94         pe = (struct passwd_entry *) xmalloc (sizeof(*pe));
95         pe->name = xstrdup (name);
96         pe->des = xstrdup (des);
97         pe->encrypt_flag = encrypt_flag;
98         pe->next = db->entries;
99         db->entries = pe;
100     }
101     fclose (f);
102     return 0;
103 }
104
105 void passwd_db_close(Passwd_db db)
106 {
107     struct passwd_entry *pe = db->entries;
108     while (pe)
109     {
110         struct passwd_entry *pe_next = pe->next;
111         
112         xfree (pe->name);
113         xfree (pe->des);
114         xfree (pe);
115         pe = pe_next;
116     }
117     xfree (db);
118 }
119
120 void passwd_db_show(Passwd_db db)
121 {
122     struct passwd_entry *pe;
123     for (pe = db->entries; pe; pe = pe->next)
124         yaz_log (YLOG_LOG,"%s:%s", pe->name, pe->des);
125 }
126
127 int passwd_db_auth(Passwd_db db, const char *user, const char *pass)
128 {
129     struct passwd_entry *pe;
130     for (pe = db->entries; pe; pe = pe->next)
131         if (user && !strcmp (user, pe->name))
132             break;
133     if (!pe)
134         return -1;
135     if (pe->encrypt_flag)
136     {
137 #if HAVE_CRYPT_H
138         char salt[3];
139         const char *des_try;
140         if (strlen (pe->des) < 3)
141             return -3;
142         if (!pass)
143             return -2;
144         memcpy (salt, pe->des, 2);
145         salt[2] = '\0'; 
146         des_try = crypt (pass, salt);
147         if (strcmp (des_try, pe->des))
148             return -2;
149 #else
150         return -2;
151 #endif
152     }
153     else
154     {
155         if (strcmp (pe->des, pass))
156             return -2;
157     }
158     return 0;   
159 }
160
161 int passwd_db_file_crypt(Passwd_db db, const char *fname)
162 {
163 #if HAVE_CRYPT_H
164     return passwd_db_file_int(db, fname, 1);
165 #else
166     return -1;
167 #endif
168 }
169
170 int passwd_db_file_plain(Passwd_db db, const char *fname)
171 {
172     return passwd_db_file_int(db, fname, 0);
173 }
174
175 /*
176  * Local variables:
177  * c-basic-offset: 4
178  * indent-tabs-mode: nil
179  * End:
180  * vim: shiftwidth=4 tabstop=8 expandtab
181  */
182