/*
* pool_user_read
* checks the packet type of data coming from the client and allocates a
* pool member if necessary.
*/
static bool
pool_user_read(TDS_POOL * pool, TDS_POOL_USER * puser)
{
TDSSOCKET *tds = puser->sock.tds;
TDS_POOL_MEMBER *pmbr = NULL;
for (;;) {
if (pool_packet_read(tds))
break;
if (tds->in_len == 0) {
tdsdump_log(TDS_DBG_INFO1, "user disconnected\n");
pool_free_user(pool, puser);
return false;
} else {
TDS_UCHAR in_flag = tds->in_buf[0];
tdsdump_dump_buf(TDS_DBG_NETWORK, "Got packet from client:", tds->in_buf, tds->in_len);
switch (in_flag) {
case TDS_QUERY:
case TDS_NORMAL:
case TDS_RPC:
case TDS_BULK:
case TDS_CANCEL:
case TDS7_TRANS:
if (!pool_write_data(&puser->sock, &puser->assigned_member->sock)) {
pool_reset_member(pool, puser->assigned_member);
return false;
}
pmbr = puser->assigned_member;
break;
default:
tdsdump_log(TDS_DBG_ERROR, "Unrecognized packet type, closing user\n");
pool_free_user(pool, puser);
return false;
}
}
}
if (pmbr && !pmbr->sock.poll_send)
tds_socket_flush(tds_get_s(pmbr->sock.tds));
return true;
}
/*
* pool_free_user
* close out a disconnected user.
*/
void
pool_free_user(TDS_POOL *pool, TDS_POOL_USER * puser)
{
TDS_POOL_MEMBER *pmbr = puser->assigned_member;
if (pmbr) {
pool_deassign_member(pmbr);
pool_reset_member(pool, pmbr);
}
tds_free_socket(puser->sock.tds);
tds_free_login(puser->login);
/* make sure to decrement the waiters list if he is waiting */
if (puser->user_state == TDS_SRV_WAIT)
dlist_user_remove(&pool->waiters, puser);
else
dlist_user_remove(&pool->users, puser);
pool->num_users--;
free(puser);
}
/*
* pool_process_members
* check the fd_set for members returning data to the client, lookup the
* client holding this member and forward the results.
*/
int
pool_process_members(TDS_POOL * pool, fd_set * fds)
{
TDS_POOL_MEMBER *pmbr;
TDS_POOL_USER *puser;
TDSSOCKET *tds;
int i, age, ret;
int cnt = 0;
unsigned char *buf;
time_t time_now;
for (i = 0; i < pool->num_members; i++) {
pmbr = (TDS_POOL_MEMBER *) & pool->members[i];
if (!pmbr->tds)
break; /* dead connection */
tds = pmbr->tds;
time_now = time(NULL);
if (FD_ISSET(tds->s, fds)) {
pmbr->last_used_tm = time_now;
cnt++;
/* tds->in_len = read(tds->s, tds->in_buf, BLOCKSIZ); */
if (pool_packet_read(pmbr))
continue;
if (tds->in_len == 0) {
fprintf(stderr, "Uh oh! member %d disconnected\n", i);
/* mark as dead */
pool_free_member(pmbr);
} else if (tds->in_len == -1) {
fprintf(stderr, "Uh oh! member %d disconnected\n", i);
perror("read");
pool_free_member(pmbr);
} else {
/* fprintf(stderr, "read %d bytes from member %d\n", tds->in_len, i); */
if (pmbr->current_user) {
puser = pmbr->current_user;
buf = tds->in_buf;
/*
* check the netlib final packet flag
* instead of looking for done tokens.
* It's more efficient and generic to
* all protocol versions. -- bsb
* 2004-12-12
*/
if (buf[1]) {
/* if (pool_find_end_token(pmbr, buf + 8, tds->in_len - 8)) { */
/* we are done...deallocate member */
fprintf(stdout, "deassigning user from member %d\n",i);
pool_deassign_member(pmbr);
pmbr->state = TDS_IDLE;
puser->user_state = TDS_SRV_IDLE;
}
/* cf. net.c for better technique. */
ret = WRITESOCKET(puser->tds->s, buf, tds->in_len);
if (ret < 0) { /* couldn't write, ditch the user */
fprintf(stdout, "member %d received error while writing\n",i);
pool_free_user(pmbr->current_user);
pool_deassign_member(pmbr);
pool_reset_member(pmbr);
}
}
}
}
age = time_now - pmbr->last_used_tm;
if (age > pool->max_member_age && i >= pool->min_open_conn) {
fprintf(stderr, "member %d is %d seconds old...closing\n", i, age);
pool_free_member(pmbr);
}
}
return cnt;
}
