2 * This file is part of DisOrder.
3 * Copyright (C) 2004, 2005, 2007 Richard Kettlewell
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
10 * This program is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
27 #include <sys/types.h>
28 #include <sys/socket.h>
39 #include "configuration.h"
41 #include "api-client.h"
45 /** @brief Infer the base URL for the web interface if it's not set
47 * See <a href="http://tools.ietf.org/html/rfc3875">RFC 3875</a>.
49 static void infer_url(void) {
51 const char *scheme = "http", *server, *script, *e;
54 /* Figure out the server. 'MUST' be set and we don't cope if it
56 if(!(server = getenv("SERVER_NAME")))
57 fatal(0, "SERVER_NAME is not set");
58 server = xstrdup(server);
60 /* Figure out the port. 'MUST' be set but we cope if it is not. */
61 if((e = getenv("SERVER_PORT")))
66 /* Figure out path to ourselves */
67 if(!(script = getenv("SCRIPT_NAME")))
68 fatal(0, "SCRIPT_NAME is not set");
70 fatal(0, "SCRIPT_NAME does not start with a '/'");
71 script = xstrdup(script);
74 byte_xasprintf(&config->url, "%s://%s%s",
75 scheme, server, script);
77 byte_xasprintf(&config->url, "%s://%s:%d%s",
78 scheme, server, port, script);
82 int main(int argc, char **argv) {
83 const char *cookie_env, *conf;
90 if(argc > 0) progname = argv[0];
92 if((conf = getenv("DISORDER_CONFIG"))) configfile = xstrdup(conf);
93 if(getenv("DISORDER_DEBUG")) debugging = 1;
94 if(config_read(0)) exit(EXIT_FAILURE);
96 memset(&g, 0, sizeof g);
97 memset(&s, 0, sizeof s);
99 g.client = disorder_get_client();
101 output.sink = sink_stdio("stdout", stdout);
102 /* See if there's a cookie */
103 cookie_env = getenv("HTTP_COOKIE");
105 /* This will be an HTTP header */
106 if(!parse_cookie(cookie_env, &cd)) {
107 for(n = 0; n < cd.ncookies
108 && strcmp(cd.cookies[n].name, "disorder"); ++n)
111 login_cookie = cd.cookies[n].value;
114 /* Log in with the cookie if possible otherwise as guest */
115 if(disorder_connect_cookie(g.client, login_cookie)) {
116 disorder_cgi_error(&output, &s, "connect");
119 /* If there was a cookie but it went bad, we forget it */
120 if(login_cookie && !strcmp(disorder_user(g.client), "guest"))
122 /* TODO RFC 3875 s8.2 recommendations e.g. concerning PATH_INFO */
123 disorder_cgi(&output, &s);
124 if(fclose(stdout) < 0) fatal(errno, "error closing stdout");