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>
38 #include "configuration.h"
40 #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 disorder_cgi_login(&s
, &output
);
115 /* TODO RFC 3875 s8.2 recommendations e.g. concerning PATH_INFO */
116 disorder_cgi(&output
, &s
);
117 if(fclose(stdout
) < 0) fatal(errno
, "error closing stdout");