void
initHttp()
{
char *buf = NULL;
int namelen;
int n;
struct hostent *host;
initHttpParser();
atom100Continue = internAtom("100-continue");
if(clientTimeout <= serverTimeout) {
clientTimeout = serverTimeout + 1;
do_log(L_WARN, "Value of clientTimeout too small -- setting to %d.\n",
clientTimeout);
}
if(displayName == NULL)
displayName = internAtom("Polipo");
if(authCredentials != NULL && authRealm == NULL)
authRealm = internAtom("Polipo");
if(allowedClients) {
allowedNets = parseNetAddress(allowedClients);
if(allowedNets == NULL)
exit(1);
}
if(allowedPorts == NULL) {
allowedPorts = makeIntList(0);
if(allowedPorts == NULL) {
do_log(L_ERROR, "Couldn't allocate allowedPorts.\n");
exit(1);
}
intListCons(80, 100, allowedPorts);
intListCons(1024, 0xFFFF, allowedPorts);
}
if(tunnelAllowedPorts == NULL) {
tunnelAllowedPorts = makeIntList(0);
if(tunnelAllowedPorts == NULL) {
do_log(L_ERROR, "Couldn't allocate tunnelAllowedPorts.\n");
exit(1);
}
intListCons(22, 22, tunnelAllowedPorts); /* ssh */
intListCons(80, 80, tunnelAllowedPorts); /* HTTP */
intListCons(109, 110, tunnelAllowedPorts); /* POP 2 and 3*/
intListCons(143, 143, tunnelAllowedPorts); /* IMAP 2/4 */
intListCons(443, 443, tunnelAllowedPorts); /* HTTP/SSL */
intListCons(873, 873, tunnelAllowedPorts); /* rsync */
intListCons(993, 993, tunnelAllowedPorts); /* IMAP/SSL */
intListCons(995, 995, tunnelAllowedPorts); /* POP/SSL */
intListCons(2401, 2401, tunnelAllowedPorts); /* CVS */
intListCons(5222, 5223, tunnelAllowedPorts); /* Jabber */
intListCons(9418, 9418, tunnelAllowedPorts); /* Git */
}
if(proxyName)
return;
buf = get_chunk();
if(buf == NULL) {
do_log(L_ERROR, "Couldn't allocate chunk for host name.\n");
goto fail;
}
n = gethostname(buf, CHUNK_SIZE);
if(n != 0) {
do_log_error(L_WARN, errno, "Gethostname");
strcpy(buf, "polipo");
goto success;
}
/* gethostname doesn't necessarily NUL-terminate on overflow */
buf[CHUNK_SIZE - 1] = '\0';
if(strcmp(buf, "(none)") == 0 ||
strcmp(buf, "localhost") == 0 ||
strcmp(buf, "localhost.localdomain") == 0) {
do_log(L_WARN, "Couldn't determine host name -- using ``polipo''.\n");
strcpy(buf, "polipo");
goto success;
}
if(strchr(buf, '.') != NULL)
goto success;
host = gethostbyname(buf);
if(host == NULL) {
goto success;
}
if(host->h_addrtype != AF_INET)
goto success;
host = gethostbyaddr(host->h_addr_list[0], host->h_length, AF_INET);
if(!host || !host->h_name || strcmp(host->h_name, "localhost") == 0 ||
strcmp(host->h_name, "localhost.localdomain") == 0)
goto success;
namelen = strlen(host->h_name);
if(namelen >= CHUNK_SIZE) {
do_log(L_ERROR, "Host name too long.\n");
goto success;
}
memcpy(buf, host->h_name, namelen + 1);
success:
proxyName = internAtom(buf);
if(proxyName == NULL) {
do_log(L_ERROR, "Couldn't allocate proxy name.\n");
goto fail;
}
dispose_chunk(buf);
return;
fail:
if(buf)
dispose_chunk(buf);
exit(1);
return;
}
int
parseConfigLine(char *line, char *filename, int lineno, int set)
{
int x0, x1;
int i, from, to;
AtomPtr name, value;
ConfigVariablePtr var;
int iv;
float fv;
AtomPtr av;
AtomListPtr alv;
IntListPtr ilv;
i = skipWhitespace(line, 0);
if(line[i] == '\n' || line[i] == '\0' || line[i] == '#')
return 0;
x0 = i;
while(letter(line[i]) || digit(line[i]))
i++;
x1 = i;
i = skipWhitespace(line, i);
if(line[i] != '=') {
goto syntax;
}
i++;
i = skipWhitespace(line, i);
name = internAtomN(line + x0, x1 - x0);
var = findConfigVariable(name);
releaseAtom(name);
if(set && var->setter == NULL)
return -2;
if(var == NULL) {
if(!set) {
do_log(L_ERROR, "%s:%d: unknown config variable ",
filename, lineno);
do_log_n(L_ERROR, line + x0, x1 - x0);
do_log(L_ERROR, "\n");
}
return -1;
}
i = skipWhitespace(line, i);
switch(var->type) {
case CONFIG_INT: case CONFIG_OCTAL: case CONFIG_HEX:
i = parseInt(line, i, &iv);
if(i < 0) goto syntax;
if(set)
var->setter(var, &iv);
else
*var->value.i = iv;
break;
case CONFIG_TIME:
i = parseTime(line, i, &iv);
if(i < 0) goto syntax;
i = skipWhitespace(line, i);
if(line[i] != '\n' && line[i] != '\0' && line[i] != '#')
goto syntax;
if(set)
var->setter(var, &iv);
else
*var->value.i = iv;
break;
case CONFIG_BOOLEAN:
case CONFIG_TRISTATE:
case CONFIG_TETRASTATE:
case CONFIG_PENTASTATE:
iv = parseState(line, i, var->type);
if(iv < 0)
goto syntax;
if(set)
var->setter(var, &iv);
else
*var->value.i = iv;
break;
case CONFIG_FLOAT:
if(!digit(line[i]) && line[i] != '.')
goto syntax;
fv = atof(line + i);
if(set)
var->setter(var, &fv);
else
*var->value.f = fv;
break;
case CONFIG_ATOM: case CONFIG_ATOM_LOWER: case CONFIG_PASSWORD:
i = parseAtom(line, i, &av, (var->type == CONFIG_ATOM_LOWER));
if(i < 0) goto syntax;
if(!av) {
if(!set)
do_log(L_ERROR, "%s:%d: couldn't allocate atom.\n",
filename, lineno);
return -1;
}
i = skipWhitespace(line, i);
if(line[i] != '\n' && line[i] != '\0' && line[i] != '#') {
releaseAtom(av);
goto syntax;
}
if(set)
var->setter(var, &av);
else {
if(*var->value.a) releaseAtom(*var->value.a);
*var->value.a = av;
}
break;
case CONFIG_INT_LIST:
ilv = makeIntList(0);
if(ilv == NULL) {
if(!set)
do_log(L_ERROR, "%s:%d: couldn't allocate int list.\n",
filename, lineno);
return -1;
}
while(1) {
i = parseInt(line, i, &from);
if(i < 0) goto syntax;
to = from;
i = skipWhitespace(line, i);
if(line[i] == '-') {
i = skipWhitespace(line, i + 1);
i = parseInt(line, i, &to);
if(i < 0) {
destroyIntList(ilv);
goto syntax;
}
i = skipWhitespace(line, i);
}
intListCons(from, to, ilv);
if(line[i] == '\n' || line[i] == '\0' || line[i] == '#')
break;
if(line[i] != ',') {
destroyIntList(ilv);
goto syntax;
}
i = skipWhitespace(line, i + 1);
}
if(set)
var->setter(var, &ilv);
else {
if(*var->value.il) destroyIntList(*var->value.il);
*var->value.il = ilv;
}
break;
case CONFIG_ATOM_LIST: case CONFIG_ATOM_LIST_LOWER:
alv = makeAtomList(NULL, 0);
if(alv == NULL) {
if(!set)
do_log(L_ERROR, "%s:%d: couldn't allocate atom list.\n",
filename, lineno);
return -1;
}
while(1) {
i = parseAtom(line, i, &value,
(var->type == CONFIG_ATOM_LIST_LOWER));
if(i < 0) goto syntax;
if(!value) {
if(!set)
do_log(L_ERROR, "%s:%d: couldn't allocate atom.\n",
filename, lineno);
return -1;
}
atomListCons(value, alv);
i = skipWhitespace(line, i);
if(line[i] == '\n' || line[i] == '\0' || line[i] == '#')
break;
if(line[i] != ',') {
destroyAtomList(alv);
goto syntax;
}
i = skipWhitespace(line, i + 1);
}
if(set)
var->setter(var, &alv);
else {
if(*var->value.al) destroyAtomList(*var->value.al);
*var->value.al = alv;
}
break;
default: abort();
}
return 1;
syntax:
if(!set)
do_log(L_ERROR, "%s:%d: parse error.\n", filename, lineno);
return -1;
}
