/* call Clean and free/unlock everything */
static void
peerDigestDestroy(PeerDigest * pd)
{
peer *p;
assert(pd);
p = pd->peer;
pd->peer = NULL;
/* inform peer (if any) that we are gone */
if (cbdataValid(p))
peerNoteDigestGone(p);
cbdataUnlock(p); /* must unlock, valid or not */
peerDigestClean(pd);
cbdataFree(pd);
}
static void
free_refresh_check_helper(void *data)
{
refresh_check_helper *p = data;
while (p->format) {
refresh_check_format *f = p->format;
p->format = f->next;
cbdataFree(f);
}
wordlistDestroy(&p->cmdline);
if (p->helper) {
helperShutdown(p->helper);
helperFree(p->helper);
p->helper = NULL;
}
}
void
errorStateFree(ErrorState * err)
{
requestUnlink(err->request);
safe_free(err->redirect_url);
safe_free(err->url);
safe_free(err->dnsserver_msg);
safe_free(err->request_hdrs);
wordlistDestroy(&err->ftp.server_msg);
safe_free(err->ftp.request);
safe_free(err->ftp.reply);
if (err->auth_user_request)
authenticateAuthUserRequestUnlock(err->auth_user_request);
err->auth_user_request = NULL;
cbdataFree(err);
}
static void
gopherStateFree(int fdnotused, void *data)
{
GopherStateData *gopherState = data;
if (gopherState == NULL)
return;
if (gopherState->entry) {
storeUnlockObject(gopherState->entry);
}
if (gopherState->req) {
requestUnlink(gopherState->req);
}
memFree(gopherState->buf, MEM_4K_BUF);
gopherState->buf = NULL;
cbdataFree(gopherState);
}
static void private_openIdleConnDone(int fd,int status, void* data)
{
server* s = data;
debug(151,3)("mod_server_persist_connections-->private_openIdleConnDone: ip_addr == %s \t port == %d, fd == %d\n",s->ip_addr, s->port,fd);
if(fd>0)
{
if(s->proto == PROTO_HTTPS)
{
private_fwdInitiateSSL(fd,s);
}else{
pconnPush(fd,s->ip_addr,s->port,NULL,NULL,0);
commSetTimeout(fd,s->pconn_timeout,NULL,NULL);
cbdataFree(s); //Does fwdConnectIdleTimeOut will free!!!
}
}
}
static void
idnsCheckQueue(void *unused)
{
dlink_node *n;
dlink_node *p = NULL;
idns_query *q;
event_queued = 0;
if (0 == nns)
/* name servers went away; reconfiguring or shutting down */
return;
for (n = lru_list.tail; n; n = p)
{
p = n->prev;
q = n->data;
/* Anything to process in the queue? */
if (tvSubDsec(q->queue_t, current_time) < Config.Timeout.idns_retransmit)
break;
/* Query timer expired? */
if (tvSubDsec(q->sent_t, current_time) < Config.Timeout.idns_retransmit * 1 << ((q->nsends - 1) / nns))
{
dlinkDelete(&q->lru, &lru_list);
q->queue_t = current_time;
dlinkAdd(q, &q->lru, &lru_list);
continue;
}
debug(78, 3) ("idnsCheckQueue: ID %#04x timeout\n",
q->id);
dlinkDelete(&q->lru, &lru_list);
if (tvSubDsec(q->start_t, current_time) < Config.Timeout.idns_query)
{
idnsSendQuery(q);
}
else
{
debug(78, 2) ("idnsCheckQueue: ID %x: giving up after %d tries and %5.1f seconds\n",
(int) q->id, q->nsends,
tvSubDsec(q->start_t, current_time));
if (q->rcode != 0)
idnsCallback(q, NULL, -q->rcode, q->error);
else
idnsCallback(q, NULL, -16, "Timeout");
idnsTcpCleanup(q);
cbdataFree(q);
}
}
idnsTickleQueue();
}
static void
peerSelectStateFree(ps_state * psstate)
{
if (psstate->acl_checklist)
{
debug(44, 1) ("calling aclChecklistFree() from peerSelectStateFree\n");
aclChecklistFree(psstate->acl_checklist);
}
requestUnlink(psstate->request);
psstate->request = NULL;
if (psstate->entry)
{
assert(psstate->entry->ping_status != PING_WAITING);
storeUnlockObject(psstate->entry);
psstate->entry = NULL;
}
cbdataFree(psstate);
}
static void
sslStateFree(SslStateData * sslState)
{
debug(26, 3) ("sslStateFree: sslState=%p\n", sslState);
assert(sslState != NULL);
assert(sslState->client.fd == -1);
assert(sslState->server.fd == -1);
safe_free(sslState->server.buf);
safe_free(sslState->client.buf);
safe_free(sslState->url);
fwdServersFree(&sslState->servers);
sslState->host = NULL;
requestUnlink(sslState->request);
sslState->request = NULL;
#if DELAY_POOLS
delayUnregisterDelayIdPtr(&sslState->delay_id);
#endif
cbdataFree(sslState);
}
static void
storeUfsIOCallback(storeIOState * sio, int errflag)
{
ufsstate_t *ufsstate = (ufsstate_t *) sio->fsstate;
debug(79, 3) ("storeUfsIOCallback: errflag=%d\n", errflag);
if (ufsstate->fd > -1) {
SwapDir *SD = INDEXSD(sio->swap_dirn);
ufsinfo_t *ufsinfo = (ufsinfo_t *) SD->fsdata;
file_close(ufsstate->fd);
store_open_disk_fd--;
ufsinfo->open_files--;
}
if (cbdataValid(sio->callback_data))
sio->callback(sio->callback_data, errflag, sio);
cbdataUnlock(sio->callback_data);
sio->callback_data = NULL;
sio->callback = NULL;
cbdataFree(sio);
}
/*
* This routine hasn't been optimised to take advantage of the
* passed sc. Yet.
*/
int
storeUnregister(store_client * sc, StoreEntry * e, void *data)
{
MemObject *mem = e->mem_obj;
#if STORE_CLIENT_LIST_DEBUG
assert(sc == storeClientListSearch(e->mem_obj, data));
#endif
if (mem == NULL)
return 0;
debug(20, 3) ("storeUnregister: called for '%s'\n", storeKeyText(e->hash.key));
if (sc == NULL)
return 0;
if (mem->clients.head == NULL)
return 0;
dlinkDelete(&sc->node, &mem->clients);
mem->nclients--;
if (e->store_status == STORE_OK && e->swap_status != SWAPOUT_DONE)
storeSwapOut(e);
if (sc->swapin_sio) {
storeClose(sc->swapin_sio);
cbdataUnlock(sc->swapin_sio);
sc->swapin_sio = NULL;
statCounter.swap.ins++;
}
if (NULL != sc->callback) {
/* callback with ssize = -1 to indicate unexpected termination */
debug(20, 3) ("storeUnregister: store_client for %s has a callback\n",
mem->url);
storeClientCallback(sc, -1);
}
#if DELAY_POOLS
delayUnregisterDelayIdPtr(&sc->delay_id);
#endif
cbdataUnlock(sc->callback_data); /* we're done with it now */
/*assert(!sc->flags.disk_io_pending); */
cbdataFree(sc);
assert(e->lock_count > 0);
storeSwapOutMaintainMemObject(e);
if (mem->nclients == 0)
CheckQuickAbort(e);
return 1;
}
static void
authenticateAuthUserClearIp(auth_user_t * auth_user)
{
auth_user_ip_t *ipdata, *tempnode;
if (!auth_user)
return;
ipdata = (auth_user_ip_t *) auth_user->ip_list.head;
while (ipdata) {
tempnode = (auth_user_ip_t *) ipdata->node.next;
/* walk the ip list */
dlinkDelete(&ipdata->node, &auth_user->ip_list);
cbdataFree(ipdata);
/* catch incipient underflow */
assert(auth_user->ipcount);
auth_user->ipcount--;
ipdata = tempnode;
}
/* integrity check */
assert(auth_user->ipcount == 0);
}
static void
neighborRemove(peer * target)
{
peer *p = NULL;
peer **P = NULL;
p = Config.peers;
P = &Config.peers;
while (p) {
if (target == p)
break;
P = &p->next;
p = p->next;
}
if (p) {
*P = p->next;
cbdataFree(p);
Config.npeers--;
}
first_ping = Config.peers;
}
/*
* This routine hasn't been optimised to take advantage of the
* passed sc. Yet.
*/
int
storeClientUnregister(store_client * sc, StoreEntry * e, void *owner)
{
MemObject *mem = e->mem_obj;
if (sc == NULL)
return 0;
debug(20, 3) ("storeClientUnregister: called for '%s'\n", storeKeyText(e->hash.key));
#if STORE_CLIENT_LIST_DEBUG
assert(sc == storeClientListSearch(e->mem_obj, owner));
#endif
assert(sc->entry == e);
if (mem->clients.head == NULL)
return 0;
dlinkDelete(&sc->node, &mem->clients);
mem->nclients--;
if (e->store_status == STORE_OK && e->swap_status != SWAPOUT_DONE)
storeSwapOut(e);
if (sc->swapin_sio) {
storeClose(sc->swapin_sio);
cbdataUnlock(sc->swapin_sio);
sc->swapin_sio = NULL;
statCounter.swap.ins++;
}
if (NULL != sc->new_callback) {
/* callback with ssize = -1 to indicate unexpected termination */
debug(20, 3) ("storeClientUnregister: store_client for %s has a callback\n",
mem->url);
storeClientCallback(sc, -1);
}
stmemNodeUnref(&sc->node_ref);
#if DELAY_POOLS
delayUnregisterDelayIdPtr(&sc->delay_id);
#endif
storeSwapOutMaintainMemObject(e);
if (mem->nclients == 0)
CheckQuickAbort(e);
storeUnlockObject(sc->entry);
sc->entry = NULL;
cbdataFree(sc);
return 1;
}
static void
free_external_acl(void *data)
{
external_acl *p = data;
safe_free(p->name);
while (p->format) {
external_acl_format *f = p->format;
p->format = f->next;
cbdataFree(f);
}
wordlistDestroy(&p->cmdline);
if (p->helper) {
helperShutdown(p->helper);
helperFree(p->helper);
p->helper = NULL;
}
while (p->lru_list.tail)
external_acl_cache_delete(p, p->lru_list.tail->data);
if (p->cache)
hashFreeMemory(p->cache);
}
static void
idnsCallback(idns_query * q, rfc1035_rr * answers, int n, const char *error)
{
int valid;
valid = cbdataValid(q->callback_data);
cbdataUnlock(q->callback_data);
if (valid)
q->callback(q->callback_data, answers, n, error);
while (q->queue) {
idns_query *q2 = q->queue;
q->queue = q2->queue;
valid = cbdataValid(q2->callback_data);
cbdataUnlock(q2->callback_data);
if (valid)
q2->callback(q2->callback_data, answers, n, error);
cbdataFree(q2);
}
if (q->hash.key) {
hash_remove_link(idns_lookup_hash, &q->hash);
q->hash.key = NULL;
}
}
static void
helperStatefulServerFree(int fd, void *data)
{
helper_stateful_server *srv = data;
statefulhelper *hlp = srv->parent;
helper_stateful_request *r;
assert(srv->rfd == fd);
if (srv->buf) {
memFree(srv->buf, MEM_8K_BUF);
srv->buf = NULL;
}
if ((r = srv->request)) {
if (cbdataValid(r->data))
r->callback(r->data, srv, srv->buf);
helperStatefulRequestFree(r);
srv->request = NULL;
}
/* TODO: walk the local queue of requests and carry them all out */
if (srv->wfd != srv->rfd && srv->wfd != -1)
comm_close(srv->wfd);
dlinkDelete(&srv->link, &hlp->servers);
hlp->n_running--;
assert(hlp->n_running >= 0);
if (!srv->flags.shutdown) {
debug(84, 0) ("WARNING: %s #%d (FD %d) exited\n",
hlp->id_name, srv->index + 1, fd);
if (hlp->n_running <= hlp->n_to_start / 2) {
debug(80, 0) ("Too few %s processes are running", hlp->id_name);
if (hlp->last_restart > squid_curtime - 30)
fatalf("The %s helpers are crashing too rapidly, need help!\n", hlp->id_name);
debug(80, 0) ("Starting new helpers\n");
helperStatefulOpenServers(hlp);
}
}
if (srv->data != NULL)
memPoolFree(hlp->datapool, srv->data);
cbdataUnlock(srv->parent);
cbdataFree(srv);
}
/* finishes swap out sequence for the digest; schedules next rewrite */
static void
storeDigestRewriteFinish(StoreEntry * e)
{
assert(sd_state.rewrite_lock && e == sd_state.rewrite_lock->data);
storeComplete(e);
storeTimestampsSet(e);
debug(71, 2) ("storeDigestRewriteFinish: digest expires at %ld (%+d)\n",
(long int) e->expires, (int) (e->expires - squid_curtime));
/* is this the write order? @?@ */
requestUnlink(e->mem_obj->request);
e->mem_obj->request = NULL;
storeUnlockObject(e);
cbdataFree(sd_state.rewrite_lock);
e = NULL;
sd_state.rewrite_lock = NULL;
sd_state.rewrite_count++;
eventAdd("storeDigestRewriteStart", storeDigestRewriteStart, NULL, (double)
Config.digest.rewrite_period, 1);
/* resume pending Rebuild if any */
if (sd_state.rebuild_lock)
storeDigestRebuildResume();
}
static void
private_fwdInitiateSSL(int fd,server *s)
{
SSL *ssl;
SSL_CTX *sslContext = NULL;
sslContext = Config.ssl_client.sslContext;
assert(sslContext);
if ((ssl = SSL_new(sslContext)) == NULL)
{
debug(153, 1) ("private_fwdInitiateSSL: Error allocating handle: %s\n",ERR_error_string(ERR_get_error(), NULL));
cbdataFree(s);
comm_close(fd);
return ;
}
SSL_set_fd(ssl, fd);
fd_table[fd].ssl = ssl;
fd_table[fd].read_method = &ssl_read_method;
fd_table[fd].write_method = &ssl_write_method;
fd_note(fd, "private_Negotiating SSL");
private_fwdNegotiateSSL(fd,s);
return;
}
void
authenticateAuthUserRequestRemoveIp(auth_user_request_t * auth_user_request, struct in_addr ipaddr)
{
auth_user_ip_t *ipdata;
auth_user_t *auth_user;
if (!auth_user_request->auth_user)
return;
auth_user = auth_user_request->auth_user;
ipdata = (auth_user_ip_t *) auth_user->ip_list.head;
while (ipdata) {
/* walk the ip list */
if (ipdata->ipaddr.s_addr == ipaddr.s_addr) {
/* remove the node */
dlinkDelete(&ipdata->node, &auth_user->ip_list);
cbdataFree(ipdata);
/* catch incipient underflow */
assert(auth_user->ipcount);
auth_user->ipcount--;
return;
}
ipdata = (auth_user_ip_t *) ipdata->node.next;
}
}
static void
redirectStateFree(redirectStateData * r)
{
safe_free(r->orig_url);
cbdataFree(r);
}
static void
authenticateStateFree(authenticateStateData * r)
{
cbdataFree(r);
}
/*
* The helper program receives queries on stdin, one
* per line, and must return the result on on stdout
*/
static void
refreshCheckHandleReply(void *data, char *reply)
{
refreshCheckState *state = data;
refreshCheckState *next;
int freshness = -1;
char *log = NULL;
MemBuf hdrs = MemBufNULL;
debug(84, 2) ("refreshCheckHandleReply: reply=\"%s\"\n", reply);
if (reply) {
char *t = NULL;
char *token = strwordtok(reply, &t);
if (token && strcmp(token, "FRESH") == 0)
freshness = 0;
else if (token && strcmp(token, "OK") == 0)
freshness = 0;
while ((token = strwordtok(NULL, &t))) {
char *value = strchr(token, '=');
if (value) {
*value++ = '\0'; /* terminate the token, and move up to the value */
rfc1738_unescape(value);
if (strcmp(token, "freshness") == 0)
freshness = atoi(value);
else if (strcmp(token, "log") == 0)
log = value;
else if (strncmp(token, "res{", 4) == 0) {
char *header, *t;
header = token + 4;
t = strrchr(header, '}');
if (!t)
continue;
*t = '\0';
if (!hdrs.buf)
memBufDefInit(&hdrs);
memBufPrintf(&hdrs, "%s: %s\r\n", header, value);
}
}
}
}
if (freshness >= 0) {
if (hdrs.size) {
HttpReply *rep = httpReplyCreate();
httpHeaderParse(&rep->header, hdrs.buf, hdrs.buf + hdrs.size);
httpReplyUpdateOnNotModified(state->entry->mem_obj->reply, rep);
storeTimestampsSet(state->entry);
if (!httpHeaderHas(&rep->header, HDR_DATE)) {
state->entry->timestamp = squid_curtime;
state->entry->expires = squid_curtime + freshness;
} else if (freshness) {
state->entry->expires = squid_curtime + freshness;
}
httpReplyDestroy(rep);
storeUpdate(state->entry, NULL);
} else {
state->entry->timestamp = squid_curtime;
state->entry->expires = squid_curtime + freshness;
}
}
if (hdrs.buf)
memBufClean(&hdrs);
dlinkDelete(&state->list, &state->def->queue);
do {
cbdataUnlock(state->def);
state->def = NULL;
if (state->callback && cbdataValid(state->callback_data))
state->callback(state->callback_data, freshness >= 0, log);
cbdataUnlock(state->callback_data);
state->callback_data = NULL;
next = state->queue;
cbdataFree(state);
state = next;
} while (state);
}
void
externalAclLookup(aclCheck_t * ch, void *acl_data, EAH * callback, void *callback_data)
{
MemBuf buf;
external_acl_data *acl = acl_data;
external_acl *def = acl->def;
const char *key;
external_acl_entry *entry;
externalAclState *state;
if (acl->def->require_auth) {
int ti;
/* Make sure the user is authenticated */
if ((ti = aclAuthenticated(ch)) != 1) {
debug(82, 1) ("externalAclLookup: %s user authentication failure (%d)\n", acl->def->name, ti);
callback(callback_data, NULL);
return;
}
}
key = makeExternalAclKey(ch, acl);
if (!key) {
debug(82, 1) ("externalAclLookup: lookup in '%s', prerequisit failure\n", def->name);
callback(callback_data, NULL);
return;
}
debug(82, 2) ("externalAclLookup: lookup in '%s' for '%s'\n", def->name, key);
entry = hash_lookup(def->cache, key);
state = cbdataAlloc(externalAclState);
state->def = def;
cbdataLock(state->def);
state->callback = callback;
state->callback_data = callback_data;
state->key = xstrdup(key);
cbdataLock(state->callback_data);
if (entry && !external_acl_entry_expired(def, entry)) {
if (entry->result == -1) {
/* There is a pending lookup. Hook into it */
dlink_node *node;
for (node = def->queue.head; node; node = node->next) {
externalAclState *oldstate = node->data;
if (strcmp(state->key, oldstate->key) == 0) {
state->queue = oldstate->queue;
oldstate->queue = state;
return;
}
}
} else {
/* There is a cached valid result.. use it */
/* This should not really happen, but what the heck.. */
callback(callback_data, entry);
cbdataFree(state);
return;
}
}
/* Check for queue overload */
if (def->helper->stats.queue_size >= def->helper->n_running) {
int result = -1;
external_acl_entry *entry = hash_lookup(def->cache, key);
debug(82, 1) ("externalAclLookup: '%s' queue overload\n", def->name);
if (entry)
result = entry->result;
cbdataFree(state);
callback(callback_data, entry);
return;
}
/* Send it off to the helper */
memBufDefInit(&buf);
memBufPrintf(&buf, "%s\n", key);
helperSubmit(def->helper, buf.buf, externalAclHandleReply, state);
external_acl_cache_add(def, key, -1, NULL, NULL);
dlinkAdd(state, &state->list, &def->queue);
memBufClean(&buf);
}
static void
urnHandleReply(void *data, char *buf, ssize_t size)
{
UrnState *urnState = data;
StoreEntry *e = urnState->entry;
StoreEntry *urlres_e = urnState->urlres_e;
char *s = NULL;
size_t k;
HttpReply *rep;
url_entry *urls;
url_entry *u;
url_entry *min_u;
MemBuf mb;
ErrorState *err;
int i;
int urlcnt = 0;
http_version_t version;
debug(52, 3) ("urnHandleReply: Called with size=%d.\n", (int) size);
if (EBIT_TEST(urlres_e->flags, ENTRY_ABORTED)) {
memFree(buf, MEM_4K_BUF);
return;
}
if (size == 0) {
memFree(buf, MEM_4K_BUF);
return;
} else if (size < 0) {
memFree(buf, MEM_4K_BUF);
return;
}
if (urlres_e->store_status == STORE_PENDING && size < SM_PAGE_SIZE) {
storeClientCopy(urnState->sc, urlres_e,
size,
0,
SM_PAGE_SIZE,
buf,
urnHandleReply,
urnState);
return;
}
/* we know its STORE_OK */
k = headersEnd(buf, size);
if (0 == k) {
debug(52, 1) ("urnHandleReply: didn't find end-of-headers for %s\n",
storeUrl(e));
return;
}
s = buf + k;
assert(urlres_e->mem_obj->reply);
httpReplyParse(urlres_e->mem_obj->reply, buf, k);
debug(52, 3) ("mem->reply exists, code=%d.\n",
urlres_e->mem_obj->reply->sline.status);
if (urlres_e->mem_obj->reply->sline.status != HTTP_OK) {
debug(52, 3) ("urnHandleReply: failed.\n");
err = errorCon(ERR_URN_RESOLVE, HTTP_NOT_FOUND);
err->request = requestLink(urnState->request);
err->url = xstrdup(storeUrl(e));
errorAppendEntry(e, err);
return;
}
while (xisspace(*s))
s++;
urls = urnParseReply(s, urnState->request->method);
for (i = 0; NULL != urls[i].url; i++)
urlcnt++;
debug(53, 3) ("urnFindMinRtt: Counted %d URLs\n", i);
if (urls == NULL) { /* unkown URN error */
debug(52, 3) ("urnTranslateDone: unknown URN %s\n", storeUrl(e));
err = errorCon(ERR_URN_RESOLVE, HTTP_NOT_FOUND);
err->request = requestLink(urnState->request);
err->url = xstrdup(storeUrl(e));
errorAppendEntry(e, err);
return;
}
min_u = urnFindMinRtt(urls, urnState->request->method, NULL);
qsort(urls, urlcnt, sizeof(*urls), url_entry_sort);
storeBuffer(e);
memBufDefInit(&mb);
memBufPrintf(&mb,
"<TITLE>Select URL for %s</TITLE>\n"
"<STYLE type=\"text/css\"><!--BODY{background-color:#ffffff;font-family:verdana,sans-serif}--></STYLE>\n"
"<H2>Select URL for %s</H2>\n"
"<TABLE BORDER=\"0\" WIDTH=\"100%%\">\n", storeUrl(e), storeUrl(e));
for (i = 0; i < urlcnt; i++) {
u = &urls[i];
debug(52, 3) ("URL {%s}\n", u->url);
memBufPrintf(&mb,
"<TR><TD><A HREF=\"%s\">%s</A></TD>", u->url, u->url);
if (urls[i].rtt > 0)
memBufPrintf(&mb,
"<TD align=\"right\">%4d <it>ms</it></TD>", u->rtt);
else
memBufPrintf(&mb, "<TD align=\"right\">Unknown</TD>");
memBufPrintf(&mb,
"<TD>%s</TD></TR>\n", u->flags.cached ? " [cached]" : " ");
}
memBufPrintf(&mb,
"</TABLE>"
"<HR noshade size=\"1px\">\n"
"<ADDRESS>\n"
"Generated by %s@%s\n"
"</ADDRESS>\n",
full_appname_string, getMyHostname());
rep = e->mem_obj->reply;
httpReplyReset(rep);
httpBuildVersion(&version, 1, 0);
httpReplySetHeaders(rep, version, HTTP_MOVED_TEMPORARILY, NULL,
"text/html", mb.size, 0, squid_curtime);
if (urnState->flags.force_menu) {
debug(51, 3) ("urnHandleReply: forcing menu\n");
} else if (min_u) {
httpHeaderPutStr(&rep->header, HDR_LOCATION, min_u->url);
}
httpBodySet(&rep->body, &mb);
httpReplySwapOut(rep, e);
storeComplete(e);
memFree(buf, MEM_4K_BUF);
for (i = 0; i < urlcnt; i++) {
safe_free(urls[i].url);
safe_free(urls[i].host);
}
safe_free(urls);
/* mb was absorbed in httpBodySet call, so we must not clean it */
storeUnregister(urnState->sc, urlres_e, urnState);
storeUnlockObject(urlres_e);
storeUnlockObject(urnState->entry);
requestUnlink(urnState->request);
requestUnlink(urnState->urlres_r);
cbdataFree(urnState);
}
static void
locationRewriteStateFree(rewriteStateData * r)
{
safe_free(r->orig_url);
cbdataFree(r);
}
static void
peerMonitorCompleted(PeerMonitor * pm)
{
int state = PEER_ALIVE;
peer *p = pm->peer;
storeClientUnregister(pm->running.sc, pm->running.e, pm);
storeUnlockObject(pm->running.e);
requestUnlink(pm->running.req);
memFree(pm->running.buf, MEM_4K_BUF);
if (pm->running.timeout_set)
{
eventDelete(peerMonitorTimeout, pm);
pm->running.timeout_set = 0;
}
if (!cbdataValid(pm->peer))
{
cbdataFree(pm);
return;
}
/* Figure out if the response was OK or not */
if (pm->running.status != HTTP_OK)
{
debug(DBG, 1) ("peerMonitor %s: Failed, status != 200 (%d)\n",
p->name, pm->running.status);
state = PEER_DEAD;
}
else if (pm->running.size < p->monitor.min)
{
debug(DBG, 1) ("peerMonitor %s: Failed, reply size %d < min %d\n",
p->name, pm->running.size, p->monitor.min);
state = PEER_DEAD;
}
else if (pm->running.size > p->monitor.max && p->monitor.max > 0)
{
debug(DBG, 1) ("peerMonitor %s: Failed, reply size %d > max %d\n",
p->name, pm->running.size, p->monitor.max);
state = PEER_DEAD;
}
else
{
debug(DBG, 2) ("peerMonitor %s: OK\n", p->name);
}
p->monitor.state = state;
if (state != p->stats.logged_state)
{
switch (state)
{
case PEER_ALIVE:
debug(DBG, 1) ("Detected REVIVED %s: %s\n",
neighborTypeStr(p), p->name);
peerClearRR();
break;
case PEER_DEAD:
debug(DBG, 1) ("Detected DEAD %s: %s\n",
neighborTypeStr(p), p->name);
break;
}
p->stats.logged_state = state;
}
memset(&pm->running, 0, sizeof(pm->running));
eventAdd(pm->name, peerMonitorRequest, pm, (double) (pm->last_probe + pm->peer->monitor.interval - current_dtime), 1);
}
static void
idnsGrokReply(const char *buf, size_t sz)
{
int n;
rfc1035_message *message = NULL;
idns_query *q;
n = rfc1035MessageUnpack(buf,
sz,
&message);
if (message == NULL) {
debug(78, 2) ("idnsGrokReply: Malformed DNS response\n");
return;
}
debug(78, 3) ("idnsGrokReply: ID %#hx, %d answers\n", message->id, n);
q = idnsFindQuery(message->id);
if (q == NULL) {
debug(78, 3) ("idnsGrokReply: Late response\n");
rfc1035MessageDestroy(message);
return;
}
if (rfc1035QueryCompare(&q->query, message->query) != 0) {
debug(78, 3) ("idnsGrokReply: Query mismatch (%s != %s)\n", q->query.name, message->query->name);
rfc1035MessageDestroy(message);
return;
}
dlinkDelete(&q->lru, &lru_list);
if (message->tc && q->tcp_socket == -1) {
debug(78, 2) ("idnsGrokReply: Response for %s truncated. Retrying using TCP\n", message->query->name);
rfc1035MessageDestroy(message);
idnsRetryTcp(q);
return;
}
idnsRcodeCount(n, q->attempt);
q->error = NULL;
if (n < 0) {
debug(78, 3) ("idnsGrokReply: error %s (%d)\n", rfc1035_error_message, rfc1035_errno);
q->error = rfc1035_error_message;
q->rcode = -n;
if (q->rcode == 2 && ++q->attempt < MAX_ATTEMPT) {
/*
* RCODE 2 is "Server failure - The name server was
* unable to process this query due to a problem with
* the name server."
*/
rfc1035MessageDestroy(message);
q->start_t = current_time;
q->id = idnsQueryID();
rfc1035SetQueryID(q->buf, q->id);
idnsSendQuery(q);
return;
}
if (q->rcode == 3 && q->do_searchpath && q->attempt < MAX_ATTEMPT) {
strcpy(q->name, q->orig);
if (q->domain < npc) {
strcat(q->name, ".");
strcat(q->name, searchpath[q->domain].domain);
debug(78, 3) ("idnsGrokReply: searchpath used for %s\n",
q->name);
q->domain++;
} else {
q->attempt++;
}
rfc1035MessageDestroy(message);
if (q->hash.key) {
hash_remove_link(idns_lookup_hash, &q->hash);
q->hash.key = NULL;
}
q->start_t = current_time;
q->id = idnsQueryID();
rfc1035SetQueryID(q->buf, q->id);
q->sz = rfc1035BuildAQuery(q->name, q->buf, sizeof(q->buf), q->id,
&q->query);
idnsCacheQuery(q);
idnsSendQuery(q);
return;
}
}
idnsCallback(q, message->answer, n, q->error);
rfc1035MessageDestroy(message);
idnsTcpCleanup(q);
cbdataFree(q);
}
void
aclDestroyExternal(void **dataptr)
{
cbdataFree(*dataptr);
}
static void
storeurlStateFree(storeurlStateData * r)
{
safe_free(r->orig_url);
cbdataFree(r);
}