modules_k/presence/hash.c
e70e20af
 /*
  * $Id: hash.c 2583 2007-08-08 11:33:25Z anca_vamanu $
  *
  * presence module - presence server implementation
  *
  * Copyright (C) 2007 Voice Sistem S.R.L.
  *
  * This file is part of openser, a free SIP server.
  *
  * openser 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
  *
  * openser 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
  *
  * History:
  * --------
  *  2007-08-20  initial version (anca)
  */
 
 #include <stdio.h>
 #include <stdlib.h>
 #include "../../mem/shm_mem.h"
 #include "../../dprint.h"
 #include "../../str.h"
 #include "../pua/hash.h"
 #include "presence.h"
 #include "hash.h"
 #include "notify.h"
 
 shtable_t new_shtable()
 {
 	shtable_t htable= NULL;
 	int i, j;
 
 	htable= (subs_entry_t*)shm_malloc(shtable_size* sizeof(subs_entry_t));
 	if(htable== NULL)
 	{
7532087a
 		ERR_MEM("PRESENCE","new_shtable");
e70e20af
 	}
 	memset(htable, 0, shtable_size* sizeof(subs_entry_t));
 	for(i= 0; i< shtable_size; i++)
 	{
 		if(lock_init(&htable[i].lock)== 0)
 		{
 			LOG(L_ERR,"PRESENCE:new_shtable: ERROR initializing lock"
 					" [%d]\n", i);
 			goto error;
 		}
 		htable[i].entries= (subs_t*)shm_malloc(sizeof(subs_t));
 		if(htable[i].entries== NULL)
 		{
7532087a
 			ERR_MEM("PRESENCE","new_shtable");
e70e20af
 		}
 		memset(htable[i].entries, 0, sizeof(subs_t));
 		htable[i].entries->next= NULL;
 	}
 
 	return htable;
 
 error:
 	if(htable)
 	{
 		for(j=0; j< i; j++)
 		{
 			if(htable[i].entries)
 				shm_free(htable[i].entries);
 			else 
 				break;
 			lock_destroy(&htable[i].lock);
 		}
 		shm_free(htable);
 	}
 	return NULL;
 
 }
 
 void destroy_shtable()
 {
 	int i;
 
 	if(subs_htable== NULL)
 		return;
 
 	for(i= 0; i< shtable_size; i++)
 	{
 		lock_destroy(&subs_htable[i].lock);
 		free_subs_list(subs_htable[i].entries, SHM_MEM_TYPE);
 	}
 	shm_free(subs_htable);
 }
 
 subs_t* search_shtable(str callid,str to_tag,str from_tag,unsigned int hash_code)
 {
 	subs_t* s;
 
 	s= subs_htable[hash_code].entries->next;
 
 	while(s)
 	{
 		if(s->callid.len==callid.len &&
 				strncmp(s->callid.s, callid.s, callid.len)==0 &&
 			s->to_tag.len== to_tag.len &&
 				strncmp(s->to_tag.s, to_tag.s, to_tag.len)==0 &&
 			s->from_tag.len== from_tag.len &&
 				strncmp(s->from_tag.s, from_tag.s, from_tag.len)== 0)
 			return s;
 		s= s->next;
 	}
 
 	return NULL;
 }
 
 subs_t* mem_copy_subs(subs_t* s, int mem_type)
 {
 	int size;
 	subs_t* dest;
 
 	size= sizeof(subs_t)+ (s->pres_uri.len+ s->to_user.len
 		+ s->to_domain.len+ s->from_user.len+ s->from_domain.len+ s->callid.len
 		+ s->to_tag.len+ s->from_tag.len+ s->sockinfo_str.len+
 		+ s->local_contact.len+ s->contact.len+ s->record_route.len+ 1)*sizeof(char);
 
 	if(mem_type & PKG_MEM_TYPE)
 		dest= (subs_t*)pkg_malloc(size);
 	else
 		dest= (subs_t*)shm_malloc(size);
 
 	memset(dest, 0, size);
 	if(dest== NULL)
 	{
7532087a
 		ERR_MEM("PRESENCE","mem_copy_subs");
e70e20af
 	}
 	size= sizeof(subs_t);
 
 	CONT_COPY(dest, dest->pres_uri, s->pres_uri)
 	CONT_COPY(dest, dest->to_user, s->to_user)
 	CONT_COPY(dest, dest->to_domain, s->to_domain)
 	CONT_COPY(dest, dest->from_user, s->from_user)
 	CONT_COPY(dest, dest->from_domain, s->from_domain)
 	CONT_COPY(dest, dest->to_tag, s->to_tag)
 	CONT_COPY(dest, dest->from_tag, s->from_tag)
 	CONT_COPY(dest, dest->callid, s->callid)
 	CONT_COPY(dest, dest->sockinfo_str, s->sockinfo_str)
 	CONT_COPY(dest, dest->local_contact, s->local_contact)
 	CONT_COPY(dest, dest->contact, s->contact)
 	CONT_COPY(dest, dest->record_route, s->record_route)
 	if(s->event_id.s)
 		CONT_COPY(dest, dest->event_id, s->event_id)
 	if(s->reason.s)
 		CONT_COPY(dest, dest->reason, s->reason)
 
 	dest->event= s->event;
 	dest->local_cseq= s->local_cseq;
 	dest->remote_cseq= s->remote_cseq;
 	dest->status= s->status;
 	dest->version= s->version;
 	dest->send_on_cback= s->send_on_cback;
 	dest->expires= s->expires;
 
 	return dest;
 
 error:
 	if(dest)
 	{
 		if(mem_type & PKG_MEM_TYPE)
 			pkg_free(dest);
 		else
 			shm_free(dest);
 	}
 	return NULL;
 }
 
 int insert_shtable(subs_t* subs)
 {
 	subs_t* new_rec= NULL;
 	unsigned int hash_code;
 		
 	new_rec= mem_copy_subs(subs, SHM_MEM_TYPE);
 	if(new_rec== NULL)
 	{
 		LOG(L_ERR, "PRESENCE: insert_shtable: ERROR while copying in"
 				" share memory a subs_t structure\n");
 		goto error;
 	}
 
 	new_rec->expires+= (int)time(NULL);
 	new_rec->db_flag= INSERTDB_FLAG;
 
 	hash_code=core_hash(&subs->pres_uri,&subs->event->name,shtable_size);
 
 	lock_get(&subs_htable[hash_code].lock);
 	
 	new_rec->next= subs_htable[hash_code].entries->next;
 	
 	subs_htable[hash_code].entries->next= new_rec;
 	
 	lock_release(&subs_htable[hash_code].lock);
 	
 	return 0;
 
 error:
 	if(new_rec)
 		shm_free(new_rec);
 	return -1;
 }
 
 int delete_shtable(str pres_uri, str ev_stored_name, str to_tag)
 {
 	unsigned int hash_code;
 	subs_t* s= NULL, *ps= NULL;
 	int found= -1;
 
 	DBG("PRESENCE: delete_shtable..\n");
 	hash_code= core_hash(&pres_uri, &ev_stored_name, shtable_size);
 	lock_get(&subs_htable[hash_code].lock);
 	
 	ps= subs_htable[hash_code].entries;
 	s= ps->next;
 		
 	while(s)
 	{	
 		if(s->to_tag.len== to_tag.len &&
 				strncmp(s->to_tag.s, to_tag.s, to_tag.len)== 0)
 		{
 			found= 1;
 			ps->next= s->next;
 			shm_free(s);
 			break;
 		}
 		ps= s;
 		s= s->next;
 	}
 	lock_release(&subs_htable[hash_code].lock);
 	return found;
 }
 
 void free_subs_list(subs_t* s_array, int mem_type)
 {
 	subs_t* s;
 
 	while(s_array)
 	{
 		s= s_array;
 		s_array= s_array->next;
 		if(mem_type & PKG_MEM_TYPE)
 			pkg_free(s);
 		else
 			shm_free(s);
 	}
 	
 }
 
 int update_shtable(subs_t* subs, int type)
 {
 	unsigned int hash_code;
 	subs_t* s;
 
 	hash_code= core_hash(&subs->pres_uri, &subs->event->name, shtable_size);
 	lock_get(&subs_htable[hash_code].lock);
 
 	s= search_shtable(subs->callid, subs->to_tag, subs->from_tag, hash_code);
 	if(s== NULL)
 	{
 		DBG("PRESENCE: update_shtable: record not found in hash table\n");
 		lock_release(&subs_htable[hash_code].lock);
 		return -1;
 	}
 
 	if(type & REMOTE_TYPE)
 	{
 		s->expires= subs->expires+ (int)time(NULL);
 		s->remote_cseq= subs->remote_cseq;
 	}
 	else
 	{
 		s->local_cseq= subs->local_cseq;	
 		s->version= subs->version+ 1;
 	}
 	s->status= subs->status;
 	s->event= subs->event;
 	if(s->db_flag & NO_UPDATEDB_FLAG)
 		s->db_flag= UPDATEDB_FLAG;
 
 	lock_release(&subs_htable[hash_code].lock);
 	
 	return 0;
 }
 
 phtable_t* new_phtable()
 {
 	phtable_t* htable= NULL;
 	int i, j;
 
 	htable= (phtable_t*)shm_malloc(phtable_size* sizeof(phtable_t));
 	if(htable== NULL)
 	{
7532087a
 		ERR_MEM("PRESENCE","new_phtable");
e70e20af
 	}
 	memset(htable, 0, phtable_size* sizeof(phtable_t));
 
 	for(i= 0; i< phtable_size; i++)
 	{
 		if(lock_init(&htable[i].lock)== 0)
 		{
 			LOG(L_ERR,"PRESENCE:new_phtable: ERROR initializing lock"
 					" [%d]\n", i);
 			goto error;
 		}
 		htable[i].entries= (pres_entry_t*)shm_malloc(sizeof(pres_entry_t));
 		if(htable[i].entries== NULL)
 		{
7532087a
 			ERR_MEM("PRESENCE","new_phtable");
e70e20af
 		}
 		memset(htable[i].entries, 0, sizeof(pres_entry_t));
 		htable[i].entries->next= NULL;
 	}
 
 	return htable;
 
 error:
 	if(htable)
 	{
 		for(j=0; j< i; j++)
 		{
 			if(htable[i].entries)
 				shm_free(htable[i].entries);
 			else 
 				break;
 			lock_destroy(&htable[i].lock);
 		}
 		shm_free(htable);
 	}
 	return NULL;
 
 }
 
 void destroy_phtable()
 {
 	int i;
 	pres_entry_t* p, *prev_p;
 
 	if(subs_htable== NULL)
 		return;
 
 	for(i= 0; i< phtable_size; i++)
 	{
 		lock_destroy(&pres_htable[i].lock);
 		p= pres_htable[i].entries;
 		while(p)
 		{
 			prev_p= p;
 			p= p->next;
 			shm_free(prev_p);
 		}
 	}
 	shm_free(pres_htable);
 }
 /* entry must be locked before calling this function */
 
 pres_entry_t* search_phtable(str* pres_uri,int event, unsigned int hash_code)
 {
 	pres_entry_t* p;
 
 	p= pres_htable[hash_code].entries->next;
 	while(p)
 	{
 		if(p->event== event && p->pres_uri.len== pres_uri->len &&
 				strncmp(p->pres_uri.s, pres_uri->s, pres_uri->len)== 0 )
 			return p;
 		p= p->next;
 	}
 	return NULL;
 }
 
 int insert_phtable(str* pres_uri, int event)
 {
 	unsigned int hash_code;
 	pres_entry_t* p= NULL;
 	int size;
 
 	hash_code= core_hash(pres_uri, NULL, phtable_size);
 
 	lock_get(&pres_htable[hash_code].lock);
 	
 	p= search_phtable(pres_uri, event, hash_code);
 	if(p)
 	{
 		p->publ_count++;
 		lock_release(&pres_htable[hash_code].lock);
 		return 0;
 	}
 	size= sizeof(pres_entry_t)+ pres_uri->len* sizeof(char);
 	p= (pres_entry_t*)shm_malloc(size);
 	if(p== NULL)
 	{
 		lock_release(&pres_htable[hash_code].lock);
7532087a
 		ERR_MEM("PRESENCE","insert_phtable");
e70e20af
 	}
 	memset(p, 0, size);
 
 	size= sizeof(pres_entry_t);
 	p->pres_uri.s= (char*)p+ size;
 	memcpy(p->pres_uri.s, pres_uri->s, pres_uri->len);
 	p->pres_uri.len= pres_uri->len;
 	 
 	p->event= event;
 
 	p->next= pres_htable[hash_code].entries->next;
 	pres_htable[hash_code].entries->next= p;
 
 	lock_release(&pres_htable[hash_code].lock);
 	
 	return 0;
 
 error:
 	return -1;
 }
 int delete_phtable(str* pres_uri, int event)
 {
 	unsigned int hash_code;
 	pres_entry_t* p= NULL, *prev_p= NULL;
 
 	hash_code= core_hash(pres_uri, NULL, phtable_size);
 
 	lock_get(&pres_htable[hash_code].lock);
 	
 	p= search_phtable(pres_uri, event, hash_code);
 	if(p== NULL)
 	{
 		DBG("PRESENCE: delete_phtable: record not found\n");
 		lock_release(&pres_htable[hash_code].lock);
 		return 0;
 	}
 	
 	p->publ_count--;
 	if(p->publ_count== 0)
 	{
 		/* delete record */	
 		prev_p= pres_htable[hash_code].entries;
 		while(prev_p->next)
 		{
 			if(prev_p->next== p)
 				break;
 			prev_p= prev_p->next;
 		}
 		if(prev_p->next== NULL)
 		{
 			LOG(L_ERR, "PRESENCE: delete_phtable: ERROR "
 					"previous record not found\n");
 			lock_release(&pres_htable[hash_code].lock);
 			return -1;
 		}
 		prev_p->next= p->next;
 		shm_free(p);
 	}
 	lock_release(&pres_htable[hash_code].lock);
 
 	return 0;	
 }