/*
* Retrieve cave table information for the given cave id.
*/
void get_cave_info (db_t *database, int cave_id, struct Cave *cave)
{
db_result_t *result = db_query(database,
"SELECT * FROM " DB_TABLE_CAVE " WHERE caveID = %d", cave_id);
if (!db_result_next_row(result))
throwf(SQL_EXCEPTION, "get_cave_info: cave %d not found", cave_id);
cave->result = result;
cave->cave_id = cave_id;
cave->xpos = db_result_get_int(result, "xCoord");
cave->ypos = db_result_get_int(result, "yCoord");
cave->name = db_result_get_string(result, "name");
cave->player_id = db_result_get_int(result, "playerID");
cave->terrain = db_result_get_int(result, "terrain");
cave->takeoverable = db_result_get_int(result, "takeoverable");
cave->artefacts = db_result_get_int(result, "artefacts");
cave->heroID = db_result_get_int(result, "hero");
cave->monster_id = db_result_get_int(result, "monsterID");
cave->secure = db_result_get_int(result, "secureCave");
cave->protect_end = db_result_get_time(result, "protection_end");
get_resource_list(result, cave->resource);
get_building_list(result, cave->building);
get_science_list(result, cave->science);
get_defense_system_list(result, cave->defense_system);
get_unit_list(result, cave->unit);
get_effect_list(result, cave->effect);
}
/*
* This function is responsible for all the movement.
*
* @params database the function needs this link to the DB
* @params result current movement event (from DB)
*/
void movement_handler (db_t *database, db_result_t *result)
{
int movementID;
int target_caveID;
int source_caveID;
const char *speed_factor;
time_t event_start;
time_t event_end;
const char *return_start;
char return_end[TIMESTAMP_LEN];
struct Cave cave1;
struct Cave cave2;
struct Player player1;
struct Player player2;
struct Relation relation1;
struct Relation relation2;
int i;
int units[MAX_UNIT];
int resources[MAX_RESOURCE];
int takeover_multiplier;
int change_owner;
int isFarming = 0;
Battle *battle;
dstring_t *ds;
double spy_result;
/* time related issues */
const float *battle_bonus;
/* artefacts */
int artefact = 0;
int artefact_def = 0;
int artefact_id = 0;
int lostTo = 0;
int body_count = 0;
int attacker_lose = 0;
int defender_lose = 0;
int defender_va_lose = 0;
int war_points_attacker = 0;
int war_points_defender = 0;
int war_points_sender = 0;
int war_points_show = 0;
int takeover = 0;
debug(DEBUG_TICKER, "entering function movement_handler()");
/* get movement id and target/source cave id */
movementID = db_result_get_int(result, "movementID");
target_caveID = db_result_get_int(result, "target_caveID");
source_caveID = db_result_get_int(result, "source_caveID");
speed_factor = db_result_get_string(result, "speedFactor");
/* get event_start and event_end */
event_start = db_result_get_gmtime(result, "start");
return_start = db_result_get_string(result, "end");
event_end = make_time_gm(return_start);
make_timestamp_gm(return_end, event_end + (event_end - event_start));
/* get resources, units and artefact id */
get_resource_list(result, resources);
get_unit_list(result, units);
artefact = db_result_get_int(result, "artefactID");
/* TODO reduce number of queries */
get_cave_info(database, source_caveID, &cave1);
get_cave_info(database, target_caveID, &cave2);
if (cave1.player_id)
get_player_info(database, cave1.player_id, &player1);
else{ /* System */
memset(&player1, 0, sizeof player1);
player1.tribe = "";
}
if (cave2.player_id == cave1.player_id)
player2 = player1;
else if (cave2.player_id)
get_player_info(database, cave2.player_id, &player2);
else{ /* System */
memset(&player2, 0, sizeof player2);
player2.tribe = "";
}
debug(DEBUG_TICKER, "caveID = %d, movementID = %d",
target_caveID, movementID);
/**********************************************************************/
/*** THE INFAMOUS GIANT SWITCH ****************************************/
/**********************************************************************/
switch (movementID) {
/**********************************************************************/
/*** ROHSTOFFE BRINGEN ************************************************/
/**********************************************************************/
case ROHSTOFFE_BRINGEN:
/* record in takeover table */
ds = dstring_new("UPDATE " DB_TABLE_CAVE_TAKEOVER " SET ");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, "%s%s = %s + %d", i > 0 ? "," : "",
resource_type[i]->dbFieldName,
resource_type[i]->dbFieldName, resources[i]);
dstring_append(ds, " WHERE caveID = %d AND playerID = %d",
target_caveID, cave1.player_id);
db_query_dstring(database, ds);
if(db_affected_rows(database)!=0){
takeover=1;
}
/* put resources into cave */
dstring_set(ds, "UPDATE " DB_TABLE_CAVE " SET ");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, "%s%s = LEAST(%s + %d, %s)", i > 0 ? "," : "",
resource_type[i]->dbFieldName,
resource_type[i]->dbFieldName,
(takeover==1)?resources[i] * TAKEOVER_RESOURCE_SAVE_PERCENTAGE / 100:resources[i],
function_to_sql(resource_type[i]->maxLevel));
dstring_append(ds, " WHERE caveID = %d", target_caveID);
db_query_dstring(database, ds);
if (artefact > 0)
put_artefact_into_cave(database, artefact, target_caveID);
/* send all units back */
dstring_set(ds, "INSERT INTO Event_movement"
" (caveID, target_caveID, source_caveID, movementID,"
" speedFactor, start, end");
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s", unit_type[i]->dbFieldName);
dstring_append(ds, ") VALUES (%d, %d, %d, %d, %s, '%s', '%s'",
source_caveID, source_caveID, target_caveID, RUECKKEHR,
speed_factor, return_start, return_end);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%d", units[i]);
dstring_append(ds, ")");
db_query_dstring(database, ds);
/* generate trade report and receipt for sender */
trade_report(database, &cave1, &player1, &cave2, &player2,
resources, NULL, artefact);
break;
/**********************************************************************/
/*** EINHEITEN/ROHSTOFFE VERSCHIEBEN **********************************/
/**********************************************************************/
case VERSCHIEBEN:
get_relation_info(database, player1.tribe, player2.tribe, &relation1);
/*überprüfen ob sender und versender eine kriegsbeziehung haben */
if(!(isVerschiebenAllowed(database, &player1, &player2, &relation1) ||
isTakeoverableCave(database, target_caveID))){
//bewegung umdrehen//
/* send remaining units back */
ds = dstring_new("INSERT INTO Event_movement"
" (caveID, target_caveID, source_caveID, movementID,"
" speedFactor, start, end, artefactID");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%s", resource_type[i]->dbFieldName);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s", unit_type[i]->dbFieldName);
dstring_append(ds, ") VALUES (%d, %d, %d, %d, %s, '%s', '%s', %d",
source_caveID, source_caveID, target_caveID, RUECKKEHR,
speed_factor, return_start, return_end, artefact);
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%d", resources[i]);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%d", units[i]);
dstring_append(ds, ")");
db_query_dstring(database, ds);
break;
}
/* record in takeover table */
ds = dstring_new("UPDATE " DB_TABLE_CAVE_TAKEOVER " SET ");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, "%s%s = %s + %d", i > 0 ? "," : "",
resource_type[i]->dbFieldName,
resource_type[i]->dbFieldName, resources[i]);
dstring_append(ds, " WHERE caveID = %d AND playerID = %d",
target_caveID, cave1.player_id);
db_query_dstring(database, ds);
if(db_affected_rows(database)!=0){
takeover=1;
}
/* put resources and units into cave */
dstring_set(ds, "UPDATE " DB_TABLE_CAVE " SET ");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, "%s%s = LEAST(%s + %d, %s)", i > 0 ? "," : "",
resource_type[i]->dbFieldName,
resource_type[i]->dbFieldName,
(takeover==1)?resources[i] * TAKEOVER_RESOURCE_SAVE_PERCENTAGE / 100:resources[i],
function_to_sql(resource_type[i]->maxLevel));
for (i = 0; i < MAX_UNIT; ++i){
war_points_sender += ((struct Unit *)unit_type[i])->warpoints * units[i];
dstring_append(ds, ",%s = %s + %d",
unit_type[i]->dbFieldName,
unit_type[i]->dbFieldName, units[i]);
}
if(relation1.relationType == RELATION_TYPE_PRE_WAR || relation1.relationType == RELATION_TYPE_WAR){
war_points_update_verschieben(database, player1.tribe, player2.tribe, -1* war_points_sender);
}
dstring_append(ds, " WHERE caveID = %d", target_caveID);
db_query_dstring(database, ds);
if (artefact > 0)
put_artefact_into_cave(database, artefact, target_caveID);
/* generate trade report and receipt for sender */
trade_report(database, &cave1, &player1, &cave2, &player2,
resources, units, artefact);
break;
/**********************************************************************/
/*** RUECKKEHR ********************************************************/
/**********************************************************************/
case RUECKKEHR:
/* put resources into cave */
ds = dstring_new("UPDATE " DB_TABLE_CAVE " SET ");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, "%s%s = LEAST(%s + %d, %s)", i > 0 ? "," : "",
resource_type[i]->dbFieldName,
resource_type[i]->dbFieldName, resources[i],
function_to_sql(resource_type[i]->maxLevel));
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s = %s + %d",
unit_type[i]->dbFieldName,
unit_type[i]->dbFieldName, units[i]);
dstring_append(ds, " WHERE caveID = %d", target_caveID);
db_query_dstring(database, ds);
if (artefact > 0)
put_artefact_into_cave(database, artefact, target_caveID);
/* generate return report */
return_report(database, &cave1, &player1, &cave2, &player2,
resources, units, artefact);
break;
/**********************************************************************/
/*** ANGREIFEN ********************************************************/
/**********************************************************************/
case ANGREIFEN:
/* beginner protection active in target cave? */
if (cave_is_protected(&cave2))
{
debug(DEBUG_BATTLE, "Is protected Cave");
/* send remaining units back */
ds = dstring_new("INSERT INTO Event_movement"
" (caveID, target_caveID, source_caveID, movementID,"
" speedFactor, start, end, artefactID");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%s", resource_type[i]->dbFieldName);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s", unit_type[i]->dbFieldName);
dstring_append(ds, ") VALUES (%d, %d, %d, %d, %s, '%s', '%s', %d",
source_caveID, source_caveID, target_caveID, RUECKKEHR,
speed_factor, return_start, return_end, artefact);
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%d", resources[i]);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%d", units[i]);
dstring_append(ds, ")");
db_query_dstring(database, ds);
debug(DEBUG_BATTLE,"End Handle Protected Cave attack");
/* create and send reports */
protected_report(database, &cave1, &player1, &cave2, &player2);
break;
}
/* get relations between the two players' tribes */
get_relation_info(database, player1.tribe, player2.tribe, &relation1);
get_relation_info(database, player2.tribe, player1.tribe, &relation2);
debug(DEBUG_BATTLE, "Relationtypes: %d and %d", relation1.relationType,
relation2.relationType);
battle = battle_create(1, 1);
battle_bonus = get_battle_bonus();
debug(DEBUG_BATTLE, "entering prepare_battle");
/* prepare structs for battle, exceptions are uncaught! */
prepare_battle(database,
battle,
&player1,
&player2,
&cave1, &cave2, battle_bonus, 0,
units, resources,
&artefact, &artefact_def,
&relation1, &relation2);
/* calculate the fame */
/* Calculatin is diferent if the battle was just pure farming*/
isFarming = check_farming(database, cave2.artefacts, &player1,
&player2, &relation1);
if( relation1.relationType == RELATION_TYPE_WAR){
battle->isWar = 1;
}
/* calculate battle result */
calcBattleResult(battle, &cave2, 0);
/* change artefact ownership */
debug(DEBUG_BATTLE, "entering change artefact");
after_battle_change_artefact_ownership(
database, battle->winner, &artefact, &artefact_id, &artefact_def,
target_caveID, &cave2, &lostTo);
/* attackers artefact (if any) is stored in variable artefact,
artefact_id is id of the artefact that changed owner (or 0) */
/* no relation -> attacker get negative fame*/
debug(DEBUG_BATTLE, "Relation Type %d",relation1.relationType);
/* construct attacker update */
debug(DEBUG_BATTLE, "entering attacker update");
after_battle_attacker_update(database, player1.player_id, battle,
source_caveID, target_caveID, speed_factor,
return_start, return_end, artefact,
&relation1);
/* defender update: exception still uncaught (better leave) */
debug(DEBUG_BATTLE, "entering defender update");
after_battle_defender_update(database, player2.player_id,
battle, target_caveID, &relation2);
/* Farming update */
if(isFarming){
increaseFarming(database, player1.player_id);
}
/* reset DB_TABLE_CAVE_TAKEOVER */
ds = dstring_new("UPDATE " DB_TABLE_CAVE_TAKEOVER " SET status = 0");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%s = 0", resource_type[i]->dbFieldName);
dstring_append(ds, " WHERE caveID = %d AND playerID = %d",
target_caveID, cave1.player_id);
db_query_dstring(database, ds);
/* cave takeover by battle */
if (battle->winner == FLAG_ATTACKER &&
((struct Terrain *)terrain_type[cave2.terrain])->takeoverByCombat) {
db_query(database, "UPDATE " DB_TABLE_CAVE " SET playerID = %d"
" WHERE caveID = %d",
cave1.player_id, target_caveID);
db_query(database, "DELETE FROM Event_science WHERE caveID = %d",
target_caveID);
science_update_caves(database, cave1.player_id);
}
//bodycount calculate
attacker_lose = bodycount_calculate(battle, FLAG_DEFENDER);
defender_lose = bodycount_calculate(battle, FLAG_ATTACKER);
defender_va_lose = bodycount_va_calculate(battle);
bodycount_update( database, player1.player_id, defender_lose);
bodycount_update( database, player2.player_id, attacker_lose);
if(relation1.relationType == RELATION_TYPE_PRE_WAR || relation1.relationType == RELATION_TYPE_WAR){
war_points_show = 1;
war_points_attacker = (defender_lose>10||defender_va_lose>5?war_points_calculate(battle,FLAG_ATTACKER):0);
war_points_defender = (attacker_lose>10?war_points_calculate(battle,FLAG_DEFENDER):0);
war_points_update(database, player1.tribe, player2.tribe, war_points_attacker, war_points_defender);
}
/* create and send reports */
battle_report(database, &cave1, &player1, &cave2, &player2, battle,
artefact_id, lostTo, 0, 0, &relation1, &relation2,
war_points_show, war_points_attacker, war_points_defender);
break;
/**********************************************************************/
/*** Spionieren *******************************************************/
/**********************************************************************/
case SPIONAGE:
/* generate spy report */
spy_result = spy_report(database, &cave1, &player1, &cave2, &player2,
resources, units, artefact);
if (spy_result == 1)
{
/* send all units back */
ds = dstring_new("INSERT INTO Event_movement"
" (caveID, target_caveID, source_caveID, movementID,"
" speedFactor, start, end, artefactID");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%s", resource_type[i]->dbFieldName);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s", unit_type[i]->dbFieldName);
dstring_append(ds, ") VALUES (%d, %d, %d, %d, %s, '%s', '%s', %d",
source_caveID, source_caveID, target_caveID, RUECKKEHR,
speed_factor, return_start, return_end, artefact);
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%d", resources[i]);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%d", units[i]);
dstring_append(ds, ")");
db_query_dstring(database, ds);
}
else
{
/* send remaining units back */
int count = 0;
ds = dstring_new("INSERT INTO Event_movement"
" (caveID, target_caveID, source_caveID, movementID,"
" speedFactor, start, end, artefactID");
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s", unit_type[i]->dbFieldName);
dstring_append(ds, ") VALUES (%d, %d, %d, %d, %s, '%s', '%s', %d",
source_caveID, source_caveID, target_caveID, RUECKKEHR,
speed_factor, return_start, return_end, artefact);
for (i = 0; i < MAX_UNIT; ++i)
{
int num = units[i] * spy_result;
dstring_append(ds, ",%d", num);
count += num;
body_count += units[i] - num;
}
dstring_append(ds, ")");
if (count)
db_query_dstring(database, ds);
/* put resources into cave */
ds = dstring_new("UPDATE " DB_TABLE_CAVE " SET ");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, "%s%s = LEAST(%s + %d, %s)", i > 0 ? "," : "",
resource_type[i]->dbFieldName,
resource_type[i]->dbFieldName, resources[i],
function_to_sql(resource_type[i]->maxLevel));
dstring_append(ds, " WHERE caveID = %d", target_caveID);
db_query_dstring(database, ds);
if (artefact > 0)
put_artefact_into_cave(database, artefact, target_caveID);
}
bodycount_update(database, player2.player_id, body_count);
break;
/**********************************************************************/
/*** UEBERNEHMEN ******************************************************/
/**********************************************************************/
case TAKEOVER:
/* secure or protected target gave? */
if (cave2.secure || cave_is_protected(&cave2))
{
/* send remaining units back */
ds = dstring_new("INSERT INTO Event_movement"
" (caveID, target_caveID, source_caveID, movementID,"
" speedFactor, start, end, artefactID");
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%s", resource_type[i]->dbFieldName);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%s", unit_type[i]->dbFieldName);
dstring_append(ds, ") VALUES (%d, %d, %d, %d, %s, '%s', '%s', %d",
source_caveID, source_caveID, target_caveID, RUECKKEHR,
speed_factor, return_start, return_end, artefact);
for (i = 0; i < MAX_RESOURCE; ++i)
dstring_append(ds, ",%d", resources[i]);
for (i = 0; i < MAX_UNIT; ++i)
dstring_append(ds, ",%d", units[i]);
dstring_append(ds, ")");
db_query_dstring(database, ds);
/* create and send reports */
/* FIXME use different message in report (protected -> secure) */
protected_report(database, &cave1, &player1, &cave2, &player2);
break;
}
get_relation_info(database, player1.tribe, player2.tribe, &relation1);
get_relation_info(database, player2.tribe, player1.tribe, &relation2);
battle = battle_create(1, 1);
battle_bonus = get_battle_bonus();
takeover_multiplier = get_takeover_multiplier(&cave2);
/* prepare structs for battle, exceptions are uncaught! */
prepare_battle(database,
battle,
&player1,
&player2,
&cave1, &cave2, battle_bonus, takeover_multiplier,
units, resources,
&artefact, &artefact_def,
&relation1, &relation2);
/* calculate battle result */
/*bei ner übernahme kein resi klau möglich*/
calcBattleResult(battle, &cave2, 1);
/* change artefact ownership */
after_battle_change_artefact_ownership(
database, battle->winner, &artefact, &artefact_id, &artefact_def,
target_caveID, &cave2, &lostTo);
/* attackers artefact (if any) is stored in variable artefact,
artefact_id is id of the artefact that changed owner (or 0) */
/* defender update: exception still uncaught (better leave) */
after_battle_defender_update(database, player2.player_id,
battle, target_caveID, &relation2);
int war1 = get_tribe_at_war(database,player1.tribe);
int war2 = get_tribe_at_war(database,player2.tribe);
/* attacker won: put survivors into cave, change owner
* attacker lost: send back survivors */
change_owner =
battle->winner == FLAG_ATTACKER && cave2.player_id != PLAYER_SYSTEM &&
player1.max_caves > get_number_of_caves(database, player1.player_id) &&
((relation1.relationType == RELATION_TYPE_WAR &&
relation2.relationType == RELATION_TYPE_WAR) ||
(!war1 && !war2) ||
(strcasecmp(player1.tribe, player2.tribe) == 0)); // Spieler im selben stamm
//bodycount calculate
attacker_lose = bodycount_calculate(battle, FLAG_DEFENDER);
defender_lose = bodycount_calculate(battle, FLAG_ATTACKER);
defender_va_lose = bodycount_va_calculate(battle);
bodycount_update( database, player1.player_id, defender_lose);
bodycount_update( database, player2.player_id, attacker_lose);
if(relation1.relationType == RELATION_TYPE_PRE_WAR || relation1.relationType == RELATION_TYPE_WAR){
war_points_show = 1;
war_points_attacker = (defender_lose>10||defender_va_lose>5?war_points_calculate(battle,FLAG_ATTACKER):0);
war_points_defender = (attacker_lose>10?war_points_calculate(battle,FLAG_DEFENDER):0);
}
if (change_owner){
debug(DEBUG_TAKEOVER, "change owner of cave %d to new owner %d",
target_caveID, cave1.player_id);
takeover_cave(database, target_caveID, cave1.player_id,return_start);
after_takeover_attacker_update(database, player1.player_id,
battle, target_caveID,
artefact, &relation1);
if(relation1.relationType == RELATION_TYPE_PRE_WAR || relation1.relationType == RELATION_TYPE_WAR){
war_points_attacker += WAR_POINTS_FOR_TAKEOVER;
}
} else { /* send survivors back */
debug(DEBUG_TAKEOVER, "send back attacker's suvivors");
after_battle_attacker_update(database, player1.player_id, battle,
source_caveID, target_caveID, speed_factor,
return_start, return_end, artefact,
&relation1);
}
if(relation1.relationType == RELATION_TYPE_PRE_WAR || relation1.relationType == RELATION_TYPE_WAR){
war_points_update(database, player1.tribe, player2.tribe, war_points_attacker, war_points_defender);
}
/* create and send reports */
battle_report(database, &cave1, &player1, &cave2, &player2, battle,
artefact_id, lostTo, change_owner, 1 + takeover_multiplier,
&relation1, &relation2,war_points_show, war_points_attacker, war_points_defender);
//bodycount calculate
bodycount_update( database, player1.player_id, defender_lose);
bodycount_update( database, player2.player_id, attacker_lose);
break;
default:
throw(BAD_ARGUMENT_EXCEPTION, "movement_handler: unknown movementID");
}
/**********************************************************************/
/*** END OF THE INFAMOUS GIANT SWITCH *********************************/
/**********************************************************************/
debug(DEBUG_TICKER, "leaving function movement_handler()");
}
int rls_handle_subscribe(struct sip_msg* msg, char* s1, char* s2)
{
struct to_body *pto, *pfrom = NULL;
subs_t subs;
pres_ev_t* event= NULL;
str* contact= NULL;
xmlDocPtr doc= NULL;
xmlNodePtr service_node= NULL;
unsigned int hash_code= 0;
event_t* parsed_event;
param_t* ev_param= NULL;
int init_req;
int reply_code;
str reply_str;
/*** filter: 'For me or for presence server?' */
reply_code = 400;
reply_str = pu_400_rpl;
memset(&subs, 0, sizeof(subs_t));
if ( parse_headers(msg,HDR_EOH_F, 0)==-1 )
{
LM_ERR("parsing headers\n");
goto error;
}
/* check for Support: eventlist header */
if(!msg->supported)
{
LM_DBG("no supported header found\n");
return to_presence_code;
}
if(parse_supported(msg) < 0)
{
LM_ERR("failed to parse supported headers\n");
reply_code = 500;
reply_str = pu_500_rpl;
goto error;
}
if(!(get_supported(msg) & F_SUPPORTED_EVENTLIST))
{
LM_DBG("No 'Support: eventlist' header found\n");
return to_presence_code;
}
/* inspecting the Event header field */
if(msg->event && msg->event->body.len > 0)
{
if (!msg->event->parsed && (parse_event(msg->event) < 0))
{
LM_ERR("cannot parse Event header\n");
reply_code = 500;
reply_str = pu_500_rpl;
goto error;
}
if(! ( ((event_t*)msg->event->parsed)->parsed & rls_events) )
{
return to_presence_code;
}
}
else
{
goto bad_event;
}
/* search event in the list */
parsed_event= (event_t*)msg->event->parsed;
event= pres_search_event(parsed_event);
if(event== NULL)
{
goto bad_event;
}
subs.event= event;
/* extract the id if any*/
ev_param= parsed_event->params;
while(ev_param)
{
if(ev_param->name.len== 2 && strncasecmp(ev_param->name.s, "id", 2)== 0)
{
subs.event_id= ev_param->body;
break;
}
ev_param= ev_param->next;
}
pto = get_to(msg);
if (pto == NULL || pto->error != PARSE_OK)
{
LM_ERR("parsing 'To' header failed\n");
goto error;
}
if(parse_from_uri(msg)<0)
{
LM_ERR("failed to parse From header\n");
goto error;
}
pfrom = (struct to_body*)msg->from->parsed;
if(pfrom->tag_value.s ==NULL || pfrom->tag_value.len == 0)
{
LM_ERR("no from tag value present\n");
goto error;
}
/* verify if the presentity URI is a resource list */
if(pto->tag_value.s== NULL || pto->tag_value.len==0)
/* if an initial Subscribe */
{
struct sip_uri fu = ((struct to_body*)msg->from->parsed)->parsed_uri;
if( parse_sip_msg_uri(msg)< 0)
{
LM_ERR("parsing Request URI failed\n");
goto error;
}
/*verify if Request URI represents a list by asking xcap server*/
if(uandd_to_uri(msg->parsed_uri.user, msg->parsed_uri.host,
&subs.pres_uri)< 0)
{
LM_ERR("while constructing uri from user and domain\n");
reply_code = 500;
reply_str = pu_500_rpl;
goto error;
}
if( get_resource_list(&subs.pres_uri, fu.user, fu.host,
&service_node, &doc) < 0)
{
LM_ERR("failed to get resource list document\n");
reply_code = 500;
reply_str = pu_500_rpl;
goto error;
}
if(doc== NULL|| service_node==NULL)
{
LM_DBG("list not found - search for uri = %.*s\n",subs.pres_uri.len,
subs.pres_uri.s);
pkg_free(subs.pres_uri.s);
return to_presence_code;
}
}
else /* if request inside a dialog */
{
if( msg->callid==NULL || msg->callid->body.s==NULL)
{
LM_ERR("cannot parse callid header\n");
goto error;
}
/* search if a stored dialog */
hash_code= core_hash(&msg->callid->body, &pto->tag_value, hash_size);
lock_get(&rls_table[hash_code].lock);
if(pres_search_shtable(rls_table,msg->callid->body,
pto->tag_value, pfrom->tag_value, hash_code)== NULL)
{
lock_release(&rls_table[hash_code].lock);
/* reply with Call/Transaction Does Not Exist */
LM_DBG("No dialog match found\n");
return to_presence_code;
}
lock_release(&rls_table[hash_code].lock);
}
/* extract dialog information from message headers */
if(pres_extract_sdialog_info(&subs, msg, rls_max_expires, &init_req,
server_address)< 0)
{
LM_ERR("bad Subscribe request\n");
goto error;
}
reply_code = 500;
reply_str = pu_500_rpl;
if(init_req) /* if an initial subscribe */
{
/** reply with 200 OK*/
if(reply_200(msg, &subs.local_contact, subs.expires, &subs.to_tag)< 0)
goto error_free;
hash_code= core_hash(&subs.callid, &subs.to_tag, hash_size);
subs.local_cseq= 0;
if(subs.expires!= 0)
{
subs.version= 1;
if(pres_insert_shtable(rls_table, hash_code, &subs)< 0)
{
LM_ERR("while adding new subscription\n");
goto error_free;
}
}
}
else
{
if(update_rlsubs(&subs, hash_code, &reply_code, &reply_str) < 0)
{
LM_ERR("while updating resource list subscription\n");
goto error;
}
if(get_resource_list(&subs.pres_uri, subs.from_user,
subs.from_domain, &service_node, &doc)< 0)
{
LM_ERR("when getting resource list\n");
goto error;
}
if(doc== NULL || service_node== NULL)
{
LM_DBG("list not found( in-dialog request)- search for uri = %.*s\n",
subs.pres_uri.len, subs.pres_uri.s);
reply_code = 404;
reply_str = pu_404_rpl;
goto error;
}
/** reply with 200 OK*/
if(reply_200(msg, &subs.local_contact, subs.expires, 0)< 0)
goto error_free;
}
/*** send Subscribe requests for all in the list */
/* call sending Notify with full state */
if(send_full_notify(&subs, service_node, subs.version,
&subs.pres_uri,hash_code)< 0)
{
LM_ERR("while sending full state Notify\n");
goto error_free;
}
if(resource_subscriptions(&subs, service_node)< 0)
{
LM_ERR("while sending Subscribe requests to resources in a list\n");
goto error_free;
}
if(contact)
{
if(contact->s)
pkg_free(contact->s);
pkg_free(contact);
}
pkg_free(subs.pres_uri.s);
if(subs.record_route.s)
pkg_free(subs.record_route.s);
xmlFreeDoc(doc);
return 1;
bad_event:
if(reply_489(msg)< 0)
LM_ERR("failed to send 489 reply\n");
goto error_free;
error:
if (rls_sigb.reply(msg, reply_code, &reply_str, 0) == -1)
{
LM_ERR("failed to send 400 reply\n");
return -1;
}
error_free:
if(contact)
{
if(contact->s)
pkg_free(contact->s);
pkg_free(contact);
}
if(subs.pres_uri.s)
pkg_free(subs.pres_uri.s);
if(subs.record_route.s)
pkg_free(subs.record_route.s);
if(doc)
xmlFreeDoc(doc);
return -1;
}
static inline int oma_match_external_list_condition(xmlNodePtr condition, subs_t *subs, str *w_uri)
{
int found = 0;
str anchor, uri;
str *normalized_uri;
struct sip_uri sip_uri;
xcap_uri_t anchor_uri;
xmlNodePtr entry_node = NULL;
xmlNodePtr rl_node = NULL, rl_entry = NULL;
xmlDocPtr rl_doc = NULL;
if(!integrated_xcap_server)
{
LM_ERR("<external-list> is not supported in non integrated mode\n");
return 0;
}
if(parse_uri(subs->pres_uri.s, subs->pres_uri.len, &sip_uri) < 0)
{
LM_ERR("failed to parse uri\n");
return 0;
}
for(entry_node = condition->children; entry_node; entry_node = entry_node->next)
{
if(xmlStrcasecmp(entry_node->name, (unsigned char*)"entry") != 0)
continue;
rl_node = NULL;
rl_doc = NULL;
anchor.s = NULL;
uri.s = NULL;
anchor.s = xmlNodeGetAttrContentByName(entry_node, "anc");
if(anchor.s == NULL)
{
LM_ERR("cannot get external-list entry anchor\n");
continue;
}
anchor.len = strlen(anchor.s);
if(xcapParseUri(&anchor, &anchor_uri) != 0)
{
LM_ERR("unable to parse URI for external-list entry anchor\n");
xmlFree(anchor.s);
continue;
}
xmlFree(anchor.s);
/* TODO: validate XUI? */
if(get_resource_list(&sip_uri.user, &sip_uri.host, &anchor_uri.filename, &anchor_uri.selector, &rl_node, &rl_doc) < 0)
{
LM_ERR("error getting resource-list list pointed by external list anchor\n");
continue;
}
for(rl_entry = rl_node->children; rl_entry; rl_entry = rl_entry->next)
{
if(xmlStrcasecmp(rl_entry->name, (unsigned char*)"entry") != 0)
continue;
uri.s = xmlNodeGetAttrContentByName(rl_entry, "uri");
if(uri.s == NULL)
{
LM_ERR("when extracting entry uri attribute\n");
continue;
}
uri.len = strlen(uri.s);
normalized_uri = normalizeSipUri(&uri);
if (normalized_uri->s == NULL || normalized_uri->len == 0)
{
LM_ERR("normalizing URI\n");
xmlFree(uri.s);
continue;
}
xmlFree(uri.s);
if (normalized_uri->len == w_uri->len && strncmp(normalized_uri->s, w_uri->s, w_uri->len) == 0)
{
found = 1;
break;
}
}
xmlFreeDoc(rl_doc);
if (found)
break;
}
return found;
}
