Merge remote branch 'origin/sr_3.0'
[sip-router] / ut.c
1 /*
2  *$Id$
3  *
4  * various general purpose functions
5  *
6  * Copyright (C) 2001-2003 FhG Fokus
7  *
8  * This file is part of ser, a free SIP server.
9  *
10  * ser is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License as published by
12  * the Free Software Foundation; either version 2 of the License, or
13  * (at your option) any later version
14  *
15  * For a license to use the ser software under conditions
16  * other than those described here, or to purchase support for this
17  * software, please contact iptel.org by e-mail at the following addresses:
18  *    info@iptel.org
19  *
20  * ser is distributed in the hope that it will be useful,
21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23  * GNU General Public License for more details.
24  *
25  * You should have received a copy of the GNU General Public License 
26  * along with this program; if not, write to the Free Software 
27  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
28  *
29  */
30
31
32 /*!
33  * \file
34  * \brief SIP-router core :: 
35  * \ingroup core
36  * Module: \ref core
37  */
38
39 #include <sys/types.h>
40 #include <pwd.h>
41 #include <grp.h>
42 #include <stdlib.h>
43 #include <time.h>
44 #include <sys/utsname.h> /* uname() */
45 #include <libgen.h>
46
47
48 #include "ut.h"
49 #include "mem/mem.h"
50 #include "globals.h"
51
52 /* global buffer for ut.h int2str() */
53 char ut_buf_int2str[INT2STR_MAX_LEN];
54
55
56 /* converts a username into uid:gid,
57  * returns -1 on error & 0 on success */
58 int user2uid(int* uid, int* gid, char* user)
59 {
60         char* tmp;
61         struct passwd *pw_entry;
62         
63         if (user){
64                 *uid=strtol(user, &tmp, 10);
65                 if ((tmp==0) ||(*tmp)){
66                         /* maybe it's a string */
67                         pw_entry=getpwnam(user);
68                         if (pw_entry==0){
69                                 goto error;
70                         }
71                         *uid=pw_entry->pw_uid;
72                         if (gid) *gid=pw_entry->pw_gid;
73                 }
74                 return 0;
75         }
76 error:
77         return -1;
78 }
79
80
81
82 /* converts a group name into a gid
83  * returns -1 on error, 0 on success */
84 int group2gid(int* gid, char* group)
85 {
86         char* tmp;
87         struct group  *gr_entry;
88         
89         if (group){
90                 *gid=strtol(group, &tmp, 10);
91                 if ((tmp==0) ||(*tmp)){
92                         /* maybe it's a string */
93                         gr_entry=getgrnam(group);
94                         if (gr_entry==0){
95                                 goto error;
96                         }
97                         *gid=gr_entry->gr_gid;
98                 }
99                 return 0;
100         }
101  error:
102         return -1;
103 }
104
105
106 /*
107  * Replacement of timegm (does not exists on all platforms
108  * Taken from 
109  * http://lists.samba.org/archive/samba-technical/2002-November/025737.html
110  */
111 time_t _timegm(struct tm* t)
112 {
113         time_t tl, tb;
114         struct tm* tg;
115
116         t->tm_isdst = 0;
117         tl = mktime(t);
118         if (tl == -1) {
119                 t->tm_hour--;
120                 tl = mktime (t);
121                 if (tl == -1) {
122                         return -1; /* can't deal with output from strptime */
123                 }
124                 tl += 3600;
125         }
126         
127         tg = gmtime(&tl);
128         tg->tm_isdst = 0;
129         tb = mktime(tg);
130         if (tb == -1) {
131                 tg->tm_hour--;
132                 tb = mktime (tg);
133                 if (tb == -1) {
134                         return -1; /* can't deal with output from gmtime */
135                 }
136                 tb += 3600;
137         }
138         return (tl - (tb - tl));
139 }
140
141
142 /* Convert time_t value that is relative to local timezone to UTC */
143 time_t local2utc(time_t in)
144 {
145         struct tm* tt;
146         tt = gmtime(&in);
147         tt->tm_isdst = -1;
148         return mktime(tt);
149 }
150
151
152 /* Convert time_t value in UTC to to value relative to local time zone */
153 time_t utc2local(time_t in)
154 {
155         struct tm* tt;
156         tt = localtime(&in);
157 #ifdef HAVE_TIMEGM
158         return timegm(tt);
159 #else
160         return _timegm(tt);
161 #endif
162 }
163
164
165 /*
166  * Return str as zero terminated string allocated
167  * using pkg_malloc
168  */
169 char* as_asciiz(str* s)
170 {
171     char* r;
172
173     r = (char*)pkg_malloc(s->len + 1);
174     if (!r) {
175                 ERR("Out of memory\n");
176                 return 0;
177     }
178     memcpy(r, s->s, s->len);
179     r[s->len] = '\0';
180     return r;
181 }
182
183
184
185 /* return system version (major.minor.minor2) as
186  *  (major<<16)|(minor)<<8|(minor2)
187  * (if some of them are missing, they are set to 0)
188  * if the parameters are not null they are set to the coresp. part 
189  */
190 unsigned int get_sys_version(int* major, int* minor, int* minor2)
191 {
192         struct utsname un;
193         int m1;
194         int m2;
195         int m3;
196         char* p;
197         
198         memset (&un, 0, sizeof(un));
199         m1=m2=m3=0;
200         /* get sys version */
201         uname(&un);
202         m1=strtol(un.release, &p, 10);
203         if (*p=='.'){
204                 p++;
205                 m2=strtol(p, &p, 10);
206                 if (*p=='.'){
207                         p++;
208                         m3=strtol(p, &p, 10);
209                 }
210         }
211         if (major) *major=m1;
212         if (minor) *minor=m2;
213         if (minor2) *minor2=m3;
214         return ((m1<<16)|(m2<<8)|(m3));
215 }
216
217
218 char* get_abs_pathname(str* base, str* file)
219 {
220         str ser_cfg;
221         char* buf, *dir, *res;
222         int len;
223         
224         if (base == NULL) {
225                 ser_cfg.s = cfg_file;
226                 ser_cfg.len = strlen(cfg_file);
227                 base = &ser_cfg;
228         }
229         
230         if (!base->s || base->len <= 0 || base->s[0] != '/') {
231                 BUG("get_abs_pathname: Base file must be absolute pathname: "
232                         "'%.*s'\n", STR_FMT(base));
233                 return NULL;
234         }
235         
236         if (!file || !file->s || file->len <= 0) {
237                 BUG("get_abs_pathname: Invalid 'file' parameter\n");
238                 return NULL;
239         }
240         
241         if (file->s[0] == '/') {
242                 /* This is an absolute pathname, make a zero terminated
243                  * copy and use it as it is */
244                 if ((res = malloc(file->len+1)) == NULL) {
245                         ERR("get_abs_pathname: No memory left (malloc failed)\n");
246                 }
247                 memcpy(res, file->s, file->len);
248                 res[file->len]=0;
249         } else {
250                 /* This is not an absolute pathname, make it relative
251                  * to the location of the base file
252                  */
253                 /* Make a copy, function dirname may modify the string */
254                 if ((buf = malloc(base->len+1)) == NULL) {
255                         ERR("get_abs_pathname: No memory left (malloc failed)\n");
256                         return NULL;
257                 }
258                 memcpy(buf, base->s, base->len);
259                 buf[base->len]=0;
260                 dir = dirname(buf);
261                 
262                 len = strlen(dir);
263                 if ((res = malloc(len + 1 + file->len + 1)) == NULL) {
264                         ERR("get_abs_pathname: No memory left (malloc failed)\n");
265                         free(buf);
266                         return NULL;
267                 }
268                 memcpy(res, dir, len);
269                 res[len] = '/';
270                 memcpy(res + len + 1, file->s, file->len);
271                 res[len + 1 + file->len] = '\0';
272                 free(buf);
273         }
274         return res;
275 }