ut.c
2ac451f2
 /*
  *$Id$
  *
  * various general purpose functions
  *
  * Copyright (C) 2001-2003 FhG Fokus
  *
  * This file is part of ser, a free SIP server.
  *
  * ser is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version
  *
  * For a license to use the ser software under conditions
  * other than those described here, or to purchase support for this
  * software, please contact iptel.org by e-mail at the following addresses:
  *    info@iptel.org
  *
  * ser is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License 
  * along with this program; if not, write to the Free Software 
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
  */
 
95fd2d74
 
1d0661db
 /*!
  * \file
  * \brief SIP-router core :: 
  * \ingroup core
  * Module: \ref core
  */
 
2ac451f2
 #include <sys/types.h>
 #include <pwd.h>
 #include <grp.h>
 #include <stdlib.h>
74a8dcdf
 #include <time.h>
8b8fc486
 #include <sys/utsname.h> /* uname() */
1818691d
 #include <libgen.h>
8b8fc486
 
 
2ac451f2
 #include "ut.h"
7936dce8
 #include "mem/mem.h"
b2471cfc
 #include "globals.h"
7936dce8
 
5a45124b
 /* global buffer for ut.h int2str() */
 char ut_buf_int2str[INT2STR_MAX_LEN];
 
2ac451f2
 
 /* converts a username into uid:gid,
  * returns -1 on error & 0 on success */
 int user2uid(int* uid, int* gid, char* user)
 {
 	char* tmp;
 	struct passwd *pw_entry;
 	
 	if (user){
 		*uid=strtol(user, &tmp, 10);
 		if ((tmp==0) ||(*tmp)){
 			/* maybe it's a string */
 			pw_entry=getpwnam(user);
 			if (pw_entry==0){
 				goto error;
 			}
 			*uid=pw_entry->pw_uid;
 			if (gid) *gid=pw_entry->pw_gid;
 		}
 		return 0;
 	}
 error:
 	return -1;
 }
 
 
 
 /* converts a group name into a gid
  * returns -1 on error, 0 on success */
 int group2gid(int* gid, char* group)
 {
 	char* tmp;
 	struct group  *gr_entry;
 	
 	if (group){
 		*gid=strtol(group, &tmp, 10);
 		if ((tmp==0) ||(*tmp)){
 			/* maybe it's a string */
 			gr_entry=getgrnam(group);
 			if (gr_entry==0){
 				goto error;
 			}
 			*gid=gr_entry->gr_gid;
 		}
 		return 0;
 	}
d853fdab
  error:
2ac451f2
 	return -1;
 }
74a8dcdf
 
 
 /*
  * Replacement of timegm (does not exists on all platforms
  * Taken from 
  * http://lists.samba.org/archive/samba-technical/2002-November/025737.html
  */
 time_t _timegm(struct tm* t)
 {
 	time_t tl, tb;
 	struct tm* tg;
b0afad34
 
 	t->tm_isdst = 0;
74a8dcdf
 	tl = mktime(t);
 	if (tl == -1) {
 		t->tm_hour--;
 		tl = mktime (t);
 		if (tl == -1) {
 			return -1; /* can't deal with output from strptime */
 		}
 		tl += 3600;
 	}
 	
 	tg = gmtime(&tl);
 	tg->tm_isdst = 0;
 	tb = mktime(tg);
 	if (tb == -1) {
 		tg->tm_hour--;
 		tb = mktime (tg);
 		if (tb == -1) {
 			return -1; /* can't deal with output from gmtime */
 		}
 		tb += 3600;
 	}
 	return (tl - (tb - tl));
 }
7936dce8
 
 
b0afad34
 /* Convert time_t value that is relative to local timezone to UTC */
 time_t local2utc(time_t in)
 {
 	struct tm* tt;
 	tt = gmtime(&in);
 	tt->tm_isdst = -1;
 	return mktime(tt);
 }
 
 
 /* Convert time_t value in UTC to to value relative to local time zone */
 time_t utc2local(time_t in)
 {
 	struct tm* tt;
 	tt = localtime(&in);
 #ifdef HAVE_TIMEGM
 	return timegm(tt);
 #else
 	return _timegm(tt);
 #endif
 }
 
 
7936dce8
 /*
  * Return str as zero terminated string allocated
  * using pkg_malloc
  */
 char* as_asciiz(str* s)
 {
     char* r;
 
     r = (char*)pkg_malloc(s->len + 1);
     if (!r) {
d853fdab
 		ERR("Out of memory\n");
 		return 0;
7936dce8
     }
     memcpy(r, s->s, s->len);
     r[s->len] = '\0';
     return r;
 }
8b8fc486
 
 
 
 /* return system version (major.minor.minor2) as
  *  (major<<16)|(minor)<<8|(minor2)
  * (if some of them are missing, they are set to 0)
  * if the parameters are not null they are set to the coresp. part 
  */
 unsigned int get_sys_version(int* major, int* minor, int* minor2)
 {
 	struct utsname un;
 	int m1;
 	int m2;
 	int m3;
 	char* p;
 	
 	memset (&un, 0, sizeof(un));
 	m1=m2=m3=0;
 	/* get sys version */
 	uname(&un);
 	m1=strtol(un.release, &p, 10);
 	if (*p=='.'){
 		p++;
 		m2=strtol(p, &p, 10);
 		if (*p=='.'){
 			p++;
 			m3=strtol(p, &p, 10);
 		}
 	}
 	if (major) *major=m1;
 	if (minor) *minor=m2;
 	if (minor2) *minor2=m3;
 	return ((m1<<16)|(m2<<8)|(m3));
 }
 
 
b2471cfc
 char* get_abs_pathname(str* base, str* file)
 {
 	str ser_cfg;
 	char* buf, *dir, *res;
 	int len;
   	
 	if (base == NULL) {
 		ser_cfg.s = cfg_file;
 		ser_cfg.len = strlen(cfg_file);
 		base = &ser_cfg;
 	}
 	
 	if (!base->s || base->len <= 0 || base->s[0] != '/') {
 		BUG("get_abs_pathname: Base file must be absolute pathname: "
 			"'%.*s'\n", STR_FMT(base));
 		return NULL;
 	}
 	
 	if (!file || !file->s || file->len <= 0) {
 		BUG("get_abs_pathname: Invalid 'file' parameter\n");
 		return NULL;
 	}
 	
 	if (file->s[0] == '/') {
 		/* This is an absolute pathname, make a zero terminated
 		 * copy and use it as it is */
6957153c
 		if ((res = malloc(file->len+1)) == NULL) {
 			ERR("get_abs_pathname: No memory left (malloc failed)\n");
b2471cfc
 		}
6957153c
 		memcpy(res, file->s, file->len);
 		res[file->len]=0;
b2471cfc
 	} else {
 		/* This is not an absolute pathname, make it relative
 		 * to the location of the base file
 		 */
 		/* Make a copy, function dirname may modify the string */
6957153c
 		if ((buf = malloc(base->len+1)) == NULL) {
 			ERR("get_abs_pathname: No memory left (malloc failed)\n");
b2471cfc
 			return NULL;
 		}
6957153c
 		memcpy(buf, base->s, base->len);
 		buf[base->len]=0;
b2471cfc
 		dir = dirname(buf);
 		
 		len = strlen(dir);
 		if ((res = malloc(len + 1 + file->len + 1)) == NULL) {
 			ERR("get_abs_pathname: No memory left (malloc failed)\n");
 			free(buf);
 			return NULL;
 		}
 		memcpy(res, dir, len);
 		res[len] = '/';
 		memcpy(res + len + 1, file->s, file->len);
 		res[len + 1 + file->len] = '\0';
 		free(buf);
 	}
 	return res;
 }